L255D148R255BM0,0"/_Q(AD)/;d USER ROUTINE (100-999)/n:(C,D) IS THE POSITION OF THE TARGET. T1 IS THE TARGET, T2 ERASES THE TARGET.0%x:(A,B) IS THE POSITION OF THE SEEKER. CL, BL, CR, AND BR ARE THE FOUR SEEKERS THAT GO LEFT OR RIGHT WITH THE MOUTH OPEN OR CLOSED.0lA((120)3)2:B((34)11)4:K32:210::GET SEEKER POSITION0(C,D)(C7,D3),T2,:: ERASE TARGET1 C((112)7)2:D((32)13)4:(C,D)(C2,D1)(C4,D2)(C6,D3)4210::FIND OPEN SPOT FOR TARGET1(C,D)(C7,D3),T1,:"O5T2L50BO1L25":XCA:YDB:: PUT TARGET IN OPEN SPOT AND FIND DISTANCE FROM SEEKER1((X)K3)((Y)K)205::GET ANOTHER TARGET IF TOO CLOSE TO SEEKER2>S0:430:VV2:HH2:H0Q3:Q1::GET CHANGE IN SEEKER POSITION AND SET LEFT OR RIGHT POINTING SEEKER2R((14)7)80:R.25R.25::HOW FAR SEEKER GOES - IF R=.25 THEN SEEKER GETS TARGET2(X)(Y)L2(CA)R :L1(DB)R::SEEKER MOVEMENT ACCORDING TO X OR Y VALUE3.S10(C,D)(C7,D3),T2,:S0::BLINK TARGET ON S3Y"AAH:BBV::UPDATE SEEKER POSITION3,Q 310,320,330,340:: LEFT CLOSED, LEFT OPEN, RIGHT CLOSED, RIGHT OPEN SEEKER PUT ON SCREEN36(A,B)(A7,B3),CL,:Q2:"C":3504@(A,B)(A7,B3),BL,:Q1:"B":3504=J(A,B)(A7,B3),CR,:Q4:"C":3504`T(A,B)(A7,B3),BR,:Q3:"B"4^(C,D)(C7,D3),T1,:SS5:L:R.25500::SET TARGET, CONTINUE MOVING SEEKER TO TARGET, THEN TEST FOR SEEKER HITTING TARGET5h205::SEEKER MISSED TARGET, GO MOVE TARGET5y:LINES 430-490 COMPUTE THE CHANGE IN SEEKER MOVEMENT FROM THE DISTANCE TO THE TARGET5(Y)(X)4705X04605VYX2:H2:5VY(X)2:H2:5օY04905V2:HXY2:5V2:HX(Y)2:6:THE TARGET WAS HIT ROUTINE6Z"BM"(C3)","(D2)"C2ND10NG8NL10NH8NU10NE8NR10NF8"6h"L5CL25"6uR1726(C3,D2),R2,(2)26&(8R)60R6I11000::1000:406 OUR DISCLAIMER - HAS TO BE IN ALL COVERS.67@38,"CHROMASETTE MAGAZINE"7?"ISSUE #3 SEPTEMBER 1981";7i::" ALL PROGRAMS CONTAINED HEREIN"7" COPYRIGHT (C) CLOAD"7$" MAGAZINE P.O. BOX 1448"7." SANTA BARBARA, CA 93102."78" REPRODUCTION BY ANY MEANS"8B" PROHIBITED. CLOAD MAGAZINE"8@L" ASSUMES NO RESPONSIBILITY FOR"8fV" ERRORS, OMISSIONS OR DAMAGES"8`" CAUSED BY THE USE OF THESE"8j11)"PROGRAMS."8~I15000:I88Ђ8"BM0,2C4D1R7U3D2C4L7":(6,1,3)9"BM19,0C4D3L7":(18,1,3):(14,1,4):(12,0,4):(16,2,4)9?"BM24,0C3D3R7U1L7":(24,1,4)9{"BM36,0C3D3R7":(36,1,4):(38,2,3):(40,1,3):(42,0,3)9"BM48,0C2D3R7U3L7":(48,0):(54,0):(48,3):(54,3):- (0,0)(7,3),CL,G:(12,0)(19,3),BL,G:(24,0)(31,3),CR,G:(36,0)(43,3),BR,G:(48,0)(55,3),T1,G:(60,0)(67,3),T2,G:54:24,1,4)9{"BM36,0C3D3R7":(36,1,4):(38,2,3):(40,1,3):(42,0,3)9"BM48,0C2D3R7U3L7":(48,0):(54,0):(48,3):(54,3):- (0,0)(7,3),CL,G:(12,0)(19,3),BL,G:(24,0)(31,3),CR,G:(36,0)(43,31,I$;(5,191);I$;/2@213,I$;E$;(3,191);E$;I$;/W$@245,I$;E$;E$;(191);E$;E$;I$;/y.@435,(5,159);E$;(5,159);/8 X277 373 32/B@X,I$;(5,128);I$;/L X/V@404,I$;I$;I$;E$;E$;E$;I$;I$;I$;/` X110:I$:X0 j@385," HIT ENTER ";0%t@417," TO CONTINUE ";0J~@118,(223);(3,191);(223);0W X1950pI$: I$"" 3500wX0@118,(5,191);0 X1900I$: I$"" 3500ċX0Π 10,10؁ 115000 DIRECTIONS HERE01" THE OBJECT OF MUSIC PATTERN IS"1@ " TO REPEAT A SET OF **RANDOM**"1g" NOTES(TONES) THAT WILL BE GEN-"1" ERATED FOR YOU."1(12" THERE WILL BE FIVE(5) PATTERNS" 1<" PER ROUND OF PLAY: EACH OF THE"1F" PATTERNS *LONGER* THAN THE ONE" 2P" BEFORE (PRECEDING) IT."2"Z2Id" TO HELP YOU KEEP TRACK OF THE"2pn" NOTES AND PATTERN, A GRAPHICS"2x" DISPLAY WILL ALSO BE USED."2: X16:120,1:X2" HIT ENTER TO CONTINUE - READY";I$23" IT IS IMPORTANT TO BOTH LISTEN"3(" TO THE NOTES, AND TO WATCH THE"3O" DISPLAY. ONCE THE PATTERN IS"3v" COMPLETE, THEN YOU MUST REPEAT"3ȇ" IT EXACTLY. A RUNNING TOTAL OF"3҇" YOUR SCORE(RIGHT & WRONG) WILL"3܇" LET YOU KNOW HOW YOU'RE DOING."34" ONE LAST THING: AT THE START"4?" OF EACH GAME, YOU WILL BE ASK-"4f" ED TO ENTER A LEVEL (1 EASY TO"4" 8 HARD) OF DIFFICULTY. LEVEL 4"4" OR 5 IS ABOUT AVERAGE."4" X16:100,1:X4,46" HIT ENTER TO CONTINUE - READY";I$4@NE LA6&X:J. CARRICO 4625 W. CHAPMAN #57 ORANGE, CA 92668&x:CONVERSION BY CHROMASETTE&:PO BOX 1087&:SANTA BARBARA, CA 93102': ALL COVERS MUST HAVE THE LOGO AT THE TOP OF THE SCREEN DURING GRAPHICS DISPLAY.']:DECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES.':LINES 50-95 PUT THE LOGO ON SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.(:DISCLAIMER (LINES 1000-1160) MUST ALWAYS BE INCLUDED IN ANY COVER PROGRAM.(Y 4: LO$(7),CL(7,3),BL(7,3),CR(7,3),BR(7,3),T1(7,3),T2(7,3)(aQ0(o3,1:4,1((: 2000: 1,0)R2LO$(0)"jZUVeUV"* 4LO$(1)"VfZfjfj"*6LO$(2)"UUUUVUUUVUUUZUUUV"+8LO$(3)"ZZZZZZZZZZZjVUiZeiZVZZZjVUeVeYZUZZVZV",:LO$(4)"jUUeVUUVUYZUUUiUjVUUViYVUUUiUjVVZVYVeeUUeejjZZVjZYVijZjjZZZVeiZViUijZjjZYZZejZVeeijZj"-XLO$(6)"UjYijjZVjUUUjYiZjjUUUjUjUUUUUUUUUUYUeUjUUjUjUUVUUUUVUUYUiUjUUjjUZUYUjUUYUjUj".zALO$(7)" 44 44Z&5J&55 5J&9".FVP0:AD0:VP(LO$(0)).KAD(VP2)256(VP3).PVP(LO$(7)).U(VP2)256(VP3)/Z"S4A0C3BM0,191R255U149F OTHER8 D.BODNAR 1-31-818$8?N BASE 2-36 TO BASE 108]N* BN$=BASE(2-36)#,BA=BASE8fN/A108wNL1(BN$)18N:POKE 65495,0:'SPEED UP-- LEAVE IN IF YOUR CPU CAN HANDLE IT -ALSO 202448Nʀ X L1 0 19NC1$(BN$,L1X1,1)9ND1(C1$)96N D10 C1$"0" D1(C1$)559QNA1(A1D1BAX.001)9YN X9hOA1 (A1)9O:POKE 65494,0:'SPEED DOWN9O9a BASE CONVERSION(BASE 10 TO 2-36)9b D1DN:FA$""9b A19b%:POKE 65495,0:'SPEED UP:b* (DNTBA.01)1 25140 : AA1: 25130:$b4:-b>NPA:jbRP(A)(DNTB(A1).001):DN(DN(P(A)TB(A1)).001):}b\P$(A)(P(A)):bpAA1: A0 25170:bz X1 NP:b (P$(X))10 P$(X)((P$(X))48):b (P$(X))9 P$(X)((P$(X))55);b X;"b:POKE 65494,0:'SPEED DOWN;5bʀ XNP 1 1;GbFA$FA$P$(X);Obދ X;UbA)TB(A1)).001):}b\P$(A)(P(A)):bpAA1: A0 25170:bz X1 NP:b (P$(X))10 P$(X)((P$(X))48):b (P$(X))9 P$(X)((P$(X))55);b&& COPYRIGHT (C) CHROMASETTE 1981&,&? *** MPAT ***&[( CREATED BY JOHN OLSON&l2 JUNE, 1981&< BOX 483 HOXIE, KS 67740&F&P&Z&d 1000&n&x 9) "MUSIC PATTERN"& X 1 255 12& X,1& X&'" DO YOU NEED DIRECTIONS ... YES"'-" OR NO?"'UI$:I$"" 190 :I$"N" 1260'Y$(159)(159) : R$(191)(191)'Ҁ X16:N$(X):X'܆ 1,2,3,4,5,6'' X16:150,1:X''" ENTER THE LEVEL OF DIFFICULTY"(" YOU DESIRE .... 1 (EASY) TO 8"(9" (HARD) .... YOUR CHOICE";D(?"(s, D1 D8 " ONE TO EIGHT PLEASE !": 240(6D(D): R(10D) : D9D(@ D5 Q0(J D6 D2 Q1(T D3 Q2(^ MAIN ROUTINE HERE)h SET-UP SCREEN / INITIALIZE)r0 : RI0: W0: P1)&| X16)=@295X,N$(X);Y$;)E X)e@103," MUSIC PATTERN ";)} GEN. PATTERN HERE) X 1 PQ)P(X) (6))‹ X)̀ X16:160,1:I$:X)և@163," PATTERN";P;": HIT ANY KEY ";*@195," TO SEE AND TO HEAR IT! ";*.I$: I$"" 490*@ X 1 PQ*T@305P(X),R$;*aR 10D*t 4020P(X),D*@305P(X),Y$;*& Y 1 R*0 Y: X*:@163,(28,128);*D@195,(28,128);*N@257,"NOW YOU DUPLICATE THE PATTERN!";+X X1 8:I$:X+%b X 1 PQ+;l@331,(12,128);+Uv@331," NOTE";X;"? ";+mI$: I$"" 640+|I (I$)+ I1 I6 640+I$;+@305I,R$;+ 4020I,5," IP(X) RIRI1:@419," RIGHT:";RI;:@451,(10,236);:@467,(11,128);: RI9 @461,(236);,ƅ IP(X) WW1:@435," WRONG:";W;:@467,(10,236);:@451,(11,128);: W9 @477,(236);,Ѐ R18:I$:R,ڇ@305I,Y$;, X,PP1: P6 800,@257,(30,128);,@331,(12,128);- 420-  790-$ END ROUND ROUTINE-5* WRI 860-H4 X1255 10-R> X,2-ZH X-eR 890-}\ X 255 1 10-f X,2-p X-z ROUND OVER HERE- X1200:X-0-@32," ROUND OVER .... ";-@98," # RIGHT:";RI;. @162," # WRONG:";W;.*PC ((RI(RIW))100).C@226,PC;"PERCENT ";.Wʅ PCBP BPPC.sԇ@290," BEST:";BP;"% ";.E$(128):O$(255):I$(159).@53,O$;O$;E$;E$;E$;O$;O$;.@83,(11,191);.@116,(9,191);.@149,(7,191);/@18V&:COPYRIGHT (C) CLOAD&2: DAVID BODNAR&K: 26 RALSTON PL.&j: PITTSBURGH, PA 15216&: (412) 343-5947&:&: BASE GUESS&:& :& P=# OF PLAYERS& TS=SCORE TO WIN' SO & SO$=SOUND ON OR OFF IF SO=1 THEN SOUND IS ON'4( N=LARGEST # TO BE USED'L2 F$=DIRECTIONS Y/N'g< E$=ENTER TO CONTINUE'F SC(1-5)=SCORE OF PLAYER'P NA$(1-5)=PLAYER'S NAME'Z T=RANDOM NUMBER'd G=GUESS COUNTER'n ST=END COUNTER'oP(100),P$(100)'x:(" @ 164,"NUMBER GUESSING GAME"(I::"HOW MANY PLAYERS? (2 TO 6)";(Q P(g P2 P6 140(:"SCORE TO WIN";TS((SO1(҇(܇"WHAT IS THE LARGEST NUMBER"("THE COMPUTER CAN PICK";N:NP1230):@ 324," WHAT BASE DO YOU WISH TO PLAY")>" IN(2-36)";: BA: BA2 BA36 240)VTBBA:DNN: 25000)bT(N)){ GET PLAYER'S NAMES)):) X1 P)" D$),A$(X)D$)6 X)@ X1 P)J" ENTER THE ";A$(X);" PLAYER'S NAME")T NA$(X)*^:" HI, ";NA$(X);"!"*h*#r X*/| DELAY*C X1 300: X*T DIRECTIONS*u"DO YOU WANT DIRECTIONS";F$* (F$,1)"Y" 440*:: 580*:"THE COMPUTER HAS PICKED A "*‡"NUMBER BETWEEN 1 AND ";FA$;" "*LJ"(BASE"BA")."*̇+և"EACH OF YOU WILL TRY TO "+8"GUESS THE NUMBER."+>+a"AFTER EACH GUESS THE PLAYER"+"WHO IS CLOSEST GETS 1 POINT."+"THE FIRST PLAYER TO GUESS THE"+"NUMBER GETS FROM 1 TO 20 POINTS."+"(THE SOONER YOU GUESS IT, THE",&"MORE POINTS YOU GET.)",0,<:"PRESSTO CONTINUE";E$,UD: PRINT SCOREBOARD,cN X1 P,}X SC(X)TS 1360,b X,l::" SCORE":,qB2$FA$,v X1 P," ";NA$(X),SC(X), X, ST1 1700-::"PRESSTO CONTINUE";E$--- GET GUESSES-F X1 P:GU(X)0:X-PGG1-aЇ 27)"G=";G-pڀ XC1 P-RG(P): B(RG)1 740-" YOUR GUESS, ";NA$(RG);:B(RG)1- " ?"; BN$::GU(RG)- BN$"" 750.cL1(BN$): X11 L1: ((BN$,X1,1))BA ((BN$,X1,1))BA54 ((BN$,X1,1))65 "NOT A BASE"BA"NUMBER": 750. X1: 20000::CHANGE BN$ TO A1(BASE 10).GU(RG)A1. GU(RG)1 GU(RG)N "***GUESS BETWEEN 1 AND ";B2$: 750/ TEST FOR DUPLICATE #/ Y1 P/! YRG 820/c* GU(RG)GU(Y) "***";BN$;" WAS ALREADY GUESSED****": 750/k4 Y/t> XC/H ZZ1 P:B(ZZ)0: ZZ/R TEST FOR DIRECT HIT/\ X1 P/f GU(X)T 1190/p X/z FIND CLOSEST / I1 P0X(I)(TGU(I))0 I0% L1 P05 J1 PL0N X(J)X(J1) 9900[QX(J1)0kX(J1)X(J)0vX(J)Q0~ދ J0 L0 TEST FOR TIE0 X(1)X(2) "****TIE--BOTH SCORE****": 10400 1140: NO TIE0 FIND WHO TIED1 I1 P11$ JI1 P1<. (TGU(I))(TGU(J)) 11001D8 J1LB I1|L NA$(I);" AND "NA$(J);" EACH GET 1 POINT!"1VSC(I)SC(I)11`SC(J)SC(J)11j 7101t AWARD POINTS FOR CLOSEST1~ I1 P2 X(1)(TGU(I)) NA$(I);" WAS CLOSEST ":SC(I)SC(I)12  I2+ 6902^ LIGHT SHOW FOR HIT & AWARD POINTS2uSC(X)SC(X)(21G)2 YY100 220 72Ğ((YY100)15)2΅ SO1 YY,12؋ YY2 YY220 100 72((YY100)15)2 SO1 YY,13 YY3 3<:::" ";NA$(X);" GOT IT ON THE NOSE!"3NDNT: 250003j:" (";FA$;")"3~( X1 800: X32G0: RESETS GUESS COUNTER3": 17206" ANOTHER GAME";6 AG$6 (AG$,1)"Y" ST0 : 18206" SAME PLAYERS";: AG$7 X1 P:SC(X)0: X:G07) (AG$,1)"Y" 10 : 58073::7R&" ANOTHER TIME,PERHAPS"7X07o: PRINT SCOREBOARD7D#2,(15)" SCORE"7N X1 P7X#2," ";NA$(X),SC(X)7b X7l 17607v FIRST,SECOND,THIRD,FOURTH,FIFTH8 REWRITE O& 20000&M COPYRIGHT (C) CLOAD 1981 CONVERSION BY CHROMASETTE STAFF& J.R. LEWIS 1979 4051 MOUNTAIN DRIVE SAN BERNADINO, CA 92407&65495,0'KN0(5,8),N1(5,8),N2(5,8),N3(5,8),N4(5,8),N5(5,8),N6(5,8),N7(5,8),N8(5,8),N9(5,8):P110:P28:P394:P49:C1255:TW2:X0:Y0:DX0:DY0:XC0:LX0'X:4000'C0:B0:T10:T20:T30:IB1:IP2:FC4:CB3' SC0:BCIB:CPIP:FC,BC:(8"BM0,0D175R14NU160R32NU160R32NU160R32NU160R32NU160R32NU160R32NU160R32NU160R16U175L32ND160L32ND160L32ND160L32ND160L32ND160L32ND160L32ND160L30"(B1,SC(kJ((600H)1FA)15:J150J150( (0,178)(J,178),(!I0J: ADD HOLES("X(15):XX162:Y(70)218($(X,Y)BC (X,Y):(JI,178):34(&I) (J(HFA)4: ADD BLOCKS))J500J500)4*(0,178)(J2,178),)?-I0J)2Y(84)22:Y4(Y4)X((16)8(3)29)2:X((16)8(2)28)2)7DY222:(X,YDY)BC 50)9DY)<(X,Y,CB):((JI)2,178))AI*HFFC3:FC,BC:10000:XN110:CB:5000:FC4:FC,BC:10000:CLC:XN0:5000:C0:XN226:10000:5000*bdX248:Y172:DX2:DY0*riLX(X16)*nA$:A$""1000*sDX0DY0180*x(XDX,YDY)BC 140:F1+?(X,Y):XXDX:YYDY:(X,Y,CP):XC(X16):XCLX LXXC:CC10:SC(SC1)12:BCIB4SC:CPIP4SC:1,SC:Y15Y160CC10+YX16Y1723000:110+y(XDX,Y)BC DXDX:F0+(X,YDY)BC DY DY:F0+F0CC1:XN226:5000+F0T30+2005+T1T11:T113110,T10:(X,Y)BC (X,Y):(X,Y,CP),/T2T21:T220T20:CC1,9110,FI(A$),hIP1 DYTW DYDYTW:2000,IP2 DXTW DXDXTW:2000,$IP3 DYTW DYDYTW:2000,.IP4 DXTW DXDXTW:2000,B110-T10:T20:(X,Y,CP):C0CC1:F0:2007-ՅC0F1F2:CC1-BօC0F2TT1:T10T0:CC1-TXN226:5000-^ځ110-d -r H(CH)2- …BC3030- HH2- BC:XN110:FC3:FC,BC:10000:5000:FC4:FC,BC- րI11000:- :@396,"SCORES". @448," LAST BEST CURRENT";.. LC;:@492,B;:@506,C;.I @32,"ANOTHER GAME? ";. A$:A$""3080:A$"N" "N":65494,0: :LCC:C0:10.@10,"N E R V E S"::"YOU MOVE A POINT THROUGH A MAZE."/ " YOU MUST MOVE THE POINT FROM RIGHT TO LEFT THROUGH EACH RUN"/["OF THE MAZE, TRYING TO PREVENT THE POINT FROM STOPPING AT THE BLOCKS."/Ç:" ARROWS CONTROL THE DIRECTION OF THE POINT UNLESS THE POINT"/ȇ"BOUNCES OFF OF A WALL."/͇@448,"ENTER TO CONTINUE";:A$:0 ҇" YOUR SCORE IS CALCULATED:"0Jׇ" +20 FOR GOING THROUGH A HOLE IN THE MAZE OR JUST..."0q܇" +10 FOR GOING TO THE NEXT RUN."0" -1 FOR EACH DIRECTION CHANGE."0" -1 FOR EACH SECOND THAT THE POINT IS BLOCKED."1" -1 FOR EACH 10 SECONDS THAT THE POINT IS STOPPED."1z:" THE HIGHER YOUR SCORE, THE MORE BLOCKS AND THE FEWER HOLES APPEAR IN THE MAZE NEXT GAME."1:" HOW HARD OF A GAME DO YOU WANT TO PLAY (1-10)";FA1:FA1FA1040501H501:2(TCC:TC0(XN,184)(XN3,184),:TCTC :(XN,184)(XN3,184),2XNXN6:T1(TC100):TCTCT1100:T115100,5110,5120,5130,5140,5150,5160,5170,5180,51902XNXN8:T1(TC10):TCTCT110:T115100,5110,5120,5130,5140,5150,5160,5170,5180,51903+XNXN8:TC15100,5110,5120,5130,5140,5150,5160,5170,5180,5190313Q(XN,180)(XN5,189),N0,:3q(XN,180)(XN5,189),N1,:3(XN,180)(XN5,189),N2,:3 (XN,180)(XN5,189),N3,:3(XN,180)(XN5,189),N4,:3(XN,180)(XN5,189),N5,:4((XN,180)(XN5,189),N6,:412(XN,180)(XN5,189),N7,:4Q<(XN,180)(XN5,189),N8,:4qF(XN,180)(XN5,189),N9,:4'10200::(182,181)(182,188),:(180,180)(185,189),N1,G4'10200:"BM181,181R3D3L3D4R3":(180,180)(185,189),N2,G5+'$10200:"BM181,181R3D3L2R2D4L3":(180,180)(185,189),N3,G5f'.10200:"BM181,181D3R3U3D7":(180,180)(185,189),N4,G5'810200:"BM184,181L3D3R3D4L3":(180,180)(185,189),N5,G5'B10200:"BM184,181L3D7R3U3L3":(180,180)(185,189),N6,G6'L10200:"BM181,181R3D7":(180,180)(185,189),N7,G6V'V10200:"BM181,181D7R3U7L3D3R3":(180,180)(185,189),N8,G6'`10200:"BM181,181R3D7U4L3U3":(180,180)(185,189),N9,G6'j10200:"BM181,181D7R3U7L3":(180,180)(185,189),N0,G6'"BM181,181C1D7R3U7L2D5":A$"C"(FC):A$:7 N 1:2:59),N7,G6V'V10200:"BM181,181D7R3U7L3D3R3":(180,180)(185,189),N8,G6'`10200:"BM181,181R3D7U4L3U3":(180,180)(185,189),N9,G6'j10200:"BM181,181D7R3U7L3":(180,180)(185,189),N0,G6'"BM181,181C1D7R3U7L2D5":A$"C"(FC):A$:!#$&'NERVES BAS SPELLIT BAS"BASEGUESBASYHICALC BAS%MUSICPATBASSEEKCOVRBAS9&:COPYRIGHT (C) CLOAD&! &'&6 SPELL*IT&R( CREATED BY JOHN OLSON&r2 HOXIE KS 67740&< USES MORE THAN 4K&F USES EXTENDED BASIC&P&Z&d 500:W$(5),C$(5)&n:@44,"SPELL*IT":X125511:X,1:X''x:" DO YOU NEED DIRECTIONS ... YES":" OR NO";I$'@(I$,1)"N"1150'm:@32," HOW MANY WORDS PER ROUND OF OF"'" PLAY DO YOU DESIRE ... ONE (1)"' X13:180,1:X'" TO TEN (10)?"':" YOUR CHOICE";NW( NW1 NW10 :100,2:" ONE TO TEN PLEASE !":180(4SC0: MAIN ROUND LOOP HERE(=CO1(eܞ:W$(5)"NONE OF THESE":C$(5)W$(5)(I$(4,191)(3,207)(18,175)(3,207)(4,191)(I$;(4,191);(3,207);(2,175);" > WORD #";CO;"< ";(2,175);(3,207);(4,191);I$) FIND WORDS) XX14)%R(15))4 Y 1 R)H" C$(XX),W$(XX))f, C$(XX)"END" : 290)n6 Y)w@ XX)JR(5))T@130,"WHICH OF THE FOLLOWING WORDS")^" IS MISSPELLED . . .")h XX14:@XX32200,XX;"- ";* r RXX W$(XX) : C$(XX)*|XX*1@361,"5 - NONE OF THESE"*O XX16:I$:180,1:XX*s@418,"YOUR CHOICE (1 TO 5) ?";*I(5):I$:I$"" 420*I(I$): I1 I5 30,3:420*I:XX1150:I$:XX*… IR SCSC10: 660+̇@418,"SORRY ... THAT'S NOT THE ONE";+]ր XX1606010:I$:XX,3:XX:XX180:I$:XX:30,4:135,2+@484,"TRY AGAIN, YOUR CHOICE ?";+I$:I$"" 490+I(I$): I1I530,3:490+I;:XX1150:I$:XX+ IR SCSC5:660, IF WRONG, :,4&XX14:" SORRY! ";:100,5:60,3:XX,j0:" SORRY, THAT WASN'T THE ANSWER!":100,5:60,3,::" THE ANSWER WAS . . .",D:" ";R;"- ";W$(R),N R5 610,X:" SPELLED CORRECT: ";C$(R),bXX18:I$:XX-2l@365,(17,175);:@397,(2,175);" HIT ENTER ";(2,175);-sv@429,(2,175);" TO CONTINUE ";(2,175);:@461,(17,175);-I$: I$"" 640 : 920- 650- NOW SPELL IT CORRECT-:(34,191);(28,143);(34,191);.I$"FANTASTIC! *** YOU GOT IT! ".@35,"";.<XX127:(I$,XX,1);:9XX,1:XX.^Ƈ@128," THE ANSWER WAS . . .".~Ї:" ";R;"- ";W$(R).څ R5 610.:" NOW .... YOU *SPELL* THIS WORD"." CORRECTLY . . .".:" CORRECT SPELLING";I$/ I$C$(R) SCSC10: 850/  :90,4:50,2/G" SORRY . . . THAT'S NOT RIGHT !"/b :9)"TRY IT AGAIN !"/t*::@448,"";/4" CORRECT SPELLING";I$/> I$C$(R) SCSC5:850/H 530/R IF CORRECT/\:(43,255);" CORRECT! ";(43,255);0f XX115:XX16,2:I$:XX0>p@128," CORRECTLY SPELLED: ";C$(R)0^z:" SCORE SO FAR . . .";SC0v XX110:I$:XX0 6100COCO1: CONW 22000:I$(2,207)(12,207)(2,207)0@0,(16,207);:@192,(16,207);:@64,I$;:@128,I$;1*I$(2,207):@32,I$;" ROUND OVER ";I$;1W@96,I$;" SCORE:";:"####";SC;:" ";I$;1kʅ SCBS BSSC1ԇ@160,I$;" >BEST:";:"####";BS;:" ";I$;1އ@21,(159);(4,128);(159);2@52,(3,159);(2,128);(3,159);:@83,(181);(8,191);(186);2,@115,(10,191);:@148,(8,191);2R@181,(6,191);:@214,(4,191);2@295,(17,175);:@391,(17,175);:XX110:I$:XX2I$(2,175):@327,I$;" HIT ENTER ";I$;:@359,I$;" TO RESTART! ";I$;3@183,(2,179);:@117,(175);(4,191);(175);3$ XX18035.I$: I$"" 2003=8XX3sB@183,(2,191);:@117,(239);(4,191);(239);3LXX1803VI$: I$"" 2003`XX3j40,2: 10503t 11403~ DIRECTIONS HERE3:4" 'SPELL*IT' IS AN EDUCATIONAL"4+" WORD GAME - WHICH TESTS *YOUR*"4G" SPELLING PROWESS.":4n" IN 'SPELL*IT,' I (THE GREAT &"4" ALL-KNOWING TRS80) WILL THINK"4ć" OF FOUR WORDS AND DISPLAY THEM"4·" FOR YOU. YOU THEN, MUST LOOK"5 ؇" AT THIS LIST OF WORDS .... AND"51" DETERMINE IF ONE IS NOT SPELL-"5G" ED CORRECTLY."5^:X14:100,1:X5" HIT ENTER TO CONTINUE, READY";I$5 :5" IF YOU ARE RIGHT, I WILL THEN"5" ASK YOU TO CORRECTLY SPELL THE"5(" WORD WHICH WAS MISSPELLED."6(2:" YOU WILL SCORE POINTS FOR ALL"6O<" CORRECT ANSWERS THAT YOU GIVE"6vF" ME . . . SO YOU WILL KNOW HOW"6P" YOU'RE DOING."6Z:" **WORDS** I'LL USE ARE IN DATA"6d" LINES AT THE END OF THIS PRO-"6n" GRAM - YOU MAY ALTER THEM."7x:X14:90,1:X7=" HIT ENTER TO CONTINUE, READY";I$7C7V NUMBER,NUMBR7g HELLO,HEL07} SCIENCE,SCEINCE7 AMONG,AMMONG7 ARCTIC,ARKTIC7Ȇ ACROSS,ACCROSS7҆ AMATEUR,AMATURE7܆ ANONYMOUS,ANONEMOUS8 ANXIETY,ANXSIETY8 APOLOGIZE,APOLAGIZE86 APPEARANCE,APPEARENCE8R APPRECIATE,APPRESIATE8k ARGUMENT,ARGGUMENT8 ASSASSINATE,ASASINATE8" ASSOCIATION,ASOCIATION8, ATTACH,ATACH86 BANANA,BANANNA8@ BARGAIN,BARGEN8J BELIEVE,BELEAVE9T BUSINESS,BUSSINESS9(^ CALENDAR,CALENDER9?h COLLEGE,COLLEDGE9Sr COLUMN,COLLUM9h| COMING,COMMING9 COMMITTEE,COMMITTY9 COPIES,COPYS9 CRITICIZE,CRITISIZE9 CUSTOMER,CUSTTOMMER9 DEFENSE,DEFENCE9 DEVELOP,DEVELOPE: † DINING,DINNING: ̆ DOESN'T,DOSEN'T:3ֆ EIGHTH,EIGTH:J EQUIPPED,EQUIPED:b EXERCISE,EXERSIZE:{ FAMILIAR,FAMILYOUR: FINALLY,FINALY: FOREIGN,FORIN: FRAGILE,FRAGALE: GENIUS,GENIOUS:& GOVERNOR,GOVONER:0 GRAMMAR,GRAMMER;: HAPPENED,HAPPEND;'D HEIGHT,HIEGHT;:N HEROES,HEROS;PX HORIZON,HORIZEN;hb HOSPITAL,HOSPITLE;}l INITIAL,INITAL;v LICENSE,LICENCE; LIGHTNING,LIGHTENING; MEANT,MENT; MEDICINE,MEDACINE; MENTIONED,MENTSHUNED< MINIMUM,MINAMIM< MORTGAGE,MORGAGE<6 MOVABLE,MOVEABLE RECEIVE,RECIEVE=kH RELIEF,RELEIF=R SCISSORS,SCISORS=\ SEMESTER,SEMMESTER=f SEPARATE,SEPERATE=p SIMILAR,SIMLARE=z SINCERELY,SINSERELY= SUCCESS,SUCSESS> SYLLABLE,SYLABLE>( TOMORROW,TOMMOROW>? WRITING,WRITTING>S FRIEND,FREIND>f AWFUL,AWFULL>y UNTIL,UNTILE>ʆ TRAGEDY,TRADEGY>Ԇ LOSING,LOSEING>ކ NINETY,NINTY> MUNICIPAL,MUNICAPAL> PLEASANT,PLESSANT> END,END,END,END?܂?C FORM OF DATA STATEMENTS CORRECT SPELL.,WRONG SPELL.?I?e LAST WORD MUST BE END?{ END,END,END,END? LAST WORD MUST BE ENDNG,LOSEING>ކ NINETY,NINTY> MUNICIPAL,MUNICAPAL> PLEASANT,PLESSANT> END,END,END,END&: HI CALC - GLEN FISHER&=:COPYRIGHT (C) CLOAD 1981&]:CONVERSION BY CHROMASETTE&: ALSO APPEARED IN CURSOR MAGAZINE&50000&2512&Z62000&d&PR300&PL5:MX1000:PM0&AP(PRPR1),EP(PR1)&1700&聦35000' 29000:'/L ".,+,-,*,/,=,#,? ";(191);'HVIN$ :IN$""1110'`I18:IN$ (".+-*/=#?",I,1) (8);IN$:1200'jI:1110'OPI:OP1 "HOW MANY DECIMAL PLACES?"'OP735000'OP 1500,6000,5000,7000,8000,1300,9000,1700(ąOP1OP6 " =":36000()΁1100(DI1EL:AP(I)EP(I):I(`ASES:AIEI:AFEF:ALEL(h(:(NPL:EL0PL0:1555(EF0 "USE INTEGERS, PLEASE.":(TESEP(1):EI2TTMXEP(2))  TPR3"CAN'T KEEP THAT MANY PLACES.": :TT3:PL(T))PLT PLPL1)G:"PRECISION SET TO";:TPL3:1590)l:" FROM";:TN3:1590:".":)6 (" -",2(T 0));((T),2);" PLACES";:)::"FUNCTIONS":"(USE WHEN '.,+,-,*,/,=,#,? "(191)"'":" PROMPT GIVEN ONLY):":*6" . TO SET DECIMAL PRECISION":" (FOR DIVISION ONLY)*E" + ADD"*Y‡" - SUBTRACT"*mLJ" * MULTIPLY"*~̇" / DIVIDE*χ" = START NEW CALCULATION*Ї" # PRINTER ON/OFF TOGGLE"*ч" ? SHOWS THIS MESSAGE*Ӈ:" TO CONTINUE";A$+Ԟ::"NOTES:":+bև" #? ";(175);" MEANS 'TYPE A NUMBER'":" (YOU MUST ENTER A NUMBER!).";+" PRECISION IS";PR3;"DIGITS."+" PRECISION (FOR DIVISION) NOW":" SET AT";3PL;"PLACES.+:+ES ES,pAIEFPR EL0NPRAI:28500,$zEIAFPR AL0NPREI:28000,7}AL0 29000,FEL06110,_AFEF NAF:27100,xEFAF NEF:27000,AIEI NAI:27600,EIAI NEI:27500,C0:ASES 6200,I1AL:SAP(I)EP(I)C,C0:SMX C1:SSMX-Ň"*";-AP(I)(S):I-:ԅC0ALAL1:AIAI1:AP(AL)(C)-Xށ28100:NPRAI:28000:-t8 AP(AL)EP(EL)29000-BI1AL:DAP(I)EP(I)B-LB0:D0DDMX:B1-Q"*";-VAP(I)(D):I-`C0:6100-XAL0EL0AL0:AI0:AF0:.IAL 11:AP(IEL)AP(I):I.-ƀI1EL:AP(I)0:I.HЀI1AL:MAP(IEL):C0.RՇ"*";.fڀJ1EL:TIJ1.SAP(T)EP(J)MC:C(SMX):SSMXC.AP(T)(S):J.AP(IEL)(C):I.ALALEL:AFAFEF:AIAIEI:ASASES. 28100:NPRAI:28000//2@ EL0 "DIVISION BY ZERO NOT ALLOWED!":/@J AL0 /\TEL1EI1EP(1)18450/u^EL1NEF1:27100/hNPLEF:PLPR NPRELAI/mNN1:27000/rV0EL1:V1EL:V2EL1/D(MX(EP(V1)1)):C0:D181400I1EL:SEP(I)DC:C (SMX):EP(I)(SMXC):I0,C 0 0d€I1AL:SAP(I)DC:C (SMX):AP(I)(SMXC):I0ALAL1:AIAI1:AP(AL)(C)0 JAL V0 10 "*";0 QTMX1:TAP(J)MXAP(J1)0 AP(J) EP(V1)QT (TEP(V1))1 &QTEP(V2)(TQTEP(V1))MXAP(J2)QTQT1:823016 0Z1:C0:IEL 1 11R :SAP(JI)QTEP(V0I)C1k DC (SMX):SSCMX1 NAP(JI)(S):I1 XAP(J)(AP(J)C):AP(J) 083301 bC0:IEL 1 11 lSAP(JI)QTEP(V0I)C1 vC (SMX):SSCMX1 {ZZ (S0)2 AP(JI)(S):I:QTQT12- AP(J)(QT)2; J:JV012Q ЀI1J:AP(I)0:I2p AIAIEI:AFAFEI:ASASES2!28100:NPL:ZPRAI:NZ NZ2!28000:2#("PRINTER ";2#2PM0PM2:"ON" :PM0:"OFF"2#<2ix"*";:AFN 3 iDLNAF:AL0ZAL 11:AP(ZDL)AP(Z):Z37iZ1DL:AP(Z)0:Z3MiALALDL:AFAFDL3eiAL0AFEF:AI AF3ki3i܇"*";:EFN 3iDLNEF:EL0ZEL 11:EP(ZDL)EP(Z):Z3iZ1DL:EP(Z)0:Z3iELELDL:EFEFDL3jEL0EFAF:EI EF3j4kl"*";:AIN 43kvDLNAI:ZAL1ALDL:AP(Z)0:Z4KkALALDL:AIAIDL:4ak "*";:EI N 4kDLNEI:ZEL1ELDL:EP(Z)0:Z4kELELDL:EIEIDL:4m`"*";:AFN 4me " ROUNDING!";4mjAIN AF AI:AL0:281005 mtC0:DLAFN:AP(DL) MX2C15m~DLAL 280705,mZDL1AL5QmSAP(Z)C:C0:SMX C1:SSMX5gmAP(ZDL)(S):Z5mC0ALAL1:AIAI1:AP(ALDL)(C)5mALALDL:AFAFDL5mąAL0AP(AL)0AIAI1:ALAL1:281005mDL05mDLDL1:AP(DL)0DLAL2812062mDLDL1:DLAL DL0ZDL1AL:AP(ZDL)AP(Z):Z6JmAFAFDL:ALALDL:6goT 29000:28000:290006moh6o 29000:28100:29000:6qH"*";:TAL:TEL TEL6qRZ1T:TAP(Z):AP(Z)EP(Z):EP(Z)(T):Z7q\TAL:ALEL:ELT::TAI:AIEI:EIT::TAF:AFEF:EFT::TAS:ASES:EST7"qf7; T (IN$)E 1:7UZ$ (IN$,T,1):TT17nZ$"0"Z$"9"330007E$E$Z$: (E$)3330007$E (E$):7T0:DP$".":I1 (IN$)7Z$ (IN$,I,1):Z$ "0"Z$ "9"TT1:340408Z$DP$DPT:DP$"":T0:340408BZ$ "," "NO ";Z$;"'S, PLEASE":DP 1:8Y I:DP$ ""DPT8_8p"#? ";:EL08NN1:60000:NN0:IN$""350108ň̇:ES1: (IN$,1)"-"ES 1:IN$ (IN$,2)8݈ց34000:DP0350009NPR1:ELN:EI ((DP2)3):EFELEI9&T1:E$ ("00",DPEI33)9=33000:E0351009jE$"":E0NEL EIEI1:EFEF1:350709EP(N)(E):NN1:N0350709E$(E$"000",3):EP(N)((E$)):NN19ω&DLN:DL 03513090ELELDL:EFEFDL:I1EL:EP(I)EP(IDL):I:*:29000:28100:NPRAI:AL0 28000:6D29000:hN$ ((N),2): (N$)3N$ ("00"N$,3)Z13 ZD$;CR$;:>9 Z8ZL0IN$ (IN$,ZL1):ZD$;ZD$;ZC$;:60010>bZ24 Z0ZL:ZD$;:Z:ZC$;:IN$"">n60010>TI18:"----";:I::>0:@43,"HI CALC>I60500>N@131,"A HIGH PRECISION CALCULATOR>X@228,"PRESS TO BEGIN"? bA$ :A$""62050?100(IN$,ZL1):ZD$;ZD$;ZC$;:60010>bZ24 Z0ZL:ZD$;:Z:ZC$;:IN$"">n60010>TI18:"----";:I::>0:@43,"HI CALC>I60500>N@131,"A HIGH PRECISION CALCULATOR>X@228,"PRESS TO BEGIN"? bA$ :