' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(0 0Šà@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`F d  z# u`F3:J:I,J::ISF4SF1922:I,213:I1,0::ISF194SF231:J:I,J::130100,2,208,0,220,0,220,0,220,0,229,0,0,0,0,0,0,0,9,137,146,146,0,150,146,146,146,146,9,0,64,192,64,192,64,192,64,8,0,25,0,0AAQ):KF1050K$C,0:4(LC0):K159ę1:P,97:KLC(K191K224)159:99.62923:(225)0K141OS16384:OE24575:NS8192:MV1:960:1:1603K155LCLC3264(LC32)81040BI140:"-";::L::D$;"CATALOG"::1090:N:ISFS13)1010"(A$)7(A$)11000/SL(A$)_22:6:SL;:15:DR;:15:A$:A$(13)1025y(A$)1(A$)21010DR(A$)43626,SL:47081,SL16:43624,DR:47082,DR:160:0:0,99:LC0:SZ0SZ1160P,96:SZ1:4(LC0) K(E23:1:"A,Z,<-,->:";::1:"A";:3:"Z";:5:"<-";:8:"->";::60,OS(OST)T:61,(OST):62,OE(OET)T:63,(OET):64,NE(NET)T:65,(NET):66,NS(NST)T:67,(NST):2477649(MV0)::22:"SLOT "SL", DRIVE "DR;:6:A$:A$(CH(KR)(KL)11(KD)11(KU):CH96CH96=pCH2CH2PzK141INS540dK141INS710~K155IN0:810:160JCH2:700:21:1:20);:21:"KEY:"Q$(CH31)Q$", ASCII:"CH31" ";:CH64Ė2:"(LOWER CASE "Q$(CH1)Q$")";860192:OE16383:NE24575:MV1:960:z>:22:1090:24:12:"AND .";:950:INSĺ": SELECT CHARACTER TO BE EDITED";H(IN)ĺ": SELECT CHARACTER TO REPLACE"R:920\74SZ:J12:IYSYS78SZ3:3XS,I:::1:K(Q):KF860.fC,0:CH160 810"A$"E"İ800:300YYSYS78SZ:XXSXS65SZ:3X,Y:P1(234):3X,Y:P10ĕCR(XXS)101,7070SZ(YYS)101 ::A$"S"İ800300 0:XXSXS11:X,YSX,YS15::*OS16384:OE24575:NS8192:MV1:960:!4OS811)14:YS18((J11))(J76)(J87):23:1:958:" SELECT FOR GRID IMPRINT, OR ERASE/REDRAW, OR SHADOW IMPRINT";:2039,174K(Q):K197K201K211K155720C,0:23:1:958:CR1:A$(KF):A$"S"CR6K155(A$)4V22:6:SL;:15:DR;:15:A$:A$(13)1125NY(A$)1(A$)21110[[DR(A$)e43626,SL:47081,SL16:43624,DR:47082,DR:180D"SL", DRIVE "DR;:6:A$:A$(13)1110@O(A$)7(A$)11100MQSL(A$)}V22:6:SL;:15:DR;:15:A$:A$(13)1125Y(A$)1(A$)21110[DR(A$)e43626,SL:47081,SL16:43624,DR:47082,DR:180R:180RA$)7(A$)11100QSLT):62,OE(OET)T:63,(OET):64,NE(NET)T:65,(NET):66,NS(NST)T:67,(NST):2477649(MV0):JJA:J(J25)25ıVT:H:(A$));:I1L2::VT:H:A$:I1L::I140:"-";::::D$"CATALOG":980:&L:22:"SLOT ,99:CT214,99:CTCT(KR)(KL):CTCT12(CT0):CTCT12(CT13)z(K175K187)K173CTK17610(K176)(K186)15(K173)K155ġ:170K141860H(36):"A,Z,<-,->";::H5:"<-";:H8:"->";::l60,OS(OST)T:61,(OS;A$;:1::"<-";:4:"->"::8:" TO CONTINUE PROGRAM.";\21:1:868::" SHAPE #";CT;" DRAWN ";:23(CT10):" SHAPE #";CT;" XDRAWN "::3:CT65,99:CT214,99fK(Q):K127880kVT23:H8:A$"SELECT SHAPE":960:870ApZ,0:0:CT65960:790T Z,0:XTC(KR)XHXTC(KL)XLYTC(KD)YHYTC(KU)YLĺG$;:790u5CTXSXTC,YSYTC:K141ı63:CTXT,YT:19XTXTC(KR)C(KL):YTYTC(KD)C(KU):K155780>@RP,97:::22:980:"<-,->: SELECT SHAPE TO BE ":JM3:P,97:21:1:868:940:" = ADJUST POSITION OF IMPRINT":23:958:" = KEEP IMPRINT & CONTINUE":5:" = ERASE IMPRINT & CONTINUE"; 3:CTXT,YT:A:CTXSXTC,YSYTCK(Q):KF800VT21:H13:A$"ADJUST POSITION":(X)T(X1):NNJ:X,N(NT)T:X1,(NT):7170:3:0,1500,0195,0195,1500,150:213,99279,99279,150213,150214,99X1519015:X,AX,B:XSXC,YS:X,148X,149:XSXC,149::Y1513515:A,YB,Y:XS,YSYC:193,Y194,Y:278,YSYC:.5:HC3:FT1:A$"411":100:G$:21:1000:VT24.9(RT2):HT139(RT2):FT2:A$"HIT ANY KEY TO CONTINUE:"(127):100:16368,0:A$:CL0:100:I1999:::PAUSEFPAUSEE::PAUSEF:FULL,0:J1(999999(I1))I:::CL0:100FT3:J13:VT5:HT6:HCJ:A$"For more information...":100::VT8:HT3:A$"telephone this number>":100:FT1:A$"SO LONG!":J1214.3:VTJ:HTJ:HC5:100:$HC3:HTJ.5:VTHT:100::TXT,0:VT8:HT35 @ @ @ @ @":VTVT1:HT12:100z:TXT,0:I2124:I:I17:155:"THIS IS NORMAL TEXT AT VTAB ";I;":";::" ";:::255FT2:VT22:HT5:A$"AND THIS IS ":100:IN1:A$" HI-RES ":100:A$" TEXT !":100:1000-I18:TXT,0:J1(999999(I1))I:T2:100qVT10.5:T$(T$,21):FT1:J1(T$):A$(T$,J,1):HTJ1.8.8.6(A$"i"A$"l"A$"'"A$"."):100:1000:FT2:VT16.5:HT2:A$"And we should point out how you can utilize":100:VTVT1.2:HT12:A$"Apple's split screen:":100:FT1:A$"@ @EE NOW... WHAT HAVEN'T WE COVERED?":100:1000zFT2:VT4:HT1:A$"Oh, yes! Our type is PROPORTIONALLY SPACED:":100:1000:FT1:VT5.5:HT1:A$"Hello Sid. How's your sister?":100:1000:VT9:HT1:T$A$:A$"Brand X type is restricted by htabs & vtabs:":F"LIST L@INE 860 TO SEE":90:VTVT2.5:HT1:A$"@HOW @LOWER CASE @TYPE IS":90:VTVT2.5:HT1:A$"@CREATED WITHOUT @PLE.":90:FT2:VTVT3:HT1:A$"(U@SE @GOSUB 90 @INSTEAD OF @GOSUB 100.)":90fFT3$"]APPLE":100:CL0:100.pFT2:VT1:HT1:A$"LET'S S100:VTVT2.5:HT1:A$"to produce if you can":100:VTVT2.5:HT1:A$"enter it in your programs":100RHT1:VTVT2.5:A$"directly from the keyboard.":100:VTVT2.5:FT2:HT1:A$"(PROGRAM LINE EDITOR lets you do this.)":100\FT3:VTVT2.5:HT1:A$2040+ F$"Y"Ē0:0,0:XC1:62454:20405 2740F I1999::B460Jx A$"L"Ą"LOAD PICTURE NAMED:";F$:(F$)ĺD$;"BLOAD ";F$;",A$2000" A$"S"Ą"SAVE PICTURE NAMED:";F$:(F$)ĺD$;"BSAVE ";F$;",A$2000,L$1FFF" 216,0:2040 A$"X"2040 20:1:958:"CLEAR EXISTING HI-RES IMAGE? (Y/N):";:F$:F$"N"$:A$:A$(13)ė:20401# A$"U"A$"L"2590\( 1:958:L$"LOCK":A$"U"L$"UNLOCK"< "NAME OF FILE TO ";L$;:":";F$:2460P (F$)ĺD$;L$;" ";F$Z 216,0::2040d A$"L"A$"S"2720n 20:1:958:22:" TO CANCEL":20:210ĺ" FILE LOCKED ";:2520+ " ERROR ";L 868::2800:216,0::2040 A$"Q"Ģ24:1:868:" GOTO 2000 TO CONTINUE.";:23: A$"C"2660 20:1:958:D$;"CATALOG" I140:"-";::"HIT : OR =LOCK, =UNLOCK";:15:A236,0:49239,0::21:I16I77Ĺ40286,60:40287,212:EI255170(:G$" ERROR-"(222)" IN LINE "(218)(219)256" "::I12000::170A,MUPU,MRPU,MDPU,MLPU,PUPU,PRPU,PDPU,PLPU,MUPR,MRPR,MDPR,MLPR,PUPR,PRPR,PDPR,PLPR MUPD,MRPD,MDPD,MLPD,PUPD,PRPD,PDPD,PLPD,MUPL,MRPL,MDPL,MLPL,PUPL,PRPL,PDPL,PLPL,MUMUMR,MRMUMR,MDMUMR,MLMUMR,PUMUMR,PRMUMR,PDMUMR,PLMUMR6I(222):49232,0:49235,0:49$(I)::I72127:A$(I)A$(IJ)"MR"::I128191:A$(I)(A$(IJ),5)"D":A$(IJ)(A$(I),5)"L"::::MU,MR,MD,ML,PU,PR,PD,PL,MUMR,MRMR,MDMR,MLMR,PUMR,PRMR,PDMR,PLMR,MUMD,MRMD,MDMD,MLMD,PUMD,PRMD,PDMD,PLMDPMUML,MRML,MDML,MLML,PUML,PRML,PDML,PLML:(X$(J),1);::">";:11501 SET-UP ====== XP140:YP80:RT0:SC1:HC3:XD1:SH16384:SL(47081)16:DR(47082):Q49152:C49168:G$(7):Q$(34):T256:R149:L136:U193:D218:F128:D$(13)(4):0:1:3:232,0:233,64:1300fJ64:I071:A0:" GRAPHIC ANALYSIS":" ANOTHER VECTOR ANALYSIS:";::" ":lK(Q):K141K1551190C,0:K1411080::XD1:CHXP,YP:200X$(1)(A$(P),2):X$(2)(A$(P),3,2):X$(3)(A$(P),5,2)J13:50,255192((X$(J),1)"P")H"X$"D")Ĺ32,4:33,36:35,22::_(M$"A"M$"N")X$"C"ĢA:A:I025212:"$"H$(I)">":xM$"C"AZ12:7200AZ35:A:A:"$00> ";:I010:H$((LOI));" ";::868(I1122135:CB(I59)35:A::H$((LOI));::H$((LOIA));::H$(=====":3:"T S T F";:868::"R E Y I";:868::"A C P L";:868::I6202:I:868:7:KA30:"-";:::M$"C"Ģ21:868:22:868::3:"T";:5:"T";:37:"S":"R";:5:"Y";:37:"I":"A";:5:"P";:37:"Z":"(M$"A"M$"N")(X$"C"X$" FORMAT X$M$:24:A:"FORMAT: HEX, DEC, ASCII, NOFLASH, CAT:";::9:"H";:14:"D";:19:"A";:26:"N";:35:"C";::39:A$:A$(13)1020A$"H"A$"D"A$"A"A$"N"A$"C"7040M$A$M$"C"DF$M$o:M$"C"ĢB:A:868:9:"68:"SLOT ";SL;", DRIVE ";DR;:6:A$:A$(13)6080M(A$)7(A$)16020ZSL(A$)24:A:868:"SLOT ";SL;", DRIVE ";DR;:15:A$:A$(13)6140(A$)1(A$)26080DR(A$)43626,SL:47081,SL16:43624,DR:47082,DR:1020X 5HT37)Ğ&(VT:HT:H$(VV)::53009<VT:HT2:3)KPM$"D"5260cd:PZ(PZ2)20ĞxVT:HT2:DE$(VV):5300M$"H"ĢVT:HT1:H$(VV):5300SC(PZ),VV:5300PZPZ(PZ255):DI1:1020p CHANGE SLOT/DRIVE 324:A:8INGS" PROGRAM BY BERT KERSEY BEAGLE BROS =========== AT KERSEY BEAGLE BROS =========== A12687,12688h9612,9738,12813,12941,12942,12943,13581,13582,13583,13584,13707,13709,13710,13711,13712,13714,13837,14733,14734,15628,15631,15633,15757,15758,15759,15760,15763,16019:127Qi =========== APPLE MECHANIC "GREET766,15767,15768,15769,15770,15899:0 g8590,8591,8717,8718,8719,8720,8721,9614,9615,9616,9741,9744,9745,9747,10638,10639,10640,10765,10768,10769,11533,11534,11535,11536,11659,11662,11663,11664,11786,11789,11793,11795,11917,11918,11919,11921,12685,12686,49,10650,10651,10763,10774,10779,11671,11672,11673,11674,11675,11803,12558,12559,12684,12695,12696,12697,12698,12699,12811,12827$f12947,13719,13720,13721,13722,13835,13851,14606,14608,14731,14742,14743,14744,14745,14746,14859,14875,15640,15641,15642,1514874,31,15629,63,15630,120,15632,7d15755,31,15756,96,15761,63,15762,126,15771,4,15882,31,15883,2,15884,126,15890,71,15891,124,15898,31,16383,105e8600,8601,8602,8603,8715,8722,8726,8729,8730,8859,9624,9625,9626,9627,9750,9867,9883,10636,10648,10622,15,11923,126,12050,100,12689,79,12700,2,12812,124,12818,3#c12822,112,12826,15,12939,48,12940,120,12944,63,12946,8,13708,79,13713,31,13718,7,13723,64,13834,63,13836,124,13842,7,13850,15,13962,15,13971,126,14732,96,14737,63,14747,40,14860,124,14866,7,D KEY TO CLEAR THE SCREEN.":10003A$:::255:100X,Y:I1(A$):((A$,I,1))31:99::: XDRAW."LOCATION-CHARACTER".#100.AT.START.POINT,THEN.DRAW.EACH.CHARACTER.FOLLOWED.BY."CONNECTOR.CHARACTER".#99I13000:: :255:16301,0:20:I1400::10X,Y:9X,Y:I1400::9X,Y:11X,Y:I1400::MAN.POINTSlX02604:6X,153:S(16336):6X,153::16:Y1531634:6X,Y:6X,Y::I19:S(16336)::6X,Y:0:DOG.CRASH.#2 v2000:SH18000:90:X0:Y185:A$"THAT'S IT. HIT ANY00:X0:Y146:A$"4. REPEAT STEPS 2 and 3.":1000NX0:Y160:A$"BETTER YET, USE THE XTYPER or HI-WRITER":1000:X0:YY10:A$"PROGRAMS ON THE APPLE MECHANIC"(126)" DISK.":1000X0,180279,180:2000JbSH16384:90:I1400::X155:Y159:10X,Y:---":1000&16301,0:21q0D$;"BLOAD ]SMALL SQUARE,A18000":SH18000:90:REPLACE.]APPLE.FONT.WITH.NEW.FONT:16302,00DX0:Y116:A$"1. XDRAW 100 AT START POINT.":1000:X0:Y126:A$"2. XDRAW A CHARACTER.":1000:X0:Y136:A$"3. XDRAW 99.":10,06,07,08,09,0A,0B,0C,0D,0E,0F,10,11,12,13,14,15,16,17,18,19,1A,1B,1C,1D,1E,1F,20,21,22,23,24,25,26,27,28,29,2A,2B,2C,2D,2E,2F,30,31,32,33,34,35,36,37,38,39,3A,3B,3C,3D,3E,3Fs,$'40,41,42,43,44,45,46,47,48,49,4A,4B,4C,4D,4E,4F,50,51,52,53,54,55,56,57,58,5"0")(V2$"F")(V2$"A"V2$"9")ĺG$;:9220c*%V16((V1$)487(V1$"@"))(V2$)487(V2$"@")u*%V$(V):9700*%IA(V$):X$(V$,I,1):X$"0"X$"9"Ă:9700*%G$;:9220*%VV(V$):VVMAVV0V$"":G$;:9220*%+'00,01,02,03,04,0502)$A$"C"C$"_"C$"@"V$((C$)64):9660d)%A$"L"C$"@"C$"_"V$((C$)160):9660s)%G$;:9220)0%A$"$"9660)D%(V$)2V$"$0"(V$,1))X%V1$(V$,2,1):V2$(V$,A))l%(V1$"0")(V1$"F")(V1$"A"V1$"9")ĺG$;:9220,*%(V2$$"9")9520$(|$(V$)2ĺG$;:92205($C$(V$,2,1)V($A$"N"V$((C$)F0):9660($A$"I"C$"@"C$"_"V$((C$)64):9660($(A$"I"C$" "C$"?")(A$"F"C$"@"C$"_")V$((C$)):9660)$A$"F"C$"?"C$" "V$((C$)64):9668:34,23:W$;:657:34,0:V$"":I512767:(I)141V$V$((I)F0):V'$(V$)ın',$(V$)3ĺG$;:9220}'@$A$(V$,1)'T$((V$)0A$"0"A$"$"A$"L"A$"C"A$"I"A$"F"A$"N")((V$)1(V$"0"V$"9"))ĺG$;:9220 (h$A$"$"(A$"0"A1959X2000):VT9180&#VT17(X1103X1144)18(X1231X1272)19(X1359X1400)20(X1487X1528)21(X1615X1656)22(X1743X1784)23(X1871X1912)24(X1999X2040)&#HTXSC(12(VT1))7:&# GET A VALUE H'$V$"":A$"":24:A:861279X1320)4(X1407X1448)5(X1535X1576)6(X1663X1704)7(X1791X1832)8(X1919X1960):VT9180&#VT9(X1063X1104)10(X1191X1232)11(X1319X1360)12(X1447X1488)13(X1575X1616)14(X1703X1744)15(X1831X1872)16(X3,0:47084,TR:47085,SE:47088,LO(LOTF)TF:47089,(LOTF):47090,0:47091,0:47092,RW:(RW=1 TO READ. RW=2 TO WRITE.)$d#768:2054:REM READ/WRITE AT $300$x#$# FIND TABS FROM SC() o%#VT(X1023X1064)2(X1151X1192)3(X895:I:KJJ39:PK(K):PKPK64(PK32):PKPK64(PK95PKSP):(PK95(PK255PK127));:(Q)155Ă:A:LF$:#C!A:LF$:LF$:16368,0:D$;"PR#0"#H!MP0:7050#(# READ/WRITE SECTOR #<#768,32:769,227:770,3:771,76:772,217:773,3y$P#4708A$:A$"5"85005"16368,0:MP0:24:A:868:7050B"3! DUMP "4!24:A:868:"DUMP TO PRINTER? (Y/N):";:A$:A$"Y"8505"6!MPMP0:7050"7!1020"9!24:A:" TO ESCAPE";:868s#>!A:D$"PR#"SS:LF$:LF$:IA23:JF0IA(984((IA)8))"+ ":O$(A)". ":JLO56LO192D:D:C(JLO56)D:NJAJA:I07:K(N)BI:O$(K(KB)B);:::(Q)155Ă!7050!(Q)155Ĺ16368,0:JLO196:NJA:I8:J:9000:8110"16368,0:9000:24:A:"5=PRINTER DUMP, OR ANY KEY=CONTINUE:";: 0123456789012345678901234 ":v ^A$"+--------------TRACK/HEX---------------+":A:A:A$:22:A$:22:22:"DEC" hA$"!!!!!SECTOR/HEX!!!!!":IA(A$):I1:A:(A$,I,1);:40:(A$,I,1)::14:40:"D":40:"C":24:A:" TO ESCAPE";u!O$(0)TX:SESX:8094JMP1:::A$"0123456789ABCDEF":2:2:" 1111111111111111222 ":2:"$";A$;A$;"012 ":IA16:I3:2:(A$,I,1);:38:I1;I11):# T20:2:38)::2:38):20:2:" 01234567891111111111222222222233333 ":2:" VA41B(I14)B:I,IBV::22:17::180:24):FF:22:17(TR10SE10):"TRACK$";H$(TR)"(";TR;"),SECT$";H$(SE);"(";SE;")"::10207000? DISK MAP @24:"DISK MAP? (Y/N):";:A$:A$"Y"1020ETXTR:SXSE:TR17:SE0:RW1:9000:TR32,4:33,36:A:A:I0FF:" ";H$((LOI));::T4M$"A"āI0FF:SC(I),(LOI):HM$"N"āI0FF:SC(I),(NLO(LOI)):M$"D"ĢA:A:IA22:DE$((IA)12);">":::A:15:32,4:33,36:A:A:I0FF:DE$((LOI));::M$"D"ĠC:I434F:(LOIB));:JI3I32:FI(J),(LOJ):_37:H$((LOI33));::H$((LOI34))::21:868 180::22:7:30);:FF:22:7:" TRACK $";H$(TR);"(";TR;"),SECTOR $";H$(SE);"(";SE;")":PZ14:1020/ M$"H"ĢA:A:I025212:"$";H$(I);">"::A:15:CT o2232,0:233,3:X768790:Y:X,Y::1,0,4,0,36,172,46,46,62,246,228,22,39,56,246,32,39,37,37,12,54,6,02:3:0:S164:S:1140,96::106 BAR RACE ======== R.F.MODULATOR SAN DIEGO 6::3:A1:B2:C3:D4:E5:F13:G33:H21:I31:.:N195:XX1:(1)8:45X,96140,X235X,96140,192X45X,96:45X,X235X,X235X,192X45X,192X45X,X:X190X0.:Z13000::N1250:A(1)279:B(1)191:(1)71:140,96A,B::120012 MORE 3-D ======== CHRIS VOLPE TRUMBULL, DOWN MEMORY LANE'":11002:LOC065535:X,Y:Z,(LOC):TNE:::130*LOC771789:PKE:LOC,PKE::TNE771:X1:Y15:Z0::173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96. FLAMING PYRAMID =============== BRUCE JOHNSON REARDAN, WA }2:Y1013010:5,Y:'X2553014:R(1)14415:YR160:2:X15,Y15X1,Y:3:X,YX10,Y::1:YR1R151:X(RY)1,YX(RY)11,Y:::X04999::756:130* MEMORY LANE =========== JIM GANZ W.HARTFORD, CT C*:12:8:"'A STROLL 88,2,789,3,790,96:NN1:N219001N*#C(0):D(1):768,C:769,D:770:9002' 3-D BARS ======== JIM GANZ W.HARTFORD, CT ':1:1,01,139253,139253,01,0:25,178279,178:0,13925,16525,191:25,165279,165253,139:279,165279,19125,191:";:A$:700*_ MUSIC POKES ===========`771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96:D BE--"::" 10 GOSUB 60000":uú"FOR EACH NOTE, DO TWO POKES AND A CALL-- --------- ----" ú" POKE 0,255-PI (PI=PITCH, SEE ABOVE) POKE 1,LE (LE=LENGTH, 0-255) CALL 771 (PLAYS THE NOTE)";:24:1:"ANY KEY:0:50100=Þ:II1:10:I53:A$:0,255(A$):1,80:771:wÁI18:I52:50,63192((37)55):(A$,I,1);:::ÁI18:I5:(A$,I,1)"X"ĺ(A$,I,1);Â:Ý:13:"TO MAKE MUSIC, ADD LINE 60000 TO YOUR PROGRAM AND MAKE YOUR FIRST LINE6:J5305:I1:J:J15ĺ" ";3nÂ:40:" ";:yxâ4:A$" X111X1":50080:A$"79X134X6":50080:A$"34X947X9":50080I0:A$" 63":50060:A$" 84":50060:A$"103":50060:A$"111":50060:A$"127":50060:A$"141":50060:A$"153":50060:A$"159":5006=== 5V123:H25V:A128VH(984((V1)8))895:BA1:PA(A):PB(B):A,221:B,96:0,10V:1,9:771:J125::A,PA:B,PB::23:Pò INSTRUCTIONS ============Z×:" C D E F G A B C"::I140:"@@@@@ ";:!dÝ:I1:200.PI84:200$D/PI103:2004/PI111:200D 0PI127:200Tp0PI141:200d0PI153:200t81PI159:2001PI153:2002PI141:200d2PI127:2002PI111:200,3PI103:2003PI84:2003PI63:LE150:200X45004 QUIT =2BT:200:11500.*J3PI111:LEBT2:200O\+PI141:LEBT3BT(J3):200e+J3REST15:200l$,J,PI111:LEBT2:200,IP-500- C-SCALE =======.:A$"CDEFGABCBAGFEDC":I1(A$):I:23:"(";(A$,I,1);")"::1|.PI63:LE80/I!XN  !"#$%&'()*+,-./0123456789:;<=>?  !"#$%&'()*+,-./0123456789:;<=>?`'1029,1157,1285,1413,1541,1669,1797,1925,1069,1197,1325,1453,1581,1709,1837,1965,1109,1237,1365,1493,1621,1749,1029,1792,1064,1320,1576,1832,1104,1360.============== BYTE ZAP BY BERT KERSEY COPYRIGHT 1982 BEAGLE BROS ============== AAD,AE,AF,B0,B1,B2,B3,B4,B5,B6,B7,B8,B9,BA,BB,BC,BD,BE,BF-L'C0,C1,C2,C3,C4,C5,C6,C7,C8,C9,CA,CB,CC,CD,CE,CF,D0,D1,D2,D3,D4,D5,D6,D7,D8,D9,DA,DB,DC,DD,DE,DF,E0,E1,E2,E3,E4,E5,E6,E7,E8,E9,EA,EB,EC,ED,EE,EF,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9,FA,FB,FC,FD,FE,FF.9,5A,5B,5C,5D,5E,5F,60,61,62,63,64,65,66,67,68,69,6A,6B,6C,6D,6E,6F,70,71,72,73,74,75,76,77,78,79,7A,7B,7C,7D,7E,7F8-8'80,81,82,83,84,85,86,87,88,89,8A,8B,8C,8D,8E,8F,90,91,92,93,94,95,96,97,98,99,9A,9B,9C,9D,9E,9F,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,a ` ypxO0 @O xyOpD8`G~p|O}a!@<@qcAx@ ~oq8 p|O@~@~7D~xdL~?p|@@?c?~<|x@~OO|_ww}Os~?p|~A{qG?{c~ax@~y ~~p~?06! pp`@0``~pxo~?`9fp8F1@G0`lG}`f8s` L90,18,7681,63,7682,36,7683,36,7684,45,7685,45,7686,54,7687,54,7688,63,7689,0&]I199::E.08.15.01:Y41896:X42786:((1)E)(1)E201:1X,Y:::::AW HAVEN, CT %Y49238,0::A01:B01:C0355:L0405:(1)16:RLL4:C,C4R::C;" ";::49232,0:49234,0:::::::23001%] ENTROPY ======= DAVE MCKELLAR TORONTO K&]0:I115:A,B:A,B:: 232,252,233,29,7676,1,7678,4,7679,0,768A$:21002G$U POLI-SCREEN =========== DAVID POLIDORI EYNON, PA $US$"202138032244243044000192016246044016192096":I013:800I,((S$,3I1,3))::::22:9:"(HIT ANY KEY TO QUIT.)":800$U130 %Y CRAZY QUILT =========== ALAN POOLEY NE SPIRALS ======= DAVID POLIDORI EYNON, PA # R::12:7:"HIT ANY KEY TO CHANGE PATTERNS.":X11500:::1,1,6,0,12,0,33,63,54,45,4,0:A768779:B:A,B::232,0:233,3 $ R3:0,0:62454:C((1)8):C(C3C7):A1100((1)4)1:A:A:1139,95:: SPINNER ======= TOM SOLDAU LA JOLLA, CA S"!N:16302,0:A135:B95:C0:D191""N(6(1)1):L(23(1)1):R1(279L):A,BC,D:CCL:R:R1(191L):A,BC,D:DDL:R:R1(279L):A,BC,D:CCL:R:R1(191L):A,BC,D:DDL:R:20002+#R 1:A,B.!RFC(C):39A,39B:B:A::18001k!8J PINWHEEL ======== MICHAEL LENZ OKLAHOMA CITY, OK !9J::21:40:232,0:233,3:768,1:770,4:771,0:772,54:773,0:B16:B:0,0:62454!:JH16:H:R063:R:10,0:1140,96:R,H,B:19002." N169,32,133,27,169,208,133,29,177,28,69 jB30,133,28,145,26,101,28,112,3,174,48,192,200,208,238,230,29,174,48,192,230,27,165,27,201,64,144,225,230,30,76,16,3 kB PF JIGSAW ====== ALAN LEDER PATERSON, NJ !QF:C(1)151:(1)C:A139:B391:t>22:5:N;" SIDES";:25:N(N3)2;" DIAGONALS":T1N1:QTN1:X(T),Y(T)X(Q),Y(Q):::P12500:::130hB NOISE ===== RANDY LANGER INGLEWOOD, CA & iBZ768827:X:Z,X::768:169,0,133,26,174,87,192,174,82,192,174,84,192,174,80,192,HC3(HC3(1).94)3(HC0(1).9):15002g> POLYGONS ======== JERRY KRAMER PHILADELPHIA, PA >::10:9:"DIAGONALS OF A POLYGON":P13000::X(25),Y(25):N420::3:X(1)140:Y(1)150:T1N:X(T1)14070(6.3TN):Y(T1)8070(6.3TN))XX(A)XX(B)XX(C)XX(D)):A$(R)X(R)::23:XL14002N61:A$:130: RECTANGLES ========== CHRIS KOERITZ FAYETTEVILLE, NY ::HC3:Y191:16302,0:X279,:HC:X,YX,191Y279X,191Y279X,YX,Y:YY5190(Y2):XX5275(X5):HCJ33:K50:L279:FF255:C0192:XAL25:X,ZX,191XA,191XA,Z::A$(Z)"GREEN: ":A$(A)"VIOLET:":A$(B)"WHITE: ":A$(C)"ORANGE:":A$(D)"BLUE: ">6R((A)E):X(R)X(R)A:XX(R):RA(RB):YJR:X,YX,YI:H(RB):AF(R(RB)B):K,FFFFB(XX(Z~)_w?G?/~l~?p|~p{wO?{C~I~~@~x_w|~?p|`?pgw?~x`@~HO`~`f`00F1@0` LA`f`3` L~@! ~`~~?p@ @~B|px~~?H`@|`@~~p#~s|~O|C0  @5p|~'` p?`~~?p|} @1|apq x@~~y~sp?xumax|~?p@|op p|~p{wO?sC~~@FGp?~8>p|O?xyw?c~`@``fAp8f9 @G0` Na`fA9Cs` N9 @DO'`|p@ @`gH?p#`~| `p p p|} 1<@apq"bx@@0x,@m.w p@~|yOy`w>G@L~?p|?|yw?sc~?~?~@~?Nw?x_w|~|~?p||ywC?s?~A?p@~ ~O?`~p= `v6x`F~c~|@~0`|G~`Fqa|Gq~``xo@~~?p_|CF1x|0` @|`aCo La~q~@O|Gs~x~?~`O~?~!x p}`p~pa|t~?p|}A 1x@|0`|C?|`a@|Ca@@` p@G~cF1|~0`lC=~`Fqco Lq04,0:16298,06BX3395:Y140:(X);:Y:X:8002m(# PDL SONG ======== ALAN DOVE CROWNSVILLE, MD #)#A,B:A,B:770,173,771,48,772,192,773,136,774,208,775,5,776,206,777,1,778,3,779,240,780,9,781,202,782,208,783,245,784,174,785,0,786,3,787,76,7.5):I0180:AID:L100((2A)):XL(A):YR(Y):U90:U190:X,IU,U1:I,X45,45:IZJ1180:AJD:L100(2A):XL(A):YL(A):XR(X):YR(Y):X,J180,180:J:756:130@ GR SCROLL ========= JOHN DALRYMPLE BETHLEHEM, PA A:200:163219,I129I,89I:219I,0129I,89I:rI1497910:X159I:59,I149X,69X:59X,159149X,69X:219,I129X,69X:219X,159129X,69X::756:130X MEXICAN MAN =========== GENNARO CONTE BRONX, NY VY:P13.14:DP1180:R(Z)(Z)((Z)TO6.286.28.05:XS(O)(NO):YS(O)(NO):X(X),Y(Y):::22:A$:130p CLOVER ====== SCOTT CHRISTA SANTA CRUZ, CA &q:3:59,0219,0219,15959,15959,0:59,0219,159:219,059,159:I97910:59,I149I,89I:59I,0149I,89I::"PR#0":130F LEAVES ====== KEN BROWN FORT LAUDERDALE, FL ::21:X(X)(X140):Y(Y)((Y159)79):140,1140,158:1,80278,80:"COLOR? (0-7):";C:C:"SCALE? (50-100):";S:"NUMBER? (1-7):";N: EVEN # FOR 2*N LEAVES, ODD # FOR N LEAVESZ110:Z:0:1139,95::P1250::3002_ FLOPPER ======= RON WILSON BLOOMINGTON, IN 768,32:769,240:770,253:771,169:772,136:773,32:774,240:775,253:776,76:777,240:778,253:54,0:55,3:1002::24:33,30:40007000:130);756:-2; OR INVENT YOUR OWN!^ STEP PATTERN ============ RON & DON BLOCHER LOS ANGELES, CA  X768803:Y:X,Y:: 1,0,4,0,146,146,58,36,63,36,63,36,63,36,45,36,45,36,45,36,45,54,45,54,45,54,45,54,63,54,63,54,63,54,7,0:232,0:233,3:) 7(1):60(ZZ100)::28,213:62454:4:X3030:L0:YY5((900XX)5):YYYYY5:Z(25A((XXYY))0.7Y):ZLLZ:Z1120Z:X1,Z1Y:X1X12:X:22:A$:A$:130TRY OTHER FUNCTIONS, E.G.: FN A(Z)=60*SIN(Z/10), OR FN A(Z)=SQR(900.01-Z*Z)*0.91;:": ";A$(B):CB21:A%(C)A%(C(A$(B)A$(A%(C1)))):A$(B)A$(A%(C2))A%(C1)B:C2::::"ITEM","ENTRY #"::::34,2:D1B1:A$(A%(D)),A%(D)1:::22:A$:A$:130 3-D PLOT ======== ALAN BAXTER SAN DIEGO, CA :X180:A(Z),7000,8000,9000,10000,11000,12000,13000,14000,15000,16000,17000,18000,19000,20000,21000,22000,23000,24000  SUPER-SORT ========== PHIL BARTON SAULT STE.MARIE ONTARIO, CANADA Z:"10-ITEM SORTER"::A11:A$(A),A%(A):B2A:A%(B)B::"ITEM ";B"::" 2. LIST"::"FP"] LI(A$)64:LI3LI9LI11LI13LI17LI21LI24230 :"SKIPPING DATA. STAND BY";: "....";:A1(125):A2(126):A:(123)(124)256LI1000210 125,A1:126,A2i :LI1000,2000,3000,4000,5000,6000 TO QUIT NOW. OR TO RETURN TO MENU. NOTE: YOU MAY NEED TO RE-BOOT AFTER YOU QUIT.";:15:14:A$:A$:A$"A"A$"X"A$"Z"Ĭ :A$"Z"āI124:::40286,60:40287,212:10:"TO LIST PROGRAMS--"::" 1. LOAD TWO-LINERS (DON'T RUN)ILT ENTROPY"; 1:23:32,21:33,19::1:"UNCLE LOUIE'S TWO-LINER CONTEST WINNERS ------------------ EACH OF THESE PROGRAMS HAS WON A FREE BEAGLE BROS DISK & TIP BOOK." :"LOAD TWO-LINERS (DON'T RUN) TO LIST PROGRAMS." 15:"SELECT (A-X): LEAVES CLOVER MEXICAN MAN GR SCROLL PDL SONG 3-D BARS MEMORY LANE FLAMING PYRAMID MORE 3-D BAR RACE " RECTANGLES

