epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler
File name: tests/INSTALL.BAS (1297 bytes)
Options: bin=None cset='UK' hex='' html='' info='' out='result-hex-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.
64 00 00 60 39 80 0B 69 6E 73 74 61 6C 6C 2E 62 61 73
100 PROGRAM "install.bas"
6E 00 00 60 34 C2 BF 00 0C C2 0C 00 10 60 4B C2 50 00 10 60 36 C2 38 00 0C C2 C9 00
110 OUT 191,12:TEXT 80:POKE 56,201
78 00 00 60 45 03 C2 66 00 10 27 50 41 4C 45 54 54 45 C2 00 00 0C C2 07 00 0C C2 00 00 0C C2 AD 00
120 SET #102:PALETTE0,7,0,173
82 00 00 60 45 03 C2 66 00 10 26 43 55 52 53 4F 52 29 43 48 41 52 41 43 54 45 52 23 4F 52 44 08 80 01 5F 09
130 SET #102:CURSORCHARACTERORD("_")
8C 00 00 60 45 26 53 54 41 54 55 53 23 4F 46 46
140 SET STATUSOFF
96 00 00 60 38 22 41 54 C2 14 00 0C C2 0D 00 10 80 37 54 59 50 45 2C 4F 52 20 50 52 45 53 53 20 45 4E 54 45 52 20 46 4F 52 20 44 45 46 41 55 4C 54 20 4E 41 4D 45 20 4F 52 20 50 41 54 48 20 28 2F 56 49 53 49 4F 4E 53 29
150 PRINT AT20,13:"TYPE,OR PRESS ENTER FOR DEFAULT NAME OR PATH (/VISIONS)"
A0 00 00 60 36 C2 38 00 0C C2 F5 00
160 POKE 56,245
AA 00 00 60 27 22 41 54 C2 0A 00 0C C2 14 00 0C 26 50 52 4F 4D 50 54 80 10 45 6E 74 65 72 20 79 6F 75 72 20 6E 61 6D 65 3A 10 42 4E 24
170 INPUT AT10,20,PROMPT"Enter your name:":N$
B4 00 00 60 27 22 41 54 C2 0C 00 0C C2 14 00 0C 26 50 52 4F 4D 50 54 80 0A 44 65 6D 6F 20 70 61 74 68 3A 10 45 50 41 54 48 24
180 INPUT AT12,20,PROMPT"Demo path:":PATH$
BE 00 00 60 25 45 50 41 54 48 24 13 80 00 24 54 48 45 4E 60 28 45 50 41 54 48 24 13 80 08 5C 56 49 53 49 4F 4E 53
190 IF PATH$=""THENLET PATH$="\VISIONS"
C8 00 00 60 25 42 4E 24 13 80 00 24 54 48 45 4E 60 28 42 4E 24 13 80 08 41 4E 4F 4E 59 4D 55 53
200 IF N$=""THENLET N$="ANONYMUS"
D2 00 00 60 07 26 53 43 52 45 45 4E
210 CLEAR SCREEN
DC 00 00 60 38 03 C2 66 00 0C 22 41 54 C2 02 00 0C C2 14 00 10 80 27 45 44 43 27 53 20 56 49 53 49 4F 4E 53 20 64 65 6D 6F 20 69 6E 73 74 61 6C 6C 61 74 69 6F 6E 20 70 72 6F 67 72 61 6D
220 PRINT #102,AT2,20:"EDC'S VISIONS demo installation program"
E6 00 00 60 38 03 C2 66 00 0C 22 41 54 C2 05 00 0C C2 11 00 10 80 2E 55 73 65 20 20 49 4E 54 45 52 4E 41 4C 20 6A 6F 79 20 74 6F 20 73 65 6C 65 63 74 2C 74 68 65 6E 20 70 72 65 73 73 20 27 45 4E 54 45 52 27
230 PRINT #102,AT5,17:"Use INTERNAL joy to select,then press 'ENTER'"
F0 00 00 60 38 03 C2 66 00 0C 22 41 54 C2 08 00 0C C2 21 00 10 80 0E 53 70 65 61 6B 65 72 20 69 73 20 4F 4E 20 10 60 28 23 53 50 4B 13 C2 00 00
240 PRINT #102,AT8,33:"Speaker is ON ":LET SPK=0
FA 00 00 60 28 42 49 24 13 46 49 4E 4B 45 59 24
250 LET I$=INKEY$
04 01 00 60 25 42 49 24 13 80 00 24 54 48 45 4E A2 FA 00
260 IF I$=""THEN 250
0E 01 00 60 25 42 49 24 13 44 43 48 52 24 08 C2 B8 00 09 24 54 48 45 4E A2 F0 00
270 IF I$=CHR$(184)THEN 240
18 01 00 60 25 42 49 24 13 44 43 48 52 24 08 C2 BC 00 09 24 54 48 45 4E 60 38 03 C2 66 00 0C 22 41 54 C2 08 00 0C C2 2C 00 10 80 03 4F 46 46 10 60 28 23 53 50 4B 13 C2 FF 00
280 IF I$=CHR$(188)THENPRINT #102,AT8,44:"OFF":LET SPK=255
22 01 00 60 25 42 49 24 15 44 43 48 52 24 08 C2 0D 00 09 24 54 48 45 4E A2 FA 00
290 IF I$<>CHR$(13)THEN 250
2C 01 00 60 38 03 C2 66 00 0C 22 41 54 C2 0A 00 0C C2 1C 00 10 80 19 43 72 65 61 74 69 6E 67 20 5C 56 49 53 2E 42 41 54 20 66 69 6C 65 2E 2E 2E
300 PRINT #102,AT10,28:"Creating \VIS.BAT file..."
36 01 00 60 31 03 C2 01 00 10 80 08 5C 56 49 53 2E 42 41 54 26 41 43 43 45 53 53 26 4F 55 54 50 55 54
310 OPEN #1:"\VIS.BAT"ACCESSOUTPUT
40 01 00 60 38 03 C2 01 00 10 80 07 56 41 52 20 31 34 2C 0C 23 53 50 4B
320 PRINT #1:"VAR 14,",SPK
4A 01 00 60 38 03 C2 01 00 10 80 1F 45 43 48 4F 20 45 44 43 27 53 20 56 49 53 49 4F 4E 53 20 44 45 4D 4F 20 4C 4F 41 44 49 4E 47
330 PRINT #1:"ECHO EDC'S VISIONS DEMO LOADING"
54 01 00 60 38 03 C2 01 00 10 80 04 45 43 48 4F
340 PRINT #1:"ECHO"
5E 01 00 60 38 03 C2 01 00 10 80 11 45 43 48 4F 20 56 45 52 53 49 4F 4E 20 46 4F 52 3A
350 PRINT #1:"ECHO VERSION FOR:"
68 01 00 60 38 03 C2 01 00 10 80 05 45 43 48 4F 20 06 42 4E 24
360 PRINT #1:"ECHO "&N$
72 01 00 60 38 03 C2 01 00 10 80 03 43 44 20 06 45 50 41 54 48 24
370 PRINT #1:"CD "&PATH$
7C 01 00 60 38 03 C2 01 00 10 80 10 4C 4F 41 44 20 56 49 53 49 4F 4E 53 2E 43 4F 4D
380 PRINT #1:"LOAD VISIONS.COM"
86 01 00 60 08 03 C2 01 00
390 CLOSE #1
90 01 00 60 38 03 C2 66 00 0C 22 41 54 C2 0C 00 0C C2 1D 00 10 80 16 49 4E 53 54 41 4C 4C 41 54 49 4F 4E 20 46 49 4E 49 53 48 45 44 21
400 PRINT #102,AT12,29:"INSTALLATION FINISHED!"
9A 01 00 60 38 03 C2 66 00 0C 22 41 54 C2 0E 00 0C C2 11 00 10 80 31 49 46 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 45 45 20 54 48 49 53 20 44 45 4D 4F 2C 54 59 50 45 20 27 45 58 44 4F 53 20 56 49 53 2E 42 41 54 27
410 PRINT #102,AT14,17:"IF YOU WANT TO SEE THIS DEMO,TYPE 'EXDOS VIS.BAT'"
A4 01 00 60 38 03 C2 66 00 0C 22 41 54 C2 10 00 0C C2 1B 00 10 80 19 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 53 54 41 52 54 2E 2E 2E
420 PRINT #102,AT16,27:"PRESS ANY KEY TO START..."
AE 01 00 60 25 46 49 4E 4B 45 59 24 13 80 00 24 54 48 45 4E A2 AE 01
430 IF INKEY$=""THEN 430
B8 01 00 60 54 80 0E 45 58 44 4F 53 20 5C 56 49 53 2E 42 41 54
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)
Enterprise-128 EXOS file analyzer, lister and disassembler v0.5.8 ©2012,2013 "LGB" Gábor Lénárt (lgb at-sign lgb dot hu)