0 ' COALA.BA - by Don Zeikel - Intended for compilation into machine language with Michael Weiblen"s TCOMP.BA 1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 30 DIMB(6):PRINT@94,"COALA.100":PRINT@132,"by Don Zeikel":GOSUB1820:GOTO670 40 I=0:P=0:Q=0:RETURN 50 P=0:Q=0:RETURN 60 J=J+1:RETURN 70 D=0:W=0:RN=0:RETURN 80 D=0:RN=0:W=1:RETURN 90 SOUND2348,20:GOTO680 100 IFW=1THEN140 110 IFD=1THEN150 120 IFRN=1THEN170 130 PSET(X,Y):RETURN 140 PRESET(X,Y):RETURN 150 Z1=XMOD2:Z2=YMOD2:Z=Z1+Z2:IFZ=1THEN130 160 GOTO140 170 Z=PEEK(63791):Z=ZMOD2:IFZ=1THEN130 180 GOTO140 190 IFW=1THEN230 200 IFD=1THEN240 210 IFRN=1THEN260 220 PSET(P,Y):RETURN 230 PRESET(P,Y):RETURN 240 Z1=PMOD2:Z2=YMOD2:Z=Z1+Z2:IFZ=1THEN220 250 GOTO230 260 Z=PEEK(63791):Z=ZMOD2:IFZ=1THEN220 270 GOTO230 280 IFW=1THEN320 290 IFD=1THEN330 300 IFRN=1THEN350 310 PSET(X,Q):RETURN 320 PRESET(X,Q):RETURN 330 Z1=XMOD2:Z2=QMOD2:Z=Z1+Z2:IFZ=1THEN310 340 GOTO320 350 Z=PEEK(63791):Z=ZMOD2:IFZ=1THEN310 360 GOTO320 370 I=I+1:RETURN 380 TR=0:IFX=0THEN590 390 IFP=0THEN590 400 IFY=0THEN600 410 IFQ=0THEN600 420 J=0:R=0:R=R+S 430 GOSUB60:R=X+B(J):IFJ=5THEN450 440 GOTO430 450 IFR>238THEN610 460 J=0:R=0 470 GOSUB60:R=P+B(J):IFJ=5THEN490 480 GOTO470 490 IFR>238THEN610 500 J=0:R=0 510 GOSUB60:R=Y+B(J):IFJ=5THEN530 520 GOTO510 530 IFR>62THEN620 540 J=0:R=0 550 GOSUB60:R=Q+B(J):IFJ=5THEN570 560 GOTO550 570 IFR>62THEN620 580 RETURN 590 X=X+1:TR=1:RETURN 600 Y=Y+1:TR=1:RETURN 610 X=X-1:TR=1:RETURN 620 Y=Y-1:TR=1:RETURN 630 I=0:S=0 640 GOSUB370:B(I)=0:IFI=5THEN660 650 GOTO640 660 I=0:RETURN 670 CLS:X=116:Y=30:GOSUB100 680 I=0:P=1:Q=1 690 A=0:A$=INKEY$:IFA$<>""THENA=ASC(A$):' WAIT FOR KEYSTROKE 700 IFA=0THEN690 710 IFA=128THEN1790 720 IFA=114THEN1800 730 IFA=102THEN1810 740 IFA=122THEN1470 750 IFA=120THEN1490 760 IFA=99THEN1530 770 IFA=118THEN1570 780 IFA=98THEN1610 790 IFA=97THEN1650 800 IFA=115THEN1670 810 IFA=100THEN1690 820 IFA=119THEN1710 830 IFA=101THEN1720 840 IFA=49THEN1730 850 IFA=50THEN1740 860 IFA=51THEN1750 870 IFA=52THEN1760 880 IFA=53THEN1770 890 IFA=113THEN1780 900 I=0:IFA=105THEN990 910 IFA=107THEN1050 920 IFA=109THEN1110 930 IFA=106THEN1170 940 IFA=111THEN1230 950 IFA=44THEN1290 960 IFA=110THEN1350 970 IFA=117THEN1410 980 SOUND4697,20:GOTO680 990 Y=Y-1:' "i" 1000 GOSUB380:IFTR=1THEN90 1010 GOSUB100:P=X 1020 GOSUB370:P=P+B(I):GOSUB380:IFTR=1THEN90 1030 GOSUB190:IFI=5THEN680 1040 GOTO1020 1050 X=X+1:Q=Y:' "k" 1060 GOSUB380:IFTR=1THEN90 1070 GOSUB100 1080 GOSUB370:Q=Q+B(I):GOSUB380:IFTR=1THEN90 1090 GOSUB280:IFI=5THEN680 1100 GOTO1080 1110 Y=Y+1:P=X:' "m" 1120 GOSUB380:IFTR=1THEN90 1130 GOSUB100 1140 GOSUB370:P=P-B(I):GOSUB380:IFTR=1THEN90 1150 GOSUB190:IFI=5THEN680 1160 GOTO1140 1170 X=X-1:Q=Y:' "j" 1180 GOSUB380:IFTR=1THEN90 1190 GOSUB100 1200 GOSUB370:Q=Q+B(I):GOSUB380:IFTR=1THEN90 1210 GOSUB280:IFI=5THEN680 1220 GOTO1200 1230 X=X+1:Y=Y-1:P=X:' "o" 1240 GOSUB380:IFTR=1THEN90 1250 GOSUB100 1260 GOSUB370:P=P+B(I):GOSUB380:IFTR=1THEN90 1270 GOSUB190:IFI=5THEN680 1280 GOTO1260 1290 X=X+1:Y=Y+1:P=X:' "," 1300 GOSUB380:IFTR=1THEN90 1310 GOSUB100 1320 GOSUB370:P=P+B(I):GOSUB380:IFTR=1THEN90 1330 GOSUB190:IFI=5THEN680 1340 GOTO1320 1350 X=X-1:Y=Y+1:P=X:' "n" 1360 GOSUB380:IFTR=1THEN90 1370 GOSUB100 1380 GOSUB370:P=P-B(I):GOSUB380:IFTR=1THEN90 1390 GOSUB190:IFI=5THEN680 1400 GOTO1380 1410 X=X-1:Y=Y-1:P=X:' "u" 1420 GOSUB380:IFTR=1THEN90 1430 GOSUB100 1440 GOSUB370:P=P-B(I):GOSUB380:IFTR=1THEN90 1450 GOSUB190:IFI=5THEN680 1460 GOTO1440 1470 GOSUB70:' "z" 1480 GOSUB40:GOSUB630:B(1)=1:GOTO680 1490 GOSUB70:' "x" 1500 GOSUB40:GOSUB630 1510 GOSUB370:B(I)=1:IFI=2THEN680 1520 GOTO1510 1530 GOSUB70:' "c" 1540 GOSUB40:GOSUB630 1550 GOSUB370:B(I)=1:IFI=3THEN680 1560 GOTO1550 1570 GOSUB70:' "v" 1580 GOSUB40:GOSUB630 1590 GOSUB370:B(I)=1:IFI=4THEN680 1600 GOTO1590 1610 GOSUB70:' "b" 1620 GOSUB40:GOSUB630 1630 GOSUB370:B(I)=1:IFI=5THEN680 1640 GOTO1630 1650 GOSUB70:' "a" 1660 GOSUB40:GOSUB630:GOTO680:END 1670 GOSUB70:' "s" 1680 GOSUB50:GOSUB630:S=1:B(1)=0:B(3)=2:GOTO680 1690 GOSUB70:' "d" 1700 GOSUB50:GOSUB630:S=2:B(3)=2:B(5)=2:GOTO680 1710 GOSUB80:GOTO1680:' "w" 1720 GOSUB80:GOTO1700:' "e" 1730 GOSUB80:GOTO1480:' "1" 1740 GOSUB80:GOTO1500:' "2" 1750 GOSUB80:GOTO1540:' "3" 1760 GOSUB80:GOTO1580:' "4" 1770 GOSUB80:GOTO1620:' "5" 1780 GOSUB80:GOTO1660:' "q" 1790 END:' GRPH "p" 1800 RN=1:D=0:W=0:GOTO1620:' "r" 1810 D=1:RN=0:W=0:GOTO1620:' "f" 1820 I=0 1830 I=I+1:IFI<30000THEN1830 1840 RETURN