POLYGONS NOISE JIGSAW PINWHEEL SPINNER SPIRALS POLI-SCREEN CRAZY QULdL24577:(103)(104)256LĹL1,0:103,1:104,96:"RUN TWO-LINERS"ziLINE 100 RELOADS THE PROGRAM AT $6000n40286,35:40287,216x130:255:::::"PR#0":1 " SUPER-SORT 3-D PLOT STEP PATTERN FLOPPER               f@0p@cxOa|= @}a^`f|yf|xfqFCs8f s8N` LC3`@y@s?|`1f~C?@@opOa c@@_gp p8f ~A`pL @?FAqf `` <`La`CcLpc` F10?F10` 8G{pp8`}98Nspggcq@{sxp~A!  I( $D( !D" Hp8pOp@@ppwpLCs{pLsp`apA|@qc?@gC|xF~s<C?|x9pN{q>xwf88N8`f~f`0@900fLAco0L0` fppNGs@cp` pxXgq`?|0f f@00@CpOa| @}@`f|yfID<`ge'$d@@K'$||D|8"aaxyyyI~A!xIy)  $( !$d !xIp8pNOp@{ppwpLcw<pLsp`apA~`y~s?@gc|OyF~s<g|p9pNzppw,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96:P======@ :I2411:I:JI(I2)21402:J:" ";::::gH IRRITATING WIPE =============== 16298,0:16302,0:I372:16304,0:J11::16303,0::J1PAUSE::]`771,173:772,48:773,192:774,136:775,208:776,4:777,198:778 WIPE ===========A :I124:I:1::40):I:1::40):::` SCROLL WIPE ===========| T I124:24::3600:: HYPE WIPE =========  1:1:I123:"BUY BEAGLE BROS. BUY BEAGLE BROS. ";:: CHECKERBOARD WIPE ===========) lI3901:32,I:33,40I::3600::P  CENTER OUT WIPE ===============y 4I120:32,20I:33,2I::3600::  UP WIPE ======= I2411:I:1:868:3600:: ` DOWN WIPE ========= I124:I:1:868:3600:: ( STRIPE,96:0,10V:1,9:771:J125::A,PA:B,PB::23:r x(A$)13500,1700,1900,2100,2300,2500,2700,2900,3100,3300 I1999999(A$"0")::400 @ LEFT/RIGHT WIPE =============== I140:33,I::3600::  RIGHT/LEFT WIPE ===============":"<8> HYPE WIPE":"<9> CHECKERBOARD WIPE":"<0> IRRITATING WIPE"::" QUIT" L:20:10:"SELECT: ";(8);:A$:A$:(A$)A$"0"A$"Q"1100  QUIT ====3 A$"Q"āV123:H25V:A128VH(984((V1)8))895:BA1:PA(A):PB(B):A,221:BI139:".";::2039,174:I2311:I:1:DOT$;:C  MENU ==== 32,5:33,35:5:5::" SCREEN WIPES ":::"<1> LEFT/RIGHT WIPE":"<2> RIGHT/LEFT WIPE":"<3> CENTER OUT WIPE":"<4> UP WIPE":"<5> DOWN WIPE":"<6> STRIPE WIPE"P "<7> SCROLL WIPE^ d60000IPAUSE22:DOT$"........................................"d, DOT WIPES =========X((1)3)1:X500,600,700I123:I:1:DOT$;::I139:".";::2039,174:900X33,1:I039:32,I:1:1:(DOT$,24);:::9002 24:1:   ALL ==========%&:24:BT72:I126'REST50:200Mt'PI63:LEBT3:200X'J13p<(PI111:LEBT3:200(REST5:200)PI141:LEBT4:200h)PI111:LEBT4:200)PI63:LEBT4:2000*REST1:200*I2J3İ200:REST15:200:PI111:LE5900T$700;$ MUSICAL TYPEWRITER ==================%:" EACH KEY TYPES A DIFFERENT NOTE.":13:" TO QUIT.":"----------------------------------------"%A$:A$;:PI(A$):0,PI2:1,20:771:A$(17)9600%700H& BUGLE CLX:400:RO- `"LELX:400:NI!/"LX80700(#12:"

