No Fragments Archive 10: Diskmags

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

/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1992 / USERJA92.MSA / STOS.MAN_PART_2.ACB (.txt) < prev next >

Wrap

Atari STOS Basic | 1991-07-20 | 18KB | 209 lines

10 ON ERROR 100 GOTO 10000 CLS 10010 VARNAME 20 IF 20000 REM * SELECT COMMAND 20010 EXTENSION (Index #0) (Token 0x80) 20020 VARNAME 20030 VARNAME 20040 IF 20050 IF 20055 VARNAME 20056 VARNAME 20060 HIDE 20070 GOSUB 20080 PEN 20100 HIDE 20110 ON 20120 IF 20130 VARNAME 20150 RESTORE 20160 RESTORE 20170 RESTORE 20180 RESTORE 20280 REM * GRAPHICS FUNCTIONS:PLOT 20290 DATA 20300 REM * GRAPHICS FUNCTIONS:EFFECT 20310 DATA 20320 REM * SCREEN COMMANDS 20330 DATA 20340 REM * SPRITE 20350 DATA 25 GOTO 30 RETURN 30000 REM * MANUAL 30010 VARNAME 30030 VARNAME 30040 VARNAME 30050 IF 30060 VARNAME 30070 VARNAME 30080 FOR 30100 VARNAME 30110 CLS 30120 IF 30125 SPRITE 30130 WINDOPEN 30140 SCROLL 30150 WHILE 30160 IF 30170 IF 30180 IF 30190 IF 30200 HIDE 30210 IF 30220 LOCATE 30230 IF 30240 LOCATE 31560 REM * ARC 31570 GOSUB 31580 REM * BOX 31590 GOSUB 31600 REM * DRAW 31610 GOSUB 31620 REM * POLYLINE 31630 GOSUB 31640 REM * EARC 31650 GOSUB 31660 REM * RBOX 31670 GOSUB 31680 REM * PLOT 31690 GOSUB 31700 REM * POLYMARK 31710 GOSUB 31720 REM * BAR 31730 GOSUB 31740 REM * CIRCLE 31750 GOSUB 31760 REM * ELLIPSE 31770 GOSUB 31780 REM * EPIE 31790 GOSUB 31800 REM * PAINT/SET PAINT 31810 INK 31820 REM * PIE 31830 GOSUB 31840 REM * POLYGON 31850 GOSUB 31860 REM * RBAR 31870 GOSUB 31880 REM * COLOUR 31890 LOCATE 31900 LOCATE 31910 VARNAME 31920 VARNAME 31930 IF 31940 IF 31950 IF 31960 IF 31970 IF 31980 IF 31990 IF 32000 GOTO 32010 COLOUR 32020 REM * INK 32030 FOR 32040 REM * CLIP 32050 PRINT 32060 REM * FLASH 32070 VARNAME 32080 WHILE 32090 REM * GR WRITING 32100 INK 32110 REM * MODE 32120 VARNAME 32130 VARNAME 32140 IF 32150 VARNAME 32160 GOTO 32170 REM * SHIFT 32180 GOSUB 32190 REM * SET LINE 32200 CENTRE 32210 REM * SET MARK 32220 CENTRE 32230 REM * APPEAR 32240 RESERVE 32260 SWAP 32270 REM * DEF SCROLL/SCROLL 32280 GOSUB 32290 FOR 32300 DATA 32310 REM * FADE 32320 GOSUB 32330 REM * CLS 32340 GOSUB 32350 REM * REDUCE 32360 GOSUB 32370 REM * SCREEN$ 32380 GOSUB 32390 REM * ZOOM 32400 GOSUB 32410 REM * SCREEN SWAP 32420 GOSUB 32430 REM * SET ZONE/ZONE() 32440 SHOW 32450 REM * ANIM 32460 VARNAME 32470 REM * FREEZE/UNFREEZE 32480 GOSUB 32490 REM * COLLIDE 32500 SHOW 32510 WAIT VBL 32520 REM * DETECT 32530 GOSUB 32540 REM * MOVE 32550 FOR 32560 REM * LIMIT SPRITE 32570 LIMIT SPRITE 32580 REM * PUT SPRITE 32590 GOSUB 32600 REM * SPRITE 32610 GOSUB 32620 WEND 40 HIDE 40000 REM **** ROUTE TO DEMONSTRATIONS 40010 HIDE 40100 GOSUB 40150 ON 40151 GOSUB 40152 ON 40153 ON 40154 ON 40155 ON 40160 ON 40161 ON 40162 ON 40163 ON 40170 ON 40171 ON 40172 ON 40180 ON 40181 ON 40183 ON 40184 ON 5 REM Manual 1.2b 50 DIM 60 DATA 60000 REM * SET UP TEXT ARRAY 60010 EXTENSION (Index #2) (Token 0x82) 60020 VARNAME 64999 REM * WAIT KEY 65000 PEN 65010 WHILE 65020 LOCATE 65040 CLIP 65050 INK 65060 SET PAINT 65070 FOR 65080 FOR 65090 SPRITE 65100 WINDOPEN 65500 IF 65510 IF 65520 CLS 70 VARNAME 80 LOAD 90 DIM