home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 2 #3 / Commodore_Disk_User_Vol.2_3_1989_-_Side_B.d64 / dominoes (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  198b  |  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.