Falcon 030 Power 2

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

/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / CIRC.BAS (.txt) < prev next >

Wrap

Atari STOS Basic | 1987-04-22 | 17KB | 282 lines

1 REM ******** CIRCULAR SCROLLER BY IAN CHAPMAN OF THB ********* 10 REM ** THE VARIABLES IA TO IM ARE FOR THE 12 LETTERS THAT CAN BE ON THE SCREEN AT ANY 1 GIVEN MOMENT ** 100 DIM 1000 DRAW 1010 DRAW 1020 DRAW 1030 DRAW 1040 RETURN 1050 REM *** H *** 1060 DRAW 1070 DRAW 1080 DRAW 1090 RETURN 11 VARNAME 110 VARNAME 1100 REM *** I *** 1110 DRAW 1120 DRAW 1130 DRAW 1140 RETURN 1150 REM *** J *** 1160 DRAW 1170 DRAW 1180 DRAW 1190 RETURN 12 MODE 1200 REM *** K *** 1210 DRAW 1220 DRAW 1230 DRAW 1240 RETURN 1250 REM *** L *** 1260 DRAW 1270 DRAW 1280 RETURN 1290 REM *** M *** 130 AUTO BACK 1300 DRAW 1310 DRAW 1320 DRAW 1330 DRAW 1340 RETURN 1350 REM *** N *** 1360 DRAW 1370 DRAW 1380 DRAW 1390 RETURN 140 FOR 1400 REM *** O *** 1410 DRAW 1420 DRAW 1430 DRAW 1440 DRAW 1450 RETURN 1460 REM *** P *** 1470 DRAW 1480 DRAW 1490 DRAW 150 VARNAME 1500 DRAW 1510 RETURN 1520 REM *** O *** 1530 DRAW 1540 DRAW 1550 DRAW 1560 DRAW 1570 DRAW 1580 RETURN 1590 REM *** R *** 160 VARNAME 1600 DRAW 1610 DRAW 1620 DRAW 1630 DRAW 1640 DRAW 1650 RETURN 1660 REM *** S *** 1670 DRAW 1680 DRAW 1690 DRAW 170 VARNAME 1700 DRAW 1710 DRAW 1720 RETURN 1730 REM *** T *** 1740 DRAW 1750 DRAW 1760 RETURN 1770 REM *** U *** 1780 DRAW 1790 DRAW 180 VARNAME 1800 DRAW 1810 RETURN 1820 REM *** V *** 1830 DRAW 1840 DRAW 1850 RETURN 1860 REM *** W *** 1870 DRAW 1880 DRAW 1890 DRAW 190 VARNAME 1900 DRAW 1910 RETURN 1920 REM *** x *** 1930 DRAW 1940 DRAW 1950 RETURN 1960 REM *** Y *** 1970 DRAW 1980 DRAW 1990 RETURN 2 REM ******** COPYRIGHT 1991. THIS CODE MAY BE ADAPTED FOR YOR OWN USE ***** 20 VARNAME 200 VARNAME 2000 REM *** Z *** 2010 DRAW 2020 DRAW 2030 DRAW 2040 RETURN 2050 REM *** . *** 2060 DRAW 2070 DRAW 2080 DRAW 2090 DRAW 210 SCREEN COPY 2100 RETURN 211 PEN 2110 REM *** , *** 212 REM ** THE LOOP F JUST KEEPS THE MOVEMENT GOING ** 2120 DRAW 2130 DRAW 2140 DRAW 2150 DRAW 2160 RETURN 2170 REM *** ' *** 2180 DRAW 2190 DRAW 2200 DRAW 2210 DRAW 2220 RETURN 2230 REM *** ? *** 2240 DRAW 2250 DRAW 2260 DRAW 2270 DRAW 2280 RETURN 2281 REM ** THE NEXT LETTER IN THE STRING IS FOUND HERE ** 2290 VARNAME 230 FOR 2300 IF 2301 VARNAME 231 REM ** 8 POSITIONS ARE ADDED TO THE POSITION OF EACH LETTER ** 2310 VARNAME 2319 REM ** EACH OF THE 12 POSSIBLE SCREEN POSITIONS ARE GIVEN A LETTER TO BE DRAWN IN THEM ** 2320 IF 2330 IF 2340 IF 2350 IF 2360 IF 2370 IF 2380 IF 2390 IF 240 VARNAME 2400 IF 2410 IF 2420 IF 2430 IF 2440 IF 2450 IF 2460 IF 2470 IF 2480 IF 2490 IF 250 VARNAME 2500 IF 2510 IF 2520 IF 2530 IF 2540 IF 2550 IF 2560 IF 2570 IF 2580 IF 2590 IF 260 VARNAME 2600 IF 2610 IF 2620 IF 2630 IF 2640 RETURN 2650 RETURN 270 VARNAME 280 VARNAME 290 VARNAME 3 REM 30 HIDE 300 VARNAME 310 VARNAME 320 VARNAME 330 VARNAME 340 VARNAME 350 VARNAME 351 REM ** IF THERE IS ROOM ON THE SCREEN FOR THE LETTER THE NEXT LETTER IN THE STRING IS GOT ** 360 IF 370 IF 380 IF 390 IF 4 REM ******** WARNING THIS PROGRAM CANNOT BE RENUMBERED ****** 40 ERASE 400 IF 410 IF 420 IF 430 IF 440 IF 450 IF 460 IF 470 IF 480 VARNAME 481 REM ** IF THERE IS ROOM TO SHOW THE LETTER ON SCREEN IT IS DRAWN ** 490 IF 5 REM 50 SCREEN COPY 500 IF 510 IF 520 IF 530 IF 540 IF 550 IF 560 IF 570 IF 580 IF 590 IF 60 REM ** TX TY XX YY XI AND YI ARE THE X,Y COORDINATES FOR THE 3 CIRCLES THE TOP BOTTOM AND CENTRES OF EACH LETTER ** 600 IF 610 SCREEN SWAP 620 SCREEN COPY 630 NEXT 640 CLS 641 REM ** THE SHAPES OF EACH LETTER ARE DEFINED HERE ** 650 REM *** A *** 660 DRAW 670 DRAW 680 DRAW 690 DRAW 70 DIM 700 RETURN 710 REM *** B *** 720 DRAW 730 DRAW 740 DRAW 750 DRAW 760 RETURN 770 REM *** C *** 780 DRAW 790 DRAW 8 REM ***** IAN$ IS THE TEXT MESSAGE. YOU CAN ONLY USE THE ALPHABET (ALL UPPER CASE) PLUS ? , . ' ****** 80 DIM 800 DRAW 810 RETURN 820 REM *** D *** 830 DRAW 840 DRAW 850 DRAW 860 RETURN 870 REM *** E *** 880 DRAW 890 DRAW 9 VARNAME 90 DIM 900 DRAW 910 DRAW 920 RETURN 930 REM *** F *** 940 DRAW 950 DRAW 960 DRAW 970 RETURN 980 REM *** G *** 990 DRAW