home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V2D3B.D64 / dominoes (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  198 b   |  8 lines
  1. 10 C=C+1:IFC=3THEN50
  2. 20 IFC=1THENLOAD"CHAMP1",8,1
  3. 30 IFC=2THENSYS32768:PRINT"[147]"
  4. 40 IFC=2THENLOAD"CHAMP2",8,1
  5. 50 POKE53265,PEEK(53265)AND239:PRINT"[147]LOAD"CHR$(34)"CHAMP3"CHR$(34)",8,1"
  6. 60 PRINT"RUN"
  7. 70 POKE631,19:POKE632,13:POKE633,13:POKE198,3
  8.