PLAY AGAIN WITH LONGER NOTES.":" GIVE UP; PLAY AT NORMAL SPEED.":" QUIT PLAYING THAT SONG... NOW!"::" SELECT:";:A$:A$:A$"Q"A$"P"A$"G"9000#A$"P"Ă#A$"G"LX80:111:400:STUCK400:A1PI127:400:FEA-GxPI141:400:THER[PI147:400:INp@PI141:400:HISPI127:400:HAT PI111:400:ANDl PI103:400:CALLED PI63:400:IT4!PI84:400:RICE-!PI103:400:A- !PI111:LE2I141:400:DLE%PI111:400:CAME9dPI141:400:TOOPI127:400:TOWNb,PI63:400:A-xPI111:400:RID-400:INGXPI127:400:ONPI141:400:A PI111:LELX2:400:PO-PI103:LELX:400:NY.PI63:400:HELPIIS SONG HAS BEEN COMPRESSED. EACH TIMEIT IS PLAYED, THE NOTES GET LONGER. SEE HOW FAST YOU CAN NAME THE SONG."LX2802 10:1:958:"NOTE LENGTH: ";LX2;" (NORMAL IS 40)"pPI111:LELX:400:YAN-400:KEE8PI127:400:DOO-P:::::::::::::::::::::::::::::::::::":I123:I:1:COL$;::(COL$,39);:2039,(":")128LE4:PI25412:0,255PI:1,LE:771:|PI150:0,255PI5:1,LE:771::700 MYSTERY SONG ============rD:"MYSTERY SONG!":"------------"::"THPI111:LE255:200:WIDE!'$500< RANDOM ======:I120:PI((1)255)1:LE((1)30)10:0,PI:1,LE:771:((1)24)1:((1)39)1:(((1)64)32);::LE255:0,PI:1,LE:771::700P SLIDE WHISTLE =============YCOL$":::::===================1:PI63:LE255:200:HEREO<PI111:LE180:200:COMES`REST20:200tLE80:200:THEhLE255:200:BRIDE;REST350:2000PI63:LE255:200:ALLPI127:LE180:200:FATREST3:200\PI103:LE80:200:AND========( :PI103:LE100:200:SHAVEA PI63:LE50:200ANDM T 200:Ai PI84:LE90:200:HAIR-  PI63:LE60:200:CUT, REST300:200 PI103:LE80:200:SIX H REST22:200 PI111:200:BITS! 500t HERE COMES THE BRIDE =700,3800,9900,5700,11800,9500,5100,5300:700K  CHARGE SONG ===========b :PI63:LE40:200r lPI111:200 PI141:200 4PI159:LE50:200 REST100:200 PI141:LE60:200 ` PI159:LE255:200 500 ( SHAVE & HAIRCUT =======13:PI((1)200)25:LE20:400:r HTHT112(HT12):9:HT4:"G";:HT3:(A$,HT,1):K(16384):K1281200 16368,0:(K177K185)K209K2011000 x9:5:"MYSTERY SONG" 22:12:(K)::K20913600 K20150010, @K1761800,2AND A HAIRCUT":"<3> HERE COMES THE BRIDE":"<4> BUGLE CALL" "<5> ":"<6> C?-SCALE":"<7> MUSICAL TYPEWRITER":"<8> RANDOM NOTES":"<9> SLIDE WHISTLE"::" INSTRUCTIONS"::" QUIT" 22:5:"SELECT:";::" "::HT1:A$" MYSTERY SONG."" LI MENU ====E :A$"--------":A$:"ANY KEY:":A$;:(37):A$ ::DOT$"........................................":I123:I:1:DOT$;::(DOT$,39);:2039,(".")128< 32,5:33,35:3:5::" SONG SUBROUTINES ":::"<1> CHARGE":"<2> SHAVE d60000:MUSIC POKES-700:GOTO MENUcRESTĖ12:"":X1REST::REST0:,"PITCH:";PI;",";:12:"LENGTH:";LE PLAY A NOTE ===========0,255PI:PITCH1,LE:NOTE LENGTH771:PLAY THE NOTE              ,94:S,94:SA,94:5060@SFI(PZ):S,94:SA((SF0)173),94W$"OLD VALUE:$"H$((LOPZ))"("((LOPZ))") NEW:":MAFF:9200LOPZ,VV:A$M$:24:A:868:XS:9100M$"C"5180(SF0)173ĹS,VV:5300 :HTHT1:VT6(HT1HT, SECTOR ($00-$0F(15)):":MA15:9200:A$""1020SEVV:24:A:868::"WRITE";::" TRACK $";H$(TR);"(";TR;"), SECTOR $";H$(SE);"(";SE;")? ";:A$:A$"Y"1020RW2:9000:RW1:1020 CHANGE A BYTE TS0:VV(LOPZ):M$"C"SSC(PZ):SAC"  7050! WRITE SECTOR x24:A:958::"WRITE";::" ONTO SAME SECTOR? (Y/N):";:A$:A$"Y"A$"N"1020A$"Y"4120A$"":TS0:W$"WRITE ONTO TRACK ($00-$22(34)):":MA34:9200:A$""10200TRVV:W$"TRACK $"H$(TR)"("(TR)")RVV:W$"TRACK $"H$(TR)"("(TR)"), SECTOR ($00-$0F(15)):":MA15:9200:A$""1020_N SEVVX 24:A:868:"READING TRACK $";H$(TR);"(";TR;"), SECTOR $";H$(SE);"(";SE;")";l RW1:9000:M$"C"TR17(TR17SE0)X$"C":M$DF$v TR17SE0M$" READ SECTOR 5 K177K179A$(KF0):3080i A$"":TS1:W$"READ TRACK ($00-$22(34)):":MA34 9200:A$""3140 A$""1020 SESE(A$"3")(A$"1"):SE15TRTR1:SE0:TR34TR0 SE0SE15:TRTR1:TR0TR340 3160UD T,1520,3000,3000,3000,7000,8500,2000,6000,8000,5000AG$;:1020N QUIT 24:A:"QUIT NOW? (Y/N):";:A$:A$"Y"102024:A:958:23: CATALOG  24::(4);"CATALOG,S";SL;",D";DR IA40:"-";::"ANY KEY:";:A$:A$::7050K141K149K2181300RPZPZ(K136)AZ(K193)RT(K141DIR0):PZ0PZ0PZPZ(K149)AZ(K218)RT(K141DIR):PZ255PZ255K136DI0K149DI11040  KEY CHART OPTIONS 224:A:958:K172ĴK1724000,1500,1500;:24:P((LOPZ)):H$(P);"(";P;") ";:39:868:2038,P:2039,160:P160Ĺ2038,211:2039,208`P127P160Ĺ2038,222:2039,Pt CURSOR CRS60BDI:S1,CR:S2,CR:S3,CR:IA9::S1,C1:S2,C2:S3,C3:K(Q):KF01160Q16,0:K136K193":$ (";:22:":$ (";:38:": ";:24:A::"BYTE";:17:"VALUE";:33:"ASCII";:M$"C"S1SC(PZ)A:S2SC(PZ):S3SC(PZ)A:1080$S1FI(PZ):S2S1A((FI(PZ)F0)173):S3S18C1(S1):C2(S2):C3(S3)]L24:32:" ";:7:H$(PZ);"(";PZ;"), "A$"Q"192# 22:958:A$"Q"ĀE TR17:SE15:RW1:9000:7050e M$"C":DF$"H":DI1::7050y  STATUS LINE (111)(112)TF25000Ģ24:A:"CLEARING VARIABLES. ";::"STAND BY.";::I(0)S16368,0::23:A:IA40:"-";::958:5:10:FI(I)FI(0)CI::I11FF35:FI(I):FI(IA)FI(I)B:FI(IB)FI(I)D:JC32:FI(IJ)FI(I)JC::49384,0:FI(I33)FI(I)36:FI(I34)FI(I)38: :19:2:"WARNING"::23:13:" TO QUIT, OR":24:6:"INSERT DISK AND HIT :";:A$:A$(13)STA":11:"SAN DIEGO, CA 92103"d I0FF:H$(I)::I0FF12:SC(I):JA11:SC(IJ)SC(I)CJ:: 49385,0:18:A:IA160:"-";::19:" ";::"WARNING";::": BACK UP YOUR DISKS. A MISTAKE COULD EASILY CAUSE IRREPARABLE DAMAGE. " FI(0):I13 11:"------------------":13:"BY BERT KERSEY" J64:I09:DE$(I)"00"(I)::I1099:DE$(I)"0"(I)::I100FF:DE$(I)(I)::49384,0 11:11:"COPYRIGHT (C) 1982":11:IA18:"-";:::8:"BEAGLE BROS MICRO SOFTWARE":12:"4315 SIERRA VI6:SP160:F0128:FF255:TF256:LOC24576:NLO(175)(176)256280:Q16384:G$(7):D$(13)(4):RT16:SL(47081)16:DR(47082) 255:D$"NOMONICO"::::49385,0:2:13:":"12)":":13:" BYTE-ZAP ":13:":"12)":":::11:"APPLE DISK UTILITY"$(dP`============== BYTE ZAP BY BERT KERSEY COPYRIGHT 1982 BEAGLE BROS ============== }ZSS1:PRINTER.SLOT \LF$"":LET.LF$=CHR$(10).IF.PRINTER.NEEDS.LINE.FEEDS xSC(263),H$(255),DE$(255),FI(255):I1:J1:K1:A1:B2:C3:D4:E5:F                 N Mn7 n N 666-uM17 n n NIM13m1n)n N )3M13M1s-N -3M?76NI )3M13 mN -3M?7 n N )3M:w -N --66vIMM13M13M1s-N M13M13MN IM13M1n >7MqM1s  3MqJM1s 6vI---.-uJ--;.>.>.-.)3M1?w *uIR >RMI>--5???--wNI --ޛ-- *I--???.--7NI )s N ->7->*--??-M  M13--n N -3M?7M13-u J)36Ms-N -n1n1-u J--n?76--NJ--n?76NII)36M5s-uJM13M1??n n N -66-N I166s-dfL3`` F1|0?f30``8`AGpq<`c98NCs|Og?`9@Csx<GApx!y xxp !`f` xxCp||a@yw88p>oq\O@`wxGpLs?\ncC`^q`fa0@`gNC3p8 n@w078NCwlaoa@CspID $$$" @HO'|||DI<>a!dxyyyy~F?|sfxOAq>c|0F0`Lf||~30f ~a|p|c0v~Yxgpf|p<8pnNp@@Csw|wpnsp\ogspLsp`}`0```00 C1 FA1Fa c f~X`?@}1` @1 c @30p`f ?Fa f`@A30f 30` Ls`8@3 cg@1c~Oy`?8p``@pf 0`0 @ F0f ~`` f`La`CfL0`` F10F10`08HCpp`88Ncwgo@Cspw<8p>Nos\O@pw|GpLs\oggp^spfa8@pc|18`g<p@Csx<GID $$$"@ ||~sfpOAa<Cx0L0` f~G?|30fp q~`|g0vY|gxf|p8p.Np@@Ccwxgpnqp\ncap@s|f}`0`a8Cq8 Cq Fc1 Fa8 ~a f`8`?@As`@aLs @As8x`f ?Faf`C30f 30` L3`@y@s?|cg1C~Oy`8p`@pf 0`pL @xGpf F`` <`La`CgL0a` F10F10`08XC{pp`}98NswgGo@{spOp  y y`bI`C#P&ApqxqIp8pOGs\O@pq<gpLpOGwp^sp`apAxoaC@g8x>x@oy|q<|ax~00@g|9pN@{s~|w|`g'dgc@ 0L0` f|fq@00fxMC9Cof0N8`f@p8p.Np@CCwpGpfpp\la@p@s|f= px<|@pc~ca?xgqp?~0c ύ̭͍̭͍)5?;?VIII*m ->?mI57m ->???-m5ۛmI)>???w---??MI*---5????.M m 5???---->???III5 ->?.-755w57m:?.->I5575757575757575o--?7-575w5575?7-?VIRIIۿ-m 5???7- --?7mIR ?RII????7----5????7----5????7----5????7----5????7----5-???wm ;.>.?7-5?II - --???7mIw--mI5???7---??II>I:.>--->??w)>.>.M5??7--?I 5*m ->?mI57mI57-M-????.---5??II M*-M-5?;?mI5wm)>w-5?7-5?III*-M -5??wmI 5;7m)M5;7m-m5????w-M-۷III*mI->?Nm)?7-;mI?;?.-M7->7->7->7->7->7->7->on-?7-->7->7-?.?.5?.5??.-?MI?RIIۿ-m 5????7----?7mIR ?RIII:???.-m-->???.-m-->???.-m--ۛ-- -->???.-m-->???.-m-->???MII @@@@RmI ->?.m)M->;?.m)M->;?.m)M->;?.m-m->??m-mMII?*MI)5??.-M--??w-m;?-?-m-?;?7-mI->;oIIII*mI->?.mI->?.mI->??w-- ->;wI)5????7----???oII ?*---->????.---*?-?NII:????.---->????MIII->?--?.5?.?.?.5?.5?-5?M7->>??-M ->?.mI->?.-- ->??-M->7-> *m-??.m);7->7->7->7->oII?Jm??-M)?.- ??N -5?*m ->??w- -oI wI?.5?-- 5??N->7->7->7-M:?m5MI*mI->?.mI->?.mI->?.mI->?.-- ->??w-- ->;oIIے*MI)>;.mI->?-M->;wm->s)5?.>MIے*->7->7->7->7->7->o?*mm)???.m- -5?;7-Mm)5?;7-Mm)5?;7-Mm)5?;7-Mm)5?;oIII7*m-???.m -5??.mI->?.mI->?.mI->?.mI->?MIIJm-??-m-->??7-M ->?.mI->?.-M-5???w- -?oII*m-???.m -5??.mI->?.m -???.m-;7->oII >J-m-???w)5?.5?.5?.5?MI?J-m->??--m->?7-M ->?w-- ->?wI)5????7----???oII 7->7->7- -???.m--5??.mI->?.mI->?.mI->?.mI->?MII5->7-*5?.5?.5?.5?.5?.5?M>)5?.-5?w->7->7->7->?.o I->7->7-M)5?;7- -??.m5?.m-??.m)->?.m ->?MII ->7->7I:5757757 5575757575757575ow575w>.>.IRII??MI?3 M n m n)-Ms--J -RII????7----5????7----5????7----5????7----5????7----5????III@@@@ MEMORY LANE =========== J*MI5;.MI5;.MI5;.MI5?;w---5?II*MI)>;mI5wm)>w-5?w5II*MII5;.M)M)>;;.M)M)>;;.M-m)>?????-m)-۷III*MI)>?-M-??w-5?--??-M ->;VIII*MI5;.MI5;.MI5?;w---5?wI)>---???MII*---5????NI)---->???IIII---5?????.----????.---???--NI?RII????7----5????7----5????7----5????7----5????7----5????III@@@@15X1,Y:3:X,YX10,Y::1:;;.M)M)>;;.M)M)>??----->???VIIIm*m ->??w)-?.5?.??-m-5?;III;*MI5;.MI5;.MI5?-- 5?wI)>--??MII*---5????NI)---->???III ->?.>.>5w5757-5?V 7575757575757575o--?w)>.>5575*-?VIIiI?.-----?????.----5?????.- ?--5??7--5??7--5??7--u@@@C?.- ??N -5?*m ->??w- -) ->3M?7nIR-53M1?w n5 76NI)R---u -1-3vu?M13M1smNM13MN 5M13  NMMq-M13M1?w ?M .----N) 3vu666n*N >iNI---5??7--5??7--5??7--u@@@C?.- ??N -5?*m ->??w- -u5rVw-->.>.>*-u7I?--???N->7->oI I??MI vRR-53M1smN56-3M13-u mR-3v-NI1*-n -u?R-3---u 3?w6N R-53M1?w ?M >6-3M13Mq)66N 56o )6M.nq)566-N5-n n N -n1nq)R-3M1s-N-̭͍;10);"NORMAL";15);"LOWER CASE":L$; V:I16:::0:d "$";:N%N16:150:N%NN%16:150:~ (48N%7(N%9));: IPRINTER8 FXN:XX192(N32)128(N31N96)64(N95)D PX$(X) Z" ";:140:" ";X$;" ";N;(N100)(N10));" ";:N127ĺ"(";N128;") ";(N128100)(N12810)); d" ";:N::V1((V1)16)160130$ x:TT1:T2ĺ3);"INVERSE";8);"FLASH" I169:L$L$"-":/1: PRINTER SLOT>I16::~3);"INVERSE";8);"FLASH";10);"CONTROL";14);"NORMAL":L$(V063:NVV192642N159N255X$(N):90 <N255X$" ":90: MAKES CHR$(255) PRINT AS A SPACE. DEPENDS ON YOUR T AFTER BOOTING THE CHANGED DISK. ----- -------";M!24:40:A$:A$&:6:"* A THIRD "Q$"PAGE COPY"Q$" PROGRAM (SEE PAGE 42) HAS BEEN ADDED TO THE DISK.":10" EXEC PAGE COPY 1=3 MOVES PG.3 TO PG.1. ------------------":" EXEC PAGE CO NUMBER: VALUE: VALUE:"" --------- --------- --------- 192 ($C0), 32 ($20) 234 ($EA) 193 ($C1), 66 ($42) 234 ($EA) 194 ($C2), 174 ($AE) 234 ($EA)"9:"* REMEMBER, DOS CHANGES WILL ONLY BE IN EFFECEE PAGE 40)A????III@@@@?̭͍z#?  Ԡ ԠӠ"̠Ġ̠ŠŠˠ!̠"Π ԠӠ ϭӠ Ĉ    ӠϠӠӠϠ" !È"  Š٠Š٠Š٠ ŠР* ǠӠ ҠɭҠ ˆ   ɭҠϠŠŠϠ ӠŠà    ŠҠԠҠԠҠ ŠҠIT BEHIND THE TOP ROW OF KEYS ON YOUR APPLE."GX23:40:A$:230,32:0:0,0:62454:3:0,1430,157216,157216,1430,14370,103279,103216,1430,143:0:I22146:I,143I2,143::PY 1=3,R4 MOVES PG.1 TO 3. ---------------------::" SEE PAGE 30 (POKE 230,ETC.) IF YOU ARE UNFAMILIAR WITH HI-RES PAGE 3."?24:40:A$:A$5D:16304,0:16297,0:16301,0:21:"REMEMBER TO FOLD YOUR KEY CHART LENGTHWISE AND INSERT 6:4:3:I;::3:36:"ABOUT"324:40:A$:A$:" BYTE ZAP NOTES:":" --------------":"* THE GREETING (HELLO) PROGRAM NAME ON APPLE MECHANIC IS "Q$"APPLE MECHANIC"Q$". TO CHANGE IT, SEE PAGE 56.":7"* THE "Q$"DISK VOLUME"Q$" CATALOGL,a GY[hu --???---->???7---->???7----???-- --66??$$ 666.--$$$7- <=<>@>?>@A@=?<>`ؠ CISCI HEADING HAS BEEN CHANGED TO "Q$"BEAGLE BROS"Q$". TO"Z" CHANGE IT, SEE PAGE 58.":%"* TO MAKE THE VOLUME NUMBER PRINT OR NOT PRINT WHEN YOU CATALOG, YOU CAN MAKE A CHANGE ON TRACK 1, SECTOR 12 ($0C):"::" BYTE PRINT NO-PRINT ,<,???.--5???.-->??.-->??.-->??.-->?--??66666666.$$$$$$$$566656666--$$$$<$$$->.>.>6666.-- --$$$<666>$$$$?6666'$$$<66668%'%'%'%'%%5>666.--. ,<,<,<)--5???;??7---MI)--5??????7---------5?????????7----M---->???;???7----M---->???;???7-----------$$$$$$$$$$7>6666$$$$M%<$,,57o%?w-7--???7----6666$$$$??7--5??7--5??7--5??7--5??76666%$$$l6666%$$$,6666--$$$$$$$$$ 5?w-7--?a> $3:R`F=->'->' ????.----?????.----????7----?.------5?????.-----????6.$M $7v----------57- mm- 5;?.m m-m m7---------5??????7---MI"* TO MAKE A "Q$"HARD COPY"Q$" PRINTOUT OF A HI-RES IMAGE, YOU NEED TWO THINGS--"" (SEE YOUR APPLE DEALER.)":" 1.A PRINTER WITH HI-RES CAPABILITIES. 2.HI-RES "Q$"DUMP"Q$" SOFTWARE THAT IS COMPATIBLE WITH YOUR PRINTER.";I19MADE WITH BYTE ZAP AND WILL TRANSFER WITH FID.":"* IF YOU SUSPECT AN ERROR IN A PROGRAM, REMOVE THE "Q$"ONERR GOTO"Q$" STATEMENT FROM THE LISTING AND RE-RUN THE PROGRAM FOR A REPORT ON ERROR TYPE AND ERROR LINE NUMBER.":U IS 0 % FULL, YOU MAY WANT TO USE FID (ON YOUR SYSTEM MASTER DISK) TO SPLIT IT INTO 2 OR MORE DISKS, THUS PREVENTING":" "Q$"DISK FULL"Q$; " ERRORS WHEN SAVING FILES."2:"* THE INVERSE TITLES & BLANK FILE NAMES IN THE CATALOG WERE ' A$"H"ĺD$;"RUN SONG SUBROUTINES"I A$"I"ĺD$;"RUN TEXT TRICKS"j A$"J"ĺD$;"RUN TWO-LINERS" A$"L"ĺD$;"CATALOG"::I140:"-";::"ANY KEY:";:A$:A$: :" GENERAL NOTES:":" -------------" "* SINCE THE APPLE MECHANIC DISKUN GREETINGS"4 dA$"B"ĺD$;"RUN SHAPE TABLE DEMO"Y nA$"C"ĺD$;"RUN HI-WRITER DEMO" xA$"D"đ:16302,0:D$;"BLOAD @FONT SAMPLES,A$2000":A$:A$: A$"E"ĺD$;"RUN SHAPE EDITOR" A$"F"ĺD$;"RUN FONT EDITOR" A$"G"ĺD$;"RUN BYTE ZAP"EXT TRICKS RUN TWO-LINERS"; 2" ------------------------- SEE NOTES ABOUT THIS DISK ------------------------- CATALOG QUIT SELECT:"; <A$:A$"A"(A$"L"A$"Q")40 FA$"Q"Ģ23:1:958: PA$: ZA$"A"ĺD$;"R, BEAGLE BROS ---------------------------------- ; #5000 (5:" SEE GREETINGS DEMO SEE SHAPE TABLE DEMO SEE HI-WRITER DEMO SEE FONT SAMPLES RUN SHAPE EDITOR RUN FONT EDITOR RUN BYTE ZAP RUN SONG SUBROUTINES RUN T  V$"0.1":VERSION#+ 0.0: 5/10/82> 0.1: 6/16/82YD$(13)(4):Q$(34):::255:" APPLE MECHANIC ";::38:V$:11 "---------------------------------- ---------------------------------- (C) 1982, BERT KERSEY          >x?2@qC~`r~?~ F?~`~`O{!@|sg?pp~~~_O7x~?p|}y#8@~@ qccx@~2&@|yx~?p|?@x00>`p|p@`~OpO~3p|~pw?{c~a~|?@ r8|0@ t6p`@pp`@L@`f00F1f@0` Nas`f3` Lp@|?@wGpp xpgw~wsp|8Ppp@}p|}@Ox?|sp|?~q#8>@ ~qq!bx@~p@B @w>~G~?p|`@~~~Owg?f~?p|~cw?{c?~a~~@~`O|||~xGC t6pp`@`?`o@~ f~_`~?`f800F1F@po LAc`f83` L~~p?`@[{n/W~?p~ @pc~xsp|~yx~~~xCyOw@~~?p|}@~D`@pp~?p|~1#<~qa bx@b0p>t p@!op? p|O?~pwO?{~a~~@0~ x|@Q  p`@@`g@d@`fp00F1@po LAC`fp3` LxD`zm/7p@Ha~| fq@x ~|p`p|`@|p'p||"B1|a~q @               fp~y|GxfCpAy<`x >xg0pCG@apAGgf``@q00f LAs`xx7L0` fw<s>Nos@{pp` `0gaf@00@@@ ||~0fpCvx ~c`a0@3 `@1fp@p`@a cp @As8x`9f~G?|30fp ~c`xs`@y|Gq ~g@yf 0`00l @a|0G`?xGCpasxcLpFxc~?x|ca0f|c ~9NGpp<`c98NspOggc9@CsID$"$$$@@L $rDD(I"A" Ha?x~0`opCF1Xxa@ 0`@|8`n@s0w88N`plag?`@CspwAp ) yp( $D !x$$ AIp8pNOp@{qp7pLswpLsp`a `@`a8 3 CqGc1Fs` gaf`~~yxpfcpAy<`|xgp?xGG@sqaOgf`@Aa10f LA3`|x7N0` fw8s>oq@{pp`|c`@C`g|g`8p@A@@` @s0L3 f@1f0@0` @q cx @30p`f Lgq@00fxGs8`>`@8NA3 f@1f 0`00< @ax>0 ;G`pCCpasx?fL0pCvXxa@0f{0` |9Nopq<cw9<Nspog9go9@Cs8I|$%d'$ @@H`$DDI"!d yyIc?|1p@xcF1x|ca<0`@~8`o`w8Gw98Npxnc>gp@Cs>xwA   bcI`C#Ig$Dpqxq8 p08pnOp@@{sp7pLspopLsp`a `` ``0 C1 FA1Fap f ~s?pAy<`|Oygp|OG`qaOgf`CA30f LA3` 0vG0|g? gw0s>np@{p`xa`@C`C?|~cx`?@@@` >?8NA3 g@1f0@0` @? c @30p`f 3 f`0@00f30` `@0L3 f@1 30f C18< @q0``fL308 o`w8Gw8Ncwnc=Goq@CspID`'$$dg@OH $DD(I"@!$  IgNC38`q3F1x88Gs~?0``8`Aopw<gw98Np|og?gy@Cs~|w A!PQ ! ?p88pnNp@@csq<wpLspOGwpLsp`q `` ~``0p? C1 FA1Fa8|xf w08p>np\@@spGpLsla@Rp@fav 30`C1 @ FA1f <`pC`^a` CfqF38fLA9s` 0vC0|g?Lgp``@C`| |a?x@?@@@` <f`x|Gq|~c@yf>Xp@}0` @ c @30p`f 3 f``@30f 30` LCc`0@3 f@1s?~Oy?`8p``@                 ):L2SF(SFB(CHA))T(SFB(CHA)A):LESF(SF26)T(SF27):eJVEVS:MVA:JL2L1MVA22:1::"INSERTING";:958::JJ(L2L1):JOSL2:OELE:NSL2J:NELEJ:950OSVSA:OEVE:NEL2J1:MVA:950.JāXSF2(CH1)SF262:NVVA:NN(V)64HXLOC,N:LOCLOCA:22:17:VVS", BYTE #";LOC20480b(V)0VVEĹLOC,U:LOCLOCA:(VA)0ĹLOC,U:LOCLOCA:(LOCC)0ĹLOCC,Ug(Q)155170lVVE590vLOC,0VELOC:VS20479EI0:L1SF(SFBCH)T(SFBCHA"CH":"CH10)" VECTOR #";:31:"DIRECTION":980:"=MOVE/PLOT ";:940:"=DIRECTION=FINISHED =BACK UP";:::VVS:LOC20480:22:1:"WRITING VECTOR #";NVVA:N(V):VAVEN(VA)8TVVA:NN(V)8:VAVEN(VA)64Tė:550:380IK160(PSST)CRCRAB(CR9):V$"PLOT":CR9V$"MOVE"YK14138021:24:868:::958:"READY TO WRITE SHAPE INTO TABLE? (Y/N):";:A$:A$"N"İ550:380A$"Y"500VVA:V,0:VEV:570&STı0:21:"SHAPE #SXPC,YSYPC:380"K155170K208STPSA:CR8:23:1:868:21:12:"PRE-PLOT & ";:868:XXXP:YYYP:JM3K141ST480PSXPXX:YPYY:0:IYS1148:XS1,I277,I:STA:JMC:PS0:CR8:CXP1,YPA:PSXXXP:YYYP 8192:OE16383:NE24575:MVA:950:A$"IMPRINTED.":850:NSOS:OSOEA:OENE:MV1:950:770::550:P,96:370|K216460VVS0ĺG$;:380ER(V):VV1:YPYPJM(ER0ER4)JM(ERBER6):XPXPJM(ERCER7)JM(ERAER5):ERCĕ8XP,YP:CXPJMXL)(KUYPJMYL)(KDYPJMYH)ĺG$;:390XPXPJM(KR)JM(KL):YPYPJM(KD)JM(KU):STVVA:V,(KR)2(KD)C(KL):CR8ĹV,(V)4:CRXO,YOCR8380(PSST)ĕCXSXOC,YSYOCPSĕCXOA,YOA380lK201STOS":STVT21:H19:A$"START POINT"CPSVT21:H12:A$"PRE-PLOT"CRXP,YP:IA99::CRXP,YP:IA99::JJA:J(J5)5390961:390Z,0:KRKLKUKD450VVSMA8380CR9āIAB:CRXP,YP:0(KRXPJMXH)(KLXLOCATE START POINT & ";:980:7:"

= PRE-PLOT":7:"= IMPRINT";:PSĢ21:12:868:"PRE-PLOT & "::958:JM3|STĢ21:20:IVVS1:I" ";:26:V$;:IMAXĖ20::I(6(IMA5));:XOXP:YOYP:K(Q):KF400"VT21:H40:A$"?50$ bT$(F$,1):T$"0"T$"6"357H cA$F$:F$" ":A$"2"A$"6"190 e:I255ĺG$" ERROR "I" ";:I6Ė2:F$" FILE NOT FOUND " fK120001999(I255):::170 h730:P,96:CR9:VS16383:VVS:ST0:XPXX:YPYY:PS0:JM12rSTė:21:940:"= 2-SHAPE TABLE ":I1999::150j ,X$"SAVE"ĹSF,12:SF1,0:D$"BSAVE "F$",A"SF",L"A(SF26)(SF27)Ts 6170 @":";F$:958:(F$)ġ:X$"":150 T ^:22:I(222):I16Ĺ49232,0:49239,0:49235,0:40286,60:40287,212: `I77Ĺ222,16:3$"EDITED.":850:CHCT:3605 A$"N"Ĺ49234,0:180N A$"2"A$"3"180n X$"SAVE":A$"3"X$"LOAD"t  P,96:24:" TO ESCAPE";:22:1:X$;" SHAPES NAMED";:320:X$"LOAD"ĺD$"BLOAD "F$",A"SF "(SF)12ĺG$;:::22:" NOT A 1Z,0:P,96:::22:" MULTI-SHAPE EDITOR ";::" (C)1982 BEAGLE BROS";:980:"SELECT FUNCTION FROM KEYBOARD CHART:";:A$:A$::49235,0 A$"4"İ1000:"ANY KEY:";:A$:A$:49232,0:180 A$"5"1100 A$"6"A$"DISPLAYED.":850:170 A$"1"A86,35:40287,216:350R P1,0:P,96:A:0:CHA:CTA:SL(47081)16:DR(47082) (SF)12(SF1)2ĹSF,12:ISF1SF55B:I,0:I1,5::J32:ISFBSF26B:I,J:JJB: :49235,0:P,97::I011:I13570(I(I4)4),2553((I4)): ZR149:L136:U193:D218:C3:B2:A1:T256:F128:Q49152:Z49168:G$(7):D$(13)(4):Q$(34):V$"PLOT":XS214:YS100:XP97:YP79:XXXP:YYYP:XTXPA:YTYPA:XL4:XH190:YL4:YH145:P233:SH24576:SF24832:MAX990 d::D$"BLOAD CURSORS,A"SH:402          :X1,140X1,140::Y7570SZ14510SZ5:5050SZ,Y15050SZ,Y1::81022:19:"^ SHAPE-FONT IN MEMORY";:19:"^ AT $6100 (24832)"230,32:P,97:J1:Y08:X111:JJ1:J97ĕJ114X14,Y18(Y6)(Y7)::P,96:'XSF(J(J11)810:820:160:230,32:0:0,0:62454::230,64:62454:3:0,1509SZ7050SZ,1509SZ7050SZ,70(SZ0)0,70(SZ0)0,1509SZ:810X106060SZ10:Y8070SZ14010SZ10:X,Y:::810MX56550SZ5:X1,4050(SZ0)X1,4050(SZ0)";::J(S8241)(L2L11):JOSL2:OELE:NSL2J:NELEJ:960bbOS824:OES:NEL2J2:MV1:960lJāXSF2(CH1)SF2002:N(X)T(X1):NNJ:X,N(NT)T:X1,(NT)::1:"STAND BY.";vJCH2:700:230,64:800:P,97:CHXS,YS:P,96:230,32:g&II1:22:1:"WRITING PLOT #";I;", BYTE #";S823;:N(VI):II1:I(PT)N8(VI)TNN8(VI)0(VI1)4II1:I(PT)N64(VI)TNN64(VI):S,N:SS1:IPT550DS,0NMV1:(S8241)(L2L11)MV1>X24:1::"INSERTING55(X5),Y10:1:X:(Q)155İ810:160?Y:VPT,(VPT)1aXXLXW10:PTPT1:VPT,1:{S824:PTPT1:VPT,0IN1:830IN0:I0:L1SF(SF2CH)T(SF2CH1):L2SF(SF2(CH1))T(SF2(CH1)1):LE40SF(SF200)T(SF201):X5,Y:1::I5XR10:3I,Y10:P1(234):3I,Y20:P2(234):3I,Y10:3I,Y20:P10P20ĂI:XLXR:470tXLI3:XL5,Y5XL5,Y25XXRXL10:PTPT1:21:16:PT:3X,Y10:VE3(XXL):VPT,VE:(234)0VE7(XXL):VPT,VE(10:3X:I6550SZ510:3I,Y:P1(234):3I,Y10:P2(234):3I,Y:3I,Y10:P10P20ĂI:XRXL:420jXRI{XRXWXWXR3:XR5,Y5XR5,Y15XXLXR10:PTPT1:21:16:PT:3X,Y:VE1(XXR):VPT,VE:(234)0VE5(XXR):VPT,VEk10:3hCR1Ē3:CRX,Y:3XSX10,YS(Y7070SZ)10{rCR2Ē0:1X,Y:3XSX10,YS(Y7070SZ)10:Y151Ē3:0,159120,159|K14132023:1:958:21:"SCANNING PLOT #1 ";:V40SN(SN200)(SN201)TaXW5:PT0:XL5:Y7570SZ14510SZ20CHARACTER AND .":12:" = PLOT/NO-PLOT";_@CRX,Y:K(Q):CRX,Y:KF320JC,0:XX10(KR)10(KL):YY10(KD)10(KU):XX10(XXH):XX10(XXL):YY10(YYL):YY10(YYH)TK155İ810:160^K160CRCR12(CR2)0 "I" ";:I6Ė2:F$;" FILE NOT FOUND "J "I13Ė2:"IMPROPER FILE TYPE "n #K120001999(I255):::160 ,P,96:X1:Y7170SZ:XL1:YL7170SZ:XH6150SZ:YH14110SZ:35,570(SZ0):P1(234):35,570(SZ0):CR1:P10CR2;6950:": PLOT 201)T 1407 ":";F$:958:(F$)ġ:X$"":150= _ T$(F$,1):T$"0"T$"6"288 A$F$:F$" ":(ST)(A$"2"A$"6")170 STA$"3":220 :22:I(222):I16I77Ĺ16304,0:16297,0:40286,60:40287,212:& !:I255ĺG$" ERROR1100:"ANY KEY:";:A$:16304,0:160E X$"LOAD":A$"2"X$"SAVE" :24:" TO ESCAPE";:22:1:X$" FONT NAMED";:270:X$"LOAD"ĺD$"BLOAD "F$",A"SF:SZ(SF1)1:SZ0SZ1Ĺ222,13:285 X$"SAVE"ĺD$"BSAVE "F$",A"SF",L"40(SF200)(SF ST1:X$"LOAD"İ640< 49232,0:49239,0:49235,0:820Q STA$"3":220 C,0:P,96:::22:" SHAPE-FONT EDITOR ";::" (C) 1982 BEAGLE BROS";:1090:"SELECT FUNCTION FROM KEYBOARD CHART:";:A$: (A$)830,220,220,205,1000,1030:160% ):SH24576:SF24832:232,0:P,96:1:0:CH2:X$"LOAD":40286,35:40287,216 n::49385,0:J122:I04:15I:J:(A$,22I16J1,1);:1233,67:::1:D$"BLOAD CURSORS,A"SH:D$"MONICO" x285 SZ(SF1)1:(SF2)208(SF3)0SZ0SZ12000ZA$"===================== SHAPE-FONT EDITOR BY BERT KERSEY (C) 1982, BEAGLE BROS ===================== J dQ49152:C49168:D$(13)(4):G$(7):Q$(34):T256:R149:L136:U193:D218:F128:P233:SL(47081)16:DR(47082      ? ?wqImmw M:N)N-n mN-6R 6N56N 5 --NN n:?w1VIM7R?RINIVI 5)3M5.M-Nm1w6-N)sI.-u-->N-N>I> 3--v 5--.-6s-N -޻M:?n -N.--6NI))3M?M1s-Nad )/9BS^ent0;OZn);LZl}+6<JXbs .8FSbo" 66N nR>i----nN> ?  RACTERS 34-59, WILL BE SAVED AS "Q$"]APPLE 34-59"Q$". YOU MAY, OF COURSE, RENAME ANY FONT WITH NORMAL PROCEDURES."|?'21:1:958:`:21:216,0:QS IN A FONT (TO 2 MINIMUM), ENTER THE START ANDEND CHARACTER-NUMBERS.":v"AFTER THE FONT HAS BEEN SPLIT, IT WILL BE BSAVED WITH THE CHARACTER LIMIT NUMBERS IN ITS NAME. FOR EXAMPLE, THE"vQ$"]APPLE"Q$" FONT, REDUCED TO JUST UPPER CASE CHA56):19193:6XQ$(34)::::" FONT SPLITTER "::b"THIS PROGRAM LETS YOU REMOVE UNWANTED CONSECUTIVE CHARACTERS FROM A SHAPE- FONT, THUS REDUCING THE FONT'S SIZE AND SAVING DISK OR MEMORY SPACE."Hl:"TO REDUCE THE NUMBER OF CHARACTER:958:(4);"BSAVE ";F$;" ";ST;"-";EN;",A";SF;",L";LL:22:"FONT REDUCED FROM ";I;" TO ";LL;" BYTES.";:958:22: p60,OS(OS256)256:61,(OS256):62,OE(OE256)256:63,(OE256):64,NE(NE256)256:65,(NE256):66,NS(NS256)256:67,(NS2)(I1)256:JJD1:I,J(J256)256:I1,(J256):Y&ST2OSL2:OEL31:NSL1:6000x0OSL4:OEL5:NSL3D1:6000:ISF194SF2002:J(I)(I1)256:JJ(OSNS):I,J(J256)256:I1,(J256)::LLL5D2D1SF4sDI(43616)(43617)256:21EN)(SF2EN1)256:IL3L38000:(I)0Ă{L3I1:L4SF(SF194)(SF195)256:L5SF(43616)(43617)256:D2L4L3ST2āISF4SF2(ST1)2:I,N1:I1,N2:ENNāISF2(EN1)SF2N2:I,N1:I1,N2:5D1āISF2STSF2EN2:J(IRECT? (Y/N):";:A$:A$::(4);"MONICO":22:A$"Y"A$"N"A$"Q"A$"R"320b JA$"Q"10000r TA$"R"110 ^A$"N"FLAG1:290 h::22:"WORKING":-N1(SF2):N2(SF3):L1SF217:L2SF(SF2ST)(SF2ST1)256:D1L2L1:L3SF(SF2 A$"Q"10000" A$"R"230 "22:1:868:233,75:STNSāINSST1:JI1:XP17.5(J(J16)16):YP26.5(J16):IXP,YP8: ,NEENāIEN1NE:JI1:XP17.5(J(J16)16):YP26.5(J16):IXP,YP8: 6FLFL0:200P @22:1:868:"CORFIRST";::" CHARACTER (";NS;"-";NE1;:"):";A$:ST(A$):(STNSSTNE1)A$"R"A$"Q"230o A$"Q"10000 A$"R"110 22:1:868:"ENTER NEW ";::"LAST";::" CHARACTER (";ST1;"-";NE;:"):";A$:EN(A$):(ENST1ENNE)A$"R"A$"Q"2601(A$):((A$,K,1))31:99::233,75:IXP,YP8:y :21:I140:"-";::24:"(ENTER Q TO QUIT OR R TO RE-START.)"; NS1N:(SF2NS)(SF2NS1)256208Ă NENNS1:(SF2NE)(SF2NE1)256208Ă] 22:1:868:"ENTER NEW ";::"F$"Q"10000- (4);"BLOAD";F$;",A$4B00":s 3:0:1:SF19200:16304,0:16301,0:16300,0:16297,0:60000 NC(24832):NNC:NC96N96 232,0:233,643 :I1N:A$(I):JI1:XP17.5(J(J16)16):YP26.5(J16):233,64:100XP,YP:KУ Gd(4);"BLOAD ]SMALL STANDARD,A$4000":(4);"BLOAD CURSORS,A$4A00"Qn7000x21:1:I140:"-";::958:24:"(ENTER Q TO QUIT OR C TO CATALOG.)";:22:1:"NAME OF FONT TO BE SPLIT:";F$:21:1:958F$"C"ĺ(4);"CATALOG":::::120      2CH1)256:" ADDRESS: ";SHI" (START + "I")":1060:(37)vtNSH2CH:L1SH(N)(N1)256:IL11:HT33:~II1:HTHT8:HT40HT1:(36)0ĺP(I):HT:(P100)(P10));P;":";P01220M"END"::"TOTAL BYTES: ";IL11:106E #2: ";(SH1);:24:"(TYPE)":1060BCOCH:7:958:" FOR DEFAULT, <0> TO ESCAPE":5:"ANALYZE SHAPE #: "CH;:868:18:"";A$:(A$)CHCO:5:18:CH:1130LA$"0"200V(A$)1(A$)(SH)ĺG$;:1090`CH(A$)CjI(SH2CH)(SHCH(SH)CH(SH)9301C,0:K155200M(K176K186)K173ıg:A$(KF):150:210}$J140:"-";::. VECTORS ======= $8::" TABLE LOCATION: "SH" ($4000)":" BYTE #1: ";(SH);:24:"(SHAPES ALLOWED)":" BYTAPE";::20:CH" OF "(SH);:868:FL960NFL0:22:20:CH" OF "(SH)" "jXDĕCOXP,YP:CHXP,YPXDĒBC:COXP,YP:HC:CHXP,YPCOCH:K(Q):KF9601030K141200CHCH(K149)10(K193)(K136)10(K218):CH1CH1149)(K203)9(K136):YPYP9(K218)(K216)9(K193)(K211):XP279XP0_RYP191YP0p\YP0YP191fXP0XP279pXDĕCHXO,YO:CHXP,YP:800zXDĒBC:CHXO,YO:HC:CHXP,YP:800800 DISPLAY ======= *22:14::"SHXDXD12(XD1):XDĕCHXP,YP5XDĒHC:CHXP,YP>200P  MOVE ==== 24:1:868:"USE A,Z & ARROWS TO MOVE: X=";:26::" ";: 24:30:868:XP", Y="YP;:XOXP:YOYP*K(Q):KF81041030>K141200NHXPXP(K204)9(KCHC(HC7):130:620@K136HMBCBC(BC0):730:130:620kK149HMBCBC(BC7):730:130:620K194HM0:600K200HM1:600K141HC3:BC0:730:130:200620BC:0,0:62454: DRAW/XDRAW ========== 730::22:1::"DRAW";::"/XDRAW"aX:24:22:"H";:32:"B";::HMĖ22:"HCOLOR";::33:"CKGRD";bHMĖ32:"BCKGRD";::23:"COLOR";l24:29:HC;:39:BC;vK(Q):KF6301030K136HMİ130:HCHC(HC0):130:620K149HMİ130:H SCALE ===== +:24:10:"SCALE";:@24:16:SC" ";TK(Q):KF520^1030xK141SC1:130:200&SCSC(K149)20(K193)(K136)20(K218):SC1SC10SC255SC0:130:510D HCOLOR ====== NXD0:HM1:730:1301,SL16:43624,DR:47082,DR:2000  ROT === G :24:1:"ROT";:[ 24:5:RT" ";o K(Q):KF420y 1030 K141RT0:130:200 RTRT16(K149)(K193)16(K136)(K218):RT0RT0 RT255RT255 130:410 130:410060:"ANY KEY:";:A$::2009 6 DRIVE/SLOT ========== p @:22:"SLOT "SL", DRIVE "DR;:6:A$:A$(13)350 J(A$)7(A$)11060 TSL(A$) ^22:6:SL;:15:DR;:15:A$:A$(13)380 h(A$)1(A$)2350 rDR(A$) |43626,SL:4708,270,300,320,920,750,790,400,500,590,1080:200@  LOAD ==== ::23:1060:" TO CANCEL";:22:1:"LOAD SHAPE TABLE NAMED:";F$:(F$)170 D$"BLOAD "F$",A"SH:CH1::CHXP,YP:200 " CATALOG =======  ,A$"4"ė::D$"CATALOG":1HXP,YP SELECT ====== T 16304,0:150:22:26:"SEE KEY CHART:";:C,0:A$h A$"0"A$"10"| A$":"A$"11" A$"-"A$"12" A$" "A$(8)COCH:CHCH(CH(SH))(A$" ")(CH1)(A$(8)):FL1:920. 22:26:868:(A$)200,200:HC:RT:SC:CHXP,YP: 21:1:868:22:1:50,63192XD:"DRAW";::"/";:50,255192XD:"XDRAW";::" SHAPE:"CH;:868::1060:868:"ROT="RT; 10:"SCALE="SC" ";:22:"HCOLOR="HC" (BCKGRD="BC;:2039,169: XDĕCHXP,YP XDĒHC:CndA$" ===================== SHAPE ANALYZER BY BERT KERSEY (C) 1982, BEAGLE BROS ===================== nA$(255):CH1::::24:A$:40286,35:40287,216:1250x:16304,0:16301,0:270XDĕCHXP,YP:RT:SC:CHXP,YP: BC:CHXP,YP        ,30)p8 6:1:868:5:D$;"BLOAD ";FT$(FT);",A";FL(FT):FL(FT1)FL(FT)(43616)(43617)T1:FL(FT2)FL(FT1)L FTFT1:(FT$(FT))2360` FT32380t 2040 6:1 :868:FT$(FT)T$:G$;G$;:(222)6ĺ" FILE NOT FOUND ";:2520 (222)40216,0:240*A$"1"A$"3"254052440^(A$"3"A$"2")((FT$(1)))A$"1"~A$"3"((FT$(2)))A$"2" FT(A$):T$FT$(FT):6:1:868::" TYPE NAME OF FONT TO BE LOADED:";::7FT:9:868:":";A$:(A$)2040$ FT$(FT)(A$URN TO THIS MENU"(HJ19:S(Q48):`\24:"SELECT: < >";(8);(8);:A$:A$" "ĺA$;">";pI1500::I12:J19:S(Q48)::J140::A$(13)2240FT$(1)""FT$(2)""FT$(3)""Ģ24:1:958::G$;" NO FONTS LOADED ";::2800:20(2):"<3> FONT:";FT$(3)` ::" OR SELECT:"::I140:"-";::XCĺ" CLEAR HI-RES SCREEN"*" LOAD HI-RES PICTURE":" SAVE EXISTING PICTURE":" CATALOG DISK (LOCK/UNLOCK)":" QUIT PROGRAM":4" BEGIN TYPING":" RETOU TYPE CHARACTERS ONTO THEHI-RES SCREEN USING SHAPE-FONTS. YOU MAYSAVE THE COMPLETED PICTURE TO DISK AFTERTYPING TO RETURN TO THIS MENU.": 6:1:958::" TYPE A NUMBER TO LOAD A FONT:"::I140:"-";::"<1> FONT:";FT$(1):"<2> FONT:";FT$X,YXX,YHT: GF,0:X0X01X279X279>Y0Y0OY191Y191lHC:1:0:3X,Y:3:300u(300FLOC(1)16640:FLOC(2)FLOC(1):FLOC(3)FLOC(1) ========= MAIN MENU ========= XC0::::"MONICO"1:1:"XTYPER LETS YXX280YY192ĕ3XX,YY:P1(234):3>P10ĂYY:XRXX:1060LXX:XRXXm$XXX1X161:YYYYHT18XX1YY280ĕ3XX,YY:P1(234):3LP10ĂYY:XLXX:1140`XX:XLXXtXL0XL0XR279XR279 XXL(XL0):BG:XXXLXR:XC6HC4(HC0A$"0")ĺG$;:840/\HC:1200?pK135960XTX:YTY:140:0:J019248:30,J(J192):3139,J(J192)::191:16:J028070:3J(J280),0:0:1:HC:XXT:YYTK1331200YMYMLD(FT):XXXX16:YYYYHT1$BG2X,YX,YHT:XX(X0):(Q)127ĹC,0:760< 1200L K1438804:GT,0:22:I140:"-";::"3=WHITE 1=GREEN 5=ORANGE":"0=BLACK 2=VIOLET 6=BLUE";:IHC!H21:1:"SELECT COLOR (0-6): (CURRENTLY ";I;")";:20:A$:A$:HC(A$):H::21:1:"SELECT FONT (1-3): (CURRENTLY FONT ";FT;")";:19:FT$ lI(FT$):FT$(I)""I1I3Ģ21:19::868:G$;" ILLEGAL CHOICE ";:2800::600 FT(FT$) 1200 K1462020 K151ĒBG:IYYHT:0,I279,I::1200 K138800 K139XX1:1200/ K129YYYM:1200G K154YYYM:1200^ K152YY1:1200u K147YY1:1200 K141X0:YYYM:1200 0K155LCLC3264(LC32):1200 DK134680C XK134ĹGT,0::I13:21I:3:"FONT ";I;":";FT$(I);:M:300: T ============= CTRL-COMMANDS ============= hXTX:YTY:62923:X(224)(225)T:Y(226):XM(FLOC(FT)1)5:YM(FLOC(FT)1)8LD(FT):HT8(FL(FT)1)1:232,0:233,64 |K136XXXM:1200 K149XXXM:1200 K140XX1:120033,64:30,0:3 V  ================= CHARACTER PRINTER ================= ,232,0:233,64:(FLOC(FT)1):4LC32:K(Q):4LC32:232,FLOC(FT)(FLOC(FT)T)T:233,(FLOC(FT)T):1:K128300 @C,0:KKD(KGKEKF):KHĔKHLC(KL)(13)(4):G$(7):T256:D$;"MONICO":230,32R GF16302:GT16301:0:1:GF,0\ 1999 16304,0:16297,0:GF,0:Q16384:C16368:D75:E144:F145:G148:H159:L191:M99:T256:Y16:0:0,Y:HC3:HC:X0:Y10:FT1:232,0:233,65:340,0:340,0:2GkP==================== XTYPER BY BERT KERSEY (C) 1982 BEAGLE BROS ==================== dLD(1)2:LD(2)2:LD(3)2:VERTICAL SPACE BETWEEN LINES OF TYPExBG0: BACKGROUND ERASE COLOR(4);"BLOAD CURSORS,A$4000". Q16384:D$       6-N5---3MM3MMN-5n1nq)--n .-u--n >?7nIR--n >?wIn ;6vI--.-5--N1-36-NM13M13- NM13MN 5MM3MM3---NMMq-M13M1??N >?oI-----N)3>6-N6666n-67*u i -߻ - n- s-NM13M1??N6N ---.-u--;.>.>.-u5rVw-->.>.>*-u7I?--???N->7->oI I??MI vR--n >.mN66--n .-uR-6.-NII1--n .-uR--.-.-u)3?w6N --n >?wI>?oI-6--n n N *56--N *566?MM6M.-3MN55666--N1 -6j1.-NM13M?n3Mq6666-u---3MM3MM3MMN3- n n n-N --n n .-u---n >?76NI)--n n .mN -5n??n n N --n??N --N---66vIMM13M13M13--NMM13M13MN IMM3MM3MM3---NsM1s  3MqJM13--N--n >?wI--N >RMI>--5???--wNI --ޛ-- *I--???.--7NI )s N ->7->*--??-M --n .-53Mq -5n??n .-uJ--6n3--N---3M3M--N---n?76--NJ--n?76NII--n3M13--N3M13M1??n n N --?n??N >?wqImmw M:N)N- ??n??n??NN 6R66.N566u --NN n:?w1VIM7R?RINIVI 5--n).M.-um-66*-u)--6>?76--N--6>?wI--N>M13M1??N 6N---n??N --N--n??n .-u---666N--n >?7aDd ,2:BS^ent%9DXcw$,BTfu $,:OZ`o~!0?NXhss 66N nR>i----nN> ? LINE(218)(219)256:TYPE(222)::TXT,0:21:TYPE255ĺ(7);"CODE-";TYPE;" ERROR IN LINE #";LINE:| MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTS ADD PROGRAM LINES HERE. GOTO XXX (SD GOTO 400 AGAIN.":11:"FOR EXAMPLE, TYPE:"::"FT=1:A$="Q$"TITLE"Q$":GOTO 400":I1(A$):((A$,I,1))31X,YT:99:62923:XRXR(224)::X(280XR)2:HT(X6)7:"FOR HTAB, LET HT=";(HT10)10:HT1ğ:7:(7)" COPY TOO LONG ";:958:f HT CALCULATOR: :24::Q$(34):"CENTER FINDER":"-------------":"FONT: ";FT:"COPY: "Q$A$Q$:X0:YT176:XR0:BG::232,(7662FT):233,(7672FT)R(A$)(FT1FT3)ĺ(7);"SPECIFY FONT NUMBER (FT=#)":"AND COPY (A$="Q$"WORDS"Q$"),":"AN FLAG0500C D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13r (FT$(I))ĺD$;"BLOAD ";FT$(I);",A";LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J768:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2::500 :3I,Y: 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J768:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONT LOAD ROUTINE: :XRXR(224)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 YB:16:IXXR PRINT ROUTINE: i d232,L1(FT):233,L2(FT):(FT3$)ĺD$;"BLOAD ";FT3$;",A";LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1X,YT:99:62923 2FLAG0:(0=LOAD,1=DON'T)23FT$(1)"]BLOCK"O4FT$(2)"]SMALL STANDARD"c5FT$(3)"]APPLE"o6UL$"@"y74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100_LCLC3264(LC32)::A$T$ c       ???7mI->7mI)>7mI-??7m-;.>MIIJ--->???-M 5;.MI5;.mI5??-m575oJ-5??-757575IIJ --->???.>.--???NI5---???VII55757--5??75757?-->?VI*MI5;.MI5;.MI5;.MI5?---5???VII**M-??wmI5wm)>w-5?w5I *M)M)>;;.M)M)>I)>۷III57*>.>.>.>.>V5 57*>.>.>.>.>-?M5757mI57mI7--???.M)57mI5۷II 75757575757575 *-m)???7m)m)57m m 57m m 57m m 5IIII*--???7mI->7mI)>7mI)>7mI)>۷IIIJ--???-M)5;.MI5;.MI5?;w---??VII*--???IIIJ--->???-757?---5???VIIII 575-- 5??-MI57mI 57mI 5;w---->???VII J---5????-MI5?7mI-?;.M-?---->???VII- -5??-757--5??757575IIIJ---5????-MI57mI 5;w--m5??NI)>--??MI?5757---???7mI->7mI)>7mI)>7mwII)>-?-?-?->7----5????III--->?75757575757-->?I 5w5w5w5w5w5w5 --->?w 575757575-->?I J ?--???----;7->7->II----5????oII ->7-w J---5????-MI57mI 57mI 5;w--m5??VIIm5757m--??7mI)57mI 57mI 5?7----mI 57mI 57mI 5;w---->???VIIIm)-??;.MI)>;.MI)>;mI5wm)>w-5?w5IIIm m 57m m 57m m 57m m 57m m 57m m 5;;w----->???VIII--MI->?;?N) ?.5?.5?.5?.-m -5??VIII5mI 57mI 57-M -??--?w57575II-----5????)>;.MI-??7m--;.>.>VIII --???-M ->;.MI)>;.MI)>;.MI)>;.MI)>?---??w 5oI----????.MI->;.MI)>;.MI-??7m--?7mI 57mI 5III ---5????-7?---???NI->.>ۛ----???III----5????wI57575757575IImmI 57mI 57mI 57)>7mI)>۷IIII575757575757---5???II ---M-???7m)m)57m m 57m m 57m m 57m m 57m m 5IIII5---???7mI->7mI)>7mI)>7mI)>7mI)>7mI)>۷III --???-M ->;.MI)>;.MI)>;.MI)>;.MI)>?---??II ----????.MI->;.MI-7?---5???VII --->???-757---5???757575III ---5????-7mII:??7m)-->;.MI)>;.MI)>?---->???VII5mI 57mI 57mI 57----5????7mI 57mI 57mI 5III55757575757575 ?I 57575757575?--??VIImI57mI57mI5?;.--???7mI->7mI?-VI) --???-M ->;.MI)>;.MI)>;.--m5???.MI)>;.MI)>;VIII---????.MI->;.MI);. --??7mI)57mI 5?7m--??III --->???-7575757?---5???VII----????.MI->;.MI)>;.MI)>;.MI)>;.MI)>;. --??III- --->???-7?---5???.MI)>?---??II --???-M ->;.MI)>?--m5??NI)>.>ۛ----???IIIJ:7->J:7->IJ:7->J:7->woJ >-M????----5????->II---5???*--->???JIIJI7-????.----????NI-7I --???-M ->;NII5?-?75*>VI J)5?.5?.m????---??NI ->.>ۛ---->???wII->.>ۛ----???IIIII-?-?-?-7---->???wII575 ----5????757mI???7----?575?----???IIII ---5????-757m--??7mI)57mI 5??---??II I----5????wII)>-?-?-?.>.>VII - --???-M ->;.MI)>?---5???-M ->;w--?----?--w 5IIےJ 575----5????wI575II J:7->wo?-->?JIJ:7->IIII5555555II --???-M ->;.MI)>;.MI)>;.MI)>;.MI)>?---??II --5??wI57575757575 ----????NI ->.>-?-?-?----5????III---???m)>7m)>*---->????Nm)>*---->????Nm)>7m)>߷II II5*--5???7m57---???Nm5---???N)>VI))m 5;?7mm5??- 55m?m-->m)-?;VII II)>--5???-7-M???.--;7?--->??N5o >)?7-5?.RI ->?-757575757?-5?M5-?w)57575757575?-?M MRI7mad0[8FTav(K{IZlE1m'tZ" Q ! 9 J d  & ]   / W h $ M b %Iv```iI575757575*>Vmm)>7m)>߷JI        ??7-M)5;.MI5;.MI5;.MI5;VII J--???-M)5;.MI5;.MI5?;w---??VII* -???7-M)5;.MI5;.m -???7m-;.>MIIJ--->???-M 5;.MI5;.m ->???-m57-> * -???.m)757575II --->???.>.--???NI5---???VIIII:.>--->??w)>.>.>.-5?I---5????-M ->;.MI)>?---->??NI)>---???MII75757m-???7-M)5;.MI5;.MI5;.MI5;VII 55*>.>.>.>.>V 5-5?w)>.>.>.>-o 55757mI7m)7-5?7m;.M)۷II 55757575757575 * - -?????7m m 57m m 57m m 57m m 5IIII* -?5;.MI5;.MI5?;w---5?II55757m--????.mI->;.MI)>;.MI)>?.---??IIIJ--???-M -757mII:?---??II III 575---5????-MI57mI 57mI 5??---->??VIIJ--???-M ->;.---->????.?---->???VIIII)->?-7m???.--757575IIJmI 57mI 5IIImmI 57mI 57-M -??--?w57575II-----5????wII)>-?-?-?->7----5????III--->?75757575757-->?I 5w5w5w5w5w5w5 --->?w 575757575-->?I J ?--???----;7->7->II----5????oII )?7-?RJ--->???-M I 5??---??II -----5????wI57575757575IImmI 57mI 57mI 57mI 57mI 57mI 5??---??II mmI 57mI 57mI 5wmI5wm)>w-5?w5IImmII)>7mII)>7m m 57m m 57m m 5wm-m5?w-M->IIIImI 57mI 5wmI;-5?m)ۿMI)>;.MI)>;.MI)>;.MI)>?---??II ----????.MI->;.MI)>;.MI-????.---;.>.>VIII --???-M ->;.MI)>;.MI)>;.MI)>?7m -->?;w---??VII----????.MI->;.MI)>;.MI-????.---?7m -?7mI)5III --???-M ->;.?---???NI->ۛm75757mI5??--?II mmI)>7m -?7m-??.-??. -?7m -?7mI)5III5575757575757---5???II mmII)>7-MI)5?;7-mI-5??7mm) 5;7m)-M5;?7m m 57mII)>۷IIIIM-MI5;7-mI5?7mm 57m)M5;7m m57mI-5?7mI)5?۷III --???-M ->;.MI)>;.---???III-----5????75757---->???75757----5????III-----5????75757---->???757575III --???-M ->;.>.MI??;.M)-57mI 5;w---->???VIImmI 57mI 57mI 57----5????7mI 57mI 57mI 5III--5?w575757575-5?I ---5???wI575I5?-?75*>VI J)5?.5?.m????---??-VI)I)?--??-M ->;.MI)>;.---->????.MI)>;.MI)>;VIII----????.MI->;.MI);.---????.MI->;.MI)>;.---???III --???-M ->;.>.>.>.MI)>?---??II ----????.MI->;.MI)>;.MI)>;.MI)>;.-M ->;.MI)>?---5???-M ->;.MI)>?---??II --???-M ->;.MI)>?---->??NI)>ۛmI 5??---??II J:7->J:7->IJ:7->J:7->woJ >-M????----5????->II---5???*--->???JIIJI7-????.----????NI-7I --???-M ->;NIIII --???-M ->;NII5?--5??wI->ۛmI 5??---??II III5?-5??- 5;-M)>7----5????wI 575I-----5????757mI???7----?5*MI)>?---??II --???-M ->;.>. --????.mI->;.MI)>?---??II -----5????wII)>-?-?-7575II --???w--?----?--m)M۷IIJ 575----5????wI575II ?7-5?.o -->?JIJ:7->IIII5555555II --???-M)->?7m m57m)M5;7mm 57-mI5?;?---??II I 5?7-575757575*-->??VII- --???-M ->;.MI)>-?-?-?----5????m)>7m)>*---->????Nm)>*---->????Nm)>7m)>߷II II5*--5???7m57---???Nm5---???N)>VI))m 5;?7mm5??- 55m?m-->m)-?;VII -??7m)>7m-?7->?- m >7mI->?;.-- ->;?VII )?7-5?.RI 575757575w w575757575IRRIm)Mad0[8HVcx;f2o +h=`Ib([ , i  ; i  N u 2 _ o ! L y &F~!3`RI575757575*>Vmm)>7m)>߷JI      )":100:VT19:RT1:HTHT1.4:A$"(BOTH":100*HT40:VT22.5:RT2:A$"AND UPSIDE":100:VTVT1.2:HT40:RT2:A$"DOWN!!":100:VTVT1.2:HT40:RT2:A$"(BIG DEAL)":1004RT2:999>J701:CLJ:100:eHHT1:VT1:FT1:A$"Lower Case is easiest":T2:J16:HC0:HT17:A$"FLASH":100:HT17:HC3:A$"FLASHING IS POSSIBLE TOO!":100:VT22.5:HT17:RT3:A$"NOT TO":100:HTHT1.5:RT3:A$"MENTION":100:HTHT1.5:RT3:A$"SIDEWAYS":100:HTHT1.5:RT3:A$"TYPE.":100, HTHT3:VT19:RT1:A$"WAYSJ:A$" COLOR #"(J):VT2.5J1.2:HT1:100:FT2:HT17:VT6:A$"YOU CAN ALSO PRINT":100:HT17:VTVT1.5:A$"IN ":100:A$" INVERSE ":IN1:100:T$A$:A$" TYPE.":100FT3:HT17:VTVT2:A$T$:IN1:100:VTVT2.5:HT18:IN1:FT1:100V VTVT3:F0:VTVT2.5:CT1:A$T$:100$999FT2:VT1:HT17:A$"WITH HI-WRITER, YOU CAN":100:VTVT1.5:HT17:A$"PRINT LARGE CHARACTERS":100:VTVT1.5:HT17:A$"IN ANY HI-RES COLOR.":1003:Y015:0,Y105,Y::Y8095:0,Y105,Y:-FT1:J07:HCT1:100VTVT2.5:HT10:A$"OR PRINTED":100:HT10:VT16:A$"E":100:A$"X":VT15.8:100:A$"A":VT15.6:100:A$"C":VT15.8:100:A$"T":VT16:100:A$"L":VT16.2:100:A$"Y":VT16.4:100A$" WHERE":VT16:100:VTVT2.5:HT10:A$"YOU WANT IT.":10T$:100:FT2:VTVT3:HT1:A$"^ NOW THERE IS A NEW FONT #3. ^":100M999A$"--------------":T$A$:CT1:100:VTVT2.5:A$"SCREEN COPY MAY":CT1:100:VTVT2.5:A$"AUTOMATICALLY BE":CT1:100:VTVT2.5:A$"> CENTERED <":CT1:100:VTVT2.5:A$T$:CTVT1.5:HT1:A$"#3. ""apple"T$:10011000FT2:VTVT4.5:HT1:A$"FONT #3 MAY BE REPLACED AT ANY TIME BY":100:VTVT1.2:HT1:A$"LOADING A NEW ONE FROM THE DISK. STAND BY...":100FT3$"]STENCIL":100DFT3:VTVT2:HT1:A$"#3. STENCIL"2.7:A$"THE FOLLOWING TYPEFACES, ALL CREATED WITH":100~XVTVT1.2:HT1:A$"THE FONT EDITOR, ARE NOW IN MEMORY:":100:1000bT$": ABCabc123":FT1:VTVT3:HT1:A$"#1. BLOCK"T$:100lFT2:VTVT2.5:HT1:A$"#2. SMALL STANDARD"T$:100'vFT3:V.5:HT1:A$"BEAGLE BROS'":100NHT1:VTVT2.5:A$"HI-WRITER PROGRAM.":100&VTVT5:HT1:A$"LIST LINES ":100:A$"500-1000":FT1:1000FT3:VTVT2.5:HT1:A$"TO SEE HOW IT":100:VTVT2.5:HT1:A$"WAS PROGRAMMED.":100D9997NFT2:VTLINE(218)(219)256:TYPE(222)::TXT,0:21:TYPE255ĺ(7);"CODE-";TYPE;" ERROR IN LINE #";LINE:~  MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTS FT3:A$"THIS IS A DEMO OF":100VTVT2 FLAG0500C D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13r (FT$(I))ĺD$;"BLOAD ";FT$(I);",A";LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J768:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2::500h :3I,Y: 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J768:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONT LOAD ROUTINE: :XRXR(224)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 YB:16:IXXR PRINT ROUTINE: i d232,L1(FT):233,L2(FT):(FT3$)ĺD$;"BLOAD ";FT3$;",A";LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1X,YT:99:629232FLAG0:(0=LOAD,1=DON'T)23FT$(1)"]BLOCK"O4FT$(2)"]SMALL STANDARD"c5FT$(3)"]APPLE"o6UL$"@"y74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100_LCLC3264(LC32)::A$T$ c      0.X0:Y16:A$"UTILIZED AS ORDINARY":1000TX0:Y32:A$"SHAPE TABLES.":1000X0:Y55:A$"LIST LINES 500-1000":1000:X0:Y71:A$"TO SEE HOW THESE WORDS":1000:X0:Y87:A$"WERE WRITTEN.":1000 X0:Y100:A$"--------------------------------2000U:SH18000:90:10054,30:A$"SINE DATA":I1(A$):((A$,I,1))31:99:0,90279,90:X027924:X,88X,92::SH16384:90:X02796:3X,50(X)90:I125:::2000SH18000:90:16302,0:X0:Y0:A$"]SHAPE-FONTS MAY BE":100I1((1)10)7:XX15:9X,Y:::DRAW.MEN.GRAPHSH18000:90:16302,0:1000,165:A$" Projected Population, 1981-5":I1(A$):((A$,I,1))31:99::LOWER.CASE.TYPING.CAPABILITIES.NECESSARY.(SEE.XTYPER.&.HI-WRITER.FOR.ALTERNATIVE.LOWER-CASE)SH18000:90: SET.SHAPE.TABLE.POINTER.TO.NEW.LOCATION|A$"DISKS SOLD, 1987":1000,40:I1(A$):((A$,I,1))31:99::PRINT.A$.IN.HI-RESSH16384:90X027928:Y139250X22:8X,Y:::2000:DRAW.DISK.CHART2::Y3015930:X0:00::MAN.DROPS.ARM^:23:"LET'S LOAD A 2ND SHAPE TABLE, A FONT, AND LOOK AT SOME GRAPH & CHART SAMPLES.";:20::SH18000:D$;"BLOAD ]APPLE,A";SH: LOAD.SECOND.SHAPE.TABLE.AT.LOCATION.18000h::21:"JAN FEB MAR APR MAY JUN JUL AUG SEP OCT"7r:AX,Y:J1175::AX,Y::11X,Y:9,10,11,9,10,11,10,11,9,9,12,9,12,9,10,11:MAN.POINTS@YY7:X02655:6X,Y:J115::6X,Y:S(16336)::DOG.RUNSJI19:S(16336)::32:6X,Y7:0:DOG.CRASHESTI1500::1199,149:999,149:I15:21:13:"SCALE=";SC;:J1400(SC1)::::1:1199,149:150:2000,23:1:"SHAPE TABLE POSSIBILITIES ARE ENDLESS. ":21:868:3:279,130279,1500,150:X020:10,134X,140::Y140150:0,Y20,Y::DRAW.DOG.HOUSEZ6X99:Y149:11X,Y:I116:A;:484,140:5105,140:255RT025516:RT:484,140:5105,140:21:11:"ROT=";RT;:J1255RT::484,140:5105,140::0:484,140:5105,140:11:"ROT=0 ":2000:ROTATE.ARROWSE":150:23:" AND A SCALE DEMO. ":255:SC811:SC:1199,149010Y2:Y(Y3):5X,Y15:X,Y:3:2000 :22::" XDRAW ";::" DRAWS IN THE HI-RES COLOR THAT'SOPPOSITE THE BACKGROUND COLOR.":"--------"; Y01262:148,Y:151,Y::X482703:1X,128:1X,130::2000:23:"HERE IS A ROTATION DEMO."1X,Y:J140::1X,Y::2X,Y:I1200::2X,Y:1X,Y:FLY.DOWN I1400::7192,110:I1999::7192,110:2000:?.MARK.OVER.HEAD :22:"TO USE HI-RES COLOR, USE THE ";::" DRAW "::"COMMAND INSTEAD OF THE XDRAW COMMAND.")Y15:X105::242,132:142,132:J140::142,132::FLY.IN.PLACE Y1321004:242,Y:J19::242,Y:142,Y:J140::142,Y::FLY.UP X411894:2X,Y:J19::2X,Y:1X1,Y:J140::1X1,Y::FLY.RIGHTB Y98118:2X,Y:J19::2X,Y:I21,147:J1200:::MOVE.MEN.DOWN| I16:6126,140:6126,134:J19::6126,134:6126,140:J199:::DOG.JUMPS 2000:2.SECOND.PAUSE 21:8:958:::"HERE ARE SHAPES 1 & 2 ANIMATED TOGETHER.";:I1999:: I120:242,132:J19 THE 12 SHAPES NOW IN MEMORY.";:21:4:I112:II21,140:I;2(I10));:J1150:::DISPLAY.SHAPES.WITH.TEXT 8168,140:X1681632.5:8X,140:J19::8X,140::Y1401305:8X,Y:J19::8X,Y::8X,Y:MOVE.DISK% I912:II21,140:IINTER> d::::21:150:"LOADING SHAPE TABLE. STAND BY..."z nD$;"MONICO":PRINTS.SUBSEQUENT.DISK.COMMANDS.ON.SCREEN xD$;"BLOAD DEMO SHAPES,A";SH:2000:LOAD.1ST.SHAPE.TABLE.AT.LOCATION.16384 :SET.&.CLEAR.HI-RES.PG.1p :23:" HERE ARE SHAPE TABLE DEMO ;3000:IF.CTRL-C.GOTO.3000N0:NORMAL.ROTc(1:NORMAL.SCALEq23:WHITE<D$(4):CTRL-DFSH16384:1ST.SHAPE.TABLE.LOCATION.($4000)P90:100 Z232,SH(SH256)256:233,(SH256)::SET.SHAPE.TABLE.PO        755,1,9866,31,9868,124,9874,79,10002,96,10637,124,10641,3,10647,8,10764,124,10770,1<b10777,3,10778,32,10891,34,10892,120,10907,1,11660,63,11661,126,11665,103,11676,124,11787,1,11788,124,11794,99,11797,31,11798,64,11801,7,11802,24,11914,15,11916,120,11977,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96:Sa8592,63,8716,112,8727,96,8728,3,8731,2,8844,124,8850,7,8858,63,9613,113,9617,121,9623,3,9739,3,9740,120,9746,125,9749,15,9751,112,9753,1,9754,64,9:63,32P132:64,0:65,32P232:66,0:67,32P2:468:P12Ē0:0,6428,64Q;B60,0:61,32:62,200:63,35:64,200:65,7:66,0:67,4:468:I0:Y1911602:0,Y279,Y:279,Y10,Y1::h`771,173:772,48:773,192:774,136:775,208:776,4:7977,1212J:8978,4J:9998,858J:9999,163J:10001,1312J:11022,1616J:11025,25102J:12046,6120J:12047,487J:12049,24J-13071,1194J:14994,363J:16014,248J:16017,134J:16018,6J:H1500::::GLANCEK460,0:61,32P1:62,070:96,7070,Y::0:100,7071,6471,468,468,8171,8171,71100,70::DRAW.LEFT.BALLOON3:Y4780:213,Y270,Y::Y6570:180,70213,Y::0:179,71212,71212,81271,81271,46212,46212,64179,71::DRAW.RIGHT.BALLOON&J01:8974,1210J:8:49384,0:140:P12:P21:308::230,64:0:329:230,32:P12:P21:308:16301,0 24:9:"(PROGRAM BY BERT KERSEY)";:I13:J1555::24:::24:1:"]";::" ";::I13:J1555:::16301,0:49384,0::20:Z3:Y4780:9,Y70,Y::Y66A$):X((A$,I,1)):XF:G:JāK13:S(BU)::0,X50:A,I1:MU:K15:S(BU):]::X190:I,J:I,J:S(BU)::X167:I:I,0:S(BU)::X168:I:S(BU):I,127::P11:P22:308PI11500::49385,0:280:A$" THANKS":140:A$" A LOT.":322:I131:16298I(I2)2,0:0,((1)200)20:1,4:MU:J122:::308:49384,0:252J01:100HT,VT:10430,2496J:10431,4815J:12478,6264J:12479,124CJ:13375,AJ:14398,6464J:14399,CCJ:15422,9696J:15423,77JS0:I1((Q):K128A$"PRESS A":100217,60:I17:((A$,I,1))31:99::K(Q):K128ĕ100217,68:A$"KEY":I13:((A$,I,1))31:99::YY1:Y(Y6)60İ294K(Q):K128203(7)(7)(7):16368,0:K193K216āK199:S(BU)::203\49385,064J:14399,CCJ:15422,9696J:15423,77Jg J0āLA5:M1L:S(BU)(BU)(BU)::M122::m  294:287:Y0 I199::49385,0:HT217:VT52:A$"PLEASE":231:VT60:A$"PRESS A":231:VT68:A$"KEY (A-X).":49384,0:231:16368,0K5415,11216J:IA(A$)m X((A$,I,A)):XF:G:KAB:S(BU)::JĹ0,(JA)X:A,E:MU:KAE:S(BU):w :: I1666::294:I11555:. K47:JK(KB)B:10430,2496J:10431,4815J:12478,6264J:12479,124CJ:13375,AJ:14398,64ELCOME":140:A$" TO":140:A$" APPLE":140:49384,0:A$"MECHANIC":140:P12:P21:308:161 J0A:10012,59:8376,31(J0):9399,96(J0):9400,15(J0):10424,6712J:11447,1832J:11448,326J:13368,7(J0):14391,96(J0):14392,31(J0):1)" is a registered tm of You-Know-Who.":H0,178:I143:((C$,I,1))31:G::I1555: w230,64:C$"Copyright 1982, Beagle Bros Micro Software":H3,178:I1(C$):((C$,I,1))31:G::P12:P21:308 ~230,32:280_ I11500::49385,0:A$" WI851552:29,I249,I:29,168I249,168I::(4);"BLOAD @BBROS LOGO,A$2000":(4);"BLOAD ]SMALL SQUARE,A$6100":P11:P22:308:329 b0:1:3:232,0:233,97:16302,0:16304,0:16300,0:16297,0 iP12:P21:308:I1999:Z pC$(34)"APPLE"(34RM =========== APPLE MECHANIC "GREETINGS" PROGRAM BY BERT KERSEY BEAGLE BROS =========== TA1:B2:C3:D4:E5:F31:G99:H100:Q16384:BUZZ16336:MUSIC771:60000:273 [:::49385,0:3:            ;oIII->7->7- -???.m--5??.mI->?.mI->?.m -5???.m--??MII J- ??-- -5?;?.5?.5?.-M)5???-m-?MI II)5?.5?ߛ-m->??-m ->?.mI->?.mI->?.-M)5???w-- ->;oIIJ- ??-- -5?;?.mI)>???.m--?.-M)5???-m-??MI ?I)->?--;?.5?---5-?NII????7----5????oII 5- ->?.m-?.5?.5?.5?.5?.m??.m->?MI-57->w->w->w->w->w->w5o-- ->?.m->7->7->7->7->7->?.m->?MIRI-??---????NI:7->7->IIIII:????.---->????MII-5?7-?RJ-m->??--m->?7-M ->?.mI->?.-M)5???w-- ->?.-M-??.- -?.- ?.-oI-MI)5?;7-MI)5?;7-Mm)5?;7-Mm)5?;7-Mm)5?;7- -m->??- -m;?mI5oII -M ->?.mI->?.-M-?;N)-?-m??-m)->?.mI->?.mI->?MII-MI->;7-MI->;7-mI-??wm)?->7->7->7->oI ?----5????7-----?-?-??.mI->?.m -???.m-???.m -5??.mI->?.mI->?MII m-??-m-->?.5?.- -??m-->?->ۛ-M)->??w- -?oII---->???7----*5?.5?.5?.5?.5?.5?MI -M ->?.mI->?.mI->?.mI->?.mI->?.mI->??7-m-->??w- -?oIII-M ->?.mI->?.mI->?.mI->???.m)-5??.m -5??.mI->?MII- m-??-m-->??7-M ->?.mI->?.mI->?.mI->?.-M-5???w- -?oIII- -???.m--5??.mI->?.mI->?;7- --???.m-;7->7->oII m-??-m-->?;7-M ->?.mI->?.mI->?.mm->??.- - ???-- ->?oIII- -???.m--5??*m ->??w- -oII--MI->??.m -?;7- -??.m?.m??.m-?;7-M)-??.mI)5?MII 5->7->7->7->7->7->7- -->??.m-->??MIIMII >7-MI)5?;7- M-->????.m---5????.m-m->??.m)M->;?.mI ->?.mI ->?MIII?mI)5?7-M ->?.mM->?.mm->?.m--5MI:??.m-->??MII- -->??.m--;7->7- -5??.m-;7->7->7->oII - ??-- -5?;?.5?.mI??.m -5;7-MI5?7-- -5???-m-5??MI -M ->?.mI->?.mI->?.mI->???.m--5??.mI->?.mI->?.mI->?MII5->7->7->7->7->7->7->7->o?I)-->??.--?.5?.5?.5?.5?.mI->?.mI->?MII?- -???.m--5??.mI->?.m -??.m--??.mI->?.m -5???.m--??MII - ??-- -5?;?.5?.5?.5?.5?.-M)5???-m-?MI ?- -???.m--5??.mI->?.mI->?.mI->?.mI->?.m -5???.m--??MII5- -->??.m--;7->7- -5??.m-;7->7-?7-5?7-:?.->?.-NJ?7-5?7-:?.->7-?MMJ >-MI:??-- -->??w->II---5???*--->???RIIJI7-???.-m--???NI)7I m-??-m-->?;wII->-??7--?.5?N:7->oI .RI?.5?.5?NI:???w---??-VI -??- --5??.mI->?.mI->?.mI->???.m--5?--?MI M m-??-m-->?7->7-m-??7-m)->?.mI->?.-M-5???w- -?oIII----5????7----*-?-?7->7->7->7->oII m-??-m-->??7-M ->?m -?7m-?;-M ->?.-M-5???w- -?oII m-??-m-->??7-M ->?.-M-5???m-->7->ۛ-M)->??w- -?oII>J>?-->?7-->7->7->7->--???.--5???MI- m-??-m-->??7-M ->?-?-?-?7-MI???.m--5???MIIM m-??-m-->?;wII->-??7--?w->ۛ-M)->??w- -?oII5II->j->- ->;-M)5?7-- -5???.-m-?.5?.5?M?- --5???.m--?.5?.m-???NI)->7->ۛ-M)->???m-->?M -??N-5?.5?.5?.5?.5?.5?*-?oI?J mw--?----?--w JIMJ 575----5????wI575II *->?.->7o I??7--5??JI7-5?7-5?o 5II5->->->->->->75oII- m-??-m-->??7-M ->?.mI->?.mI->?.mI->?.-M-5???w- -?oII> -->;wM R7Im)>7m)*----->?????NII:wII?????7-----m)>7m)>oII?I--->???.M:7---???NI5---???NI iM)>7mm5w 555mI߿m) 5;m moII mI---???---;7-M??w---M???w---??N?M ?-5?7-5?.?J -5??-?.5?.5?.5?.5?.?w@d Hr%Hdt#^Hr)Ia]?W g 7 s  m  @ Y   B o KU%Eu;r6WI->7->7->7->7->7-?.5?M-M->;7-M! ! ! ! ! !!!!!!!!!5->7->.>.>.>.?7-5?I* - -?????m)M5;7m)M5;7m)M?;7-Mm)5?;IIIII* -???wm ->7mI57mI?;?.-M-5?;?VIII-J--???-M)5;.MI5;.m ->???w---??VII**m-???w-M->7mI57-M-???. -?.5?MIIJ--->???-M)>7mI57-M->??w- ?.5oN* )5;.---7mI????---??III)??--->;.>--->??w)>.?7-5?II ?J---5????-M 5;.m ->???-m5ۛmI->???w---??MI I->7->.--???.M)57mI57mI?;?.-M-5?;?VIII>)>.*5?5757?7-5?Iw 57->w5757575?7-?M7->7->.M)>;. ?7-7m)??7-m-5??III--???----;7->7->II----5????oII )?7-?R --???7mI5*--57mI????.---5??VII?->7->.--???7mI->7mI)>7mI->????.---??IIIJ--???---->757mI)>???w---??VIIIII)5?.*--5???-M 5;.MI5;.mI????w---->?II IJ--???-M7m-m5????7-m)->?VIII-m)->??7-m)-wm)?w5-;mI?;?.-M-5?;?VIII -m)->??7-m)-7mI;.--?w57?7-5?II-----5????7----5?wI -?-?-?-MI5????7----5????III7-->?7--;.>.>.>.M:?7-->?I 55w5w5w5w5w5w5 --->?7-->.>.>.>.>?7-->?I J ?>;.M ?;?.-M-5?;?VIII --???---->75w--??wI)>mI)>???w---??VII----5????7----5;wI575757?7-5?II -m)->??7-m)-7mI57mI57mI57mI5??--?II--m)->??7-m)-7mI57mI5wm)>w-5?7-5?III-mI-5??7-mI-7m)M5;7m)M5;7m)M5;-m -?7-m 5;7mm)>;.Mm5?7m -5?;?.-M)5?;?VIII? --???---->?.MI5;.MI5;.MI5;.m ->???w---??VIII---???7---->7mI57m -???.--7?7-5?IIII --???---->?.MI5;.MI5;.MI5;.m)-???w---5??VIII---????.---->7mI)>7mI-???7----m -5??III ?--5??7--;.>.>.>.??7--5??II5I)-->??.--757575mI5???w--?II m-m)->??7-m)-7m)7-??.M7mIm:?;?.-M-->?;?VIII5-5?7-7575757m 5???7---5???II 7-MI)5?;7-mI-??.-M-5?;?. -m5?7m)M5;7mI ??7-mI-5??IIIII-m -5??7?VII---???7---->7mI57mI57mI57m ->???7---???VII ---->???7---->757--->??757mI5????.---5????VII I---->???7---->757--5??757?7-5?IIII --???---->?.>.MI?7m -5;.mI5????---??VIII-m -5??7-m -;.MI5;.---5????.MI5;.MI??7JIIJI7-????.----????NI-7I --???---->?.MI5?-?75w?7-5?II?J)5?.5?.m????---??-VI)I-5?7-;.M?߿mI57---57mI?;?.-M-5?;?VIII---????.---->7mI)7---7mI)>7mI->????.---???IIII --???---->?.>.>.>.mI5????---??----5????7----5?wI -?-?.>.?7-5?II - --???----5??.MI)>?---5???-M ->;.mI->????---??II - --???----5??.MI)>;.mI->???w-- 5*MI->????---??II :J:7->J:7->IJ:7->J:7->woJ >-M????----5????->II---5???*--->???--???-7mI 5????7----5????IIIM --???----5?wII)>--5??wI->ۛmI)5????w---??II II ->?-->?-M5?.M m:????.----7?7-5?I -----5????7----;.MI:???.---?5*MI->????---??II --???----5;7mI??7----??.MI)>;.mI->????---??II w--?----?--m)M۷IIJ 575----5????wI575II ?7-5?.o -->?JIJ:7->IIII5555555II --???----5?7m m57m)M5;7mm 57-m ->????---??II 5I)5?*-->??N)5?.5?.5?.m????.---5????VII --???----5?wII)>*m)>7m)>*---->????Nm)>*---->????Nm)>7m)>߷II II5*--5???7m57---???Nm5---???N)>VI))m 5;?7mm5??- 55m?m-->m)-?;VII -??7--5;. -?7->?- m)?7m -????7--m->;?VII )?7-5?.RI 575757575w w575757575IRRIm)M@d0[:JXezW(h"Jh:l ,Q4n I o  I s  ) 9 c  B v  L y >] :azI575757575*>Vmm)>7m)>߷JI " " " " " """""""""