:1,1:***THIS AREA IS FOR ROUTINES AS YOU WRITE THEM********/CI$X$:.u K$(9)DD5: K$(8)DD1. D1D1: D254D254..:A$."..... IS THE GRAPHIC STATEMENT TO ADD TO YOU PROGRAM.":"YOU MAY OMIT SPACES.":/=&0d * NUMBER BUMPER * TRS-80 COLOR BASIC 16K&Kn * BY RICHARD RAMELLA&px0: X1 18: Q$Q$(128): &Z$(255): X1 5: Z$Z$Z$: &S$"0123456789"&PK1024: * MC-10 MAKE THIS PK=16384& Z$;& @ 448,Z$;' @ 488,"SCORE:";'' @ 232,"TAP A KEY TO START";'Eȅ "" Z(0): 200'U҇ @ 232,Q$;'lN$(S$,(10),1)'xX(2)' X1 L447 416 1' X2 L416 447' @ L,N$;' T1 40: T' @ L,(128);'"A$: A$"" 350(, L: X1 10()6 (13)(13),1(;@ X: SCSC10(OJ @ 494,SC;" ";(ZT 220(r^ LL L384 32(h @ L,N$;(rL1(PKL1)(|R1(PKL1)(U1(PKL32)( U1128 430( @ L,(128);( L: 220(P(PKL)) L1P R1P U1P 480)?S1U1P: S10 U1255 220)LSCSCS1)dև @ 494,SC;: 220)v @ 14,"END";) T1 30) 100,1: ) @ 448,"";)Z$: Z$"" 520) 120) @ L,(128);( L: 220(P(PKL))NARY,CIRCUMFLEX ARTERY8Z PERICARDIUM,ANTERIOR INTERVENTRICULAR BRANCH,BUNDLE OF HIS,END8x:**LOADS LETTER ARRAY***8~8A$: A$"LETTERS"1310:A08(AA1:A$,B$:A$"END"X$(A)A$:Y$(A)B$:1320828< J1 (A$)9FX$((A$,J,1))9*P X$"-" X$"Z" Y$((X$)44)9AZ X$" ""BM+7,0"9Kd J:9n LETTERS,-,"BM+2,-3;R2;BM+3,+3",,"",,"",0,"BM+1,0;H1U4E1R2F1D4G1L2;BM+6,0",1,"BM+1,0;R1NR1U6G1;BM+6,+5",2,"NR4U1E1R1E2U1H1L2G1;BM+7,+5",3,"BM+0,-1;F1R2E1H2E2H1L3;BM+7,6":x 4,"BM+3,0;U2NR1L3U1E3D3;BM+4,3",5,"BM+0,-1;F1R2E1U2H1L3U2R4;BM+3,+6",6,"BM+4,-5;H1L2G1D4F1R2E1U1H1L3;BM+7,+3",7,"U1E4U1L4;BM+7,+6",8,"BM+1,-0;H1U1E1H1U1E1R2F1D1G1NL2F1D1G1L2;BM+6,0"; 9,"BM+0,-1;F1R2E1U4H1L2G1D1F1R2;BM+4,+3",,"",,"",,"",,"",,"",,"",,"";A A,"U4E2F2D2NL4D2;BM+3,0",B,"U6R3F1D1G1NL3F1D1G1L3;BM+7,0"; C,"BM+1,-0;H1U4E1R2F1;BM+0,+4;G1L2;BM+6,0",D,"U6R3F1D4G1L3;BM+7,0",E,"NR4U3NR2U3R4;BM+3,+6"<' F,"U3NR2U3R4;BM+3,+6",G,"BM+1,-0;H1U4E1R2F1;BM+0,+2;NL1D2G1L2;BM+6,0",H,"U3NU3R4NU3D3;BM+3,0",I,"BM+1,0;R1NR1U6NL1R1;BM+4,+6"< J,"BM+0,-1;F1R1E1U5NL1R1;BM+3,6",K,"U3NU3R1NE3F3;BM+3,0",L,"NU6R4U1;BM+3,+1",M,"U6F2ND1E2D6;BM+3,0"< N,"U6F1D1F2D1F1NU6;BM+3,0",O,"BM+1,0;H1U4E1R2F1D4G1L2;BM+6,0",P,"U6R3F1D1G1L3;BM+7,3"=f Q,"BM+1,0;H1U4E1R2F1D3G1NH1NF1G1L1;BM+6,0",R,"U6R3F1D1G1L2NL1F3;BM+3,0",S,"BM+0,-1;F1R2E1U1H1L2H1U1E1R2F1;BM+3,+5"=Ȇ T,"BM+2,+0;U6NL2R2;BM+3,+6",U,"BM+0,-1;NU5F1R2E1U5;BM+3,6",V,"BM+0,-6;D2F1D1F1ND1E1U1E1U2;BM+3,+6">C҆ W,"NU6E2NU1F2U6;BM+3,6",X,"U1E4U1;BM-4,0;D1F4D1;BM+3,0",Y,"BM+0,-6;D2F2ND2E2U2;BM+3,6",Z,"NR4U1E4U1L4;BM+7,6">Q܆ END,END1U1E1R2F1;BM+3,+5"=Ȇ T,"BM+2,+0;U6NL2R2;BM+3,+6",U,"BM+0,-1;NU5F1R2E1U5;BM+3,6",V,"BM+0,-6;D2F1D1F1ND1E1U1E1U2;BM+3,+6">C҆ W,"NU6E2NU1F2U6;BM+3,6",X,"U1E4U1;BM-4,0; D& 4,1&1000&e1,1: 540:the graphics will begin at this gosub # even if you do a renum.'(:"THIS PROGRAM WILL HELP YOU FIND GRAPHIC STATEMENTS.":"SEE THE REMARKS LINES.":"by denis santerre ":"1) CIRCLE":"2) LINE":"3) BOX":"4) DRAW":I'2 I 60,170,170,280'<:"USE THESE:":"ExIT":"sCREEN":"UP AND DOWN ARROWS CHANGES STARTOF ARC":"LEFT AND RIGHT ARROWS CHANGES FINISH OF ARC":"USE BOTH JOYSICKS":Z$'F1,1'P180:(V,H),V1,,H1V1,S,F(Z270: I$(94) F.99 S1S.05 : S10(7d I$(10) S.05 S11:S1S.01(`n I$(8) F.99F1F.05 : F10(x I$(9) F.05 F11 :F1F1.01( I$">" SSSS.01 :I$"<"SSSS.01) I$"X": "CIRCLE("(V)","(H)"),"(V1)",,"(H1100V1)100","S","F:530).(V,H),V1,0,H1V1,S,F:SS1:FF1)780)|:"USE YOUR JOYSTICKS, ExIT,sCREEN CLEAR";Z$:1,1:I1190,230)260:V1V1254631:H1H1190631:) 180:(V,H)(V1,H1),*ȁ 270: I$"X" :"LINE("(V)","(H)")-("(V1)","(H1)"),PSET":530*&һ(V,H)(V1,H1),*0܁190*N恦 180:(V,H)(V1,H1),,B* 270: I$"X" :"LINE("(V)","(H)")-("(V1)","(H1)"),PSET,B":530*(V,H)(V1,H1),,B:230*V(0)25064:H(1)19063:V1(2):H1(3):+I$: I$"S"540:+:"THESE ARE YOUR COMMANDS YOU WILLHAVE TO REMEMBER.":"uP, dOWN, lEFT, rIGHT, mOVE, nO UPDATE bLANK MOVE":"e,h,g,f-FOR 45,135,225,315 DEGREES":"oK, cANCEL, ExIT, iNSTRUCTIONS":"sCREEN UPDATE",""THE LEFT AND RIGHT ARROWS WILL CHANGE DISTANCE",K,"USE YOUR RIGHT JOYSTICK AND FOR MOVE",m6"PRESS ENTER TO CONTINUE";I$,@A$""A$"BM127,95",J1,1,T 270,^A$,h(A$)240 520,r I$""340,| I$"N" N$"N":340- I$"B"N$"B":I$"M"-Q ("MUDLREFGHXI",I$)1 340,440,450,450,450,450,450,450,450,450,520,280-b1,1: A$B$-K$:K$""420 : K$"O"A$A$N$B$:N$"":340: "C0"A$B$:"C1"A$:K$"C"N$"":340:: 400-- 460:410- 470:410.,́260:X$((V)):Y$((H)):B$I$X$","Y$:.?ց490:X$(D).NB$I$X$:.u K$(9)DD5: K$(8)DD1. D1D1: D254D254..:A$."..... IS THE GRAPHIC STATEMENT TO ADD TO YOU PROGRAM.":"YOU MAY OMIT SPACES.":/=R&S:***POKE 23040,0:POKE25,90 NEW BEFORE YOU LOAD THIS PROGRAM.& :@107,"THE HEART":@196,"AN EDUCATION PROGRAM BY":" denis santerre"'N$(30),X$(46),Y$(46):1300: 1200:4,1::"THESE ARE THE WRONG ANSWERS":1,0:0,1:'*c:********DRAWS THE MAIN SCREENS*****'Ed(98,86),70,,1.4,0,.42'cn(45,100),35,,1.2,.27,.92'{x(128,85),40,,1,.73'(98,40),20,,1,.40,.85'(98,43),40,,1,.40,.88'(4,40)(4,165),'(30,138)(30,165),'(30,62)(30,40),( (17,39),13,,.3( (17,164),13,,.3(:(165,65),12,,1,.6,.8(T(165,65),20,,1,.6,.8(n(175,80),12,,1,.6,.8((175,80),20,,1,.65,.8((169,46)(169,54),((179,70)(179,60),(A14:A A 8::4,9:0,1:(88,84),15,,.3:(80,52)(125,45),)(98,40),20,,1,.85,.05)5(98,43),40,,1,.88,.02)C"4,1:0,1)],(150,86),50,,1,.5,.8)x6(150,86),76,,1,.49,.6)@(150,86),76,,1,.65,.79)J(103,28)(82,28),)T(87,44)(80,44),)^(50,28)(61,28),)h(50,44)(57,44),*r(50,31),3,,2*|(50,41),3,,2*((165,25),7,,2*>(88,84),13,,1,.5*\(45,100),30,,1.2,.20,.07*u(75,79),10,,1,0,.25*(99,80),10,,1,.25,.5*(100,90),10,,1,.9,.20*(129,80),10,,1,.25,.5*(130,90),10,,1,.75*(160,90),10,,1,.5,.75+(62,138),10,,1,.6,.9+-(80,116),10,,1,.34,.6+G(110,170)(102,84),+_(98,173)(99,84),+x(130,80)(130,90),+(130,80)(105,65),+(98,86),63,,1.4,0,.42:(103,172)+&(27,100), 7,,3.2+0(128,85),34,,1,.68,W:*****DOES PART DRAWING****,X4,5,*bRR1:R18 N8 :N0,4l890,v R 900,910,920,940,950,960,970,980,1000,1010,1020,1030,1040,1050,1060,1070,1090,1100,1110,1120,1130,1140,1150,1170,1180,990,1190,:****DOES THE QUIZZING****,A$N$(R):B1:4,5:0,1:880-"A(A$," "):A0A$(B)A$:730-VA$(B)(A$,A1):A$(A$,(A$)A):BB1:710-ڀ A1B: "BM142,"(160(A10)):C1(A$(A)):"BM+2,-3;R2;BM+3,+3":C:-D$"":A0:A$:C$""-AA1:D$D$A$(A): "BM142,"(156A10)-C$""860.A$: A$(13)830.+ A$(8)700.T A$"0" A$"Z" 1340:C$C$A$. (C$)(D$) AB 750: AB 830.* C$""760.4770.>TT1:"BM180,135": C$D$ A$"CORRECT":1340:COCO1:850/<HN$(R):1,0:A$"WRONG":1340:880:A1B:"BM142,"(A10156):A$A$(A):1340:A:850/RA$"SCORE ":"BM180,150":1340:A$((COT100)):1340:A1700:A:600/\ C1 100::4,N1:1,0/f C1 100::4,5:1,0:0,1:/p(254,190)(140,158),,BF:(254,190),,B:0&z4,5:1,0:0,1:A14:AN A4::0G:*****STEPS TO DRAW PARTS**0d(55,40),0:(150,20),0:0v(87,87),10:0(162,50),00(167,68),0:0(140,90)(150,90),:(140,70),0:0(140,90)(150,90),:(110,90)(120,86),:(140,110),0:16(85,80)(90,80),:(75,125)(70,132),:(90,130),0:1]ʻ(75,125)(70,132),:(50,130),0:1oԁ 910:10401(85,165),10,,1,0,.25:(125,160),10,,.7,.25,.5:(95,165)(93,110),:(115,160),:(88,110),5,,1,.75,0:(88,105)(50,110),:2(145,90),10:2(70,125),10:2)1000:10102[(110,90)(121,85),:(80,50),0:(110,75),0:2o(117,90),10: 2(160,70),0:2$(98,84),63,,1.4,0,.42: 2.(98,88),70,,1.4,0,.42::A$"NOT A SACK":"BM170,100":1340:3 8(20,100)(40,100),:(30,50),1: 3-B(4,100)(9,100),:(20,50),0:3SL(4,100)(9,100),:(20,140),0: 3dV(40,85),4:3w`(50,105),4: 3j(98,95),60,,1.2,.1,.4: "BM110,171;H6;E10;BM+15,+5;H3;U5;BM+15,+1;H4;U4;BM80,171;E6;H10;BM-15,+0;E3;U5;BM-12,+1;E5;U5":4t(95,80),50,,1.5,.3,.4:(90,85),30,,1.5,.25,.42:(70,110),30,,1.5,.25,.42:(30,75),40,,1.7,.99,.22:(34,72),40,,1.7,.02,.2:(70,90),0:5;~(83,52)(167,77),:(84,58),:(83,52),:"BM82,132;M+6,-2;BM+6,-2;M+6,-2;BM+5,-2;M+5,-2;BM+5,-1;M+5,-2;BM+5,-2;M+5,-5;BM+5,-5;M+5,-5;BM+5,-5;M+5,-5;BM+5,-5;M+5,-5;":(98,58),0:5N(84,104),10:5(98,88),70,,1.4,0,.42:A$"THE SACK":"BM170,100":1340:6(100,84),20,,1,.75,0:(100,84),23,,1,.75,0:(123,84)(115,150),:(120,84),:(100,61)(85,61),:(88,65),:(100,65),:(122,84),0:68"SCORE "(COT100):6Y:*****LOADS WORDS TO ARRAY*6v:A$: A$"NAMES"12006~A06AA1:A$:A$"END"N$(A)A$:12206ΐ7؆ NAMES,PULMONARY ARTERY,PULMONARY VALVE,PULMONARY VEINS,LEFT ATRIUM,LEFT VENTRICLE,RIGHT VENTRICLE7s RIGHT ATRIUM,SEMILUNAR VALVES,MITRAL VALVE,TRICUSPID VALVE,ATROVENTRICULAR VALVES,AORTA7 AORTIC VALVE,MYOCARDIUM,ENDOCARDIUM,EPICARDIUM8 SUPERIOR VENA CAVA,INFERIOR VENA CAVA,SA NODE,AV NODE,PURKINJE FIBERS,RIGHT CORO:!: CADPRINT VR 1.0@: (C) 1985 BY P.KERCKHOFFd: 4335 HENDRIX WAY SAN JOSE CAk:: THE PRINTOUT PART OF THE: PROGRAM COCOCAD, USED WITH: THE GEMINI 10 OR 10X PRINTER: :o 100,&H379A::"cadprint RUNNING":CS0: X&H379B &H37FF: A$:D("&H"A$):CSCSD: X,D:: X: CSX "ERROR IN DATA STATEMENTS.":v :} : : PICK YOUR BAUD RATE, 1=: 9600 BAUD:150,1::: SETUP LINEFEED LENGTH TO  : 16/144THS OF AN INCH:/#2,(27);(51);(16)6:= :]!: FOR EACH SUB PAGE OF THEu": SCHEMATIC (LOOP)|#:( PG0 8 3):*:+: GET THE PAGES FROM DISK,: AND STORE THEM IN MEMORY-: (UPPER MEMORY).:2M "PRT.PG"((PG),1),&H2A00C:)=?: ELSE THE LINE IS GOOD SO)\@: SAVE IT IN THE NEW FILE)cA:)uF #2,A$: 40)|G:)H:)I: ALL DONE. CLOSE IT AND)J: STOP.)K:)P* Z "NOW LOAD 'COCOCAD.BAS' AND RESAVE (THE LOAD WILL TAKE QUITEAWHILE)."*d)>:)=?: ELSE THE LINE IS GOOD SO)\@: SAVE IT IN THE NEW FILE)cA:)uF #2,A$: 40)|G:)H:)I: ALL DONE. CLOSE IT AND)J: STOP.)K:)P* Z "NOW LOAD 'COCOCAD.BAS' AND RESAVE (THE LOAD WILL TAKE Q /& :SOUND STORY&):BY BILL BERNICO&A:708 MICHIGAN AVE.&[(:SHEBOYGAN, WI 53081&p2:(414) 459-7350&w<:&F:*** TITLE PAGE SOUND ***&P3:@43,"SOUND STORY";&ZX125510:X,1:X&dX1500:X&n:*** AUTHOR'S NAME SOUND ***'Lx@201,"BY ";:220,2:X1150::"BILL ";:110,2:X1150::"BERNICO";:10,2'V560':"IMAGINE YOURSELF WALKING THROUGHTHE WOODS. YOU COME ACROSS A HOUSE SET BACK IN THE TREES. AS YOU APPROACH, YOU SEE THE DOOR TO THE HOUSE.'560(:"ON THE DOOR YOU NOTICE THERE IS A KNOB, A DOORBELL, A KNOCKER AND A SMALL PANE OF GLASS IN THECENTER. THERE DOESN'T APPEAR TOBE ANYBODY HOME.(560(:@40,"WHAT WILL YOU DO? -----------------(@100,"1.) KNOCK ON THE DOOR)ȇ@132,"2.) RING THE DOORBELL)>҇@164,"3.) TRY THE DOORKNOB)`܇@196,"4.) LOOK IN THE WINDOW)@228,"5.) GO AROUND THE BACK)@260,"6.) ESCAPE IN HELICOPTER)@292,"7.) GIVE UP)@360,"CHOOSE (1-7))A$:A$""270)A(A$)* " A1 A7 260*4, A 330,370,410,430,460,530,550*?6 310*^@:*** DOOR KNOCK SOUND ****J:X13:"T150O1V31CDCGABV25CV20CV15DV10DV5EV1E":@133,"KNOCK! KNOCK! KNOCK!":X*T@330,"NOBODY HOME":580:180*^ 580+h:*** DOORBELL SOUND ***+Yr:@135,"RRRRRRRRRRRRING!!":"L20V30T50O5GBGBGBGBGBGBGBGBGBGBGBGBGBGBGBGBGBGBGBGBG+}|@330,"NOBODY HOME":580:180+ 580+:*** BURGULAR ALARM ***,8:@162,"WARNING! WARNING! WARNING!":@224,"(FORGOT ABOUT THE BURGLAR ALARM)":Q$"1;2;3;4;5;6;7;8;9;10;11;12;":X115:"O5L242V15;": Q$:X,H580:180,:@195,"YOU SEE A BIRD CAGE ON A STAND. THERE'S A SMALL BIRD IN IT. HE JUST SAW YOU.",:*** BIRD CHIRP SOUND ***- €X15:"L255T255V20O5CGCEC":Y1200:Y,X:580:180-̞:@100,"YOU'RE IN THE BACK YARD. YOU SEE THE OWNER OF THE HOUSE WITH A MACHINE GUN! BETTER RUN....-ց580-:***MACHINE GUN SOUND ***-F13.X110:"L190O1V28CV29DV20EV10F#V21G#V16GV31":X:D1500:D.F:180./:***HELICOPTER SOUND ***.:F4494231:@F,"UP, UP AND AWAY":Y13:(10,10),4:43345:@F,"":Y,F:580: 180.:*** RASPBERRY SOUND ***.&:X1100:43345:X:"MY, WHAT A SHORT ADVENTURE":/0@484,"HIT ANY KEY TO CONTINUE";:44539:/: 570/.DX12000:X::F4494231:@F,"UP, UP AND AWAY":Y13:(10,10),4:43345:@F,"":Y,F:580: 180.:*** RASPBERRY SOUND ***.&:X1100:43345:X:"MY, WHAT A SHORT ADVENTURE":/0@484,"HIT ANY KEY TO COߎ 1?&t IZ&񧀌%9ߍ&Hv 1?&Z&%9v ##9ߎ#9Gߎ#9ߎ#9ߎ#9&H3C7,&H96:&H3C8,&HA3+ &H3C0,& 50,&H3000&M"F&#1,1&,((1)&>20 &H3010&H< 1,1&UFA0(0)&_P 0,1&pZ "AGAIN";A$&d A$ "Y" 60ߎ#9ߎ#9ߎ#9&H3C7,&H96:&H3C8,&HA3+ &H3C0,2,242,57,142,62,82,198,4,16,142,15,112,166AfΆ 133,206,60,227,72,72,171,133,51,198,134,5,151,1,16,159A؆ 2,166,192,167,165,49,168,32,10,1,38,245,16,158,2,90A 42,221,57,3,51,51,51,3,15,207,207,207,3,3,243,3B  63,3,3,243,195,243,3,51,51,3,243,243,3,63,3,243B> 3,3,63,3,51,3,3,243,243,243,243,3,51,3,51,3Bw 3,51,3,243,243,142,4,0,111,128,140,14,0,37,249,134B 255,167,128,140,16,0,37,249,142,255,192,111,0,111,2,111B 5,134,248,183,255,34,16,142,15,113,142,62,82,198,4,189C/ 60,191,189,60,182,142,61,113,16,142,15,111,16,159,1,16Ck( 142,15,106,189,61,87,57,52,32,198,5,166,128,152,7,167C2 164,49,168,32,90,38,244,53,32,49,33,16,156,1,38,231C< 57,60,192,48,12,240,60,192,192,192,60,48,204,204,204,48D&F 240,204,240,204,204,252,192,240,192,252,142,61,210,16,142,14DaP 44,52,32,198,8,215,6,166,128,141,42,215,3,141,38,150DZ 3,221,1,68,84,154,1,218,2,148,7,212,7,136,255,200Dd 255,237,164,49,168,32,10,6,38,221,53,32,49,34,16,140E n 14,52,37,205,57,198,4,215,1,95,72,89,89,10,1,38EHx 249,57,254,4,8,16,32,64,128,254,124,130,130,130,130,130E 130,124,130,130,162,146,146,138,130,130,130,130,68,40,40,68E 130,130,65,82,48,50,54,180,150,83,84,65,82,48,52,54E 205,134,83,84,65,82,88,50,54,219,148,76,73,70,69,60F 999FG 6,161,7,24,8,154,9,17,10,238,11,16,12,1,13,62,13,153,999 130,124,130,130,162,146,146,138,130,130,130,130,68,40,40,68E 130,130,65,82,48,50,54,180,150,83,84,65,82,48,52,54E 205,134,83,84,65,82,88,50,54,219,148,76,73,70,69,60&:LISTING1&500&) 4,1::1,1&7:GOTO700&uA$"H2L2G6L8H6L2G2F2R2E6R8F6R2E2":HORIZONTAL ORIENTATION&C$"U2H2L6H8U6H2L2D2F2R6F8D6F2R2":DIAGONAL ORIENTATION&("C1A0S8BM128,96"A$"S10"A$"S4"A$"S8"&-600&2ƫC$&7600' <"A1"A$"S10"A$"S4"A$"S8"'*A600'2FC$'<K600'_P"A2"A$"S10"A$"S4"A$"S8"'iU600'qZC$'{_600'd"A3"A$"S10"A$"S4"A$"S8"'i600'nC$'s600'x"A0C0"A$"S10"A$"S8"'C$'"A1"A$"S10"A$"S8"(C$("A2"A$"S10"A$"S8"(%C$(@"A3"A$"S10"A$"S8"(HC$(Qȁ40([500(nX Z1 200::(:DRAW"S12BM90,90U6R3FDGL2NLF3BR4 HU4ER2FD4GNL2BR4 BUFR2EUHL2HUER2FBR3BU NR4D2NR3D4R4"(:GOTO710C$'"A1"A$"S10"A$"S8"(3,255,34,142,12/K 64,214,18,189,54,161,129,5,34,5,134,232,183,255,34,151/† 8,126,54,47,129,1,16,38,0,143,150,12,31,137,64,151/̆ 1,189,54,161,148,1,189,55,152,32,239,13,17,38,18,142/ֆ 62,55,111,129,156,71,37,250,12,17,134,2,151,73,151,7608 57,142,62,55,189,55,82,38,86,167,164,167,168,32,49,1680v 64,16,140,13,64,37,25,167,164,167,168,32,167,168,64,1670 168,96,167,169,0,128,167,169,0,160,16,142,0,0,32,470 206,56,148,150,9,76,132,15,151,9,150,17,13,9,38,71 76,129,5,37,2,134,1,151,17,74,72,51,198,16,159,11[ 198,8,166,192,167,164,49,168,32,90,38,246,16,158,1,161 175,129,156,71,16,37,255,156,57,129,2,16,38,1,211,2141& 74,90,90,196,127,215,74,150,77,189,55,152,79,214,74,18920 55,152,32,235,24,36,24,66,24,129,24,66,24,36,24,662L: 24,129,189,56,222,142,62,82,134,4,111,134,74,42,251,1512D 7,151,73,151,77,142,62,12,76,167,128,140,62,19,37,2492N 142,160,0,159,4,126,58,21,79,31,139,16,191,0,136,323X 4,173,159,160,2,166,128,38,248,134,62,31,139,57,142,2553<b 192,111,132,111,2,111,4,142,62,82,16,142,62,87,95,1663wl 165,161,133,34,16,37,5,92,193,5,37,243,198,5,166,1333v 167,165,90,42,249,142,4,0,134,96,167,128,140,6,0,373 249,16,142,4,32,142,58,126,189,56,200,16,142,4,96,1894) 56,200,16,142,4,203,189,56,200,142,62,82,16,142,4,2374c 141,25,142,62,87,16,142,5,45,141,16,142,4,0,166,1324 136,64,167,128,140,6,0,37,245,32,31,95,16,191,0,1364 31,155,166,133,139,48,173,159,160,2,92,193,5,37,243,1345 48,173,159,160,2,134,62,31,139,57,182,255,0,132,1,395S 249,126,59,75,142,54,233,159,79,15,16,79,151,81,151,125Ɔ 167,226,68,151,77,189,55,119,189,54,177,189,53,224,173,1595І 62,79,166,224,76,38,233,142,6,0,150,78,151,81,175,2276 چ 189,55,119,189,54,177,189,53,224,13,12,38,20,220,14,396D 16,132,102,196,102,16,131,0,0,39,4,12,13,32,2,126 12,173,159,62,79,174,225,48,31,38,211,79,151,81,167,2266 68,151,77,189,55,119,189,54,177,189,53,224,173,159,62,796 166,224,74,38,233,57,142,55,251,159,79,15,17,126,57,12378 142,58,0,159,79,15,17,15,16,15,74,15,75,126,57,1237q 189,54,233,189,55,251,13,12,38,10,13,13,38,6,134,37 151,73,151,76,57,134,1,151,78,189,61,21,189,61,138,1427* 62,37,150,78,139,3,72,48,134,159,53,142,62,55,48,1348*4 159,71,189,57,116,189,57,230,189,57,240,189,59,217,134,2558e> 151,7,189,61,138,150,78,76,151,78,129,5,37,209,10,788H 32,205,129,3,16,38,2,38,214,74,92,196,63,215,74,388R 9,214,75,90,39,4,196,127,215,75,214,75,219,74,150,779\ 72,189,55,152,214,74,219,75,79,189,55,152,32,218,32,329Lf 32,32,32,32,32,32,32,32,60,60,40,40,90,79,78,889p 41,41,62,62,0,32,32,32,32,32,32,32,32,66,89,329z 68,65,86,73,68,32,66,73,76,76,69,78,13,32,32,329 32,32,80,82,69,83,83,32,66,85,84,84,79,78,32,84:" 79,32,66,69,71,73,78,0,76,65,83,84,32,83,67,79:X 82,69,13,13,32,32,32,32,32,32,32,32,32,32,32,72: 73,71,72,32,83,67,79,82,69,0,151,1,151,2,215,3: 134,252,151,77,15,0,134,4,167,226,150,77,214,1,141,64; 79,214,1,141,59,106,228,38,241,134,4,167,228,150,77,214;C 2,141,45,79,214,2,141,40,106,228,38,241,166,224,150,0;|ʆ 145,3,36,38,150,77,39,3,74,151,77,150,1,129,255,39;Ԇ 3,76,151,1,150,2,129,1,39,3,74,151,2,126,58,246;ކ 183,255,32,90,18,18,18,18,38,249,57,142,59,133,166,128<+ 39,249,230,128,129,1,38,18,16,142,4,46,166,164,138,64B 166,228,198,8,189,58,234,189,60,162,189,60,182,189,55,64>ZL 189,61,138,106,228,38,233,53,2,142,60,20,166,128,16,39>V 255,72,68,230,128,189,58,234,52,16,189,55,64,189,61,138>` 53,16,32,232,1,255,144,32,144,32,144,32,144,32,144,16?j 128,48,144,16,128,48,144,16,128,16,80,16,96,32,80,16?Gt 80,16,80,16,144,16,128,16,2,32,144,16,128,16,2,32?~ 144,16,128,16,80,16,96,144,0,0,150,13,129,1,38,21? 150,73,151,76,134,4,151,73,151,13,134,232,183,255,34,189? 60,162,126,60,182,150,13,139,64,151,13,36,16,15,13,204@6 0,0,221,14,150,76,151,73,134,248,183,255,34,57,129,4@t 16,38,250,251,150,13,64,72,138,128,214,13,189,55,152,79@ 214,13,189,55,152,32,237,150,86,76,151,86,129,10,37,21@ 15,86,142,62,82,198,3,166,133,76,167,133,129,10,37,5A)Ć 111,133,90,4}& 8& 4,1& 1,1&)(Z1:B8&82 S(32,16)&M< X0 255 32&bF Y0 191 16&mP 140&Z(112,B7)(143,B8),S,G&d 4,5&n(X,Y)(X31,Y15),S,&x Y,X& 270& 4,1:&BB1&A(Z)10&AA128' C1 C0: 250'(A,B),5'!C1':һ(127,0)(127,192),'Sܻ(128,0)(128,192),'l(129,0)(129,192),'~ZZ.1: 260'ZZ.1: 140'' SEE ANIMATION' 4,1:'" 3,1', UO1 4: UO::2'6 4,1: 1,1(@(112,0)(143,192),,BF(J(9,9)(102,182),,BF(;T(153,9)(246,182),,BF(T^(127,0)(127,192),(mh(129,0)(129,192),(r(56,96),40,0(|(199,96),40,0(W7( X0 255 32( Y0 191 16( 4,5((X,Y)(X31,Y15),S,G( 4,1)(112,W)(143,W15),S,)WW2)#֋ Y,X)>:@228,"AGAIN (Y/N)";)VA$: A$"" 490)v A$"Y" 1,1:W1: 390)|(|(199,96),40,0(W7( X0 255 32( Y0 191 16( 4,5((X,Y)(X31,Y15),S,G( 4,1)(112,W H& 200,13700&4::"LOADING MACHINE CODE..."&@X13744&e A: A999 X,A:XX1: 30&# X15872 16383: X,0:&2T6: X15891 15905 2: X,T: X1,(255):TT1: X: 15907,13: 15908,(255)'<: "READY RECORDER/PRESS ENTER";A$'"FM "ZONX",13740,16383,13744'(P'ed 134,85,183,0,113,142,53,187,191,0,114,18,134,62,31,139'n 142,53,218,191,1,13,134,53,183,255,3,28,239,189,169,118'x 16,223,10,16,206,63,255,126,56,162,182,255,2,12,0,59( 13,12,16,38,1,191,182,255,32,31,137,132,3,138,128,183(V 255,32,182,255,0,247,255,32,214,18,132,128,38,3,90,42( 7,92,193,62,35,2,214,18,215,1,142,12,64,214,18,84( 58,236,132,221,14,134,8,16,142,0,0,16,175,132,48,136) 32,74,38,247,134,255,151,8,142,12,64,214,1,215,18,84)> 58,37,46,15,15,134,24,148,8,167,136,32,134,60,148,8)~ 167,136,64,167,136,96,134,219,148,8,167,137,0,128,167,137)Ȇ 0,160,167,137,0,192,134,195,148,8,167,137,0,224,126,54)҆ 214,204,1,128,148,8,212,8,237,136,32,204,3,192,148,8*3܆ 212,8,237,136,64,237,136,96,204,13,176,148,8,212,8,237*o 137,0,128,237,137,0,160,237,137,0,192,204,12,48,148,8* 212,8,237,137,0,224,220,14,132,15,196,240,221,14,126,54* 214,222,4,166,192,17,131,192,0,37,3,206,160,0,223,4+# 57,142,62,19,16,174,132,111,164,49,168,32,16,140,14,0+^ 37,11,189,54,161,132,31,16,142,4,0,49,166,16,175,129+ 140,62,37,37,223,57,142,62,19,134,3,167,145,140,62,37+" 37,249,13,13,16,38,5,98,57,13,16,38,15,142,62,37, , 111,129,140,62,53,37,249,12,16,15,73,57,142,62,37,189,I6 55,82,38,42,167,164,167,168,32,49,168,64,16,140,13,64,@ 37,11,167,164,167,168,32,16,142,0,0,32,17,134,60,167,J 164,148,7,167,168,96,150,7,167,168,32,167,168,64,16,175,T 129,156,53,16,37,255,200,150,6,76,132,3,151,6,38,17-5^ 150,7,129,255,38,4,134,85,32,5,72,36,2,134,255,151-oh 7,57,16,174,132,16,140,1,0,34,23,189,54,161,132,127-r 145,81,44,16,189,54,161,132,31,16,142,4,0,49,166,16-| 175,132,79,57,134,255,57,134,255,151,0,150,73,42,2,19. 57,16,38,0,95,214,74,92,196,63,215,74,150,77,92,141.V 7,79,214,74,141,2,32,237,183,255,32,13,0,42,4,90. 38,249,57,53,192,150,12,129,1,38,17,151,73,76,151,12. 134,232,183,255,34,19,134,248,183,255,34,57,76,38,8,16/ 206,63,255,126,56,162,57,151,12,134,248,18y&4d * NO-NINER * TRS-80 EXTENDED COLOR BASIC 16K&On * BY RICHARD RAMELLA&Yx 500&f A$(10)&: "CAN YOU SCORE 39?"& C1 10&A$(C)"0000000000"& C&A$(2)"0X"(A$(2),8)&X2: Y2: B$"12345678"&ȁ 550&A$'܅ A$"" 210'"恦 500: 390'S A$"P" (A$(Y),X,1)"1": 550: 270'^ 550'i 210'{Q1: S1: C2'A$'" @ 360,"SCORE"S;', A$"" 280'6 500'@ ("AZ,.",A$)0 A$"" 280'J 390: 550( TU((A$(Y1),X,1))(!^M((A$(Y),X,1))(;hP((A$(Y1),X,1))(`r UM8 PM8 XX100: 500(k| 280( Q0 (A$(Y),X,1)"0"( A$"A" Y2 (A$(Y1),X,1)"0" YY1: L1( A$"Z" Y9 (A$(Y1),X,1)"0" YY1: L1)+ A$"," X2 (A$(Y),X1,1)"0" XX1: L1)a A$"." X9 (A$(Y),X1,1)"0" XX1: L1) Q0 (A$(Y),X,1)"X": )… L0 280 : L0)(A$(Y),X,1)(B$,C,1))SS1: CC1) C9 C1)) XX100 *  @ 416,"END SCORE:"S* T1 1000*" T*(*2&GH76*@0 D2 9*d: @ GH,(A$(D),2,8);: GHGH32*lD D*rN*xX"X": )… L0 280 : L0)(A$(Y),X,1)(B$,C,1))SS1: CC1) C9 C1)) XX100 *  @ 416,"ENi& "PUNCTUATION QUIZ"&B"STEVE BLYN,COMPUTER ISLAND,NY,1985&d A$(11),B$(11),C$(11),D$(11)&k( &2 I1 11: A$(I),B$(I): I&< I1 11: C$(I),D$(I): I&F" PUNCTUATION MARKS"&P" MARK NAME"'Z" ---- --------"'1d A1 11: A 2)A$(A) 13)B$(A): A'Tn"CHOOSE A DECORATIVE PATTERN"'gxNN128(127)'yPR$(32,NN)'PR$;'@484,"PRESS TO GO ON";'EN$' EN$(13) 180 : 160' T 1 5'( ȇ" PUNCTUATION QUIZ": PR$;(R(11)((܇@96,C$(R)(F@192," ":@192,"ANSWER";(O E$(^@288,PR$;( E$D$(R) 200,2:@ 364,"CORRECT"( E$D$(R) 20,3:@362,D$(R):"IS THE CORRECT ANSWER THIS TIME."(@ 484,"PRESS TO GO ON";)"EN$), EN$(13) : 290 )&6 T)v@ (8):@96," PRESS TO CONTINUE OR TO END THE PROGRAM.")JEN$)T EN$"C" : EN$"E" : 330)^ ",",COMMA* h .,PERIOD,?,QUESTION MARK,!,EXCLAMATION POINT,;,SEMICOLON,":",COLON,-,HYPHEN*Ur ( ),PARENTHESES,[ ],BRACKETS,'' '',QUOTATION MARKS,',APOSTROPHE*| THIS COMES AT THE END OF A DECLARATIVE SENTENCE.,PERIOD* THIS IS USED TO SHOW STRONG FEELINGS OR EMOTIONS.,EXCLAMATION POINT+, THIS IS USED IN PLACES WHERE YOUWOULD PAUSE IN SPEAKING.,COMMA+ THIS IS USED BETWEEN TWO MAIN CLAUSES NOT JOINED BY A CONJUNCTION.,SEMICOLON+ THIS IS USED BEFORE A LIST OF ITEMS.,COLON+ THIS IS USED TO SHOW POSSESSION OR OWNERSHIP.,APOSTROPHE,I THIS IS USED TO DIVIDE A WORD INTO PARTS AT THE END OF A LINE.,HYPHEN,† THESE ARE USED TO ENCLOSE AN EXTRA WORD OR WORDS.,PARENTHESES,̆ THESE ARE USED TO ENCLOSE ITEMS FOUND WITHIN PARENTHESES.,BRACKETS-ֆ THESE ARE USED TO SHOW SOMEONE'SEXACT WORDS.,QUOTATION MARKS-h THIS IS USED AT THE END OF AN INTERROGATORY SENTENCE.,QUESTION MARKN EXTRA WORD OR WORDS.,PARENTHESES,̆ THESE ARE USED TO ENCLOSE ITEMS FOUND WITHIN PARENTHESES.,BRACKETS-ֆ THESE ARE USED TO SHOW SOMEONE'<&$:*RCIRCSIN* - BY JOEY GOODSON&2A()&?G10:R3&O4,1::1,1&W1150:((252),(191)):W:W110:((255),(191)),(2):W& B0 XX3& B1 XX3& BB0 XXXX3& BB1 XXXX3&GGGG&YG10((X))'(X,Y)(Y,XX),'((X,Y),R:(Y,XX),R'8 X255 B1'G!X0 B0'"XX192 BB1:100::R(10):W1150:((255),(191)):W:W110:((255),(191)),(2):W'$XX0 BB0'%G248 GG2'&G10 GG2'210'd"V1"(eJ(5):J$"O"(J):J$(nJ115(6x"T255V+ABGABG":J(BJ115(a"T255V-ABCDEFGABCDEFG":J(qJ1460:J(J(4):J 200,250,300,350((ȀJY0191:(0,JY)(255,JY),:JY:(JY19101:(0,JY)(255,JY),:JY:),JX0255:(JX,0)(JX,191),:JX:);^JX25501:(JX,0)(JX,191),:JX:115(a"T255V-ABCDEFGABCDEFG":J(qJ1460:J(J(4):J 200,250,300,350((ȀJY0191:(0,JY)(255,JY),:JY:(JY19101:(0,JY)(255,JY),:JY:),JX0255:(JX,0&A 6:@224,"CAN THE COMPUTER WORK AT HIGH SPEED? (Y/N)"&A$:A$"Y"65495,0:WA40:30:A$"N"65494,0:WA20:30::A$""20:20&IN1:S1.33333333&(R.390625:Z400:Z13600&24:@224,(32,32);&<@192,(32,153);' F@256,(32,153);'PA$" 1YOU WON'T BELIEVE THIS!!! 3PRETTY INCREDIBLE I MIGHT ADD 5OK, OK, I'M WORKING ON IT!!! 7ALLRIGHT, GET READY, HERE IT IS 9"'ZP1134'd3,P:3:1,1'nM1(A$,(IN))2'x@224,(A$,M1,(M1,A$,(IN2))M1)(L025664:(L,191)(128,96),:()L1121898(PL1LIN:L2L196:I2IN40:L2L196((257L1S,L1)(L1S,L1),:(257L1S,L1)(257L1S,L126L2R),:(0,L126L2R),:(L1S,L1)(L1S,L126L2R),:(255,L126L2R),((1,1)Ȼ(0,80)(255,80),)!0,P:0:3,P:(10,78),1,1)*1,1)c(0,127)(128,70),:(255,127),:(0,80)(255,80),)sX581784)Y(Z(1(X118)2Z1)))(X2,159Y)(X2,159Y),))(128,96),60,2:(128,38),2,2:(128,96),60,1)"A.21.2*,(128,96),60,1,AI2,0,.53*6*'@A0.8.2*DJ(128,96),60,1,AI2,.5,1*KTA*W^ININ2*^hP*frP1*t|4,P:1,1*W0 WA:*PP4:P13P1*3802,159Y),))(128,96),60,2:(128,38),2,2:(128,96),60,1)"A.21.2*,(128,& :SPEAK TO ME&):BY BILL BERNICO&A:708 MICHIGAN AVE.&[(:SHEBOYGAN, WI 53081&p2:(414) 459-7350&w<:&F 1000&P:"WHAT IS YOUR NAME": N$&Z&d:"HOW OLD ARE YOU": X$&n:"ARE YOU A BOY OR GIRL":"(B/G)";BG$'1x BG$"B" BG$"BOY": BG$"G" BG$"GIRL": BG$"PERSON"'Z:"WHAT STREET DO YOU LIVE ON": Z$':"WHAT CITY DO YOU LIVE IN": CT$':"WHAT STATE IS THAT IN": ST$'B$(128):Y$(159):E$(157)(:@51,(8,128):@82,(10,128):@113,(12,128):@146,Y$;Y$;Y$;(8,128)([@178,;Y$;E$;Y$B$;B$;Y$;(5,128):@209,(8,159);(4,128)(@242,(10,159):@275,(9,159):@306,(9,159):@340,(7,159):@372,(7,159)(ȇ@402,(11,255):@433,(13,175):@465,(13,255):@496,(15,175);)Ҁ U1 20:Q$Q$(143): U)S$"HELLO "N$", MY NAME IS KOKO. I'LL BE VISITING "Z$" STREET WHEN I'M IN "CT$" NEXT WEEK. I'M LOOKING FOR A "BG$" ABOUT "X$" YEARS OLD TO HELP ME FIND THE CAPITAL OF "ST$".")L$Q$S$Q$*$ P1 (L$)19: (9)180,2:@256,(L$,P,19);: P*@@481,"aNOTHER OR eND";*oW$: W$"A" 10 : W$"E" 270 : 260*:"BYE, ";N$*"SEE YA LATER" ABOUT "X$" YEARS OLD TO HELP ME FIND THE CAPITAL OF "ST$".")L$Q$S$Q$*$ P1 (L$)19q&B :CHARLIE (C) COPYRIGHT 1985 RAY LARABIE ALL RIGHTS RESERVED&:"CHARLIE (C) 1985 RAY LARABIE":" ALL RIGHTS RESERVED"&"BLACK & WHITE OR COLOR (B/C)";A$&( A$"C" 3,1:1,0:2:70&24,1:1,1:1:0,1&<:left ear'F"BM111,24;M98,8;M89,8;M79,11;M72,19;M68,36;M65,71;M56,87;M49,96;M43,102;M28,103;M25,107;M24,119;M27,128;M36,140;M40,145;M56,152;M72,155;M87,155;M95,149"'P:right ear(HZ"BM159,24;M164,12;M172,8;M175,9;M180,16;M182,24;M180,32;M177,44;M180,67;M191,86;M208,95;M220,90;M228,95;M229,99;M227,111;M222,124;M208,139;M188,151;M176,153;M165,148"(Sd:brow(n"BM111,24;M110,15;M125,20;M140,19;M144,11;M143,23;M156,11;M159,13;M159,24"(x:snout)"BM122,77;M107,80;M98,86;M91,92;M83,100;M78,111;M76,124;M81,117;M83,132;M89,143;M95,149;M99,141;M94,142;M112,157;M131,163;M128,156;M132,152;M135,158;M132,168;M142,163;M156,145;M158,157;M165,145;M167,131;M166,115;M174,120;M172,104;M164,91):shoulders & eyelashes*+"M157,83;M142,79;BM40,145;M22,160;M30,158;M0,188;BM193,148;M225,164;M216,168;M255,187;BM111,55;M152,49"*6:eyes*Y(125,53),9,,2.2:(125,49),1,4*|(141,52),9,,2.2:(141,47),1,4*(131,54),4:(134,54),4*:mouth*(130,113),15,,1.5,0,.50*:nose*(136,90),15,,.3:(130,92),25,,.3:(130,95),,0+' A$"C" (0,0),3,4 : (0,0),0,0+1:end+pX25511:YY1:140,X:43345:140,Y:43345:X:Y0:2601,47),1,4*(131,54),4:(134,54),4*:mouth*(130,113),15,,1.5,0,.50*:nose*(136,90),15,,.3:(130,92),25,,.3:(130,95),,0&# :***************************&E:* RAINBOW ON TAPE GRAPHIC *&g:* BY FRED B. SCERBO *&(:* COPYRIGHT (C) 1984 *&2:* UNDER LICENSE TO *&<:* FALSOFT PUBLISHING INC. *&F:*************************** '$P0:@32,(32,191);:I11201407: A:A0A128'BZI,A:I:@416,(32,239);'Ud TEXT GRAPHIC(n,,191,188,188,,183,188,187,,191,176,176,,191,188,188,,191,188,191,,191,188,188,,188,191,188,,,,,,255,252,252,,255,252,255,,255,240,240,,252,252,255,,255,240,255,,255,252,252,,240,255,240,,,(x,,252,240,240,,252,240,252,,252,252,252,,252,252,252,,252,252,252,,252,240,240,,240,252,240,,,,,,,,,,,,,148,159,152,,159,155,144,159,,159,156,156,,,,,,,,,,,)>,,,,,,,,,144,159,144,,159,148,155,159,,159,144,144,,,,,,,,,,,,,,,,,,,,,148,156,152,,156,144,148,156,,156,156,156,,148,,,,,,,,,*143,140,143,,143,140,143,,143,140,140,,143,140,140,,143,140,140,,143,139,,143,,140,143,140,,143,140,140,175,172,172,,175,173,162,,175,172,172,,172,172,175,,175,172,172,,175,164,171,175,,160,175,160,,172,172,175*236,224,224,,236,224,236,,236,236,236,,236,236,236,,236,236,236,,236,224,228,236,,224,236,224,,236,236,236*Z0:R3:B2*4,1:0:0,0:A(50),B(50),G(50),S(50),P(50),R(50),Z(50):(0,0)(256,1),,B+HX12564:(XZ,0,0):(X2Z,1,0):(XZ,4):(X2Z,5)::(0,0)(256,1),A,G:(0,4)(256,5),B,G+X12568:(XZ,30):(X4Z,31):(X1,40):(X3,41)+Ƚ(X1Z,50):(XZ,51):(XZ5,50):(X4Z,51):X:(0,40)(256,41),S,G:(0,30)(256,31),G,G:(0,50)(256,51),P,G ,W3:R,B:(0,60)(256,61),,B:(0,64)(256,65),,B:(0,60)(256,61),R,G:(0,64)(256,65),Z,G,4,1:1:0,0:4 -"BM0,54C0U42R20":(16,24),16,0,.8,.8,.17:"BD22BR4F2RDRM+2,+17L8U4LU7LU3L2UL2UL7D16NL8U16BU7U12R8DR2DRFRD2RD2LD2LGLGLDL8"-"BR25BD23M+12,-42R10M+10,+42L8M-2,-8NL11BU6BL2M-3,-14LM-3,+14NR7BD6BL2M-2,+8NL8BR28U42R10D42NL10BR8U42R16M+14,+32U32R10D42L16M-14,-32D32L10".+"BR48U42R20":(154,24),16,0,.8,.8,.17:(154,44),16,0,.8,.8,.17:"BD42NR4L20R9BU6U12R8DR2DRFRD2RD2LD2LGLGLDL8BU18U12R8DR2DRFRD2RD2LD2LGLGLDL8" .U(190,34),19,0,1.2:(190,34),11,0,1.2."BU18BR110NL8M-6,+42L12M-4,-26L2M-4,+26L12M-6,-42R9M+4,+26M+4,-26R12M+4,+26M+4,-26"/(10,14),0,0:(50,14),0,0:(74,14),0,0:(94,14),0,0:(142,14),0,0:(190,14),0,0:(214,14),0,0/"4:1,1/C,I10182:(0,I)(256,I1),R,:I/i6I20262:(0,I)(256,I1),A,:/@I28322:(0,I)(256,I1),S,:/JI34362:(0,I)(256,I1),G,:/TI38422:(0,I)(256,I1),B,:0^I44462:(0,I)(256,I1),Z,:0'hI48562:(0,I)(256,I1),P,:07r380:4200`|3:(20,80),20,1,.9:(20,80),12,1,.90"BM44,96C1U32R14M+12,+22U22R10D32L14M-12,-22D22L10"1B"BR76U24L14U8R40D8L14D24L12BR26M+12,-32R18M+12,+32L12M-2,-8L13M-2,+8NL12M+2,-8BU6BR2U4R2U4R6D4R2D4NL8BD14BR22U32R22F2RF2RF4D6G4LG2LG2L12BU6R8E4U2H4L8D10BD6D10NL10"1o"BR28U32R32D8L12D4R12D8L12D4R12D8L20":1(8,78),1,1:(48,78),1,11I581022:(0,I)(256,I1),A,:I13801(112,66),3,1:(168,66),3,1:(202,66),3,1:(240,66),3,127"BM0,186NR26U16R8U44L8U12R2E2R2E4RU2RU2R16D66R8D16NL16"2y(72,130),36,1,.8,.2,.99:(72,160),36,1,.8,1.05,.48 2(72,130),18,1,.8:(72,160),18,1,.8,1.05,.452"BU22BR2R16BR34U14NG6BR18NU20ND16" 3(146,130),36,1,.8,.4,1.1:(146,160),36,1,.8,.92,.6 3F(146,130),18,1,.8:(146,160),18,1,.83e(218,160),36,1,.8,.69,.483(218,160),18,1,.8,.6,.453"BR96BD14NL18BU10L16U50R60D12L42D20"3&(10,184),1,1:(80,186),1,1 30(146,186),2,1:(218,186),2,14:II15004D""590:6004"NII48X START MENU TEXT4Eb A$(34)4Ol MN$4yvP134: A$(P): A$(P)"END"640:P4 A$(P)"END" A$(P)""44" RAINBOW ON TAPE"4" (C) FALSOFT, 1985"459 " (XX)=PAGE NUMBER OF LISTING":KK(MN$):KK(KK2):9KK)"IN "MN$"'S RAINBOW"5?5\ƀP17:A$(P),A$(P7):P5Ї:" *=MACHINE LANGUAGE PROGRAM"5ڇ" PRESS ANY KEY TO CONTINUE";5 ""74055: " (XX)= PAGE NUMBER OF LISTING"56  P1523:A$(P),A$(P9):P6P: " PRESS ANY KEY TO RETURN TO FIRST PAGE OF MENU"6y "PRESS ^ (UP ARROW) TO EXIT MENU";6*XX$: XX$(94) : : XX$""810:65064(32,45);6 OCTOBER7" (18) LINEDRAW"," (19) SPEAK2ME"," (19) CHARLIE"," (20) KROMICO"," (21) HANOI"7t" (21) RCIRCSIN"," (24) BALL"," (28) ELEVATOR"," (31) BYTECODR"," (38) NONINER"7" (46) PUNCQUIZ"," (60) ANIMATE"," (60) DEMO"," (67) ZONX"," (73) PUZLMAKR"8" (85) RADIALS"," (85) DANCE"," (88) 64KDRVR"," (88) !"(*,-245678MENU BAS LINEDRAWBAS#SPEAK2MEBASCHARLIE BAStKROMICO BAS$HANOI BAS%2RCIRCSINBAS?BALL BASELEVATORBAS&BYTECODRBAS'NONINER BAS|PUNCQUIZBASlANIMATE BAS)LDEMO BASZONX BASKPUZLMAKRBAS+RADIALS BASDANCE BAS.64KDRVR BAS/SOUND BINFISH BASF BIN0}FLARGE BIN1jSNDSTORYBAS2COCOCAD BAS3CADPRINTBASREMOVREMBASHEART BAS UHELPDRAWBAS GMESSAGE BAS9NMBRBMPRBAS SOUND*","(118) FISH","(109) F*"8f"(BNS) FLARGE*","(128) SNDSTORY","(134) COCOCAD","(148) CADPRINT"8$"(151) REMOVREM","(164) HEART","(168) HELPDRAW","(176) MESSAGE","(182) NMBRBMPR"8 END" (85) RADIALS"," (85) DANCE"," (88) 64KDRVR"," (88)& (0)&A31&B15&&A$&9 A$"" 20&J2 DIRECTIONS&m3 A$(94) BB1: B0 B0&4 A$(10) BB1: B31 B31&5 A$(8) AA1: A0 A0&6 A$(9) AA1: A63 A63&< COLORS&= A$"1" C1' > A$"2" C2'? A$"3" C3'-@ A$"4" C4'?A A$"5" C5'QB A$"6" C6'cC A$"7" C7'uD A$"8" C8'E A$"0" 100'F(A,B,C)'P 20'd(A,B): 20&6 A$(9) AA1: A63 A63&< COLORS&= A$"1" C1' > A& :KROMICO&0:EXAMPLES OF GRAPHIC TITLES&F:BY BILL BERNICO&^(:708 MICHIGAN AVE.&x2:SHEBOYGAN, WI 53081&<:(414) 459-7350&F:&P3,1:1,1:&ZX1 :START PAINTING WITH COLOR #1'd:LINES 110-240 DRAW AND PAINT "KROMICO" IN FAT LETTERS'Bn"BM2,1D70R12U25F25R214U10L209H25E35L16G25U25L11" :K 'Qx(6,7),X,4'"BM40,57U44R25F6D14G6L10F18L12H10D10L8BU38BR8R8F4D6G4L8U14" :R'(44,55),X,4'"BM78,52U32E6R20F6D32G6L20H6BR10BU2UF3R8E3U25H3L9G3D25" :O'(80,52),X,4(-"BM118,57U42R10F8E8R10D42L10U26G8H8D26L10" :M(?(120,55),X,4(_"BM163,57U42R10D42L10" :I(q(165,55),X,4("BM180,46U23E7R20F7D6L8U3H3L11G3D22F3R11E3U3R8D6G6L21H6U4" :C((182,44),X,4) "BM221,50U28E6R20F6D28G6L20H6BR10BU2UF3R8E3U21H3L9G3D21" :O)(224,52),X,4)`:LINES 260-330 DRAW "SOFTWARE" IN SMALLER LETTERS (NO PAINTING))"BM75,80U2H2L4G2D4F2R4F2D4G2L4H2U2" :S)"BR14D2F2R4E2U12H2L4G2D11" :O)"BR16D3U9NR6U7R9" :F)""BR7R11L6D16U16BR12" :T*,"D12F4E4NU6F4E4U12BD16BR7" :W*(6"U12E5F6D5NL9D6" :A*J@"BR6U16R6F2D4G2L6R2F6D2" :R*eJ"BR6NR9U8NR6U8R9" :E*|T440 :TIME DELAY*^:LINES 360-400 TRY DIFFERENT SCREEN STYLES*h4,1:1,0:440*r1,1:1,1:440*|4,1:1,1:440*3,1:1,0:440+1,1:1,0:440+^XX1 :AFTER ALL 6 SCREEN STYLES ARE TRIED, PAINT WITH A DIFFERENT COLOR+ X4 80 :REPEAT AFTER ALL FOUR COLORS ARE TRIED+3,1:1,1::110 :ERASE SCREEN AND START OVER+T11500:T:1,1:440*3,1:1,0:440+/&d:--TOWERS OF HANOI&;n: D-C DAVID A CROMLEY, 1984&Qx 4: 3,1: 3,2&^: 1,0&N08: NRN: TN(3),TS(3,16),TC(3,16)& X43 213 85& (X,0)(X,191),: X&T12: T31: I1 N: TN(2)1'TS(2,1)I: TC(2,1)I(I3)33' 220: I'.T11: T22: T33: 340'9ҁ 210'O:--MOVE ONE DISC'jN1TN(T1): N3TN(T3)1'TN(T1)N11: TN(T3)N3'XSTS(T1,N1): TS(T3,N3)XS'XCTC(T1,N1): TC(T3,N3)XC'X1T18542: X3T38542'Y1194N112: Y3194N312("XR44(XSNR19)2(., XC,2: Y0 9(P6 (X142,Y1Y)(X142,Y1Y),(r@ (X3XR,Y3Y)(X3XR,Y3Y),(J (X1,Y1Y,3): Y: (T:--SUBROUTINE(^ N0 (hTT2: T2T3: T3T: NN1: 340(rTT2: T2T3: T3T: 220)|TT1: T1T2: T2T: 340).TT1: T1T2: T2T: NN1: 6 (X142,Y1Y)(X142,Y1Y),(r@ (X3XR,Y3Y)(X3XR,Y3Y),(J (X1,Y1Y,3): Y: (T:--SUBROUTINE(^ N0 (hTT2: T2T3: T3T: NN1: 340(rTT2: T2T3: T3T: 220)|TT1: T1T& :ELEVATOR&&:BY BILL BERNICO&>:708 MICHIGAN AVE.&X(:SHEBOYGAN, WI 53081&m2:(414) 459-7350&t<:&FL$(128):A$(10,191):B$(191):C$B$B$B$L$:D$(159):E$(2,191):TY$(156):BY$(147)&P3:@498,A$;'Z@466,C$;C$;E$;'d@434,A$;'"n@402,C$;C$;E$;'0x@370,A$;'D@338,C$;C$;E$;'R@306,A$;'f@274,C$;C$;E$;'t@242,A$;'@210,C$;C$E$;'@178,A$;'@146,C$;C$;E$;'ȇ@114,A$;'҇@82,C$;C$;E$;'܇@50,A$;'@18,B$;"elevator";B$;( @0,"GOING UP OR";(!@32,"DOWN (U/D)?";(6I$:I$""260(g I$"U" @8," ";:@32,(11,143);: 360( I$"D" @6," ";:@37," ";: 300(" 80(,S180:N55:V1113: Y85 469 64(6@Y,TY$;:420(@@Y,D$;:S,1:V,N:420)J@Y,BY$;:420)*T@Y,L$;:@Y4,L$;:420)F^SS5:NN1:VV64:Y:)nhS150:N49:V1497: Y469 85 64)r@Y,BY$;:420)|@Y,D$;:S,1:V,N:420)@Y,TY$;:420)@Y,L$;:@Y4,L$;:420)SS5:NN1:VV64: Y:)K1200:K:& :************************&?:* BYTEMASTER CODER *&^:* BY R. BARTLY BETTS *&}:* 3351 LIPSCOMB *&:* FORT WORTH, TEXAS *&:* 76110 *&:************************&:USE THIS PROGRAM TO INPUT' :MACHINE LANGUAGE CODE INTO'9 :MEMORY. USE THESE KEYS:'Y :=GET NEW START ADDRESS'x :RIGHT ARROW=AHEAD 1 BYTE' :LEFT ARROW=BACK 1 BYTE':UP ARROW=BACK 8 BYTES':DOWN ARROW=AHEAD 8 BYTES':<-> OR <=> = BACK 24 BYTES(:<+> OR <;> = AHEAD 24 BYTES(3: = PREPARE TO SAVE(Q:THE NUMBER KEYS AND THE(q:ALPHABET CHARACTERS A - F(:CAUSE A VALUE BO BE PUT (:INTO MEMORY(:(:(:(d:300,&H7FE0(i 950(nV32(x M(24))A$(1)"BYTEMASTER CODER")!A$(2)"R.BARTLY BETTS"):A$(3)"JANUARY 1985")S: SET UP SCREEN)j: GET ADDRESS)x T1 3) 16(A$(T))2) A$(T))) 790)ȇ@V12," START ADDRESS IN HEX";)҉ BG$)ԇ@V12,(32,32))B("&H"BG$)*BBB* T0 23*ABB$((BB)): (BB$)2 BB$"0"BB$*Q@M(T),BB$;*~DD1:@M(T)1282D,(BB);: D7 D0*CR(BB): CR31 @M(T)256,(CR) : @M(T)256,"XX*BBBB1* T*D0*"A$(128):B$(32)*,P0+1: KEYBOARD INPUT+02: TO EXAMINE AND CHANGE+O6 P23 P0:BB24: 230+m@ P0 P0:BB24: 230+}B D7 D0+JMM(P): C(M1024):H$""+T@96, "*"(BP)"*";+^ C63 GC64 : GC64+c: WAIT FOR KEYPRESS, d: AND PRODUCE CURSOR,1hK$: M1024,G: K$"" 360,@r M1024,C,Yw: LOOK FOR VALID,lx: KEYPRESS,| K$(94) PP8: 310, K$(10) PP8: 310, K$(8) PP1:DD1: 310, K$(9) PP1:DD1: 310- K$(12) 660-0 K$"+" K$";" BBP24: 230-X K$"-" K$"=" BBP24: 230-i… K$"N" -ą K$"R" 840-: LOOK FOR INVALID-: KEYPRESS-̅ (K$)48 (K$)70 360-օ (K$)57 (K$)65 360. : INCREMENT MEMORY.(: IF END OF DISPLAY.F P0 BB24:P1: 230.e P24 BB24:P1: 230.: PRINT TO SCREEN.: AND GO TO NEXT CHAR.@M,K$;.H$H$K$.MM1. : ROUTINE FOR SECOND.: CHARACTER INPUT/C(M1024)/& C63 GC64 : GC64/5& M1024,G/M0K$: K$"" 560/o: (K$)48 (K$)70 560/D (K$)57 (K$)65 560/N M1024,(K$)64/S: ADD UP INPUT VALUES/T: AND POKE IN MEMORY/XH$H$K$0bPK("&H"H$)0l BP,PK0;v PK16 @M,(PK); : @M1,(PK);0axDD1:@MD3128,PK;: D7 D00zz@M2561,(PK)" ";0PP10 3100: SAVE PROGRAM TO TAPE0: OR DISK ROUTINE00A$(1)"BYTEMASTER CODER"1 A$(2)"==================="1%A$(3)"SAVE PROGRAM"13 65494,01A T1 31^ 16(A$(T))2) A$(T)1fƋ T1Ї@V42,"* START (HEX)...";: BM$:BM("&H"BM$)1ڇ@V52,"* END (HEX)...";: EM$:EM("&H"EM$)2 @V62,"* EXEC (HEX)...";: EA$:EA("&H"EA$)2+ "NAME OF PROGRAM...";: NP$2M (NP$)1 (NP$)8 7502j:"TAPE OR DISK (T/D)?"2K$: K$"" 7532 K$"D" 760 : K$"T" 770 : 7532NP$NP$"/BIN":M NP$,BM,EM,EA2 7802M NP$,BM,EM,EA2 3% "ANY MORE PROGRAM TO BE INPUT (Y/N)?"3>K$: K$"" 7823d K$"N" 787 : K$"Y" 7823n 1003t3: DATA FOR POSITION3: OF SCREEN DISPLAY3 X160 224 323 T0 21 33*M(X440T3)XT3234 T,X3>4C: PROGRAM TO4-D: READ REGISTERS4=H1&H7FE04JRA1(0)4h\R(1)(&H7FF8):R$(1)"a"4fR(2)(&H7FF9):R$(2)"b"4pR(3)(&H7FFA):R$(3)"x"4zR(4)(&H7FFD):R$(4)"y"4R(5)(&H7FFC):R$(5)"u"4R(6)(&H7FFF):R$(6)"c"5CT0: T57 236 325%CTCT15=@T,R$(CT)"="R(CT);5L T: 3605h: DATA FOR REGISTER5: READING PROGRAM5 T0 215 AA5ʒ &H7FE0T,AA5ԋ5ސ6 183, 127,248,247,127,249,191,127,250,255,127,252,16,191,127,253,31,168,183,127,255,57325%CTCT15=@T,R$(CT)"="R(CT);5L T: 3605h: DATA FOR REGISTER5: READING PROGRAM5 T0 215 AA5ʒ &H7FE0T,AA5ԋ5ސ6 183, 127,248,247,127,249,191,127,250,255,127,252,16,191,127,253,I 8 S(32,16)& T(97,2)0( 4,1?2AB$"NONE"E<OF 0,0cP@40,"graphic";qZ 1071,32d@48,"animator";n@73,"BY WAYNE THUME"x@133,(21,"x")@160," x<1> CREATE PICTURE x" " x x"&" x<2> SEE ANIMATION x"N " x x"p" x<3> SAVE ANIMATION x"" x x"" x<4> LOAD ANIMATION x"ȇ" x x"҇" x<5> QUIT x" ܇@453,(21,"x")A$) A$"" 230Q (A$) 270,1270,1430,1810,2120\ 230q CHOOSE PICTUREw""LAST PICTURE: ";AB$,@224,"WHICH PICTURE ";6 AB$@ (AB$)1 (AB$)96 300J CREATE PICTURET 1,1 ^J(0):K(1)%hJ1J3.57:K1K2.82Dr(J1,K1)(J131,K115),S,Gc|(J1,K1)(J131,K115),S,}C(65280):TJ1:UK1 C126 RX: 440 C254 RX: 440(J1,K1)(J131,K115),S, 330 ENLARGE PICTUREV(AB$):T(V,1)T:T(V,2)U̿ 0,08(J1,K1)(J131,K115),S,>N X15 46] Y7 22zC(J1(X15),K1(Y7)) C1 (X,Y,1) : (X,Y) Y,X START&CD15:CE7:D00C(CD,CE):@0,(32,143);DA$'N C1 (CD,CE):(CD,CE,1):: (CD,CE,1):(CD,CE)9X A$"" 580XbJ2J1(CD15):K2K1(CE7)xl P1 (CD,CE,1):(J2,K2)v P2 (CD,CE):(J2,K2) A$"S" (CD,CE,1):(J2,K2) A$"R" (CD,CE):(J2,K2) A$"X" 810 A$"C" 900 A$"G" 10004 A$"O" 1100K A$"Q" 1200eƅ A$(94) CECE1Ѕ A$(10) CECE1څ A$(8) CDCD1 A$(9) CDCD1 CD15 CD46 CD46 CD15 CE7 CE22 CE22 CE7  560 60'* SWITCH MODES?4 FL1 FL0:P0:H>FL1tH@0,"SWITCH TO OR ESET ";~RB$\ B$"" 850f B$"S" P1:p B$"R" P2:z 850 CLEAR SCREEN@0,"CLEAR SCREEN (Y/N)"B$ B$"" 920J B$"Y" 0,1:(T,U)(T31,U15),,BF: 1,0: 970] B$"N" 540h 920ʀ XI103 359 32ԇ@XI,(17,128);ދ XI: GET PICTURE@0,"GET WHICH PICTURE "; AC$:V(AC$) V1 V96 1010 1580 4,5-$(X,Y)(X31,Y15),S,G7. 4,1R8(T,U)(T31,U15),S,]B 440uL SEE HI-RES SCREENV 4,1` 1,1j "" 1130t 4,5~ 1,1 "" 1160 4,1 0,0 SAVE AND QUIT 1580(T,U)(T31,U15),S,G" 4,5=(X,Y)(X31,Y15),S,G 4,1Q쁥 60f SHOW ANIMATIONp 1,1y RJ1 X0 255 32 Y0 191 16( 4,52(X,Y)(X31,Y15),S,G< 4,1F(T(RJ,1),T(RJ,2))(T(RJ,1)31,T(RJ,2)15),S,PRJRJ1(Z (339)251 60Id (345)247 1390 : 1370Sn Y,X]x 60cm 60 END PROGRAMY1 X1024 1215 2 X,T(Y,1)Ȓ X1,T(Y,2)YY1܋ X @480," SAVE ON (T)APE OR (D)ISK"; A$: A$"" 1520 F@480," "; Z A$"D" 1650 n A$"T" 1720  1,1: 1510 " 60 , FIND AREA FOR PICTURE 6VA0 @ X0 255 32 J Y0 191 16 TVAVA1 ^ VAV h Y,X!r SAVE INFO ON DISK!-|@416,"NAME";: N$!=N$(N$,7)!TM N$,9728,15871,0!bN$N$"2"!xM N$,1024,1215,0! 60! LOAD FROM TAPE!‡@416,"NAME";: N$!N$(N$,7)!և@416,"POSITION TAPE AND PRESS ANY KEY.";! "" 1760"M N$,7680,13823,0"$N$N$"2"":M N$,1024,1215,0"D 60"W LOAD PICTURE"]"m&"NAME ";N$"}0N$(N$,7)"::@224,"LOAD FROM (T)APE OR (D)ISK?""DA$: A$"" 1860"N A$"D" 1900"X A$"T" 2000"b 1,1: 1850#lM N$#vN$N$"2"#M N$#$Y1#< X1024 1215 2#MT(Y,1)(X)#`T(Y,2)(X1)#jYY1#r X#|Ɓ 60#О:@224,"POSITION TAPE AND PRESS ANY KEY."#څ "" 2010#M N$#N$N$"2"#M N$#Y1$ X1024 1215 2$T(Y,1)(X)$$ T(Y,2)(X1)$.*YY1$64 X$@> 60$HH:X)#`T(Y,2)(X1)#jYY1#r X#|Ɓ 60#О:@224,"POSITION TAPE AND PRESS ANY KEY."#څ "" 2010#M N$#N$N$"2"#M N$#Y1$ X1024 1215 &$:****************************&G:* THE CO-CO PUZZLE MAKER *&j:* BY FRED B. SCERBO *&:*149 BARBOUR ST.,N.ADAMS,MA*&:* COPYRIGHT (C) 1985 *&:****************************& 4,1:0:1,1:3:3&(13)20'>0,0:0:1070,20:1071,8:1072,5:I11201311: A:I,A128:'`(@358," BY FRED B.SCERBO ";'2@390," COPYRIGHT (C) 1985 ";'<@422," PLEASE PRESS ENTER ";'FX$:X$(13)70(P-125,,,,,127,124,127,,127,112,127,,124,124,127,,124,124,127,,127,112,112,,127,124,124,,,,({Z,-113,,,,127,124,124,,127,112,127,,115,124,112,,115,124,112,,127,112,112,,127,124,124,,,,(d,,-100,,,124,112,112,,124,124,124,,124,124,124,,124,124,124,,124,124,124,,124,124,124,,,,)#n,,,-125,,,,63,50,49,63,,55,60,59,,63,49,62,,63,60,60,,63,60,63,,,,,)lx,,,,-113,,,63,52,56,63,,63,60,63,,63,61,50,,63,60,60,,63,61,50,,,,,),,,,,,,60,48,48,60,,60,48,60,,60,48,60,,60,60,60,,60,48,60,,,,,)0:@232," PLEASE STAND BY ";)Ȃ START PICTURE HERE* 4:0:3:0,0:JL()*E(112,102),76,3,.75,.29,.73:(144,102),76,3,.75,.78,.22*"BM128,52C3L8M-10,-4UL10BM128,52R8M+10,-4UR10BM128,154L8M-20,+3BM128,154R8M+20,+3"+>"C3BM128,90G20R40H20BL20L40E20F20BR40R40H20G20BM128,122L6D6L12U6L12D6L12U6L20F12R4DR4DR4DR8U4R12D4R12U4R12D4R12U4R12D4R8UR4UR4UR4E12L20D6L12U6L12D6L12U6L6"+^(128,56),3,3:(128,34),1,1+(128,102),76,1,.85,.35,.17:(128,102),58,1,.95:(128,102),30,1,1.9+"BM122,50C2NR4U10H10R4F10D10R4U10H10R4F10D10L4"+Ђ START PUZZLE HERE,ڌ A(25),B(25),C(25),D(25),E(25),F(25),G(25),H(25),I(25),J(25),K(25),L(25),M(25),N(25),O(25),P(25),Q(25),R(25),S(25),T(25),U(25),V(25),W(25),X(25),GD(6,4),NN(24),MM(24),Z(24),Y(24),AA(25),BB(25),I14:Y16:KK1:GD(Y,I)K:Y,I-B3212832:A3219232:QQ1:Z(Q)A:Y(Q)B:A,B-@B3212832:A3219232:TT1- T 2080,2090,2100,2110,2120,2130,2140,2150,2160,2170,2180,2190,2200,2210,2220,2230,2240,2250,2260,2270,2280,2290,2300,2310-A:B:2320- (A,B)(A31,B31),A,G:. *(A,B)(A31,B31),B,G:.*4(A,B)(A31,B31),C,G:.G>(A,B)(A31,B31),D,G:.dH(A,B)(A31,B31),E,G:.R(A,B)(A31,B31),F,G:.\(A,B)(A31,B31),G,G:.f(A,B)(A31,B31),H,G:.p(A,B)(A31,B31),I,G:.z(A,B)(A31,B31),J,G:/(A,B)(A31,B31),K,G://(A,B)(A31,B31),L,G:/L(A,B)(A31,B31),M,G:/i(A,B)(A31,B31),N,G:/(A,B)(A31,B31),O,G:/(A,B)(A31,B31),P,G:/(A,B)(A31,B31),Q,G:/(A,B)(A31,B31),R,G:/(A,B)(A31,B31),S,G:0(A,B)(A31,B31),T,G:04(A,B)(A31,B31),U,G:0Q(A,B)(A31,B31),V,G:0n(A,B)(A31,B31),W,G:0 (A,B)(A31,B31),X,G:0 I1240 K(24): NN(K)123300 $NN(K)1:MM(I)K:I0 .2:(21,21)(234,170),,BF1 8T0:B3212832:A3219232:TT1:LMM(T)1 B L 2400,2410,2420,2430,2440,2450,2460,2470,2480,2490,2500,2510,2520,2530,2540,2550,2560,2570,2580,2590,2600,2610,2620,26301 L(A,B)(A31,B31),,B:A,B1 V0:26401 `(A,B)(A31,B31),A,:2 j(A,B)(A31,B31),B,:2" t(A,B)(A31,B31),C,:2? ~(A,B)(A31,B31),D,:2\ (A,B)(A31,B31),E,:2y (A,B)(A31,B31),F,:2 (A,B)(A31,B31),G,:2 (A,B)(A31,B31),H,:2 (A,B)(A31,B31),I,:2 (A,B)(A31,B31),J,:3 (A,B)(A31,B31),K,:3' (A,B)(A31,B31),L,:3D (A,B)(A31,B31),M,:3a (A,B)(A31,B31),N,:3~ (A,B)(A31,B31),O,:3 (A,B)(A31,B31),P,:3 (A,B)(A31,B31),Q,:3 (A,B)(A31,B31),R,:3 (A,B)(A31,B31),S,:4 (A,B)(A31,B31),T,:4, ((A,B)(A31,B31),U,:4I 2(A,B)(A31,B31),V,:4f <(A,B)(A31,B31),W,:4 F(A,B)(A31,B31),X,:4 P4,1:1,1:Z1:QQ0:RR04 ZX$:(Z(Z),Y(Z))(Z(Z)31,Y(Z)31),,B:X$(8)2680:X$(9)26905 dX$"S"2880:X$(13)27105; n(Z(Z),Y(Z))(Z(Z)31,Y(Z)31),,B:26505a xPZ:ZZ1:Z0Z24:2700::27005y PZ:ZZ1:Z25Z15 (Z(P),Y(P))(Z(P)31,Y(P)31),,B:26505 (Z(Z),Y(Z))(Z(Z)31,Y(Z)31),AA,G:(Z(Z),Y(Z))(Z(Z)31,Y(Z)31),,BF5 QQZ6H X$:(Z(Z),Y(Z))(Z(Z)31,Y(Z)31),,B:X$(8)2760:X$(9)27806j X$"S"2880:X$(13)28106 (Z(Z),Y(Z))(Z(Z)31,Y(Z)31),,B:27306 PZ:ZZ1:ZQQ ZZ16 ҅Z0Z24:2800::28006 PZ:ZZ1:ZQQ ZZ16 Z25Z17& (Z(P),Y(P))(Z(P)31,Y(P)31),,B:27307 ZQQ 2730: (Z(Z),Y(Z))(Z(Z)31,Y(Z)31),BB,G:(Z(Z),Y(Z))(Z(Z)31,Y(Z)31),,BF7 RRZ7 LMM(RR)7 (Z(RR),Y(RR))(Z(RR)31,Y(RR)31),AA,:(Z(RR),Y(RR))(Z(RR)31,Y(RR)31),,B7 "LMM(QQ)8I ,(Z(QQ),Y(QQ))(Z(QQ)31,Y(QQ)31),BB,:(Z(QQ),Y(QQ))(Z(QQ)31,Y(QQ)31),,B8Y 6TY0:26408 @:0,0:TD:SC(TD356):MNSC108 J:0,0:@132,"YOU TOOK "MN" MINUTES. "8 T@196,"PRESS

