home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Falcon 030 Power 2
/
F030_POWER2.iso
/
ST_STE
/
MAGS
/
ICTARI05.ARJ
/
ictari.05
/
STOS
/
BOUNCE.BAS
(
.txt
)
next >
Wrap
Atari STOS Basic
|
1987-04-22
|
19KB
|
64 lines
10 KEY
100 VARNAME
110 EXTENSION (Index #12) (Token 0x8c)
120 VARNAME
130 NEXT
140 CLS
150 LOGIC
160 PALETTE
170 REM
180 REM -----------------------------------------------------------------
190 REM
20 PALETTE
200 DREG
210 REPEAT
220 EXTENSION (Index #12) (Token 0x8c)
230 VARNAME
240 EXTENSION (Index #12) (Token 0x8c)
250 EXTENSION (Index #7) (Token 0x82)
260 UNTIL
270 DREG
280 DOKE
290 STOP
30 VARNAME
300 REM
310 REM ----------------------------------------------------------------
320 REM
330 VARNAME
340 DIM
350 FOR
360 VARNAME
370 LOGIC
380 RETURN
390 REM
40 RESERVE
400 REM ----------------------------------------------------------------
410 REM
420 VARNAME
430 EXTENSION (Index #12) (Token 0x8c)
440 VARNAME
450 VARNAME
460 IF
470 IF
480 VARNAME
490 VARNAME
50 CLS
500 SCREEN$
510 RETURN
520 REM
530 REM --------------------------------------------------------------------
540 REM
550 RESERVE
560 VARNAME
570 REPEAT
580 UNTIL
590 FOR
60 CLS
600 DATA
610 DATA
620 DATA
630 RETURN
70 FILL
80 LOCATE
90 EXTENSION (Index #12) (Token 0x80)