SPACE 1

home *** CD-ROM | disk | FTP | other *** search

/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / utilitys / 663 / dem.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1993-07-04 | 152.3 KB | 139 lines

10 MODE 100 LIMIT SPRITE 11 VARNAME 110 SPRITE 12 FADE 120 FADE 125 SPRITE 130 PEN 140 SCREEN COPY 15 SCREEN COPY 150 INK 160 INK 170 INK 180 INK 190 INK 20 FADE 200 SPRITE 2000 REM ********* read high score ** 2010 OPEN IN 2020 FOR 2030 CLOSE 2040 RETURN 210 VARNAME 220 INK 230 INK 240 VARNAME 250 INK 2500 REM 260 SCREEN COPY 270 SPRITE 280 VARNAME 290 SCREEN COPY 295 SPRITE 30 FADE 300 FADE 3000 CLS 3005 FADE 3007 FOR 3010 SCREEN COPY 3020 FOR 3030 FADE 310 FADE 320 LIMIT SPRITE 325 FADE 330 SCREEN COPY 340 SCREEN COPY 341 REM *************** 342 OFF 343 WAIT VBL 344 FADE 350 INK 360 COLOUR 370 VARNAME 380 VARNAME 390 VARNAME 40 CLS 400 VARNAME 410 LIMIT SPRITE 420 FOR 430 WAIT 440 PEN 450 AREG 455 VARNAME 460 WAIT VBL 470 WAIT VBL 4999 REM ************ 5 BREAK 50 SPRITE 500 IF 5000 PEN 50000 FADE 50010 FADE 50020 WAIT KEY 50030 RESUME 5010 LOCATE 5020 LOCATE 5095 SPRITE 510 IF 5100 FADE 5110 REPEAT 5111 VARNAME 5112 IF 5120 UNTIL 520 IF 530 RETURN 60 VARNAME 600 IF 610 IF 620 IF 630 RETURN 70 ANIM 80 VARNAME 800 DEC 8000 REM ************************ 8010 VARNAME 8020 LOCATE 8030 FADE 8040 REPEAT 805 IF 8050 SPRITE 8060 IF 8070 IF 8075 IF 8080 IF 8090 IF 810 IF 8100 IF 8105 IF 8106 IF 8107 IF 8110 UNTIL 8115 IF 8116 IF 8120 VARNAME 8125 LOCATE 8130 IF 8140 FADE 8150 VARNAME 8160 FOR 8170 IF 8180 NEXT 8190 LOKE 8200 FOR 8210 PRINT 8220 NEXT 8230 CLOSE 8240 GOSUB 90 FADE 9000 REM *********** 9010 OFF 9020 FADE 9030 REPEAT 9040 SPRITE 9050 IF 9060 IF 9070 UNTIL 9080 IF 9090 FADE