FOR PICTURE."8 ^@260,"PRESS TO RUN."9 hX$:X$"P"2930:X$"R" 30 :29109T r4,1:1:1,1:3:2:T0:B3212832:A3219232:TT19 | T 2400,2410,2420,2430,2440,2450,2460,2470,2480,2490,2500,2510,2520,2530,2540,2550,2560,2570,2580,2590,2600,2610,2620,26309 A,B9 X$:X$(13)2890:296030:X$"R" 30 :29109T r4,1:1:1,1:3:2:T0:B3212832:A3219232:TT19 | T 2400,2410,2420,2430,2440,2450,2460,2470,2480,2490,2500,2510,2520,2530,2540,2550,2560,2570,2580,2590,2600,2610,2620,26309 A,B9 X$:X$(13)2890:2960& :DANCE&% :(C) 1984, J.KOLAR&13::4&A(A164:B102&`2 S(2),T(2),U(2),K(2),L(2)&<"BM2,0R4F2D4G2L4H2U4E2BFR2F2D2G2L2H2U2E2"&B"BM50,4R8"&C"BM20,0F8"&D"BM70,8E8"&E"BM80,0BR4D8"&F(0,0)(8,8),T,G&K(20,0)(28,8),S,G'L(50,0)(58,8),U,G',M(70,0)(78,8),K,G'CN(80,0)(88,8),L,G'NP:1,1'en Z2000 1946 9'~o R30 80 5:CZ'X(AR(C.83)):Y(BR(C.83))'Ԡ50,1'(X40,Y10)(X32,Y2),U,:M130:((X40,Y10)(X32,Y2),K,:M130:(2(X40,Y10)(X32,Y2),S,:M130:(_(X40,Y10)(X32,Y2),L,:M130: ((X40,Y10)(X32,Y2),T,(R,Z( R90 90 20: Z412 48 4:CZ(X(AR(C)):Y(BR(C)):50,1((X40,Y10)(X32,Y2),T,) (X40,Y10)(X32,Y2),T,:Z,R)"V25O3L8CO2FEFEO1BO2CC V15O3L8CO2FCFL16CFCCO1BL8O2CEEC V25O3L8CO2GECO1BO2CFC V25O3L8O3CO2BBGL4EDL8EDL4ECO1BO2L2C"),X12000:::80(X(AR(C)):Y(BR(C)):50,1((X40,Y10)(X32,Y2),T,) &:WHEN YOU SAVE A FILE, WHATEVER IS IN MEMORY IS RUINED BY THE SAVING PROCESS, SO THAT IF YOU WANT TO LISTEN TO THE FILE YOU JUST SAVED, YOU WILL HAVE TO RELOAD IT.& :460'100,&H1AFF:65283,52:(512)0M"SOUND":512,85'65344,0'('>2" ANALOG TO DIGITAL CONVERTER"']<" BY JEREMY SPILLER"'|F" MODIFIED FOR 64K"'P" BY STEPHEN GUNN"'Z'd"1. TEST VOLUME OF TAPE RECORDER"'n"2. READ TAPE (DIGITALIZE)"(x"3. SAY DATA (PLAYBACK)"("4. SAVE DATA"(."5. LOAD DATA"(4(L" PICK A NUMBER";A(k A 190,240,290,330,390(u 40({(ȇ"TO GET BACK TO MENU PRESS RESET THEN RUN THIS PROGRAM."(҇(܇"SET YOUR TAPE RECORDER TO THE CORRECT VOLUME")柈: &H1B49)^:"TYPE A NUMBER 1-15 TO CONTROL THE SPEED. ENTER=DEFAULT OF 6. =>";S:S0 S6)m S15240)}&H1B0B3,S)"READING TAPE":: &H1B00:)40*":"TYPE A NUMBER 1-15 TO CONTROL THE SPEED. ENTER=DEFAULT OF 6. =>";S: S0 S6*, S15 290*86:"SAYING":&H1B353,S: &H1B25*A@40*nJ:"ENTER FILE NAME: ";A$:(A$)7330*|T"SAVING"*^M A$"1",&H1C00,&H7FFF,0*h &H1B69:M A$"2",&H1C00,&H7FFF,0*r &H1B80:M A$"3",&H1C00,&H3700,0*|30+ :"FILE TO LOAD: ";A$+"LOADING"+2M A$"3":&H1B97+HM A$"2":&H1BAF+VM A$"1"+_30+p:*PCLEAR 0*+̒&H3C0,&H5F:&H3C1,&H5C+֒&H3C2,&H96:&H3C3,&HBC+&H3C4,&H1F:&H3C5,&H02+&H3C6,&H7E:&H3C7,&H96:&H3C8,&HA3+ &H3C0,20OAD: ";A$+"LOADING"+2M A$"3":&H1B97+HM A$"2":&H1BAF+VM A$"1"+_30+p:*PCLEAR 0*+̒&H3C0,&H5F:&H3C1,&H5C+֒&H3C2,&H96:&H3C3,&HBC+&H3C4,&H1F:&H3C5,&H02+&H3C6,&H7E:&H3C7,&H96:&H3C8,&HA3+ &H3C0,s003 #'3 z94R &&54v2vb03d1 b3jd&2j54V2{bbVJ&ja&2e54@ 8&54@ % &546H1546H1 51E1k1b14110940\4 0j&55!"`%`" 9!{%`! "[%`" 9!"940!%0XI054v2q3e"įFab*+'{@"!=FFob a"`%`a+['W!AWWc*%!+?'=AP!F:Foc +)!$Ab =0c:DF#H AB!AC2o5DFAZ&B0C1j&94OC5!L'1: Z&*`*섷큌%%3&333FH/@:0!2t232w232z23#*02V2}3+@ 2Y2}33@02\2}3;* 2_2}3C@2b2}3K 02e2}3S*2h2}3[ 2k2}3c 2n2}3k@2q2}0!L'1: Z&*`*섷큌%%3&333FH `008x#'8xz94R &&54v2vb03d1 b3jd&2j54V2{bbVJ&ja&2e54@ 8&54@ % &546H1546H1 51E1k1b14110940\4 0j&55!"`%`" 9!{%`! "[%`" 9!"940!%0XI054v2q3e"įFab*+'{@"!=FFob a"`%`a+['W!AWWc*%!+?'=AP!F:Foc +)!$Ab =0c:DF#H AB!AC2o5DFAZ&B0C1j&94OC5(*`*MENU OCT  F( ʪ * RLIE 019tKROMICO 020$HANOI 021%2RCIRCSIN021?BALL 024ELEVATOR028&BYTECODR031'<< <<":0:<> ANIMATE 060)LDEMO 060ZONX 067KPUZLMAKR073+RADIALS 085DANCE 08<@PPP P P0U@F 109%FLARGE BNS0FISH 1181SNDSTORY1282COCOCAD 1342( +* HEART 164 UHELPDRAW168 GMESSAGE 1768NMBRU9 ?00????<!238238MB28k87>2k8k8 2n8k8 28k8 2n8k8M28k8U 28k8F278 2n783<2n78P(278278脼2}78 238$239c2z79dp2z792}792z79 M2559(d!24902(26*98P2V6*9@X8279HV8279PX 2t79Xf279`j2t79hFp2w39pM2q79x<-2Y6*9FM3559X239273F5592<3559,,2_392h79X!2392z792z79X279U!279VM2z79X 279WL2t79M>2t797B2t7:aM2w7:<*2w7:<2w7:F2w7: M23:(623:0B2}7:80C2z7:@X 2e4:HD(23:P,&23:X_<2309hFp2w39pM2q79x<-2Y6*9FM3559X239273F5592<3559,,2_392h79X!2392z792z79X279U!279VM2z79X 279WL2t79M>2t797B2-&:&%: COCOCAD VR 2.0&D: (C) 1985 BY P.KERCKHOFF&h: 4335 HENDRIX WAY SAN JOSE CA&o:&: A cad SYSTEM FOR THE COLOR&: COMPUTER. REQUIRES 32K, DISK&: X-PAD AND A GRAPHICS PRINTER&:& :'> 500,&H64FF::"COCOCAD VR 2.0 P.KERCKHOFF CLEAR PAGE MEMORY (Y/N)";A$:120'X(0)4:Y(1)4:P((1 (&HFF00))33): X3 X3 : X252 X252' Y3 Y3 : Y188 Y188'((2(0,0)(6,6),C1,G:(0,0)(6,6),,BF:"BM3,3XC$(N);":(0,0)(6,6),C2,G:(0,0)(6,6),C1,:(Q<(X3,Y3)(X3,Y3),C1,G:(X3,Y3)(X3,Y3),C2,:(qF(X3,Y3)(X3,Y3),C1,:)3P (A$)62 90 : (A$)31 1120,1130,1140,1150,1160,1170,1180,1190,1200,1210,1220,1230,1240,1250,1260,1270,1280,1290,1300,1310,1320,1330,1340,1350,1360,1370,1380,1390,1400,1410,1420)Z (A$)62 1430,1440,1450,1460,1470,1480,1490,1500,1510,1520,1530,1540,1550,1560,1570,1580,1590,1600,1610,1620,1630,1640,1650,1660,1670,1680,1690,1700*d C1 (T$):"BM=TX;,=TY;":A$(T$,C,1): 80:TXTX5: C:*n(221,9)(236,13),,BF:T$(768AD(PG)A(PG)):T$(T$,(T$)1):TX221:TY13:100:(T$)1"EEO3EEO2EEO1EEO4EE": : +x C$(3),A(8),AD(8),C1(1),C2(1),C3(1),L1(6),L2(6),L3(6),L4(6),CM(15),CO(15),MD(255),MO(255):B$"V31L100O4B":NF$"NONE"+C$(0)"BHNL2U2BR2D2R2BD2L2D2BL2U2L2":C$(1)"BH3ND2R2BR2R2D2BD2D2L2BL2L2U2":C$(2)"R3":C$(3)"NF2H2ND3R3": X0 8:A(X)X768&H6500: A$"Y" A(X),0: : +PG0:1710:MN0:N3:50,G20:60: P3 Y20 70: 150 : 70: F(X20): F6 150 : (F191,1)(F1920,20),,B:FF1:B$, 20: Y20 P3 160 : MN0 F 190,290,440,290,520,290,180 : F 180,580,290,680,700,740,820,B$:FF1:(F191,1)(F1920,20),,B:N3:50:150-c(0,0)(134,20),,BF:X06:(X191,1)(X1920,20),,B:: MN1 MN0: 1760:170 : MN1: 1770:170-vN0:50:LX1-ȁ20:P3200-ҁ20:60:Y20220:70:LX1170:(LX3,LY3)(LX3,LY3),C3,:170.܁70:P3X1X:Y1Y:210:B$:XX1:YY1.V LX1 LXX:LYY:(LX3,LY3)(LX3,LY3),C3,G:"BM=LX;,=LY;XC$(1);":200.(LX3,LY3)(LX3,LY3),C3,: Y27 170.X(X4)4:Y(Y4)4/(X,Y)(LX,LY),:AD(PG),52:AD(PG)1,X:AD(PG)2,Y:AD(PG)3,LX:AD(PG)4,LY:AD(PG)AD(PG)5:AD(PG),0:110:LX1:200/(PX,PY)(LX,PY),L1,G:(PX,PY)(PX,LY),L2,G:(LX,LY)(PX,LY),L3,G:(LX,LY)(LX,PY),L4,G:(PX,PY)(LX,LY),,B:/(PX,PY)(LX,PY),L1,:(PX,PY)(PX,LY),L2,:(LX,LY)(PX,LY),L3,:(LX,LY)(LX,PY),L4,:/"N0:5006,20:60: Y20 70:170 : P3 70:3000U670:LXX:LYY:PXLX:PYLY0g@20:P33200J270: 20: Y20 280: 170 : P3 280:PXX:PYY: 3301&TAD(PG)1,LX:AD(PG)2,LY:AD(PG)3,PX:AD(PG)4,PY:AD(PG)5,0: F2 AD(PG),53:AD(PG)AD(PG)5:110:2901[^ F4 410 : (LX,LY)(PX,PY),,B:AD(PG),55:1hXPX:YPY: XLX PXLX:LXX:XPX1r YLY PYLY:LYY:YPY1|AD(PG)AD(PG)5:110: X1X LX 8:Y1X14: Y1LX Y1LX22(X1,Y)(Y1,Y),:(X1,LY)(Y1,LY),:: X1Y LY 8:Y1X14: Y1LY Y1LY2b(X,X1)(X,Y1),:(LX,X1)(LX,Y1),::2902(LX,LY)(PX,PY),,BF: PXLX XPX:PXLX:LXX2 PYLY YPY:PYLY:LYY3*PX(PX8)8:PY(PY8)84: XPX LX 8: YPY LY 8:(X,Y): Y,X:AD(PG),54:AD(PG)AD(PG)5:110:2903T$"COMPONENTS":850:T$"NEXT USE":TX55:TY115:100:T$"PREV":TX55:TY107:100:N3:50:N1:"BM65,65":870420:60:70: Y27 B$:(50,50)(110,120),MO,:170 : Y100 Y118 X55 X110 P3 450 : B$4̅ X80 (65,65)(65XW,65YW),CM,G:(50,50)(110,120),MO,:480 : "BM65,65C5":870:"BM65,65C0": Y109 470 : NN1: N25 870:450 : N1:870:4504NN1: N0 870:450 : N24:870:4504205r(X,Y)(XXW,YYW),CO,G:(X,Y)(XXW,YYW),CM,:LXX:LYY:20: P3 Y26 (LX,LY)(LXXW,LYYW),CO,: 4905 Y27 (LX,LY)(LXXW,LYYW),CO,: 1705B$:AD(PG),N:AD(PG)1,LX:AD(PG)2,LY:AD(PG)AD(PG)3:AD(PG),0:110:4806N2:506120:60:70: P3 Y26 530 : YY26Y27 170 : B$:AD(PG),51:AD(PG)1,X:AD(PG)2,Y:AD(PG)AD(PG)3:110:X1AD(PG)6&60:A$:70: A$"" 550 : B$: A$(13) AD(PG),255:AD(PG)AD(PG)1:AD(PG),0:110:5207P0 A$(8) AD(PG)X1 AD(PG)AD(PG)1:XX5:(X,Y)(X5,Y6),,BF:550 : 5507:AD(PG),(A$):AD(PG)AD(PG)1:"BM=X;,=Y;":80:XX5:110:5507DN0:507N20:60: P3 Y26 70:590:70: Y27 1707XB$:LXX:LYY:PXLX:PYLY8b20:P36108Ll270:20:Y26280:170:P3280:PXX:PYY:6208v280:B$:XW(PXLX):YW(PYLY): (XWYW)10000 580 : (LX,LY)(PX,PY),MD,G:AD(PG)1,PX:AD(PG)2,PY:AD(PG)3,LX:AD(PG)4,LY9l20:(X,Y)(XXW,YYW),MO,G:(X,Y)(XXW,YYW),MD,:(X,Y)(XXW,YYW),MO,:Y27170:P3X1X:Y1Y:640:XX1:YY1:(X,Y)(XXW,YYW),MD,9AD(PG),56:AD(PG)5,X:AD(PG)6,Y:AD(PG)AD(PG)7:AD(PG),0:110:580: (166,13)(171,8),,BF:A$:(166,13)(171,8),,BF: A$"0" A$"8" 680:uPG(A$):"BM166,13":80:(8,28)(247,183),,BF:1790:X82488:Y281848:(X,Y):Y,X:110:170;4T$" CLEAR":850:T$"YES NO":TX55:TY115:100:N3:50:TX63:TY70:T$"DO YOU":100:TX60:TY80:T$"WANT TO":100:TX63:TY90:T$"CLEAR":100:TX55:TY100:T$"THE PAGE?":100;Ɓ20:60:70:Y27 B$:(50,50)(110,120),MO,:170 : Y100 Y120 X55 X110 P3 710 : B$;Ѕ X80 (50,50)(110,120),MO,:170<3ڒA(PG),0:AD(PG)A(PG):110:(8,28)(247,183),,BF:X82488:Y281848:(X,Y):Y,X:170<T$" DISK":850:T$"NAME":TX70:TY70:100:T$"LOAD":TX70:TY80:100:T$"SAVE":TX70:TY90:100:N3:50=20:60:70: Y27 B$:(50,50)(110,120),MO,:170 : Y60 Y90 X70 X90 P3 750 : B$=~ Y70 770 : :"FILE NAME =>";NF$:1,1:(170,5)(210,0),,BF:TY5:TX170:T$NF$:100:750= NF$"" NF$"NONE" 750 : Y80 780 : TX60:TY110:T$"LOADING":100:M NF$:A$"0": 690>S Y90 750 : TX60:TY110:T$"SAVING":100:M NF$,&H6500,&H7FFF,&H6500:(60,110)(90,105),,BF:750>4T$" QUIT":850:TX60:TY70:T$"SAVE TO":100:TX70:TY80:T$"DISK":100:T$"YES NO":TX55:TY115:100:N3:50?F>20:60:70: Y27 B$:(50,50)(110,120),MO,:170 : Y100 Y120 X50 X110 P3 830 : B$?H X80 (50,50)(110,120),MO,:740 : :"DO YOU WANT A PRINTOUT (Y/N)";A$: A$"Y" 1970 : "OK...BYE.":@RR(50,50)(110,120),MO,G:(50,50)(110,120),,BF:(51,51)(108,118),,B:(52,119)(109,119),:(109,52),:(51,60)(108,60),:TX54:TY57:100:@f N 880,890,900,910,920,930,940,950,960,970,980,990,1000,1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110Ap"BD15U15R13FRF4DFD2GDG4LGL13":XW23:YW18:::ANDAFz"BD15U15R12FRF4DFD RE2RF2G2LH2L DGDG4LGL12":XW28:YW18:::NANDA"BD16RE2UEU2EU2 HU2HUH2LR13FR2FRF2RF4 G4LG2LGL2GL12":XW25:YW16:::ORA"BD16RE2UEU2EU2HU2HUH2LR13FR2FRF2RF4 E2R2F2G2L2H2 G4LG2LGL2GL13":XW31:YW17:::NORB1"BD16U16FRFRFRFRFRFRFRFGLGLGLGLGLGLGLG":XW15:YW17:::BUFFERB"BD15U15FRFRFRFRFRFRFRF RER2FDGL2HU GLGLGLGLGLGLGLGL":XW20:YW17:::INVTRB"BD17RE2UEU2EU3HU2HUH2LBR4R8FR2FRF2RF4DG4LG2LGL2GL7RE2UEU2EU3HU2HUH2L":XW24:YW17:::XORCS"BD16BR2RE2UEU2EU2HU2HUH2LBR4R8FR2FRF2RF4 RE2RF2G2LH2L G4LG2LGL2GL8RE2UEU2EU2HU2HUH2L":XW32:YW17:::XNORC"BD21U19FRFRFRFRFRFRFRFRFRFGLGLGLGLGLGLGLGLGLGU6 BR3R2LDU2 BU7LR2":XW19:YW22:::OPAMPC"BD8R6NU5ND5E6U2D2G6F5U2G2R2FD2":XW12:YW16:::NPND&"BD8R6NU5ND5E6U2D2G2U2F2L2G4F6D2":XW12:YW16:::PNPDY"BD4R4E2F4E4F4E4F4E2R4":XW32:YW8:::H-RESTD"BR4D4F2G4F4G4F4G4F2D4":XW8:YW32:::V-RESTD"BD4R4NU4ND4BR4NU4ND4R4":XW12:YW8:::H-CAPD"BR4D4NL4NR4BD4NL4NR4D4":XW8:YW12:::V-CAPE' "BD4BR8 L4H2L2R2F2G2L2U4":XW7:YW10:::INPUTET"BD4R4E2R2D4L2H2":XW10:YW6:::OUTPUTE"BD3ER2FD2GL2HU2":XW8:YW8:::NOT DOTE$ "BD3BR2END2RND2RND2FDNL2DNL2GLNU2LNU2HUR2UR2":XW8:YW8:::CON DOTE."BR4D4L3F3E3L3":XW8:YW8:::GNDF(8"BD4R5ND4U4F4NG4RNU4ND4R5":XW15:YW8:::>DIODEF^B"BD4R5ND4NU4RNF4E4D4ND4R5":XW15:YW8:::F1509,18:1510,1:1511,9:1512,14:1513,2:1514,15:1515,23:1516,6:1517,5:1518,19:1519,20:1521,16:1522,18:1523,9:1524,14:1525,3:1526,5:1527,20:1528,15:1529,14*PU11000:1177,49:1178,49:1181,49:1182,50:1253,49:1254,51:X1600:X:1177,113:1178,113:1181,113:1182,114:1253,113:1254,115:B1600:B,U7,5:1518,19:1519,20:1521,16:1522