No Fragments Archive 10: Diskmags

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

/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOSSER / STOSSE04.MSA / SOURCE.4U / ISSUE3.BAS (.txt) < prev next >

Wrap

Atari STOS Basic | 1987-04-22 | 103.7 KB | 249 lines

1 REM 10 LOKE 10000 REM ****** PINK NERVES ************** 10010 HIDE 10020 SCREEN COPY 10030 RESET ZONE 10040 VARNAME 10050 IF 10060 IF 10065 IF 10070 GOTO 10080 VARNAME 10090 IF 10100 IF 10101 IF 10110 GOTO 10120 LOCATE 10130 REM **** cards ****** 10140 RESET ZONE 10150 HIDE 10160 SCREEN COPY 10170 RESTORE 10180 NEXT 10190 VARNAME 10200 IF 10205 IF 10210 GOTO 10220 HIDE 10230 SCREEN COPY 10240 SCREEN COPY 10250 IF 10260 IF 10270 IF 10280 GOTO 10290 LOCATE 10300 LOCATE 10320 DATA 11 CLEAR KEY 1100 REM ************************fade SCREEN************************* 1110 FADE 12 DIM 1200 REM ********* menu screen ********************* 1205 GET PALETTE 1206 VARNAME 1207 VARNAME 1210 REM ****** article menu screen ****** 1211 VARNAME 1212 GET PALETTE 1220 REM ****** review menu screen ***** 1221 VARNAME 1222 GET PALETTE 1300 REM ****** default screen ******************* 1305 BACK 14 REM ******** load a doc file ******************* 1400 REM ******* loading message ************ 1401 LOGIC 1410 RETURN 15 IF 16 GOSUB 17 GOSUB 172 UNTIL 174 IF 175 IF 176 IF 18 GOSUB 1800 REM *************** tune on and tune off *************** 1810 LOKE 1815 DREG 182 IF 1820 CLEAR KEY 185 IF 1850 LOKE 186 IF 187 IF 188 IF 19 GOSUB 190 BELL 1900 REM ************** articlrs menu ************ 1905 CLEAR KEY 1910 GOSUB 195 VARNAME 1950 REPEAT 1951 IF 1952 IF 196 SPRITE 197 RETURN 1975 BELL 2 REM 20 GOSUB 200 REM ******** doc reader **************** 2000 REM ************ review menu ***************** 201 GOSUB 2010 CLEAR KEY 2020 REPEAT 2021 IF 2022 IF 2040 BELL 210 PEN 220 VARNAME 224 WAIT VBL 225 IF 226 IF 227 NEXT 250 UNTIL 29999 REM ****** BIG SCREEN scroller ************* 3 REM 30000 VARNAME 30010 VARNAME 30020 DOKE 30030 WAIT VBL 30040 RESERVE 30050 LOGIC 30060 WAIT VBL 30070 FILL 30075 EXTENSION (Index #0) (Token 0x80) 30080 EXTENSION (Index #12) (Token 0x8c) 30090 EXTENSION (Index #12) (Token 0x8c) 30100 WAIT VBL 30110 SCROLL 30120 LOGIC 30130 UNTIL 30140 SPRITE 30150 RETURN 30160 DATA 30165 IF 30166 RETURN 30170 RESTORE 30180 VARNAME 30185 VARNAME 30190 VARNAME 30195 VARNAME 30200 VARNAME 30205 VARNAME 30210 VARNAME 30215 VARNAME 30220 VARNAME 30221 VARNAME 30222 VARNAME 30223 VARNAME 30225 VARNAME 30230 VARNAME 30235 VARNAME 30240 VARNAME 30245 VARNAME 30246 VARNAME 30248 VARNAME 30250 VARNAME 30255 VARNAME 30260 VARNAME 30265 VARNAME 30270 VARNAME 30280 VARNAME 30298 VARNAME 30299 RETURN 399 REM ***** hidden screen *************** 4 REM 400 IF 4000 REM ******** bye bye ********************* 4010 GOSUB 4020 VARNAME 4030 VARNAME 4040 VARNAME 405 FOR 4050 VARNAME 4060 VARNAME 4070 VARNAME 4080 VARNAME 410 VARNAME 420 PAPER 5 MODE 5000 VARNAME 50000 REM ******* intro screen fish ********** 50009 ERASE 50010 VARNAME 50011 IF 50012 NEXT 50014 IF 50019 GOTO 50020 REM ***** fin on big ********* 50030 SCREEN COPY 50040 SCREEN COPY 50050 SCREEN COPY 50060 SCREEN COPY 50070 SCREEN COPY 50080 SCREEN COPY 50090 EXTENSION (Index #0) (Token 0x80) 501 MODE 5010 PEN 50100 REM *** big fish eyes *********** 50110 SCREEN COPY 50120 REM ****** littlefish eyes ******** 50130 SCREEN COPY 50140 SCREEN COPY 50150 SCREEN COPY 50160 RETURN 502 CENTRE 5020 IF 50200 ERASE 503 CDOWN 5030 IF 50300 DATA 5035 IF 5036 UNTIL 504 CENTRE 5040 UNTIL 5045 WAIT 505 CDOWN 506 CENTRE 507 CDOWN 508 CENTRE 509 CDOWN 510 CENTRE 511 CDOWN 512 CENTRE 513 CDOWN 514 CENTRE 515 CDOWN 516 CENTRE 519 CDOWN 520 CENTRE 5200 VARNAME 521 CDOWN 5210 IF 522 CENTRE 5220 UNTIL 523 CDOWN 524 CENTRE 525 CDOWN 526 CDOWN 527 CENTRE 528 CDOWN 529 CENTRE 530 CDOWN 5300 FOR 531 CENTRE 532 CLEAR KEY 543 VARNAME 544 IF 545 GOTO 6 ERASE 60000 MODE 60001 NEXT 65 REM ******* MENU SCREEN LOOPER ******************* 66 GOSUB 70 REPEAT 72 GOSUB 76 IF 9999 ERASE