home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / DEMON-STALKERS.E (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.1 KB  |  90 lines
  1. 100 REM UNLIMITED HEALTH FOR DEMON STALKERS BY SIAMAK
  2. 105 POKE53280,0:POKE53281,0
  3. 110 PRINT"ô"CHR$(14)CHR$(8);
  4. 115 PRINT"         ─EMON ╙TALKERS EDITOR"
  5. 120 PRINT:PRINT"               BY ╙╔┴═┴╦"
  6. 125 PRINT:PRINT:PRINT"ƒ ╘HIS PROGRAM EDITS THE DISK TO GIVE"
  7. 130 PRINT" UNLIMITED HEALTH FOR THE GAME ₧─┼═╧╬"
  8. 135 PRINT" ╙╘┴╠╦┼╥╙ƒ BY ┼LECTRONIC ┴RTS."
  9. 140 PRINT:PRINT" ╘O CHANGE BACK TO THE ORIGINAL GAME"
  10. 145 PRINT" PLAY, CHOOSE OPTION 2 OF THE MENU."
  11. 150 PRINT:PRINT" ╘HE PROGRAM DOES NOT CHECK THE DISK."
  12. 155 PRINT" ═AKE SURE YOU INSERT THE CORRECT DISK."
  13. 160 PRINT" ╘HE DISK MUST HAVE ITS WRITE PROTECT"
  14. 170 PRINT" TAB REMOVED."
  15. 175 PRINT:PRINT:PRINT" ╔NSERT ₧─┼═╧╬ ╙╘┴╠╦┼╥╙ƒ PROGRAM DISK"
  16. 180 PRINT" IN DRIVE AND PRESS A KEY TO CONTINUE"
  17. 185 GOSUB800
  18. 190 PRINT"ô├HOOSE OPTIONS BY NUMBER"
  19. 195 PRINT"1) ┴── ╒╬╠╔═╔╘┼─ ╚┼┴╠╘╚"
  20. 200 PRINT"2) ╥┼╙╘╧╥┼ ╧╥╔╟╔╬┴╠"
  21. 205 GOSUB800
  22. 210 IFKY$="1"THENID=1:GOTO225
  23. 215 IFKY$="2"THENID=2:GOTO225
  24. 220 GOTO205
  25. 225 GOSUB300
  26. 230 PRINT"─ONE!"
  27. 235 END
  28. 300 OPEN15,8,15,"I0":GOSUB700
  29. 305 OPEN2,8,2,"#"
  30. 310 F$="M5":NB=2:GOSUB500
  31. 315 PRINT#15,"U1:"2;0;T;S:GOSUB700
  32. 320 A=233:B=0:IFID=2THENA=229:B=5
  33. 325 PRINT#15,"B-P:"2;249
  34. 330 PRINT#2,CHR$(A);CHR$(B);
  35. 335 PRINT#15,"U2:"2;0;T;S:GOSUB700
  36. 340 F$="C2":NB=15:GOSUB500
  37. 345 PRINT#15,"U1:"2;0;T;S:GOSUB700
  38. 350 A=0:IFID=2THENA=1
  39. 355 PRINT#15,"B-P:"2;254
  40. 360     
  41. 365 PRINT#15,"U2:"2;0;T;S:GOSUB700
  42. 370 F$="IT":NB=3:GOSUB500
  43. 375 PRINT#15,"U1:"2;0;T;S:GOSUB700
  44. 380 A=96:IFID=2THENA=76
  45. 385 PRINT#15,"B-P:"2;220
  46. 390 PRINT#2,CHR$(A);
  47. 395 PRINT#15,"U2:"2;0;T;S:GOSUB700
  48. 400 F$="CO":NB=6:GOSUB500
  49. 405 PRINT#15,"U1:"2;0;T;S:GOSUB700
  50. 410 A=0:IFID=2THENA=51
  51. 415 PRINT#15,"B-P:"2;49
  52. 420 PRINT#2,CHR$(A);
  53. 425 A=0:IFID=2THENA=1
  54. 430 PRINT#15,"B-P:"2;59
  55. 435 PRINT#2,CHR$(A);
  56. 440 PRINT#15,"U2:"2;0;T;S:GOSUB700
  57. 445 F$="CO":NB=4:GOSUB500
  58. 450 PRINT#15,"U1:"2;0;T;S:GOSUB700
  59. 455 A=233:B=0:IFID=2THENA=229:B=2
  60. 460 PRINT#15,"B-P:"2;152
  61. 465 PRINT#2,CHR$(A);CHR$(B);
  62. 470 A=233:B=0:IFID=2THENA=229:B=3
  63. 475 PRINT#15,"B-P:"2;159
  64. 480 PRINT#2,CHR$(    
  65. 485 PRINT#15,"U2:"2;0;T;S:GOSUB700
  66. 490 CLOSE2:CLOSE15
  67. 495 RETURN
  68. 500 REM
  69. 505 OPEN3,8,3,F$+",P,R":GOSUB700
  70. 510 PRINT#15,"M-R"CHR$(24)CHR$(0)CHR$(2)
  71. 515 GET#15,T$,S$
  72. 520 T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0))
  73. 525 CLOSE3
  74. 530 FORI=1TONB-1
  75. 535 PRINT#15,"U1:"2;0;T;S:GOSUB700
  76. 540 PRINT#15,"B-P:"2;0
  77. 545 GET#2,T$,S$
  78. 550 T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0))
  79. 555 NEXTI
  80. 560 RETURN
  81. 700 INPUT#15,EN,EM$,ET,ES
  82. 710 IFEN=0THENRETURN
  83. 720 PRINT"─ISK ┼RROR!"
  84. 730 PRINT""EN;EM$;ET;ES
  85. 740 CLOSE2:CLOSE15
  86. 750 END
  87. 800 POKE198,0
  88. 810 GETKY$:IFKY$=""THEN810
  89. 820 RETURN
  90.