home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD039.d81 / wild-fire (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  721 b   |  28 lines
  1. 1 C=53280:POKEC,0:POKEC+1,0:PRINT"[147][158]":C=1440:T=6:A=INT(RND(1)*8)+3:GOSUB22
  2. 2 FORB=1TOA:POKEC+B,24:POKE55712+B,7:NEXT:PRINT""
  3. 3 FORB=1TO8:PRINT"":NEXT:PRINT"TURNS LEFT:"T:PRINT"(C)HEMI. (B)ACKFIRE (W)ATER
  4. 4 [161]A$:[139]A$[178]""[167]4
  5. 5 [139]A$[178]"C"[167]9
  6. 6 [139]A$[178]"B"[167]10
  7. 7 [139]A$[178]"W"[167]11
  8. 8 [137]11
  9. 9 Q[178]A:A[178]A[171]3:T[178]T[171][181]([187](1)[172]5)[170]1:[137]12
  10. 10 Q[178]A:A[178]A[171]2:T[178]T[171]3:[137]12
  11. 11 Q[178]A:A[178]A[171]1:T[178]T[171]1:[137]12
  12. 12 [129]B[178]1[164]Q:[151]C[170]B,32:[130]:[139]A[179]1[167]15
  13. 13 [139]T[179]1[167]16
  14. 14 [137] 2
  15. 15 [153]"YOU WON!CLOSETHE FIRE IS PUT OUT!":[137]17
  16. 16 [153]"YOU LOST!CLOSETHE FIRE SPREAD..."
  17. 17 [153]"PLAY AGAIN?CLOSE(Y/N)"
  18. 18 [161]A$:[139]A$[178]""[167]18
  19. 19 [139]A$[178]"Y"[167][138]
  20. 20 [139]A$[178]"N"[167][128]
  21. 21 [137]18
  22. 22 [153]" WILD-FIRE WAIT BY PINGO/CIVITAS/DIXN RIAH":[153]
  23. 23 [153]"YOUR GOAL IS TO FIGHT THE FIRE. YOU"
  24. 24 [153]"HAVE 3 METHODS, BUT THEY COST! BE CARE-
  25. 25 PRINT"FUL, AND YOU MIGHT WIN!"
  26. 26 GETA$:IFA$=""THEN26
  27. 27 PRINT"[147]":RETURN
  28.