5 WIDTH 40:CLS 4:'DATEDTR 10 PRINT"********* Pete Blackwell ************" 15 PRINT"****** 1408 1/2 McFadden St. ********" 20 PRINT"****** Paris TN 38242-3210 ********" 25 PRINT"********** JUNE 29, 1993 ************":PRINT:PRINT 30 PRINT"********** ************":PRINT 35 EXEC 44539 40 CLS 8 45 PRINT"!!!!!!!!!!! CAUTION !!!!!!!!!!!!!!!!!":PRINT 50 PRINT" If your system will not accept the high speed poke and/or your drives will not operate at 6ms; EDIT Line 100 for satisfactory operation." 55 PRINT:PRINT"-------------------------------------":PRINT:PRINT 60 PRINT" This program should work, with no problem, on the CoCo 1 and CoCo 2. You will, however, have to EDIT Lines 5 & 100; DELETE Line 110 and EDIT the prompt and instruction Lines to properly"; 65 PRINT" fit the 32 column screen.":PRINT 70 PRINT:PRINT"********** *************" 75 EXEC 44539 100 POKE 65497,0:POKE 55232,0:POKE 55318,20 110 ON BRK GOTO 430:ON ERR GOTO 430 120 L$="L3T5O3V30GF":M$="L3T5O1V30B-E" 130 PLAY L$+M$+M$+L$:CLS 3 140 PRINT"..... Change/Add/Delete data":PRINT 150 PLAY L$ 160 INPUT"Name of file (do not use /, ., or :)...";F$ 170 PLAY M$ 180 INPUT"EXT......";E$ 190 PLAY L$ 200 INPUT"Drive # .. (0-5)";D$ 210 D=VAL(D$):K$=F$+"/"+E$+":"+D$ 220 OPEN"I",#1,K$ 230 OPEN"O",#2,"NEW/DAT"+":"+D$ 240 IF EOF(1)=-1 THEN PRINT:PRINT"**** No more data on disk ****":PRINT:GOTO 280 250 INPUT#1,A$ 260 PLAY"T60L1C":CLS 3:PRINT K$:PRINT 270 PRINT"..... Data Item....";A$ 280 PRINT:PRINT"Press =no change:: =add data:: =change data::=delete data =quit::" 290 I$=INKEY$:IF I$="N"OR I$="n"THEN 400 ELSEIF I$="A"OR I$="a"THEN 370 ELSEIF I$="C"OR I$="c"THEN 330 ELSEIF I$="D"OR I$="d"THEN 300 ELSEIF I$="Q"OR I$="q"THEN 430 ELSE290 300 CLS 8:PRINT" Old data name: ";A$ 310 PRINT:PRINT"!!!! Are You Sure? ";:PRINT 320 S$=INKEY$:IF S$=""THEN 320 ELSEIF S$="Y"OR S$="y"THEN 240 ELSEIF S$="N"OR S$="n"THEN CLS 3 : GOTO 260 330 CLS 6:PRINT"Old data name: ";A$ 340 PRINT:PRINT"... Change data to: "; 350 INPUT X$ 360 GOTO 410 370 CLS 8:PRINT:PRINT"New data to add:"; 380 INPUT X$ 390 GOTO 410 400 X$=A$ 410 WRITE#2,X$ 420 GOTO 240 430 CLOSE#1:CLOSE#2 440 KILL K$ 450 RENAME"NEW/DAT"+":"+D$ TO K$ 460 PLAY M$+L$+L$+M$ : CLS 5 : DIR T"... Change data to: "; 350 INPUT X$ 360 GOTO 410 370 CLS 8:PRINT:PRINT"New data to add:"; 380 INPUT X$ 390 GOTO 410 400 X"DR HORN" "45.78" "MEDICAL" "SAFEWAY" "22.5" "FOOD" "1st CHRISTIAN" "20" "CHARITY" "OFFICE SUPPLY" "13.67" "MA BELL" "47.28" "TELEPHONE" "ELECTRIC CO." "92.35" "UTILITIES" "GAS CO." "27.88" "UTILITIES" "AT&T" "47.25" "TELEPHONE" "DELPHI" "101.27" "FUN" US""GEORGE" "PETE" "FRANK" "JOHN" "ROY" "TOM" "ELIZABETH" "MARY" "BARBARA" "JULIA" "ANNETTE" "CAROL" "CHARLES" "JERRY" "RICHARD" "LEWIS" "WILLIAM" "RAOUL" "92.35" "UTILITIES" "GAS CO." "27.88" "UTILITIES" "AT&T" "47.25" "TELEPHONE" "DELPHI" "101.27" "FUN" US" 5 WIDTH 40:CLS 4:'DATREDER 10 PRINT"********* Pete Blackwell ************" 15 PRINT"****** 1408 1/2 McFadden St. ********" 20 PRINT"****** Paris TN 38242-3210 ********" 25 PRINT"********** JUNE 29, 1993 ************":PRINT:PRINT 30 PRINT"********** ************":PRINT 35 EXEC 44539 40 CLS 8 45 PRINT"!!!!!!!!!!! CAUTION !!!!!!!!!!!!!!!!!":PRINT 50 PRINT" If your system will not accept the high speed poke and/or your drives will not operate at 6ms; EDIT Line 100 for satisfactory operation." 55 PRINT:PRINT"-------------------------------------":PRINT:PRINT 60 PRINT" This program should work, with no problem, on the CoCo 1 and CoCo 2. You will, however, have to EDIT Lines 5 & 100; DELETE Line 110 and EDIT the prompt and instruction Lines to properly"; 65 PRINT" fit the 32 column screen.":PRINT 70 PRINT:PRINT"********** *************" 75 EXEC 44539 100 POKE 65497,0:POKE 55232,0:POKE 55318,20 110 ON BRK GOTO 340:ON ERR GOTO 340 120 N=0:M$="L3T5O3V30GF":L$="L5T5O3V30EDG" 130 PLAY L$+M$ 140 CLS: PRINT"..... Disk File Reader .....": PRINT 150 PLAY M$ 160 INPUT"Name of file to be read ";X$ 170 PLAY M$ 180 INPUT"EXT (do not use / or .)";Y$ 190 PLAY M$ 200 INPUT"Drive # (do not use :)";Z$ 210 Z=VAL(Z$):K$=X$+"/"+Y$+":"+Z$ 220 PLAY L$:PRINT: PRINT"Send to printer <1>=no:: <2>=yes:?"; 230 INPUT P : IF P=2 THEN 380 240 OPEN"I",#1,K$ 250 PLAY L$:CLS 3:PRINT K$:PRINT 260 IF EOF(1)=-1 AND P=1 THEN 310 ELSE IF EOF(1)=-1 AND P=2 THEN 440 270 INPUT #1,A$ 280 N=N+1 : IF P=2 THEN 420 290 PLAY M$:PRINT:PRINT A$ 300 GOTO 260 310 PLAY M$ 320 PRINT:PRINT"Total data items:";N 330 CLOSE #1 340 PLAY L$:PRINT: PRINT"Read another? :: End :: DIR ::"; 350 I$=INKEY$:IF I$="Y"THEN 120 ELSE IF I$="N"THEN 360 ELSE IF I$="D" THEN 370 ELSE 350 360 PLAY M$+L$ : CLS 5 : END 370 CLS 8 :PLAY L$+M$ : DIR Z :GOTO 340 380 POKE 150,41 390 PRINT#-2,CHR$(27);CHR$(23) 400 PRINT#-2,TAB(15);CHR$(15);K$; CHR$(14):PRINT#-2 410 GOTO 240 420 PRINT#-2,TAB(15);A$ 430 GOTO 260 440 PRINT#-2: PRINT#-2,TAB(15)"Total data items:";N 450 GOTO 330 POKE 150,41 390 PRINT#-2,CHR$(27);CHR$(23) 400 PRINT#-2,TAB(15);CHR$(15);K$; CHR$(14):PRINT#-2 410 GOTO 240 420 PRINT#-2,TAB(15);oqAmi e3 4VKR@NJ0愦J& J&TT YYYYZ&021?&І 5J&0Z& nߦķC30&9&!9~qp?8R SO ABORT CAN RESTORE.* SAVSTK FDB 0 T{op@'991ѧ+TD$ʀTD$ʀT =11o~&ύO}}1}%ev1}%O}}9Z&9}}Z&9_}\1 %9_5}\1 %9&9TT$ ʀ T$Ǧ'ʀʀ 'ʀJ&9ꄧS9禍'9 Z=a[=W& L&ɦ<&)6 =1+TD$ʀTD$ʀT19o '|Q@ ??O/< _EQwDDwwx`PH{gSI$zDXYROGER J HALLMAN1'.ہ&}vtn9}}1%WROGER J HALLMAN'ڦہ&,%#9}}1}%{{gSI$zDXYROGER J HALLMAN1'.ہ&}vtn9}}1%,0 :W,0J7:11:E,0:DIJfA055:DI:SQ:K$:K$"@"11:7:23:K$(189)11:16:JzW,0:11:133K,159:120:N,7:M,14:C$"SLOW NORMAL FAST":5:"C0BM55,110R137D10L137U10DRC1R135C0":8:T:Y108Y122X56X88IN255:X112X152IN100:X168X192IN1:16:16KTO,1:R0:7:ML,R:LG,IN:AB:133KjO,0:R0:IN1:7KK$:K$""147:K$"@"11:16:K$(189)11:20:K$(10)R0RR1 :148:(343)247343,255:R0RR1L*K$(94)R55RR1 :149:(344)247344,255:R55RR1LEML,R:LG,IN:AB:147LZ118:159:66L154:MC$:AU U:E,A:SQ::UU1:UQ :W,0:143:151L47:XF(O9):XF9 ER2:57MRU U:ML,R:LG,IN:AB::154:MC$,&HE00,&H25FF,&HE00:UU1:UQ :W,0:143:153MPC$"PICT"(("&H"(U)))".MAX:"((D),1):MPM$(22,32):I311:N,4:M,I:C$PM$:5::"C0BM32,24R175D72L175U72D2BR2R171D68L171U68RD67R169U66L168":NxL$"R223BD2L223BD2R223BD2L223BD2R223":158:"C0BM16,7"L$:"BM16,175"L$:BG,DK:N,4:M,1:LP2C$" SAVE PICTURE ":LP1C$" LOAD PICT: "L3$ :C$" DIRECTORY: "L3$N5:BG,LT:N"C0BM0,0R255D191L255U191DRC1R253D189L253U189DRC0R251D187L251U187RD186R249U185L248":OZL5$(21,32):I1315:N,5:M,I:C$L5$:5::"C0BM40,103R167D24L167U24D2BR2R163D20L163U20RD19R161U18L160":93:0R255D191L255U191DRC1R253D189L253U189DRC0R251D187L251U187RD186R249U185L248":OZL5$(21,32):I1315:=& 200,&H7EFF&#150,1: 4,1&QI&H7F00 &H7F9D: A$: I,("&H"A$):&c( 1,1:&H7F00&{*&HFEC1,1:"VUD3:0"'r2 C6,C,8E,E,0,34,14,8D,21,33,8D,0,62,17,0,75,35,14,34,14,30,88,20,8D,11,33,8D,0,57,17,0,65,35,14,30,89,2,0,5A,26,DC,39,8D,3D,C6,20,34,4,C6,80,E7,8D,0,6B,C6,8,E7,8D,0,66,4F,34,10,E6,8D,0,5E,1C,FE,E5,84,27,2,1A,1,49,30,88,40,6A,8D,0,4F,26,EE,35(<< 10,43,17,0,23,64,8D,0,42,24,D5,35,4,30,1,5A,26,C6,39,33,8D,0,C,20,16,4,1B,33,1,D,4,1B,33,17,D,4,1B,4C,0,1,34,2,8D,11,35,2,39,E6,C0,34,4,A6,C0,8D,6,6A,E4,26,F8,35,84,C6,FE,D7,6F,AD,9F,A0,2,F,6F,39,FE,E5,84,27,2,1A,1,49,30,88,40,6A,8D,0,4F,26,EE,35(<< 10,43,17,0,23,64,8D,0,42,24,D5,35,4,30,1,5A,26,C6,39,33,8D,0,C,20,16,4,1B,33,1,D,4,1B,33,17,D,4,1B,4C,0,1,34,2,8D,11,35,2,39,E6,C0,34,TF6758HDTF196:LP148:LL153:LL3T:140:LL4T:1468ET:7:TF3W1,0:11:DI:41:TF7PR:16:TF548:TF4152:TF2158:20:208F8:DV(((Y2)8)2)5:DV1T:168GX136DVDV19rHD$(DV)""119:BG,DK:N,9:M,6:C$"LOAD PICTURE":5:BG,LT:N,9:M,8:C$"Load As....":5:N,9:M,10:111:5:93:66:93:709I"C0BM16,143"L$:BG,DK:N,7:M,18:9JLL1:6:R:Y173:118:659KT:&HFFD8,0:"SP:0":L6:R:Y197:118:119:BG,DK:N,8:M,6:C$" TYPE OR FRAME ":5:N,8:M,9:C$"WHTonBLK":5:BG,LT:N,8:M,11:C$"BLKonWHT":5:"C0BM144,72R39D22L39U22D2BR2R35D18L35U18RD17R33U16L32":122:M8:X64X128Y70Y8281:BG,DK:82:LM30:112:Y86Y9881:82:LM30:112;;NX144X172Y70Y98ST149:EN178:Y177:F12:118:TF2:66;`OX88X151Y110Y122T:16;iP77;yQT:7:R:;RN,1:M,22:;ST:200,&H7E00;T150,1:4,1:1,1;U&HFFD8,0:M"PP:0",&H7E00&H600;V2&H7E02<3WS&H7E00:S37,2:S45,95:S62,4:S67,47:S187,48:S259,18:S260,18Y`6:T1624:1:"C0BM=T;,=T;S=T;R2LF2BR2H2FRHF2BR2H2RLFRLFRBF2BL7RLFRLFRBR2H2RF2BR2H2RFD":1,1::93:X11500::&HFEC2,0:W1,0:113,0:&H8C1B:>aW1,0:O1(&HC006)256(&HC007):O1,2:O11,O9:O12,17:O13,2:O14,&H06:O15,&H00:(&HC004)256(&HC005):O1(O16)>bO1 57::?hcN,7:M,20:C$"FILE":5:"C0BM87,158R113D10L113U10DR33D9":BG,DK:N,7:M,22:C$" CLEAR TO CANCEL! ":5:BG,LT:93?eLM6:117:C$"NAME":109:B$""NA$B$?gLM3:117:C$"EXT.":109:B$""EX$B$?iLM1:117:C$"DRV#":109:B$""DR$B$@(kLM2:117:C$"SEQ#":109:B$""NU(B$):LL1@1l65@Hm5:BG,LT:116:@ynC$NA$(("&H"(NU)))"."EX$":"DR$:@oC$D$(DV)":"((D),1):@pC$"":B$"":B0A&qP:C$:C$(13)LM3016::C$(8)114:C$(12)T:16:B$B$C$:BB1:C$C$:(B$)LM 114:5:113Aqr93:LM3081:82:112:LM6101:LM3103:LM1105:LM2107AwsAt0,1:(121,159)(198,167),,BF:N,16:M,20:112:AuBG,DK:N,11:M,20:Av(ST,0)(EN,1),Z:CY1 Y1F:(ST,C)(EN,C),Z,::BxwL2$(21,32):I515:N,5:M,I:C$L2$:5::"C0BM40,40R167D88L167U88D2BR2R163D84L163U84RD83R161U82L160BM48,47"L1$BxI110120:"C1BM48,=I;R151"::"C0BM48,111"L1$:Cy"BM56,64R40D40L40U40R15D20L10R8D10L5DR7D9BM66,74L2DR2BM70,94E3U22E2R17F2D30G2L17H2U4L3":(76,66),0:CezN,11:M,14:C$" CANCEL ":5:"C0BM88,110R63D10L63U10DRC1R61C0":93:C{94:BG,DK:N,12:M,6:C$" ERROR ":5:BG,LT:D|N,11:M,14:C$" CONTINUE ":5:"C0BM88,110R79D10L79U10DRC1R77C0":8:Y112Y120X80X160T:16:124:124D}6:R:1:156:LP273:C$"NS: ":5:110:5:BG,LT:LL1:99:8:Y20T:16:Y7Y18Y18:F6:X128X144ST129:0:X152X168ST153:1D~X176X192ST177:2:X200X216ST201:3EZENST21:118:47:XF(D):A140:D$(A)""::DR1:N,3:M,3:W1,0:I19:D,17,2I,F$(1),F$(2):F12:J197 32E(F$(F),J,1)(255)132:(F$(F),J,1)(0)129:Q$(F$(F),J8,3):C$(F$(F),J,8)"/"Q$:D$(DR)C$:DRDR1:130E:::132FWH1N,17:C$C$(13):WH0 :WH1:N,3F5:FWH0:C$(13)(13):5:C$(13):5:BG,DK:N,12:M,22:C$"FREE: "(("&H"(XF))):5:BG,LT:&HFF40,0:W,0:LP170:8:T:16Gk(&HFEC2)194:16:ST13:EN69:Y1133:F8:11:6:R:118:155:N,6:M,4:C$"REC ANM SAV LOD":5:N,6:M,6:C$"LSP KEY SD1 LD1":5:N,6:M,8:C$"HSP FUL SD2 LD2":5GN,6:M,10:C$"STT VSN SD3 LD3":5:J44164 40:K4678 16:"C0BM=J;,=K;"B1$:K,J:93HWLL0:8:Y95T:16:X44X76Y46Y5894:PO2:135:Y62Y7493:PO0:135:Y78Y90ST45:EN73:Y179:F8:LL3:150HX84X116ST85:EN113:F8:Y46Y58Y147:LL4:150:Y62Y74Y163:118:144:Y78Y90T:W,0:20IOX124X156TF4:O,0:IN1:ST125:EN153:F8:Y46Y58Y147:U0:Q19:Y62Y74Y163:U20:Q39:Y78Y90Y179:U40:Q55IX164X196TF5:O,0:IN1:ST165:EN193:F8:Y46Y58Y147:U0:Q19:Y62Y74Y163:U20:Q39:Y78Y90Y179:U40:Q55I118:159:TF461:62JPO2W1)&:&T(&HFEC1)1 4,1:1,1:3::@170,"VIDEO'U'DIG":@202,"VERSION 1.3"&0,6:393216,7:(0)6&HFEC2,5 :&HFEC2,1&1000,&H752F&8:0:M"COMB":M"CUR":M"TTL",6144:&HFF40,0:9'A(C$):B(A256):CAB256:&H7608,B:&H7609,C:&H7530:'4,5:1,1:'.4,1:1,1:'V&H7B8E:X(&H7DDF):Y(&H7DE0):'| F$(2),D$(40),B(60),Z(60):&H96,7' 6:NA$"PICT":EX$"BIN":DR$"0":NU0:14( DI&H7F07:PR&H7F04:ML&H7B84:LG&H7B87:AB&H7B3A:E&H7B39:O&H7B89:SQ&H7B0C:N&H760C:M&H760D:R&H7918:T&H7933:P&HADFB:BG&H75C7:DK&H12:LT&H43:L1$"R151BD2L151BD2R151BD2L151BD2R151":L3$"[0][1][2][3]":B1$"R30D10RNU9DNL29LUL30U10":W65497( RD&H095A( ((&HFEC1)1&HFEC1,0)O11:W,0:BG,DK:N,24:M,12:C$"COCO3":5:(&HFEC2)5 N,24:M,11:C$"512 K":5:16:N,24:M,11:C$"128 K":5):W,0:282,255:BG,LT:0,1:LP0:ER0:TF0:LL0:6:"P25":93:8:X13X69ST13:EN69:F8:17:Y143Y191&H7E9D,1:16:&H7E9D,0:16*Y25Y32R:Y125:118:TF3:159:66*Y37Y44125:Y49Y56LP1:125:Y61Y68LP2:125:Y73Y8074:Y85Y9243:Y97Y10476:Y109Y11620:Y121Y12895:Y133Y140133*16*W,0:7:R+q155:N,6:M,4:C$"INV HFL VFL FCL":5:N,6:M,6:C$"LHF RHF UVF LVF":5:N,6:M,8:C$"HSL VSL TTB BTT":5:N,6:M,10:C$"SCL GRD RTR RTM":5+J44164 40:K3078 16:"C0BM=J;,=K;"B1$:K,J:93:S255:D191:8:Y95T:"P5":8:21:T,?X44X76Y30Y4227:Y46Y58X10:S127:37:Y62Y7432:Y78Y900,1:A0:B0:35,X84X116Y30Y4228:Y46Y58X1128:S255:37:Y62Y7433:Y78Y9036,X124X156Y30Y4229:Y46Y58Y10:D95:34:Y62Y7430:Y78Y90133-YX164X196Y30Y421:20:Y46Y58Y196:D191:34:Y62Y7431:Y78Y9016:21:21-(0,0)(S,1),Z:C0 D:(0,C)(S,C),Z,:38-X0127:(X,0)(X,D),B,G:(SX,0)(SX,D),Z,G:(X,0)(X,D),Z,:(SX,0)(SX,D),B,:38.AY095:(0,Y)(S,Y),B:(0,DY)(S,DY),Z:(0,Y)(S,Y),Z,:(0,DY)(S,DY),B,:38.\A12:A A2::20.wA34:A A2::20. X0127:(X,0)(X,D),B,G:(128X,0)(128X,D),Z,G:(X,0)(X,D),Z,:(128X,0)(128X,D),B,:38/:!Y095:(0,Y)(S,Y),B:(0,96Y)(S,96Y),Z:(0,Y)(S,Y),Z,:(0,96Y)(S,96Y),B,:38/"Y047:(0,Y1Y)(S,Y1Y),B:(0,DY)(S,DY),Z:(0,Y1Y)(S,Y1Y),Z,:(0,DY)(S,DY),B,:38/#Y1100:(A,B)(S,D),,B:AA1:BB1:SS1:DD1:380$X0255 2:(X,0)(X,191),::Y0191 2:(0,Y)(255,Y),:380%X063:(X1X,0)(X1X,D),B,G:(SX,0)(SX,D),Z,G:(X1X,0)(X1X,D),Z,:(SX,0)(SX,D),B,0&K$:K$(189)20:K$" "21:K$"@"P0':20:201)P:K$:K$" ":K$"@"16:K$(189)20:K$"F"W,0 :K$"S"W1,01%*DI:41:411+6:R:Y185:118:(&HFF22)1ER7:57:119:BG,DK:N,9:M,6:C$" Print Sizes ":5:BG,LT:"C0BM52,68BR8D25U2L8D10R40U7RD4RU4RD4L3U7L8D2L24R24U20H5D5R5L5U5L19":1222&,"C0BM108,59R10D7L10U7BD10R18D11L18U11BD14R35D24L35U24BM156,59R39D48L39U48"2-8:X88X147ST109:Y59Y66EN117:Y160:F5:118:TF6:66:Y69Y80EN125:Y170:F9:118:TF7:66:Y83Y107EN142:Y184:F22:118:TF8:66:Y110Y122T:163).X156X196Y59Y107ST157:EN194:Y160:F46:118:TF9:66:453G/D(RD):O9D:ER1:97:3b047:TF5154:11132:"D",#1,C$,1:#1,1 A$:#1,2:A$(24)ER4:57:33TF5:15134:W,0:N,9:M,12:C$"Loading...":5:W1,0:111:MC$:W,0:T:164.5O9(DR$):ER1:97:XF(O9):XF3ER2:5746:W,0:N,9:M,12:C$"Saving....":5:110:W1,0:MC$,&HE00,&H25FF,&HE00:W,047NUNU1:NU55NU048T:16589:W,0:119:123:121:N,10:M,10:C$"!":5:N,13:M,8:C$"DISK I/O":5:N,13:M,9:C$"PRINTER OFF":5:N,13:M,10:C$"NOT 6K FILE":55}:N,13:M,11:C$"NO SUCH FILE":5:N,13:M,12:C$"DISK FULL":55;ST104:EN200:F8:ER1Y163:ER7Y171:ER4Y179:ER3Y187:ER2Y1955<118:1246=N,8:M,14:C$"SAVE TO DRIVE:":5:6368>N,7:M,14:C$"LOAD FROM DRIVE:":56t?P:K$:K$"0"0:K$"1"1:K$"2"2:K$"3"36@N,23:M,14:C$K$:5:"P5":159:667A119:BG,DK:N,9:M,6:C$"SAVE PICTURE":5:BG,LT:N,9:M,8:C$"Save As....":5:N,9:M,10:110:5:937B120:N,9:M,14:C$" OK ":5:N,16:M,14:C$"CANCEL":5:"C0BM71,110R49D10L49U10DRC1R47C0BM127,110R49D10L49U10DRC1R47C0"8C8:Y0Y10967:Y125Y19167:Y110Y122X128X175T:16:X72X119TF989:TF883: 101 DATA54161645165445166154456154616145 102 DATA45106012315421366312451321060154 103 DATA01103553455462262662544553351001 104 DATA01455421160121611621016121544501 105 DATA41035460301406454506143060540341 106 DATA01633645121045212101541210366345 107 DATA54303054305454300345450345030345 108 DATA04454514450414451604141604161614 109 DATA01200430200130040650042050062004 110 DATA41544534451443544534415443544514 111 DATA01030504301040504340464104341464 112 DATA16436361451661100161165461363416 113 DATA04302116034061122310253401324352 114 DATA41141441144141141441411441141441 115 DATA01404621051012505021010512640410 116 DATA01252501250101253064643064303064 117 DATA42133145312454130124541024100145 118 DATA42100124411602100102161424011042 119 DATA32161623163223166132236132616123 120 DATA45120654124554061254450654120645 121 DATA23015232105201255210250132251023 122 DATA12125406125406315406310406310404 123 DATA63024141516302413051630230305163 124 DATA13545402541302546102136102616113 125 DATA10322626560132264556103245455601 132616123 120 DATA45120654124554061254450654120645 121 DATA23015232105201255210250132251023 122 DATA12125406125406315406310406310404 123 DATA63024141516302413051630230305163 124 DATA13545402541302546102136102616113 125 DATA1032262656013226455610324545560 101 DATA6116104301341546104301341546261301341546261362310546261362316116 102 DATA3210230132102301102301321023013223013210230132100132102301321023 103 DATA0213461513261326166102134615132613261661021346151326132616610213 104 DATA3142604160413142604131423142604114062413241314062413140614062413 105 DATA1230154224511230154212301230245115420312031224510312154224510312 106 DATA0451452645620451401304510451310410430451045104310451624526540451 107 DATA4165630201236543654301236302416516612332055042244224500523321661 108 DATA0123123023013012345645635634634512342341341241232345345245235234 109 DATA2332122131132332122123322332311331132332233212212332311312212332 110 DATA1234123443216451123443216451056343216451056336506451056336503650 111 DATA3164035246104610035231640352461046100352316403524610461003523164 112 DATA3201112311452310121332012310213114150132102341510132231145111023 113 DATA1306425113064251425113064251130635416320354163206320354163203541 114 DATA1645123050264661542130144320435050264661164512304320435054213014 115 DATA2345601234560123456012345601234560123456012345601234560123456012 116 DATA4201654353424201654353424201654353424201654353424201654353424201 117 DATA0110245110460421245110460421460110460421460115240421460115240110 118 DATA2415310403411441130424153104034115421304241531041441154213042415 119 DATA1340634163414102634113404102634103124102134003124102031203121340 120 DATA5014620362035014620350145014620336142103210336142103361436142103 121 DATA1203120340625124120340625124601340625124601346025124601346024602 122 DATA1001620356240110620321604013562456244013216062030110562462031001 123 DATA2163632163212163632121632163632112633216321612633216126312633216 124 DATA4105154015404105154041054105154050410415041550410415504150410415 125 DATA0164401660146014614001644016601446016140016440164601460161400164 562456244013216062030110562462031001 123 DATA2163632163212163632121632163632112633216321612633216126312633216 124 DATA4105154015404105154041054105154050410415041550410415504150410415 125 DATA0164401660146014614001644016601 131 :125JCH,PP:(X(A,1)10,Y(A,V)3)(X(A,1)15,Y(A,V)8),,BJA116:B142:P(X(A,B)2,Y(A,B)):HP$(P):HP$(HP$,1)JQ12:J$J$HP$:B,A:LILI1:LI$(LI100):LI$(LI$,3):#1,LI$" DATA"J$:J$"":HP$""K&65497,0:W116:V142:(X(W,4),Y(W,V)),8,7:V,W:71:124KC: Level three generatorKWH8:A1:Q1:V1KF$:148:OVV:OAA:(343)191VV1:V5V1KOVV 7,PP:(X(A,V)3,Y(A,V)3)(X(A,V)8,Y(A,V)8),,B:(X(A,OV)3,Y(A,OV)3)(X(A,OV)8,Y(A,OV)8),,BLPP(X(A,V)2,Y(A,V)):150LOAA 7,PP:(X(A,V)3,Y(A,V)3)(X(A,V)8,Y(A,V)8),,B:(X(OA,V)3,Y(OA,V)3)(X(OA,V)8,Y(OA,V)8),,BMH,7: F$(13) (X(A,V)3,Y(A,V)3)(X(A,V)8,Y(A,V)8),,B:(X(A,V),Y(A,V)),H,7 : (X(A,V)3,Y(A,V)3)(X(A,V)8,Y(A,V)8),,BM2 F$(32) 143 :137MiH,PP:(X(A,V)3,Y(A,V)3)(X(A,V)8,Y(A,V)8),,BMA116:B14:P(X(A,B)2,Y(A,B)):HP$(P):HP$(HP$,1)NQ12:J$J$HP$:B,A:LILI1:LI$(LI100):LI$(LI$,3):#1,LI$" DATA"J$:J$"":HP$"":65497,0NHW116:V14:(X(W,V),Y(W,V)),8,7:V,W:71:136Nr: Auto key repeat routine for arrowsNF$"1"H0:F$"2"H1:F$"3"H2:F$"4"H3:F$"5"H4:F$"6"H5:F$"7"H6N(252,77),H,7:O65496,0:(343)247AA1:A1A16O/(344)247AA1:A16A1OS(342)247AA4:A16AA16Ov(341)247AA4:A1AA16O65497,0:O: Error and open file routineO#1:T0 :ER$()::P( 26 "O",#1,DA$:LI0:65497,0:107 :::ER$();" ERROR ";"IN LINE NUMBER";:::Pj NF,SN,RG,OD,FC,OV,OM,UL,BS,DD,/0,ID,TM,OS,LS,ST,CN,FD,AO,DNP IO,FM,NO,IE,DS,UF,NE,BR,DF,OB,WP,FN,FS,AE,FO,SE,VF,ER,DS,HR,HPQ+40:#1:65434,BP:4,2:65496,0:41601,19:10,9:"ALL FILES ARE CLOSED":5,12:"SHIFT/@ KEY RESTORED TO NORMAL":1,21: NF,SN,RG,OD,FC,OV,OM,UL,BS,DD,/0,ID,TM,OS,LS,ST,CN,FD,AO,DNP IO,FM,NO,IE,DS,UF,NE,BR,DF,OB,WP,FN,FS,AE,FO,SE,VF,ER,DS,HR,HPQ+40:#1:65434,BP:4,2:65496,0:41601,19:10,9:"ALL FILES ARE CLOSED":5, 101 DATA1264312663124631 102 DATA0450400542252452 103 DATA6441461406106001 104 DATA0226106115415224 105 DATA4210013410423401 106 DATA0123644646643210 107 DATA1006316336136001 108 DATA2440520653163441 109 DATA1221311330030220 110 DATA0003124314231666 111 DATA3666345235420002 112 DATA2112122121121221 113 DATA4545545454544545 114 DATA3034034234254252 115 DATA3523033114404254 116 DATA0113103112612116 117 DATA4021241006526205 118 DATA0001122233311444 119 DATA1060146514650405 120 DATA6444555664445556 121 DATA0011110046464646 122 DATA0550500546646446 123 DATA0426153426043415 124 DATA1550410443243552 125 DATA3452532440150541 04254 116 DATA0113103112612116 117 DATA4021241006526205 118 DATA0001122233311444 119 DATA1060146514650405 120 DATA6444555664445556 121 DATA001D,T),Y(RD,T)),D(T),7:T8;CA(1)D(1) CA(2)D(2) CA(3)D(3) CA(4)D(4) 71:HEHE10:72:7,8:(U(V),M(V))(U(V)3,M(V)5),,B:2,8:(238,76),8,7:(251,76),8,7:(238,89),8,7:(251,89),8,7:529h<70:HEHE5:72:7,8:(U(V),M(V))(U(V)3,M(V)5),,B:2,8:(238,76),8,7:(238,89),8,7:(251,76),8,7:(251,89),8,7:S14:(X(RD,S),Y(RD,S)),8,7:S:559=:Assign variables and load datafiles9>DA$"DATA1/DAT":LE16:659?DA$"DATA2/DAT":LE32:659@DA$"DATA3/DAT":LE64:*A40:8,12:0,2:"LOADING DATA PLEASE WAIT":8,13:(24,42):BA$"BR2BU5ED6LR2BR11":B$"BU5ER2FDG4R4BR11":C$"BU5ER2FDGLRFDGL2HBR4BDBR11":D$"BR3U6G3R4BD3BR12":E$"BUFR2EUHL3U3R4BD6BR10":F$"BU3R3FDGL2HU3E2RBRBD6BR11":G$"BU6R5G4D2BR3";eCH0:Y1515045:X1515045:HH1:X(H,1)X:Y(H,1)Y:X(H,2)X13:Y(H,2)Y:X(H,3)X:Y(H,3)Y13:X(H,4)X13:Y(H,4)Y13:X,Y:RT1;DT125:A$(T)"":T:65496,0: "I",#1,DA$:T025:#1,A$(T):A$(T)(A$(T),LE):T:#1:&HFF40,0:65497,0:;E:Score keeping and sounds<5F65496,0:140,1:T110:::T110::T110:::65497,0:PSE$(SE):SE$(SE$,(SE$)1):SE$"00"SE$:SE$(SE$,2):MI$(MI):MI$(MI$,1):MI$"00"MI$:MI$(MI$,2)>;Q(233,168)(272,175),1,:(29,21),MI$":"SE$:>XR: Scoreboard subroutine>S2:1,7:2:65434,BC:T125:"V31O1T15L25D"::(14,1),"SCOREBOARD":(14,2),"**********":8,8:(45,30)(265,40),,B:T6214104:(T,60)(T98,186),,B:?mT1,8:LE0:T33013:LELE1:LE$(LE):LE$(LE$,1):(T,6),"LEVEL:"LE$:T::(6,4),"SORTING SCORES PLEASE WAIT"?U65496,0:SE$"......: 0000":"D",#2,"SCORE/DAT",12:#2,12 Z$: (2)0 T124: Z$SE$:#2,T:T@ VT1 24:#2,T:Z$(T)Z$:T:#2:&HFF40,0:65497,0@WQ(P81):T(P87) (P8):N$(T)Z$(T):S$(T)(N$(T),4):N$(T)(N$(T),8):T:S$(Q)(HS):S$(Q)(S$(Q),(S$(Q))1):S$(Q)"000"S$(Q):S$(Q)(S$(Q),4):HS0S$(Q)"0000"@XHS0N$(Q)"......: ":N$(Q)NA$": "AY:Sort the scoresA$ZT(P87) Q:U(P87) TA=[ S$(T) S$(U) 93A}\S$S$(U):S$(U)S$(T):S$(T)S$:N$N$(U):N$(U)N$(T):N$(T)N$A]U,T:(165,35),2,8A^T(P87) (P8):Z$(T)N$(T)S$(T):A_V0:T12713:U8222:VV1:(T,U),Z$(V):U,TBb`65496,0:"D",#2,"SCORE/DAT",12:#2,12 SC$:V124:SE$Z$(V): SC$SE$:#2,V:V:#2:&HFF40,0:65497,0Ba1,8:(6,4),"PRESS FOR ANOTHER GAME":(344)191C0:20:97Bb 97Bc: Data generator program.BdDA$"DATA"((P),1)"/DAT"Ce65496,0: "I",#1,DA$:LI1C-f #1,A$(LI):LILI1CLg (1)1 LILI1:105CWh 102Cpi#1:DA$:"O",#1,DA$Cj NF1 LI:#1,A$(NF):NF:65497,0Ck8,8:(26,12),"PLEASE WAIT":(26,14),"LOADING DATA"D l2,8:(24,1),"DATA GENERATOR":(24,3),"BREAK..: ESCAPE"Dwm7,8:(198,40)(303,63),,B:(198,53)(303,53),:T21330315:(T,40)(T,63),:(T3,42),C,7:CC1:Dn7,8:"BM203,61;S4;C2"A$B$C$D$E$F$G$:7,8:(237,75)(263,101),,BERo2,8:(24,14),"NUMBERS: COLORS":(24,16),"ARROWS.: CURSOR":(24,18),"[F1]...: CURSOR":(24,20),"ENTER..: PAINT":(24,22),"SPACE..: WRITE"Eip P 114,124,136Eq: Level one generatorErH8:A1:Q1EsF$:148:OAA:PP(X(A,1)2,Y(A,1)):PP,8FDt150:OAA 7,PP:(X(A,1)10,Y(A,1)10)(X(A,1)15,Y(A,1)15),,B:(X(OA,1)10,Y(OA,1)10)(X(OA,1)15,Y(OA,1)15),,BFuH,7: F$(13) (X(A,1)10,Y(A,1)10)(X(A,1)15,Y(A,1)15),,B:(X(A,1),Y(A,1)),H,7 : (X(A,1)10,Y(A,1)10)(X(A,1)15,Y(A,1)15),,BFv F$(32) 119 :115G*w8,PP:(X(A,1)10,Y(A,1)10)(X(A,1)15,Y(A,1)15),,BGdxA116:P(X(A,1)2,Y(A,1)):HP$(P):HP$(HP$,1)GyQ12:J$J$HP$:A:LILI1:LI$(LI100):LI$(LI$,3):#1,LI$" DATA"J$:J$"":HP$"":65497,0GzA116:(X(A,1),Y(A,1)),8,7:A:71:114H{: Level two generatorH&|H8:A1:Q1:V1H\}F$:148:OVV:OAA:(343)191VV2:V5V1H~OVV 7,PP:(X(A,1)10,Y(A,V)3)(X(A,1)15,Y(A,V)8),,B:(X(A,1)10,Y(A,OV)3)(X(A,1)15,Y(A,OV)8),,BHPP(X(A,1)2,Y(A,V)):150IcOAA 7,PP:(X(A,1)10,Y(A,V)3)(X(A,1)15,Y(A,V)8),,B:(X(OA,1)10,Y(OA,V)3)(X(OA,1)15,Y(OA,V)8),,BIH,7: F$(13) (X(A,1)10,Y(A,V)3)(X(A,1)15,Y(A,V)8),,B:(X(A,1),Y(A,V)),H,7 : (X(A,1)10,Y(A,V)3)(X(A,1)15,Y(A,V)8),,BJ F$(32)+,&,: PATTERNS/BAS, COMPLETE THE PATTERNS&S: BY: GEORGE JOHAN QUELLHORST&u: 203B MEADOWS DRIVE&: PAINESVILLE,OHIO.44077&: PHONE: (216) 350-9121&: FINAL VERSION 08/31/1993'F3000:1,180:65497,0:140,181:43350:&HF80F,0:&HF84F,0:&HF89C,0:&HA281,&HD:160:156':CMP:BP=61:BC=27:PALETTE0,33:PALETTE1,50:PALETTE2,27:PALETTE3,38:PALETTE4,35:PALETTE5,45:PALETTE6,24:PALETTE7,0:PALETTE8,61:PALETTE9,63:PALETTE11,1:PALETTE12,63:PALETTE13,61(S :BP27:BC9:0,16:1,54:2,9:3,36:4,53:5,56:6,45:7,0:8,27:11,36:12,54:13,27( 40:3:4,2: A$(100),ER$(41),N$(25),S$(25),Z$(25),X(16,4),Y(16,4),C(64):9,0:(21,61):9,1:"COMPLETE THE PATTERNS":9,2:"BY: GEORGE QUELLHORST":9,3:(21,61)) 1,2:4,6:"<";:4,2,B:5,6:"P";:1,2:6,6:">LAY A GAME OR <";:22,6:4,2,B:"G";:23,6:1,2:">ENERATE DATA":&HABEE,&H47:&HABEF,&H51* IN$:IN$""12 :71:IN$"P"9,10:4,7:"P L A Y A G A M E";:4,2 :IN$"G" 7,10:4,7:"G E N E R A T E D A T A";:4,2 :12*] ZZ140:14 :4,6:1,2:"

