home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser01.arj / stoser01.msa / CHEATER / CHEATER.BAS (.txt) next >
Atari STOS Basic  |  1987-04-22  |  73KB  |  133 lines
  1. 10 HIDE
  2. 100 LIMIT MOUSE
  3. 1000 INK
  4. 1100 REM ****change cheat on view *****
  5. 1105 INC
  6. 1106 IF
  7. 1110 LOCATE
  8. 1120 PAPER
  9. 1250 REM **** change cheat in file***
  10. 1255 HIDE
  11. 1267 CENTRE
  12. 1268 INPUT
  13. 1270 IF
  14. 1275 CLS
  15. 1276 INPUT
  16. 1280 FOR
  17. 1281 NEXT
  18. 1290 LOCATE
  19. 1291 INPUT
  20. 1310 CENTRE
  21. 1311 INPUT
  22. 1312 VARNAME
  23. 200 REM **********main loop*******
  24. 2000 REM ****ERASE A CHEAT**********
  25. 2005 HIDE
  26. 2010 LOCATE
  27. 2020 INPUT
  28. 2025 CLS
  29. 2030 CENTRE
  30. 2040 FOR
  31. 2050 NEXT
  32. 2060 LOCATE
  33. 2070 INPUT
  34. 210 VARNAME
  35. 2100 VARNAME
  36. 220 IF
  37. 2200 CENTRE
  38. 230 IF
  39. 240 IF
  40. 245 IF
  41. 250 IF
  42. 260 IF
  43. 270 IF
  44. 280 IF
  45. 285 GOSUB
  46. 290 GOTO
  47. 30 DIM
  48. 3000 REM ***** about cheat **********
  49. 3010 VARNAME
  50. 3011 VARNAME
  51. 3012 VARNAME
  52. 3018 VARNAME
  53. 3100 VARNAME
  54. 3101 GOSUB
  55. 3102 PAPER
  56. 3109 REPEAT
  57. 3110 IF
  58. 3120 PEN
  59. 3130 FOR
  60. 3140 UNTIL
  61. 40 OPEN IN
  62. 41 FOR
  63. 42 SORT
  64. 5 MODE
  65. 500 CLS
  66. 550 FADE
  67. 58 CURS
  68. 59 DEF
  69. 60 VARNAME
  70. 600 REM *****page back**************
  71. 61 GOSUB
  72. 610 IF
  73. 62 GOTO
  74. 620 VARNAME
  75. 625 GOSUB
  76. 630 RETURN
  77. 699 REM ******page forward************
  78. 700 IF
  79. 710 VARNAME
  80. 715 GOSUB
  81. 720 RETURN
  82. 79 REM *******show a page********
  83. 80 PEN
  84. 800 REM ****** add cheat ***********
  85. 8000 REM ***** ERASE ALL CHEATS ***********dscreen S:$067F00 E:$06FF00 L:$0080008010 locate 0,9 : pen 2 : centre "ARE YOU SURE ERASE ALL CHEATS Y\N"
  86. 8010 LOCATE
  87. 8020 INPUT
  88. 8040 FOR
  89. 8050 LOCATE
  90. 81 FOR
  91. 810 HIDE
  92. 82 VARNAME
  93. 821 LOCATE
  94. 822 INPUT
  95. 823 IF
  96. 830 LOCATE
  97. 831 LOCATE
  98. 835 INPUT
  99. 840 FOR
  100. 850 NEXT
  101. 8500 REM *** desktop *************************************************************
  102. 8505 BREAK
  103. 8510 HIDE
  104. 860 CLS
  105. 8600 ERASE
  106. 861 LOCATE
  107. 8610 FOR
  108. 8615 VARNAME
  109. 862 LOCATE
  110. 8620 VARNAME
  111. 8621 AREG
  112. 8622 AREG
  113. 8623 CALL
  114. 8624 GOTO
  115. 863 PEN
  116. 864 LOCATE
  117. 865 GOSUB
  118. 867 GOTO
  119. 90 CENTRE
  120. 900 REM **** SHOW CHEAT ************
  121. 9000 FOR
  122. 9005 SORT
  123. 9010 OPEN OUT
  124. 909 PEN
  125. 910 LOCATE
  126. 912 IF
  127. 920 PRINT
  128. 930 FOR
  129. 94 NEXT
  130. 95 RETURN
  131. 960 RETURN
  132. 999 REM *******clear page**********
  133.