home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D2.D64 / quad (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  369 b   |  13 lines
  1. 1 A=A+1:IFA>1 THEN PRINT" QUAD.";:GOTO50
  2. 5 DEV=8:POKE53281,8:POKE53280,2
  3. 10 PRINT"[147][158]****************************************"
  4. 15 PRINTTAB(16);"[145]Q+U+A+D"
  5. 20 PRINT"[158]****************************************"
  6. 25 PRINT"[151]       PROGRAMMED BY NICK SUMNER"
  7. 35 PRINT"[151]           LOADING IN :"
  8. 40 GOTO 1
  9. 50 IF A=2 THEN PRINT"MC1":LOAD"QUAD.MC1",8,1
  10. 55 IF A=3 THEN PRINT"MC2":LOAD"QUAD.MC2",8,1
  11. 80 IF A=4 THEN SYS16384
  12. 85 GOTO 1
  13.