home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / fire (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  63 lines

  1. 1 IFF=1THENSYS17000:POKE198,0:GOTO3
  2. 2 GOTO10
  3. 3 POKE51200,75:LOAD"PAYLOAD CONNECT",8
  4. 4 :
  5. 10 POKE53280,0:POKE53281,0
  6. 20 PRINT"[147]              FOREST FIRE"
  7. 30 PRINT"              [197][197][197][197][197][197][197][197][197][197][197]"
  8. 40 PRINT:PRINT"             BY ALAN POOLE"
  9. 45 PRINT:PRINT:PRINT"     PLUG THE JOYSTICK INTO PORT 2"
  10. 50 PRINT"   DO YOU WANT INSTRUCTIONS? (Y OR N)";
  11. 60 POKE204,0
  12. 70 GETK$
  13. 80 IFK$="Y"THEN500
  14. 90 IFK$<>"N"THEN70
  15. 100 POKE204,1:PRINT"[147]               LOADING..."
  16. 110 F=1
  17. 120 LOAD"FIRE.O",8,1
  18. 130 STOP
  19. 500 POKE204,1:PRINT"[147]"
  20. 510 READL$:PRINT:N=N+1
  21. 520 IFN>11THENGOSUB1000:N=0:PRINT"[147]"
  22. 530 IFL$="_"THENGOSUB1000:GOTO100
  23. 540 PRINTSPC((40-LEN(L$))/2);L$
  24. 550 GOTO510
  25. 600 DATA"AN ARSONIST HAS JUST STARTED SEVERAL"
  26. 610 DATA"FOREST FIRES AND HE IS STILL STARTING"
  27. 620 DATA"MORE. THE FIRES ARE SPREADING RAPIDLY,"
  28. 630 DATA"ENDANGERING LIVES AND PROPERTY. YOU"
  29. 640 DATA"HAVE TO CONTROL THE FIRE AND PUT IT"
  30. 650 DATA"OUT. YOU CAN DROP WATER ON THE FIRE OR"
  31. 660 DATA"BURN BACK FIRES TO TRY TO CONTAIN IT."
  32. 680 DATA"AFTER THE TITLE PAGE IS DISPLAYED, YOU"
  33. 690 DATA"WILL BE ASKED WHAT DIFFICULTY LEVEL"
  34. 700 DATA"YOU WANT. PRESS A NUMBER FROM 1 TO 3"
  35. 710 DATA"AND THE GAME WILL BEGIN. YOU WILL SEE"
  36. 720 DATA"AN AERIAL VIEW OF THE SCENE. YOUR"
  37. 730 DATA"POSITION IS REPRESENTED BY A FLASHING"
  38. 740 DATA"WHITE SQUARE. THE GREEN AREA IS FOREST"
  39. 750 DATA"AND THE RED IS FIRE. THE YELLOW SQUARES"
  40. 760 DATA"ARE HOUSES."
  41. 780 DATA"PUSH THE JOYSTICK TO MOVE THE WHITE"
  42. 790 DATA"SQUARE. PRESSING THE BUTTON ON THE"
  43. 800 DATA"JOYSTICK WILL DROP WATER ON THE FIRE."
  44. 810 DATA"ON THE AVERAGE, ONE HALF OF THE FIRE"
  45. 820 DATA"UNDER THE SQUARE WILL BE PUT OUT EVERY"
  46. 830 DATA"TIME YOU DROP WATER. PRESS THE SPACE"
  47. 840 DATA"BAR TO BURN A BACK FIRE UNDER THE"
  48. 850 DATA"SQUARE. YOU CAN USE BACK FIRES TO BURN"
  49. 860 DATA"A WALL AROUND A FIRE. YOU CAN HOLD DOWN"
  50. 870 DATA"THE BUTTON OR SPACE BAR TO REPEAT THE"
  51. 880 DATA"ACTION."
  52. 900 DATA"THE GAME ENDS WHEN THE FIRE IS"
  53. 910 DATA"COMPLETELY EXTINGUISHED. YOUR SCORE IS"
  54. 920 DATA"CALCULATED FROM THE AREA THAT HAS NOT"
  55. 930 DATA"BURNED.  HOUSES ARE WORTH MUCH MORE"
  56. 940 DATA"THAN AN EQUIVALENT AREA OF FOREST, SO"
  57. 950 DATA"YOU SHOULD DO YOUR BEST TO PROTECT"
  58. 960 DATA"THEM."
  59. 970 DATA"_"
  60. 1000 PRINT"           PRESS SPACE BAR";
  61. 1010 GETK$:IFK$<>" "THEN1010
  62. 1020 PRINT"":POKE204,1:RETURN
  63.