home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
94xx
/
9405a.d64
/
c-cars-3-patch
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
279b
|
16 lines
10 INPUT"FASTLOAD (Y/N)";A$
15 IFA$="Y"THEN A$=CHR$(76):GOTO22
20 A$=CHR$(96)
22 PRINT"DISC1!":GETB$:IFB$=""THEN22
25 TR=8:S=9:GOSUB50
30 PRINT"DISC2!":GETB$:IFB$=""THEN30
40 TR=17:S=1:GOSUB50
45 END
50 OPEN2,8,2,"#"
55 OPEN15,8,15
60 PRINT#15,"U1 2 0";TR;S
65 PRINT#15,"B-P 2";4
70 PRINT#2,A$;
75 PRINT#15,"U2 2 0";TR;S
80 CLOSE2:CLOSE15:RETURN