home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Falcon 030 Power 2
/
F030_POWER2.iso
/
ST_STE
/
MAGS
/
ICTARI01.ARJ
/
ictari.01
/
STOS
/
CHEATER
/
CHEATER.BAS
(
.txt
)
next >
Wrap
Atari STOS Basic
|
1987-04-22
|
73KB
|
133 lines
10 HIDE
100 LIMIT MOUSE
1000 INK
1100 REM ****change cheat on view *****
1105 INC
1106 IF
1110 LOCATE
1120 PAPER
1250 REM **** change cheat in file***
1255 HIDE
1267 CENTRE
1268 INPUT
1270 IF
1275 CLS
1276 INPUT
1280 FOR
1281 NEXT
1290 LOCATE
1291 INPUT
1310 CENTRE
1311 INPUT
1312 VARNAME
200 REM **********main loop*******
2000 REM ****ERASE A CHEAT**********
2005 HIDE
2010 LOCATE
2020 INPUT
2025 CLS
2030 CENTRE
2040 FOR
2050 NEXT
2060 LOCATE
2070 INPUT
210 VARNAME
2100 VARNAME
220 IF
2200 CENTRE
230 IF
240 IF
245 IF
250 IF
260 IF
270 IF
280 IF
285 GOSUB
290 GOTO
30 DIM
3000 REM ***** about cheat **********
3010 VARNAME
3011 VARNAME
3012 VARNAME
3018 VARNAME
3100 VARNAME
3101 GOSUB
3102 PAPER
3109 REPEAT
3110 IF
3120 PEN
3130 FOR
3140 UNTIL
40 OPEN IN
41 FOR
42 SORT
5 MODE
500 CLS
550 FADE
58 CURS
59 DEF
60 VARNAME
600 REM *****page back**************
61 GOSUB
610 IF
62 GOTO
620 VARNAME
625 GOSUB
630 RETURN
699 REM ******page forward************
700 IF
710 VARNAME
715 GOSUB
720 RETURN
79 REM *******show a page********
80 PEN
800 REM ****** add cheat ***********
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"
8010 LOCATE
8020 INPUT
8040 FOR
8050 LOCATE
81 FOR
810 HIDE
82 VARNAME
821 LOCATE
822 INPUT
823 IF
830 LOCATE
831 LOCATE
835 INPUT
840 FOR
850 NEXT
8500 REM *** desktop *************************************************************
8505 BREAK
8510 HIDE
860 CLS
8600 ERASE
861 LOCATE
8610 FOR
8615 VARNAME
862 LOCATE
8620 VARNAME
8621 AREG
8622 AREG
8623 CALL
8624 GOTO
863 PEN
864 LOCATE
865 GOSUB
867 GOTO
90 CENTRE
900 REM **** SHOW CHEAT ************
9000 FOR
9005 SORT
9010 OPEN OUT
909 PEN
910 LOCATE
912 IF
920 PRINT
930 FOR
94 NEXT
95 RETURN
960 RETURN
999 REM *******clear page**********