10 REM -------------------------------
12 REM    GENERAL INSTALL PROGRAM
14 REM            INSTALL
16 REM -------------------------------
18 IFA=1THEN36
20 POKE55,0:POKE56,32:CLR
22 INPUT"FILENAME";F$
24 OPEN15,8,15:OPEN1,8,2,F$+",P,R"
26 INPUT#15,A,B$,C,D
28 CLOSE1:CLOSE15:IFA=0THEN34
30 PRINTA,B$,C,D:END
34 GOSUB44:A=1:LOADF$,8,1
36 IF A$<>"KEXP"ANDA$<>"INIT"THEN40
38 SYSAD
40 POKE55,LB:POKE56,HB:NEW
42 REM
44 OPEN1,8,2,F$+",P,R"
46 GET#1,X$:IFX$=""THENX$=CHR$(0)
48 LB=ASC(X$)
50 GET#1,X$:IFX$=""THENX$=CHR$(0)
52 HB=ASC(X$):AD=LB+256*HB
54 FORI=1TO3:GET#1,X$:NEXT
56 A$="":FORI=1TO4:GET#1,X$:A$=A$+X$
58 NEXT:CLOSE1:RETURN