epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler

File name: tests/INSTALL.BAS (1297 bytes)
Options: bin=None cset='UK' html='' info='' out='result-python.html'
EP-ASCII: UK
EXOS header pos/serial: #0 at 0x0
EXOS type/header: 0x4 [00 04 F1 04 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: IS-BASIC program (single)

Program: 0x0, size: 0x4f1 bytes.
  100 PROGRAM "install.bas"
  110 OUT 191,12:TEXT 80:POKE 56,201
  120 SET #102:PALETTE0,7,0,173
  130 SET #102:CURSORCHARACTERORD("_")
  140 SET STATUSOFF
  150 PRINT AT20,13:"TYPE,OR PRESS ENTER FOR DEFAULT NAME OR PATH (/VISIONS)"
  160 POKE 56,245
  170 INPUT AT10,20,PROMPT"Enter your name:":N$
  180 INPUT AT12,20,PROMPT"Demo path:":PATH$
  190 IF PATH$=""THENLET PATH$="\VISIONS"
  200 IF N$=""THENLET N$="ANONYMUS"
  210 CLEAR SCREEN
  220 PRINT #102,AT2,20:"EDC'S VISIONS demo installation program"
  230 PRINT #102,AT5,17:"Use  INTERNAL joy to select,then press 'ENTER'"
  240 PRINT #102,AT8,33:"Speaker is ON ":LET SPK=0
  250 LET I$=INKEY$
  260 IF I$=""THEN 250
  270 IF I$=CHR$(184)THEN 240
  280 IF I$=CHR$(188)THENPRINT #102,AT8,44:"OFF":LET SPK=255
  290 IF I$<>CHR$(13)THEN 250
  300 PRINT #102,AT10,28:"Creating \VIS.BAT file..."
  310 OPEN #1:"\VIS.BAT"ACCESSOUTPUT
  320 PRINT #1:"VAR 14,",SPK
  330 PRINT #1:"ECHO EDC'S VISIONS DEMO LOADING"
  340 PRINT #1:"ECHO"
  350 PRINT #1:"ECHO VERSION FOR:"
  360 PRINT #1:"ECHO "&N$
  370 PRINT #1:"CD "&PATH$
  380 PRINT #1:"LOAD VISIONS.COM"
  390 CLOSE #1
  400 PRINT #102,AT12,29:"INSTALLATION FINISHED!"
  410 PRINT #102,AT14,17:"IF YOU WANT TO SEE THIS DEMO,TYPE 'EXDOS VIS.BAT'"
  420 PRINT #102,AT16,27:"PRESS ANY KEY TO START..."
  430 IF INKEY$=""THEN 430
  440 EXT "EXDOS \VIS.BAT"

EXOS header pos/serial: #1 at 0x501
EXOS type/header: 0xa [00 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: End of module


End of FILE parsing, because: End-of-module header got (type=10)