LAY A GAME OR ENERATE DATA"*4,2:7,14:"SELECT LEVEL OF DIFFICULTY":7,15:(26,61):HE0:HS0:7,18:0,2:"[";:8,18:4,2,B:"1";:9,18:0,2:"] AGES 3 THROUGH 8+7,20:0,2:"[";:8,20:4,2,B:"2";:0,2:9,20:"] AGES 8 THROUGH 12":7,22:0,2:"[";:8,22:4,2,B:"3";:0,2:9,22:"] STRICTLY FOR INTELLECTUALS+P$:P(P$):P1P316:71:17+ IN$"G"RT1:66:20,oZZ1ZZ0:19 ::9,8:"PLEASE ENTER YOUR NAME":10,10:"MAXIMUM 6 CHARACTERS":15,13:"";NA$:71:(NA$)625,13:" ":18 :(NA$)6 NA$NA$(6,"."),NA$(NA$,6): P 62,63,64-52:8:2,8:65434,BP:(5,5)(185,185),,B:(5,50)(185,50),:(5,95)(185,95),:(5,140)(185,140),:(50,5)(50,185),:(95,5)(95,185),:(140,5)(140,185),-o7,8:X1414945:Y1414945:(X,Y)(X27,Y27),,B- P 25,24,23-(X13,Y)(X13,Y27),,B-(X,Y13)(X27,Y13),,B. Y,X:RT1 2,7:(26,12),"PLEASE WAIT":(26,14),"LOADING DATA":100.7,8:(230,125)(274,137),,B:(230,165)(274,177),,B:2,8:(25,1),"COMPLETE THE":(27,2),"PATTERNS":(25,3),"*************":(29,14),"SCORE":(29,16),"+0000":(29,19),"CLOCK"/UC0:(29,21),"00:00":(233,178)(272,185),1:7,8:(198,40)(303,63),,B:(198,53)(303,53),:T21330315:(T,40)(T,63),:(T3,42),C,7:CC1:/"BM203,61;S4;C2"A$B$C$D$E$F$G$:7,8:(237,75)(263,101),,B:2,8:(24,23),"F1=LEVEL CHANGE":7,8/ P 31,38,50/: Level one game./SE0:MI50) R(25):T116:C(T)((A$(R),T,1)):0!RD(16):W116: WRD (X(W,1),Y(W,1)),C(W),7:W :(X(W,1),Y(W,1)),8,7:CAC(W):W1 "IN$:77:(343)191ZZ1:40:13:IN$(13)35:IN(1,"1234567",IN$):CIN1:IN1 IN7 IN$""34: (238,76),C,7:341b#D(238,76):(X(RD,1),Y(RD,1)),D,7: CAD 71:HEHE10:72:(238,76),8,7:321$70:HEHE5:72:(238,76),8,7:(238,98),8,7:(X(RD,1),Y(RD,1)),8,7:341%: Level two game1&SE30:MI71'7,8:(237,88)(263,88),2%(R(25):T132:C(T)((A$(R),T,1))::M02)RD(16):W116:MM1:WRD (X(W,1),Y(W,1)),C(M),7:MM1:(X(W,3),Y(W,3)),C(M),7:W : CAC(M):CBC(M1):(X(W,1),Y(W,1)),8,7:(X(W,3),Y(W,3)),8,7:MM1:W3*7,8:U238:M(1)76:M(2)89:M(3)76:(U6,M(1)4)(U17,M(1)7),,B3,+V12:M(1)76:M(2)893,IN$:77:(343)191ZZ1:13:IN$(13)46:IN(1,"1234567",IN$):COIN1:IN1 IN7 IN$""444-7,CO:(U6,M(V)4)(U17,M(V)7),,B:7,7:(238,M(V)),CO,7:(U6,M(V1)4)(U17,M(V1)7),,B:V:434R.D(238,76):E(238,89):(X(RD,1),Y(RD,1)),D,7:(X(RD,3),Y(RD,3)),E,74/CAD CBE 71:HEHE10:72:(U6,M(V)4)(U17,M(V)7),,B:(238,76),8,7:(238,98),8,7:405B070:HEHE5:72:7,8:(U6,M(V)4)(U17,M(V)7),,B:(238,76),8,7:(238,98),8,7:(X(RD,1),Y(RD,1)),8,7:(X(RD,3),Y(RD,3)),8,7:425Z1: Level three game5i2SE0:MI1053(250,75)(250,101),:(237,88)(263,88),54R(25):T164:C(T)((A$(R),T,1))::M06>5RD(16):W116:M14:WRD (X(W,M),Y(W,M)),C((W1)4M),7:54 :CA(M)C((W1)4M):(X(W,M),Y(W,M)),8,76G6M,W677,8:U(1)242:U(2)255:U(3)242:U(4)255:M(1)79:M(2)79:M(3)92:M(4)92:U(5)U(1):M(5)M(1):(U(1),M(1))(U(1)3,M(1)5),,B:V147<8IN$:77:(343)191ZZ1:13:IN$(13)58:IN(1,"1234567",IN$):COIN1:IN1IN7IN$""56797,8:(U(V),M(V))(U(V)3,M(V)5),,B:(U(V),M(V)),CO,7:7,8:(U(V1),M(V1))(U(V1)3,M(V1)5),,B:V:558:D(1)(238,76):D(2)(251,76):D(3)(238,89):D(4)(251,89):T14:(X(R(I$)J+ ΅ DI0 JYV(PIPP)10 2600JR ؅ DI2 JYV(PIPP)189 2600Jr DI1 JXVPI637 2600J DI3 JXVPI2 2600J LX(0):LY(1):LXLX31:LYLY31:LX(LX4):LY(LY4)K% DI0 (JX,JY)(JX,JYV(PIPP)),:YYJYV(PIPP)(LY(PIPP)): 2600Ke DI1 (JX,JY)(JXVPI,JY),:XXJXVPI(LXPI): 2600K  DI2 (JX,JY)(JX,JYV(PIPP)),:YYJYV(PIPP)(LY(PIPP)): 2600K  DI3 (JX,JY)(JXVPI,JY),:XXJXVPI(LXPI): 2600L ( 1230:L1 2: ERASE A BLOCK OF 1 FOOT BY 1 FOOTLZ < JX2 JX639 JY10 JY189 L F(JX,JY)(JXPI1,JY(PIPP)1),,BFL P),:YYJYV(PIPP)(LY(PIPP)): 2600K  DI3 (JX,JY)(JXVPI,JY),:XXJXVPI(LXPI): 2600L (&?: PRINTME/BAS ' This file courtesy of Arthur S. Hallock.&2000:65496,.:140,180:150,18:&HF80F,0:&HF84F,0:&HF89C,0&:T1:43350:20:1,1:10,27:80:2:3,1'/32,0:2,1:"PATTERNS/BAS":32,1:(13,42):5,4:"THIS PROGRAM WILL PRINT THE ENTIRE MANUAL FOR THIS MONTH'S PROGRAM":5,6'"TO YOUR PRINTER.":23,6:7,1:"BE SURE YOU HAVE ENOUGH PAPER, THERE ARE 4 PAGES"(20,9:3,1:"YOU MUST NOW SET THE BAUDRATE CONSTANT";:20,10:"TO CORRESPOND WITH THE ONE YOUR PRINTER";:30,11:"IS CURRENTLY SET TO"(1,14:2,1:"600 BAUD=87 / 1200 BAUD=41 / 2400 BAUD=18 / 4800 BAUD=7 / 9600 BAUD=1":18,16:"PLEASE INPUT PROPER BAUD RATE > "(50,16:BD$:BD(BD$)) BD87 BD41 BD18 BD7 BD1 150,BD:10 :49,16:" ":50,1:8) 10,19:1,1:"YOU MUST NOW INSERT YOUR PAPER IN THE PRINTER IN SUCH A WAY":8,21:"THAT THE FIRST LINE PRINTED WILL BE ON THE VERY TOP OF THE PAPER":25,23:2,1:"PLEASE PRESS TO START";) P$:P$(13)12:11*7 :3,1:19,23:"PRINTING HAS STARTED, PRESS BREAK TO ABORT";:21*F "I",#1,F$*V (1) 18*l#1,L$:F1:AA1*L$:#2,(8,32);L$* 14*#1:100,1*::"All Done. Thank you !!":*F$"PATTERNS/DOC":+#1::"PRINTING ABORTED"::"ALL FILES CLOSED":ARTED, PRESS BREAK TO ABORT";:21*F "I",#1,F$*V (1) 18*l#1,L$:F1:AA1*L$:#2,(8,32);L$* 14*#1:100,1*::"All Done. Thank you !!":*F$"PATTERNS/DOC":+#1::"PRINTING ABORTED"::"ALG" FC2 : I$"B" FC0 : I$"O" FC18: 20508F 11608LĐ8r 3,0:(22,0),"Relative": FC,0:8~: TEXT8 282,08:8 2,G48TCFC8 TX(JX8.5)8TY(JY8.5)9 TX0 TX79 TY0 TY23 282,255: 2,GR:9'( 3,0:(22,0),"Confirm?": FC,09W2T1TX83:T2TY83:T3(T1,T2):(T1,T2,3)9";F1$;,ȅ F1$"" 100;^҅ F1$"DIR" : 1470 : (F1$)8 1470;M"NIBLOADR": (&HCFC3)&H8D &HE76,&HCE: &HE77,&HE7; (F1$)8 1540;L18(F1$);F1$F1$(L1," ");L2&HE92< X0 (F1$)1< L2,((F1$,X1,1))<'"L2L21";F1$=օ F1$"" 100 : F1$"DIR" : 1740 : (F1$)8 1740= (F1$)8 1790=L18(F1$)>F1$F1$(L1," ")>L2&HEC5>2 X0 (F1$)1>M L2,((F1$,X1,1))>YL2L21>a& X>o0 &H1DA,1>: &HE6E4,&HE6>D4>N &H1DC>X 65497,0>b 100>l: BRIEF HELP?fv"Q=quit W=partition (h or v) 6=toggle x and y offsets .=overlay grid to menu indicates openings between 0 and 6 inches on the plans"?l{@`"T=text mode F=fat bits G=select grid D=select draw O=select opt. confirmed by allows fine color as active color as active color as pressing ENTER pixel control active."@fAX"B=select A=absolute joystick R=relative joystick C=connect. Press background control control to set and again color active to connect."A:"V=cancel M=measure. Press ,=cancel CLR=erase a"A" connect to set and again measure one foot"B"" to see distance block"C:"Press button 1 to enter drawing mode, and again to exit. In fat bits, hold button 1 down to draw. In drawing mode/fat bits, button 0 cycles the active color. In non-drawing mode, button 0 updates the cursor position."C"Arrows allow direct drawing. Press the direction to draw, then the distance in feet (1-9) 0 will exit. Drawing will be done with active color."D"If the cursor position is off-screen, it will not show up. If you cannot get itback, press Q, then select continue. Cursor will be midscreen. Many functions won't work if cursor is too close to edge, or off-screen."D 44539: 100D: CHECK AND DISPLAY COLOR CHOICEE, FCF2 : 0,0:(50F230,0)(50F23030,8),,B:F2FC: 3,0:(50F230,0)(50F23030,8),,BE2 EE: SET OFFSETSE_ SOSO1: SO4 SO0Ev* SO0 XO0:YO0E4 SO1 XO(PI2):YO0E> SO2 XO0:YO((PI2)PP)EH SO3 XO(PI2):YO(XOPP)FR 3,0: XO0 (41,0),"0 in." : (41,0),"6 in."FE\ YO0 (57,0),"0 in." : (57,0),"6 in."FWf FC,0: 950Fgp: FAT BITSF~z JX2 JY10 F JX31637 JY15189 F 3,0:(22,0),"Fat Bits": FC,0F FX0 31: FY0 15FAR(FX,FY)(JXFX,JYFY)1G  FY,FXG 0: 32G1G:ʀ FX0 31: FY0 15GSԅ AR(FX,FY)1 2280Gޜ(FX2,FY2,AR(FX,FY)):(FX21,FY2,AR(FX,FY)):(FX2,FY21,AR(FX,FY)):(FX21,FY21,AR(FX,FY))G FY,FXGFX((0)2)2:FY((1)4)2H#F1(FX,FY):(FX,FY,FC1):(FX,FY,1):(FX,FY,F1)H:  (13) 2360HR  (0)1 2440Hh  (1)1 2290Hz $(FX,FY,FC1)H . 2290H 8 FX0 31: FY0 15H BAR(FX,FY)(FX2,FY2): FY,FXH L 80: 4H V FX0 31: FY0 15I `(JXFX,JYFY,AR(FX,FY)1)I j FY,FXI& t 1230I, ~IA (0)1 2440I[ FCFC1: FC4 FC0Ia Iy : DIRECT DRAW MODEI JX2 JX637 JY10 JY189 I 3,0:(22,0),"How far?": FC,0J I$: I$"" 2500 : (I$)0 1230: : V&& FROM ISSUE #21&K : COCO3 CAD BY STUART T WYSS-GALLIFENT (C)1993 &w: WITH NIB COMPRESSION (C) RICK COOPER& 80: 0,0: 8,63: 0,0:1&( 8&2 500&< AR(32,16)&F &HE6E4,&HE6&P &HF015,18: &HF016,18&Z 65497,0'd 0: 80:0'"nHF0:CN0:DR0:ME0: 0,0'1x 100( 28)"==== COCOCAD ====":18)"A basic CAD system to design floor plans":"by Stuart T. Wyss-Gallifent (C) 1993, featuring NIB compression (C) Rick Cooper"::"MAIN MENU - Press Q after entering the program to";(" return to this menu"::"1> Load - load a design from disk":"2> Save - save current design to disk":"3> Continue - continue working on current design.")!"4> Begin - begin a new design":"5> Help - a brief help screen":"6> End - end this program")M:"Please select a number from 1 to 6")I$: I$"" 170 : (I$)1 (I$)6 170)1) (I$) 1440,1650,250,200,1900,1420*ȇ"Here are some horizontal inputs and the exact area that they produce:"*V҇:"30 => 29x17 40=> 41x25 50=> 52x29 60=> 62x35 70=> 69x44 80=>90x59":*܉"About how many feet horizontally? (1-255)";HF**HF(HF): HF0 HF255 220* HF0 HF(393216):EX1 : 393216,HF:EX0*PI(635HF)+-"On-screen scale is: 1 foot equals"PI"pixels"+Z20)"or 6 inches equal"(PI2)"pixels"+":"The work area will be at least"(635PI)2"ft. by"((630PI)2)"ft."+,:"Press any key to continue, or BREAK to restart."+6 44539,A@ 4:GR8:OP32:BA0:DW55:G215:G311:G42: 0,BA: 1,OP: 2,GR: 3,DW: 2,0,JEPP2,[J EX1 480,cTX0,^ &HE6E4,&HE7:0: &HE6E4,&HE6,h 450,r: REGRID IN PALETTE 2,| 3,0:(22,0),"Gridding": FC,0, Y(PI2) 191 (PI2)- Y9 Y-. X0 639 PI: (X,Y)0 (X,Y,2)-: X: Y-F 1230-L-k 2,0:(0,0)(639,191),,B-̀ X0 3: X,0:(50X301,1)(50X3029,7),,BF: X- 3,0:(1,0),"Color":(22,0),"Relative":(32,0),"X offset":(48,0),"Y offset".e X0 3:(50X30,0)(50X3030,8),,B: X: 393216,HF:XX(HF2)PI:YY(HF4)(PIPP):FC3:F25.~ꁦ 2040:SO3: 2070.X(0):Y(1).XX31:YY31.X(X4):Y(Y4). DR1 (0)1 910:FCFC1: FC4 FC0/+ DR0 (0)1 XXJX:YYJY:RS1:DR0: 2,GR: 500/B& (1)1 920/L0I$/X: 2050/oD I$"6" 2070/N I$"A" 970/X I$"^" DI0: 2470/b I$(8) DI3: 2470/l I$(9) DI1: 2470/v I$(10) DI2: 24700 I$(12) 26100c I$"D" FC3 : I$"G" FC2 : I$"B" FC0 : I$"O" FC10v I$"Q" 1000 I$"." 3700 I$"F" 21600 I$"W" 11401 I$"C" CN0 CN1 : I$"C" CN2 FC,0:(JX,JY)(CX,CY),:CN0 : I$"V" CN01ƅI$"M"ME0ME1:I$"M"ME2DX(MXJX):DY(MYJY):DX(DXPI):DY(DY(PIPP)):DD((DX2DY2)10)10:ME0: 3,0:(22,0)," ":(22,0),""(DD)"ft": T1 700: T:12301Ѕ I$"," ME02 څ I$"T" 12402XXPIXO20YY(PIPP)YO2<JXXXX2HJYYYY2 JX2 JX637 JY10 JY189 RS0:DR0: 2,GR: 5002P1(JX1,JY):P2(JX,JY1):P3(JX1,JY):P4(JX,JY1)2 (JX1,JY,3):(JX,JY1,3):(JX1,JY,3):(JX,JY1,3)37*(JX1,JY,0):(JX,JY1,0):(JX1,JY,0):(JX,JY1,0)3s4(JX1,JY,P1):(JX,JY1,P2):(JX1,JY,P3):(JX,JY1,P4)3> CN1 CXJX:CYJY:CN2:CC(CX,CY)3H CN2 (CX,CY,3):(CX,CY,0):(CX,CY,CC)3R ME1 MXJX:MYJY:ME2:MC(MX,MY)4'\ ME2 (MX,MY,3):(MX,MY,0):(MX,MY,MC)4Ef RS1 RS0:OXJX:OYJY4lp DR1 FC,0:(OX,OY)(JX,JY),4|zOXJX:OYJY4 5004 (0)1 910 : 4: DRAW MODE OFF/ON4 (1)1 9304 DR0 DR1:RS1: 2,G2:5  DR1 DR0:RS1: 2,GR:5, DR0 DR0:RS1: 2,GR:5F: ABSOLUTE DRAW MODE5Q 2,G35u 3,0:(22,0),"Absolute": FC,05X(0):Y(1):XX31:YY315X(X2):Y(Y2)5Y(YPP)5AXJXX: AX0 AX0 : AX639 AX6396AYJYY: AY8 AY8 : AY191 AY1916-P1(AX,AY)6L$(AX,AY,(3)):(AX,AY,P1)6h. (1)1 (AX,AY,FC)68I$: I$"R" 1230:DR1: 9506B I$"Q" 1230: 1006L (0)1 1130:FCFC1: FC4 FC06V 20506` 10007j (0)1 1130 : 76t: WINDOW MARKINGS/PARTITION EDGES7Z~ 3,0:(22,0),"Partitn ": FC,07sI$: I$"" 11607 I$"H" FC,0:(JX,JY2)(JX,JY2),: 1230:7 I$"V" FC,0:(JX2,JY)(JX2,JY),: 1230:8. I$"D" FC3 : I$"P\'0 ٽB@@;Z$  TӾVս5R׾Tӽ5NӾPս55a5}L'59/&95 ;%K990123>0123=>0$\ 405"9$\ ݝ9"SCREEN /NIB" !5%9o 1?@% o1?0 0@%9' &䆀1! ܎1?@$09o1?0 ~5@ˌ%9'5Öͧ٦'5Ö̪ &ֆ1! 'XXXX  TTTT 9@@%9 & :LOADER FOR SONG 'BEER BARREL POLKA' BY LEW BROWN, TRANSCRIBED USING MUSIC3+ PROGRAM BY GEORGE QUELLHORST IN RAINBOW 4/91 PAGE 10.':@ 71,"BEER BARREL POLKA";:@143,"BY";:@194,"LEW BROWN, WLADIMIR A. TIMM,";:@257,"VASEK ZEMAN AND JAROMIR VEJVODA"'@354,"TRANSCRIBED BY: JOHN ANDERSON";:@388,"INSPIRED BY: HERB SCHULER";:@416,"WITH THANKS TO GEORGE QUELLHORST";:@452,"FOR HIS MUSIC3+ PROGRAM";'M"BERBAREL/BIN"'# T1 2000: T'(65497,0:'265496,0(<:@231,"HOPE YOU ENJOYED";@354,"TRANSCRIBED BY: JOHN ANDERSON";:@388,"INSPIRED BY: HERB SCHULER";:@416,"WITH THANKS TO GEORGE QUELLHORST";:@452,"FOR HIS MUSIC3+ PROGRAM";'M"BERBAREL/BIN"'# T1 2000: T'(65497,0:'265496,0(<:@231,"HOPE YOU ENJO]&W 80:65497,0:2:X222:1,X:0,6:(78," ");::X321:3,X:0,4:(74," ");:&|15,32: 282,0: LOWER CASE POKE&8,5:3,7,U:7,0:"W H E R E I N T H E W O R L D I S C O C O C A T ? (pt. 4)";:3,4:" ";'8,7:0,4:L1112:L$:14,L:L$;::8,19:7,4:"Follow his tracks by answering the questions and collecting clues.";:29,20:"-=PRESS ENTER TO PLAY=-";:3,4:" ";'( "Part four is the last and that cat's nearly found!","Keep up with the clues and don't lose any ground!"(A65496,0(F44539:5:0,0:0,4(&2000(<1220:1220(C$"!w1QhAZv2WiSX#j3lEDCk$4RbmFVg%n5cTGxBo&f6YuHN'e7UJpM(8aIdKy<,)9rOL.>z0P;s+/?:*-q=t@ "(34))gD$"ZXCVBNM,<.>/?zxcvbnmASDFGHJKLasdfghjkl;+QWERTYUIOPqwertyuiop@1!23#4$5%6&7'8(9)0:*-= "(34):E$"/.,MNBVCXZmnbvcxz;LKJHGFDSAlkjhgfdsa@POIUYTREWQpoiuytrewq-:0987654321!#$%&'()*=+<>? "(34))K$"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ^1234567890:-=!#$%&'()*@;+,<.>/?"(34)*"To find this month's clues, answer the 4th and final question:"::"What are the first AND last name of the person who created a colorized, computergenerated CoCo Cat for RAINBOW? ";*$CC$"":CC$:N1(C$,(CC$,1)):N2(C$,(CC$,2,1)):N3(C$,(CC$,3,1)):N4(C$,(CC$,1))+H.N11N21N31N41N185N285N385N4851,4:"IMPROPER ENTRY":X1600::1060+8C$(C$,N1)(C$,85N1):D$(D$,N2)(D$,85N2):E$(E$,N3)(E$,85N3):K$(K$,N4)(K$,85N4),MBI$"":C0:CM$"OnUor/wcUaCTS/HC!.%N&Jjs(5Px>AWs-K+DT0K0w2euk3$)OI-DPj-=ZnhCqjL4J1wjIs?yl=Znh%&5UfQ&5X#$vt^JnYuh.@E!D'qK)WXbxIha5z@-n"(34)"x9tj:",SL,nV65497,0:N1 (CM$),`L$(CM$,N,1):I(K$,L$),jL$(E$,I,1):II(E$,L$):I(D$,L$),tLL$(C$,I,1),~LL$;,C$(C$,II)(C$,85II)-"T255L255C":N:65496,0- CM$(NB)DM$-::"IF YOU CAN'T READ THIS, PRESS SPACE BAR TO TRY AGAIN. PRESS BREAK TO END":44539::1020-44539:I$:-I$:I$""1210:(C$,I$)01210:.\Ē65496,0:32:: 282,255:"SUBMIT THE ANSWERS TO THE 4 QUESTIONS AND THE NAME OF THE PLACE WHERE COCO CAT IS HIDING AND YOU MAY WIN THE CAT!". PRESS BREAK TO END":44539::1020-44539:I$:-I$:I$""1210:(C$,I$)01210:.\Ē65496,0:32:: 282,255:"SUBMIT THE ANSWERS TO THE 4  S                                                                PPT "U"$"@%!-iHM:DGwr%w@ QJ8l$D0Q@ b ?l0tE 00?tqr@#8]9U!D"$R"* @UAJ(D@@D`EDh@%Ҡ@`4*@P@Pm"D`ՀՃV@ `@AA@@A0  0P &` 4p$x ` <`B#D0 $g$`6g͆`af`H! H! K ` `0C20 0`0S @ N7?@Z @j$ `0 b R 2`00``K  xx\]pf4p4aa` C(@D0@< 43@ <<008%@B 0&  60j`!x'lC1YH  26.Pc(`! '%0`0D($@@ Z- 2L `E "8 c 2`ct` 0``0(xX*D1,J%@0f`P 0A@  *3(b P0`Ɛ `D " B0T1Pc0 P Ԃ##t@ @ Y$H@ ( M 0BPB `P``0B  )R$hBP?r|0"J`0<<@E"!0`l;]{ (BRQB)Q@4x8  @ @X @:()  ` :(@PA9@@ p#@0ТРF Zb Q@Z,E@ zy/@`@@:0E〡Azz/@n x@`ТҀ@Z@00 `0PA!`  0`@P p  (@0 L a0Z 00 C@ UP  @ x`6<x8 f @ <`0@@ 0p(3 p8`@`@P@f@(@0@ 0` x030(P <@(LS L ` 0  ! 0 (`  %./0123578;<>ANIMALS DAT?BERBARELBASBERBARELBIN$ BP BINCATTRAX4BAS `CHECKS PAYCOCOCAD2BASCOMB BIN4CUR BIN DATA1 DATrDATA2 DATDATA3 DAT"DATEDTR BASDATREDERBASmDEEN BAS@!LINKFILEFIX&NAMES TXTNEWDATA BAS=QEWFONTSNIB!NIBLOADRBIN`PATTERNSBAS/PATTERNSDOC-PP BIN9PRINTME BASSP BAS @TTL BIN6 VUD3 BASVUDT DAT:WALK BAS+WALK BIN,6@<x< @b Z(f3 f0=@() hf3 f0XZc!ΰ4 <x<`  ( @   0P LS Hp@ 3$! 0P@P0A( P P@xcDpp,w" &`Ztb` `0 c0`0`1`\`$"@ <$`  Pa0` G+T0ǘ`!,%E<00}0 30Q 塰xz`86a(D@p8QcNpw88wpDR,%E@P(@A PKJ U(%` `6(@@ (@ P (R%P  DHJG@"$DD"Bl`p]p.wr.6wm`@` ~((6@<""@`~@Gw@@.qN7w=8)@r"TPDBHEU"$DD"U @@@PP T`"   "B$R@HD@M HD`]pppGtW!-@@D"@@t: 0`a9 @@ptt.\H@ %!U!RJ*  BD ( CUf"P"Zaþ;p0pxp8s~3 }߸~}߸0o`v>w~ ?4&!%&4 Ln0lnNZSs~3 }߸~}߸0o`v>w~ ?4&!%&4 M  "#&')*+-.012457889;;<<>>>???????>>><<;;987754210..-+*)'&$#"  """""#######""""   7J^r +Lo?qV(v!J/ 0 P C s_X`w&+ "$&)@+.M1L?#P0jßƟɟ0991PϦѦӦ՟9LëLƩLɩL̷ 1& ' Ǧ 9u&O9 @ > @ F>2 F>2 F>2 D>2 H<6( H<6$ H<6" H<6 J@:J@:J@: J@: J@: J@:@:>8 @: :2 @:>8 @: :2 @> @2" J@" N>  J>  J< H< H@JD H@< JD< NH< JD< JD< H@< H<J<H@D<D8H8 D: @: @:>8 @: :2 @:>8 @: :2 @> @2" J2" N>  J>  J< H< H< @ N@0NL@. N@0J@, J<, H<(  D< @< B< D<$ H<*@J: @ B D D<0 B:0 D<0 D<0 <, :( 6$@D D<0 D D<0@D 2 <6 >8 @: @2 >8 @: @: :( 6$ 2" @ @:2 @ @:2 @ J: N: J: H H<6 H N<6 D D<0 D @<0 H H<0 H H<0 H JD< NH< JD< H H<6 H N<6 D D<0 D B<0 @ @:2 @ @:2 @ :2 @ B D D<0 B:0 D<0 D<0 <, :( 6$ D D<0 D D<0 D D2 <6 >8 @: @2 >8 @: @: :( 6$ 2" @ @:2 @ @:2 @ J: N: J: H H<6 H N<6 D D<0 D @<0 H H<0 H H<0 H JD< NH< JD< H H<6 H N<6 D D<0 D @< J@:J@: J@: J@: J@: J N R"@T$@N@J@D@<$@6@2@, JD<$ JD< J JD< J$ JD< J HB< JD<$ ND< N ND< N$ ND< N ND< JD<$ NH< NH< JD< NH<$ JD< JD< HB6 F@6. F@6. F@" F6. F F6. F F6. N( NH: N NH: N( NH: N LH: NH:( RH: R RH: R( RH: R RH: NH:( RH: RH: NH: RH:( NH: NH: LH: J$ JD<$ J" JD<" J JD< J JD< JD<$ JD< J JD< J$ JD< J HB< JD<$ ND< N ND< N$ ND< N ND< JD8$ ND< ND< JD: ND<$ JD8 JD8 <8 N NH6 N$ NH6 N& NJD6 N" NJD6 @0( D2 H6$ J: R" RB: R" N@: N$ JD< J JD< JD<$  H J NH<( NH<$ NH<" NH< RF@ RF@ RF@ RF@ TJD @TH@ TH@ TD<$NND< N$ ND< N ND< JD8$ ND< ND< JD: ND<$ JD8 JD8 <8 N NH6 N$ NH6 N& NJD6 N" NJD6 @0( D2 H6$ J: R" RB: R" N@: N$ JD< J JD< JD<$  H J NH<( NH<$ NH<" NH< RF@ RF@ RF@ RF@ TJD @TH@ TH@ TD<$ 30 X=1:Y=4:C=1:LOCATE0,1:PRINT"Select ending file for merge :";:GOSUB112:F2$=FD$(SE):SOUND230,1:LOCATE33,1:PRINTF2$;:IF F2$=F1$ THEN SOUND230,1:LOCATE33,1:PRINT:GOTO30 32 LOCATEX,Y:PRINT" ";:LOCATE0,2:PRINT"Enter name for output file :";:X=33:Y=2 36 GOSUB38:F3$=F4$:FOR J=1TOCT:IF F3$=FD$(J) THENSOUND230,1:LOCATE33,2:PRINT"FILENAME ALREADY IN USE!":FOR K=1TO2500:NEXTK:LOCATE33,2:PRINT:GOTO34 37 NEXTJ:GOTO68 90 POKE135,0:PRINT:PRINTTAB(8)"END OF FILE - PRESS [F1] TO PRINT OR ANY OTHER KEY TO CONTINUE...";:EXEC44539:IF PEEK(343)=191 THEN170 ELSE POKEFP,0:GOTO12 154 LOCATE25,1:PRINTNN$:SOUND230,1:LOCATE0,2:PRINT:LOCATE39,1:PRINT"...SURE?";:EXEC44539:K$=INKEY$:IFK$="Y" OR K$="y" THEN 156 ELSE 12 164 POKESP,0:CLOSE:IF PEEK(&HFE10)=66 THEN166 ELSE LOCATE10,13:PRINT"Program halted by error#";ERNO;" in line ";ERLIN:END 166 LOCATE0,2:PRINTNN$;" is an existing file....Select another name!";:LOCATE25,1:PRINTSTRING$(21,32);:GOTO148 168 PRINT:PRINTTAB(26)"Input Past End of File Error":PRINTTAB(12)"(Sequential File, BASIC Program, or Bad File Structure)":PRINTTAB(25)"Press any key to return to menu":EXEC44539:GOTO12 170 IF(PEEK(65314)AND1)=1THENFORJ=1TO3:SOUND230,1:SOUND220,1:LOCATE31,20:ATTR3,3:PRINT" PRINTER OFF LINE";:ATTR4,4:GOTO170 172 LOCATE25,20:ATTR3,3:PRINT" PRINTING FILE....Please Wait";:ATTR4,4:OPEN"I",#1,F3$ 174 IF EOF(1)=-1 THEN CLOSE:GOTO12 176 LINEINPUT#1,D1$:PRINT#-2,D1$:GOTO174 NFORJ=1TO3:SOUND230,1:SOUND220,1:LOCATE31,20:ATTR3,3:PRINT" PRINTER OFF LINE";:ATTR4,4:GOTO170 172 LOCATE25,20:ATTR3,3:PRINT"0 \ p       (т 򏭂 /O/O-m(m /O𯟯/OB/M OO/OMJO?MJO?O/OO OOO OOϯOCOL ϯOϯ =O  CO COOO O ?    ? O  ?  O?  O   Oz Oϯ $O߯ ϯ$ z O߯zO$ϧ/$/߯ϧzz$ z~ϧz/~~ϧz߯Zz{~5~Q?{{~Cz~?{zO{zzzz{{zz{#/?zzz2?#/?zz﷿{#{{z2_z{#{?߭?{{߯﷿z߯{{{{{_{e_V_{_V_V_V_VV_V_oVV_V_VVV_egV_eoeoeoeoeVVVVVeVeoo_eeV_v_eV_eV_VV_VVVVegV_?_eoVoV?_V_?_oeoeooeo||eooe|||ooV||||Vo_e||oe|eoe||oe|eoeV_/_/V_?_/?#?/####?##2?#?/#ח2?}}}}yy}}}yyyyy//}}}}}//}}}yy//}}y/{/{{/{/ @_l@`@ 9v y 08`2@@ 4(`p*x 0t8 `< |3 S o1/AVI;H^4[&O0S  b'| 0 ok40  8< )Od.H@:\<5l`x#! <H + "x`;@X)@ `G<p (p`@"@0r (P$lX( $A9_L (J`tX -jD!`2tO,@|&l)`pb|̕ >`@pHa p P Hl(D |# u m @! ptTRJE RDa^Œ2@N!hHC3aC$LP%3I` YIЀdbHP~%@BX!@:jD#@3WTb"o9љ3@Z`r 3 ? ZA`8S"(s/ s` d:  !  |{!@F@>W`)R @@ "( (7D ~( &X< ( rCCr  x0U$"@#"  FO 0$ @' pP$aH @ BQEOF$PpTQ:!- j:@g0ţ V X@`<$51@0B  A Hu-š@ 3C ý h@7RHI#kD 炀4 ,0D BD0?ك< +( =LDY~ |&W`@Ttȿ < |1,^62k,Fh6;U A! ?0,52@ )H VZ<a1T3Qa@  1`0 j~E `t(hd @F`9xg `$Ԁ1 @@ÖPSFoA) 2 1 (8! Ԫ#L !J*8d$@a-!SB0 B(a ) G<Ħ@`F0L @M@A(@Q@< ڨp4@0@Fcsr50 +I)gZ B@ A C$zQ@Ba@$@-(ARH$ @z['E Jb D0  h@H$E(@   8 @ !J @(XLHA" ,jp ,7LҠXP04 hf, x,X4842L4Th f30 p0p_ 0P& `$Q`;G@gDG 0@+p` 2@` ` "D. PB*  ի@fTXU1T@)% hm-aD@ mlJh[mPBV Ta` !EP Vh[mP"VT@`Z(TZVHШP% ,$@T$RD $@9%@ @@ B@"N1@ @ `@K@P@ *2A@P(@ H@ @C"(S   :@j@D B B" h p Uc N )@ H"@(iH] lU`, !a @P\TaJ lH QP$@  +mQmdml+hU  (VP" ڶ Vmm@ @0VH- VڶEvm -P*VUQ+B6 [b P@H   $D$ @P  0P c 0I`  D @(%@00@( BA@(b 01C (,C3,@hJ`"(eP ` H 09AbhpHP@ (Pd "00H P@@ AD 0  @ 66H0@  @ P$@(6Q ,6( P  B*UPT6) J6jV6 J JƥlVԭج6հ 6l6  l6ml6 6j"6  DFlVml6 66  Ɓh*mXl6 66 0``lXl6հ 6*6  FƁhml60 6DV6  mRmXl60 6l6  lmXl6° hVjV6 J JlVԭج6 **6 X  Fl6(UT6HH6X l6%( A0 0"DB `00 o??ϯi?~l+5}{>~x 7~O>?@&~Ox~`Ӡ7~؀o0_ ? `?y¨ TbL?0^|?xy1{8/ ?x ػO,!_ mwws[?~}G`?3+_?}}j9~>x̓{ `o``7?Ǐ>```ppp p66p>p<7p<>p<>p<>p<<0<|p<~p<~x<~x<8<x<x<x<x<>~~|??``~`>`>`??????????????fo >>)=w??|wow/?>?>1>1=  ?????????7c7ٷ7G1?G1~=?~~;?g9`?~l;0 ?>4!<(+6$ 8P0pV \ 0 ?>(M"CHRISEAL.BIN"(%" &HFFA2,&H3A(6,M"CHRISPRO"(J6 T1 800: T(P@([J 590(|T "END OF CHRISTMAS PROJECT"(^(h DRAW PALETTES(r &HFFD9,0(| X0 15(F(X15)( X15 F8( F,0((X20,28)(X2019,47),,BF) X)*(X201,29)(X2018,46),,BF)2‹ X)> 1,400)Mր X0 15)V 15)j(0,0),(X65))}(0,0)(9,9),1) 0)(0,0),(X65))(X206,18)(X2015,27),1,) X)& 8)0(0,28)(319,47),,B): &HFFD8,0)D*N SAVEM CHRISTMAS SEAL*&X &HFFA2,&H34*KbM"CHRISEAL.BIN",&H4000,&H4810,0*]l &HFFA2,&H3A*cv65))}(0,0)(9,9),1) 0)(0,0),(X65))(X206,18)(X2015,27),1,) X)& 8)0(0,28)(319,47),,B): &HFFD8,0)D*Nx`?~x~_~`````}wx~gg````~`x`xx~ax~~f``x`~y`~~& 32&12,63:13,0:&<@103,"I'LL WALK WITH GOD"&K@174,"BY"&i@232,"NICHOLAS BRODSZKY"&#@324,"TRANSCRIBED BY: ROY ATKINS"&(@422,"PRESS ANY KEY TO PLAY":44539&-M"WALK/BIN":&HFF40,0&265497,0::65496,0065496,00fs0>_E1 K` 4-]KtF<酰PA8hf1mW"@j_vy4 Ex78d 4rP4`F>Zi@n%x@x ^Q* ;,T8 ` huvv MOAuC  "> g %Yx@[;P5p+K:`+dsZ"P @ƣ|=<tK`@/ÅFp` F(P @*&X0  P0 8 _= ԰hx0p,ŷի!4XUqff<}Q3@f m10Z$7OX0o!MX4g<; 0 ϟfzPf5T]Cտ+C'=4A7ĹOϷB9-IA@al{k.8 ?Zt po?g&]6.o0H=l @玿;-1쥀 "ہE,۔y۾r`JXO ) Jw%<P_iG[`X uHRs`2x`ۿ dvP} ɀ m8^~ǝ'~o ls,H/'0 hkxp o@.0#o{s%0w÷ɧ-6e?i Bo~ vroxgh@ {p<_ݏ0_|!JzP47@ t>7`x_1 @Nߌzym`|мaC g<fE:x* KP CqN@ F`fk1f}qиaD?kYi|: =Xt6`d1ླྀ6Lj/ߘ$39bɨ,_8e420 Āa ?- Fe Aa[lP(Hw{t1 sbO e X@_Su@Ӡc x o0SXwJ6Ԅ)b@o_<^j1opC aj!/sl7|?d@pKy MwX`>mAP-~Fyˀ M  "#&')*+-.012457889;;<<>>>???????>>><<;;987754210..-+*)'&$#"  """""#######""""   7J^r +Lo?qV(v!J/ 0 P C s_X`w&+ "$&)@+.M1L?#P0jßƟɟ0991PϦѦӦ՟9LëLƩLɩL̷ 1& ' Ǧ 9u&O9 $ < <$ <" < <, <6, <2, <. @. <. :. <, <, <,$ <, $ D< D<, D< D:2 D:2" D:2, D:2" D. F. @:2 :2 J< J<$ J<2 J<$ , D, @, <, H@6 H@6 H@6( H@6 H@6 @60@60(@60(@60 D60 @2 @2 @2( @2 @2 @" 2, 2 62 62 2, 62 60 60( :0( <0( : :( :2 :( :. :. :. :." , <, <,$ <" < <, <6, <2, <. @. <. :. <, <, <,$ <, , D< D< D< D:2 D:2" D:2, D:2 60 @60D60@60(@60(@60 D60 @2 @2 @2( @2 @2 @2 ( @:2 D82 D82 82, D82, H>8 H>8& H>8, J>8, N@6 N@6( N@6 N>6@@0" @D4" H@6 H@6 H@0 @60 J:2 J:2 J>2 H>2 D2 D2 @0( @0 @0 @0 @0( @0$ @8. @8. @8. @8.$ <8.( <8. <8. 8. F<. F<. F<. F<. <. <. <. @6. B<4 B<4 B<4 B<4 B4$F4 B4 @ < J@: J@: J@: J@: J@:" J@: H:2 H:2 B<2 B<2$ B<2 B<2 B<0F<0B<0 @6( <6( @:2 @:2 @:2" @:2 @:. @:. @:." @:. , <, <$ <" < <, <6, <2, <. @. <. :. <, <, <,$ <, , D< D<, D< D:2 D:2" D:2, D:2" 6. F6 @:2 :2 J< J<$ J<2 J<$ J< <$ J<2 J<$ L<4 L<4 L<4* B<4* B<4 B<4 <4* B<4* F8 F8 8. 8. . 8 < >4& >4& >4& >4& >2& 2& <2 >2 B4 B4 B4* B4 B4 4 B<4 B<4 TL< TL< TL<( TL< PF< PF<$ LF( LF$ JD JD, D:, D:( <6, <6, @ D F<6 F<6 F<6 F<6 F<6( <6( F. J2 LF. LF* LF& LF$ LF LF PF> PF> TJD TJD TJD, TJD TND TND TND$ TND  XN TN XNTJD<NB4 4 B<4 B<4 TL< TL< TL<( TL< PF< PF<$ LF( LF$ JD JD, D:, D:( <6, <6, @ D F<6 F<6 F<6 F<6 F<6( <6( F. J2 LF. LF* LF& LF$ LF LF PF> PF> TJD TJD TJD, TJD TND TND TND$ TND  XN TN X **** COMPLETE THE PATTERNS AND DATA GENERATOR **** The idea for this brain-teaser originated with a commercial on one of our local TV stations, and please forgive me this dirty word, for some Apple software. The one I saw on TV employed different shapes drawn on the screen in ever changing patterns. The player must then determine the pattern being used and indicate the next shape that had to be drawn on the screen. Well as soon as I saw this commercial I realized how much nicer this game would look on our Color Computer III employing all those magnificent colors we have available on our Hi-Res graphics screens. And that very same evening the first lines for the program were entered into my computer. The result is a brain teaser for kids of all ages. Level 1 is mainly designed for the younger hackers up to about 7 or 8 years old, and is played on a 4x4 grid containing 16 squares which are then colored in a certain sequence. One of the 16 squares on the screen is left blank and the player must indicate which color this blank square should be in order to complete the pattern being displayed. The order in which these patterns are shown on your screen is picked at random and the same goes for the missing square. Coco might pick the same pattern twice in a row but the empty square will be different this time. Level 2 and level 3 use the same grid, but the squares used on level two are divided horizontally resulting in 32 rectangles of which two will be missing, while the squares used on level three are quartered resulting in 64 squares with four of them missing. Level two is intended for persons in grade or junior high school, while level three is definitely for intellectuals like yourself. DATAGEN was originally a separate program I wrote strictly for myself to generate the data statements that were needed for the game. I decided however to make the program completely automatic and include it as part of the game thus allowing you to create your very own patterns. You will find the directions for DATAGEN/BAS at the end of this article. **** HOW TO PLAY THE GAME **** Since PATTERNS/BAS is a combination of two separate programs, you must tell the computer which program you want to use. When the first prompt is displayed on your screen, press "P" for Play or "G" if you are planning to Generate additional patterns. The level of play is determined by entering 1, 2 or 3 at the next prompt. The final prompt will ask for your first name. Your name, which will be added to the scoreboard, may not be longer than six characters. Anything inputted after the sixth character will be ignored. The hub of this program is the gameboard, divided into sixteen squares. They are cut in half horizontally for level two, then quartered for level three. Each square or rectangle is a different color creating a pattern. The order in which those patterns are displayed is picked at random from the patterns available in your array. Another random number between one and sixteen is picked before the pattern is displayed on the screen. The square corresponding to that number will be left blank. On the right side of the screen you'll see a rectangle divided into six little squares painted in different colors. Printed underneath are the numbers 1 - 7. A little lower on the screen is the INPUT square which is left blank. The scoreboard and clock are in the lower corner. Complete the patterns ................................................... Page 1 **** LEVEL 1. 16 SQUARES **** Determine which color the square that is left blank has to be in order to complete the pattern or sequence presently being displayed. Press the number that corresponds to that color. The computer will PAINT the INPUT square the same color. When you're sure that color selected is the correct one press ENTER. The computer will paint the blank square in the color you have selected. If you were right, TEN points will be added to your score, and a new sequence will be displayed on your screen. Five points will be deducted from your score if you are wrong, and the same sequence will remain on the screen until you get it right. You will be docked five points if you press SHIFT/@ and try to stop the clock. The clock will continue to run regardless. 5 minutes of playing time are alotted on level 1, 7 1/2 on level 2 and 10 on level 3.The clock will stop running only while the computer is occupied setting up the next sequence thus allowing you the full measure of playing time. **** LEVEL 2. 32 RECTANGELS. - LEVEL 3. 64 SQUARES **** The only difference here is the amount of squares displayed on your screen and the amount of colors you will have to guess. The squares on level two are in cut in half horizontally resulting in 32 rectangles. The input square is also divided in half. A cursor is placed in the top rectangle. Pressing one of the seven numbers will cause the top rectangle to be painted in that color and the cursor to move to the bottom square. Repeating this sequence will paint the lower rectangle while the cursor will move back to the top. You may repeat this as long as you wish until you are satisfied that the colors you painted in the square are the ones needed to fill in the missing square on your gameboard. Until you press ENTER, nothing will happen. But remember, the clock keeps running. Pressing ENTER will cause the same sequence of events to occur as in level 1. The blank squares will be painted to match the colors you selected, the computer will check to see if your answer is correct, TEN points will be added to your score if you are, and FIVE deducted if you are not. After an incorrect answer, the same pattern will remain on your screen. The square you painted incorrectly will be blank again, and you get to try it again and again until you finally get it right. **** LEVEL THREE **** On level 3, the squares are divided into four with each square painted a different color. Pressing one of the 7 numbers will cause the square containing the cursor to be painted while the cursor moves clockwise into the next square. Remember, and this applies to level 2 also, the square containing the cursor is the one that gets painted next. You may continue painting as long as you wish. Press ENTER when you're done. **** THE SCORE BOARD **** The eight highest scores for each level are stored on the disk in a file called SCORE/DAT, which is generated automatically and updated at the end of each game. A negative score will not be displayed, even if all the other scores on the board still read zero. Complete the patterns ................................................... Page 2 There are two ways to change levels of play. You may press BREAK/RUN or you may press the [F1] key which will cause the present score to be reset to zero. At the same time, the program will go back to the title screen allowing you to input a new level of play. The program will not ask you for your name because it is still in memory. After the alotted time has elapsed a buzzer will sound, your disk will churn, and the scoreboard will be displayed on the screen. A message on top of the scoreboard will ask you to: "PLEASE WAIT SORTING SCORES". As soon as the scores are sorted out, about 10 seconds, this message will be erased and the scores put on the scoreboard. While you are busy reading and comparing the scores, the new scores are saved to your disk. As soon as this task is completed, a new message will be printed in the message-box stating: PRESS F2 FOR ANOTHER GAME. Pressing F2 will return you to a new game at the same level you were playing. The score will be reset to zero and the clock is reset to the alotted time. **** THE DATA GENERATOR OPERATING INSTRUCTIONS **** DATAGEN/BAS will allow you to automatically add more sequences to your existing DATA1/DAT, DATA2/DAT AND DATA3/DAT files. The same game boards as are used in the game will be displayed on your monitor or TV. The input square operates exactly the way it did when you were playing a game. Press "G" at the main menu and then "3" for level three. You will notice that all the squares on the gameboard are blank. While the upper left square on the gameboard contains a cursor. This cursor can be moved around the board two different ways. Pressing the [F1] key will cause it the move clockwise within the same square. The four arrow keys will move the cursor around the entire gameboard in the direction of the key being pressed. Notice that the cursor does not move within the square. Only by pressing the [F1] key will this cursor move within the larger square. In level 2 the [F1] key will move this cursor up and down. The [F1] key is not needed in level 1 and is therefore inoperative on this level. Now press anyone of the color keys to PAINT your input square. Pressing ENTER will PAINT the square containing your cursor in the same color. Press another color key and press ENTER again without moving your cursor. You will notice that this same square is PAINT'ed once again the same color as the input square. By using the [F1] key, you can paint the four little squares any way you like. Change the color of any square on the board as often as you wish as long as you dont press BREAK or the SPACEBAR. When the pattern you created on the screen is to your liking, press the SPACEBAR. The pattern on the screen will be added onto the end of your file called DATA3/DAT, the screen will be cleared and everything is ready to create yet another pattern. To escape from this program, you just press BREAK, which will close your file WITHOUT saving the pattern that is currently displayed. If you wish to save the last pattern on the screen, press the spacebar when you are done, wait untill the screen has cleared itself, then press break to close the files and end the program. A word of caution is in order here, YOU MUST PAINT ALL SQUARES before you press the spacebar. There are no provisions in the program to take care of "UNPAINTED" squares when you are playing the game. In case you do accidentially press the spacebar before all squares are painted, there is only one way to save your datafile. Treat the file as a "BASIC" program, load it into memory and delete the last line or any other line containing one or more 8's and resave it to your disk in ASCII code. Be sure that you use the proper name. In order to switch from one level to another, you must press break and rerun the program. Unfortunately if you wish to add more data to your program you MUST make some changes in the program itself as well. Complete the patterns ................................................... Page 3 The Computer must now how many data lines there are on your disk file in order to operate properly. The data files are loaded from your disk in line number 68. As you can see this line contains two FOR/NEXT loops. The first one resets the variables of the previous level back to nothing, or "", mainly as a precaution. The second one loads the datafile you specified into memory. As published in CFDM, all data files contain 25 lines. Should any one of the files contain less than 25 lines, you would receive an END OF FILE (IE ERROR) in this line. If your file contains more than 25 lines, only the first 25 lines are loaded into memory. Therefore, if you add 5 patterns to the file, you must reflect this in line 68. Add 5 to both 25's in this line and change them to 30. Wait we are not done yet: Each level of play contains a line that selects one of your sequences at random and displays them to your monitor. They are, line 32 for level 1, line 40 for level 2 and line 52 for level 3. Each one of these lines starts with: R=RND(25). Again you must change this 25 to reflect the number of lines or patterns in your file. Rule of thumb:.. The numbers in line 68 CANNOT be greater than the total amount of data statements in the file you are loading from the disk. If, for example, you never use level 1, you can just leave line 32 the way it is eventhough you have 100 sequences or more in level 2 and 3 and only 25 in level one. But if you or your family regularly uses all of the available levels, the numbers in all four lines and the total amount of data statements in all three levels must be equal. Your data file is loaded into the variable A$. If you look at line 10 you will see that I have made allowances for a total of 100 data lines to be loaded into memory [ DIM A$(100) ]. Should you create more than 100 patterns, you will have to add to the total amount DIM'ned in line 10. In case you forgot how many data statements you have in a given file, just load it into memory and list it. All of them start with line number 101.Thus, if your last line number is 167, you have a total of 67 data files or sequences on your disk. It is as simple as that. One other thing worth mentioning is the fact that auto key repeat is in effect for the 4 arrow keys and the [F1] key while you are in the data generating part of this program. To assist you with the operation of DATAGEN abbreviated operating instructions are displayed on your monitor as follows: BREAK..: ESCAPE. (Close all files and end the program). NUMBERS: COLORS (Press number to paint the input square). ARROWS.: CURSOR. (Use arrow keys to move cursor around the board). [ F1 ].: CURSOR. (Moves cursor within a square on level 2 and 3). SPACE..: WRITE. (Pressing the spacebar writes the current screen to your disk) && Complete the patterns ................................................... Page 4 ... Page 4 ter. The result is a brain teaser for kids of all ages. Level 1 is mainly designed for u0ف%oѦ́ %oľv %@ @R O G E R J H A L L M A N C O P Y R I G H T 1 9 8 9 ';oh_0Z_0vQ=1C0 Z&7L2 %o*l'#%oj' 1!R9_@ 66$6ll~X~~ss8gg*~880~ 0``F<08p8~~p88pc]U^`>|ff|fff00000>``0 | |ff>`|ffff|ffff>F<`|fffff8<  8``ff|ff8<f~~fff|ffffflr````F<~ 0`~ ~~ <~~<8p4Pߞ%9Pߞ%9 {98,%P߷%|{9<98P߶{{.2{{{&%|{{8,{' ц<97 EGdŽ3ojSUߡR s H JH DJSJDJDJDJDJDJJDSJDJDJDJDJDDJSJDJDJDJDJJDSJDJDJDJDDJSJDJDJDJJDSJDJDJDDJSJDJDJJDSJDJDDJSJDJJDSJDDJSJJSSSJDJHDJHJHJHJHJHJJHDJH DSJDJDJDJDJDJDDDDDSJDJDJDJDJDJDDDDSJDJDJDJDJDJDDJSJDJDJDJDJDJ1 57mP#4=<#޺%' "& 쌰쌬#393 PL3R43G 4ƀO4'I0 j&5C*(d$50Z&3 50Z&94Z&54oo5 TEST1u0mP#4=<#r`b``r`p0# h;'x&.8n |?! a l  !| A!8 x0! ûh00 !aÇqp090.`n( >?9|?UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUꪪUUUUUUUUUUUUUUUUUUUUUUU`85UU("*UWUUUUUUUUUUUUUb8#5UU~("*UW8x?UUP?UUUUUUUb8#5UU3333ª("*UWp333UUUUUUUUUb8#5UU333*( *UW333UQUUUUUUp|uUUxw33ª8?UWUO1UUUUUT*UUUUUUUPUUUUUUUUUU? UUUUUT*U*PUUUPUWT?UUUUT *Us3PAPUW?'S??UEUUT (U3ʪP UW3?GU>UT((U3?ʪUUUUUPUW3?OUUT*ժs?*TPUWO"mTT(vTPLUUUUUUUUU_UT*,TPUW_ST(,T"""""PUW_O T(ժf^,TPUW_\3T(U#pc ,T"""""PUWG?47T(Uʳ,UUUUUUPUWSpT*U?pG,UUUUUUPUUUUUUUUUT?·T*U?*,UWT?TaTU??,UW8s8U?UC?TU33??ª?,UWx30?UCUUTU333*,UW33sUTUUUTxTUx0ª,UWUU@?UUUUQTU|,UUUUUUUUUUUUUUUUUUUUTU,UWUUUUUUUUUUUUTTU UW8pUUTUUTU3nff*UW9f`UUGUTUUTUT,hUUUT0UWU;=UUPUUTUUUjU|UUU򪪪UUU@UW< ************":PRINT 35 EXEC 44539 40 CLS 8 45 PRINT"!!!!!!!!!!! CAUTION !!!!!!!!!!!!!!!!!":PRINT 50 PRINT" If your system will not accept the high speed poke and/or your drives will not operate at 6ms; EDIT Line 100 for satisfactory operation." 55 PRINT:PRINT"-------------------------------------":PRINT:PRINT 60 PRINT" This program should work, with no problem, on the CoCo 1 and CoCo 2. You will, however, have to EDIT Lines 5 & 100; DELETE Line 110 and EDIT the prompt and instruction Lines to properly"; 65 PRINT" fit the 32 column screen.":PRINT 70 PRINT:PRINT"********** *************" 75 EXEC 44539 100 POKE 65497,0:POKE 55232,0:POKE 55318,20 110 ON BRK GOTO 420:ON ERR GOTO 420 120 L$="L3T5O3V30GF":M$="L3T5O1V30B-E" 130 CLS 5:PRINT"....... Change or Enter Data .......":PRINT 140 PLAY L$ 150 INPUT"Name of file (do not use /.or:) : ";F$ 160 PLAY M$ 170 INPUT"EXT..........";E$ 180 PLAY L$ 190 INPUT"Drive #.(0-5)";D$ 200 D=VAL(D$):K$=F$+"/"+E$+":"+D$ 210 OPEN"I",#1,K$ 220 OPEN"O",#2,"NEW/DAT"+":"+D$ 230 IF EOF(1)=-1 THEN 340 240 INPUT#1,A$ 250 CLS 3:PRINT" Press to (a) record new name ..(b) (without input) go to next data item.... After viewing/changing old data; press to proceed to Add Data.... Press or will SAVE (1) unchanged old data (2) "; 260 PRINT"changes and (3) new data. This will also RENAME new file to old file name and give a DIRectory listing.":PRINT:PRINT 270 PLAY "T60L1C" 280 PRINT"...... Data Item ...:";A$ 290 INPUT"CHANGE : ";X$ 300 IF X$="" THEN X$=A$ ELSE IF X$="Q" THEN 420 310 WRITE #2,X$ 320 GOTO 230 330 PLAY L$+M$ 340 CLS 8:PRINT"Do you wish to add data ?"; 350 C$=INKEY$:IF C$="" THEN 350 ELSE IF C$="N" THEN 420 ELSE IF C$="Y" THEN 360 360 CLS 6:PRINT"Press to quit.":PRINT 370 PLAY L$ 380 INPUT"......... New Data ...:";X$ 390 IF X$="" THEN X$=A$ ELSE IF X$="Q" THEN 420 400 WRITE#2,X$ 410 GOTO 360 420 CLOSE #1 430 CLOSE #2 440 KILL K$ 450 RENAME"NEW/DAT"+":"+D$ TO K$ 460 PLAY M$+L$+L$+M$:CLS 5:DIR T"Press to quit.":PRINT 370 PLAY L$ 380 INPUT"......... New Data ...:";X$ 390 IF X$="" THEN X$=A$ ELSE IF X$="Q" THEN 420 400 WRITE#2,X$ 410 GOTO 360 420 CLOSE #1 430 CLOS"MULE" "MOOSE" "HORSE" "COW" "WART HOG" "DOG" "GIRAFFE" "LION" "ELEPHANT" "DEER" "GAZELLE" "DINGO" "COYOTE" "CAMEL" "GNU" "LEOPARD" "TIGER" "MOUNTAIN LION" "SHEEP" "GOAT" "ORANGATAN" "GORILLA" "CHIMPANZEE" "HOMO SAPIENS" "WOLF" "RHINOCEROUS" "HIPPOPOTAMUS" "ORYNX" "BUFFALO" "BISON" " "WART HOG" "DOG" "GIRAFFE" "LION" "ELEPHANT" "DEER" "GAZELLE" "DINGO" "COYOTE" "CAMEL" "GNU" "LEOPARD" "TIGER" "MOUNTAIN LION" "SHEEP" "GOAT" "ORANGATAN" "GORILLA" "CHIMPANZEE" "HOMO SAPIENS" "WOLF" "RHINOCEROUS" "HIPPOPOTAMUS"&T :PASSWORD ENCODER/DECODER FOR TEXT FILES by Stuart T. Wyss-Gallifent (C) 1993&s 80: 0,0: 0,0: 8,63:1&~ 1000&( RE$(122)&2 410&<"PASSWORD TO USE:";PW$&FPW(PW$)&P"Source Drive";SD:SD((SD)): SD3 80':Z"Name of file and extention to encode/decode(or DIR):";FL$'Wd FL$"DIR" SD: 90'~n (FL$)12 90 : FL$"" 90'x (1,FL$,".")0 (1,FL$,"/")0 90'"Destination Drive";DD:DD((DD)): DD3 130(+"Name of file and extention for output (ENTER=same as input):";FO$(_ (FO$)12 140 : FO$"" FO$FL$: 170( (1,FO$,".")0 (1,FO$,"/")0 140("Press E to encode, or D to decode..."(CH$: CH$"" 180 : CH$"D" CH$"E" 180)21: 30,10: CH$"E" "Encoding Line:" : "Decoding Line:")Sș"I",#1,FL$":"((SD),1))tҙ"O",#2,FO$":"((DD),1))܅ (1) 410)滉 #1,LN$) 65497,0) LN$"" (LN$)0 LN$(32))LNLN1) 45,10: LN*OL$"":MD1: A1 (LN$)*B((LN$,A,1))*I"C((PW$,MD,1)):MDMD1: MDPW MD1*], CH$"D" 340*g6BBC*@ B122 DB122:B31D: 320*J 360*TBBC*^ B32 D32B:B123D: 350*hOL$OL$(B)*r A*| 65496,0* #2,OL$+ 220+ 65496,0: #2: #1:C((PW$,MD,1)):MDMD1: MDPW MD1*], CH$"D" 340*g6BBC*@ B122 DB122:B31D: 320*J 360*TBBC*^ B32 D32B:B123D: 350*hOL$OL$(B)*r A*| 65496,0* #2,OL$+