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