' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `PP`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./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(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL-(Q pP ϭà@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(` d£֠ԠPˣ٠Ơ͠z# Pu`mm 8 ``88 L8 8 ``iii i Lh 2):216,0:100,216,0:10000::"BSAVE";A$;".ANM,A";BA;",L";38400BA;",";DT$:"OPEN";A$;".ATX":"WRITE";A$;".ATX":T:PG:BA:NO:NS:NP:P$S$:I0NO:O%(I):PN%(I):PL%(I):OL%(I,0):OL%(I,1):J03:P%(I,J):::"CLOSE":216,0:"DISK ERROR ";(222):216,0:100T$:100J.NPNP1:I0NO:J03:P%(I,J)NP%(I,J)50P%(I,J)P%(I,J)13::INNP:PA%(I)PA%(I1):PU%(I)PU%(I1)::PT$"":N0PT$(P$,3N)8NNPPT$PT$(P$,(NPN1)3)=P$PT$:100:"NAME : ";C$:C$""ıA$C$:1520t600NS:ASA%(I)SA%(I)SA%(I)LG:I0NP:APA%(I)PA%(I)PA%(I)LM^C$"P"1070NSNS1:I0NO:O%(I)NO%(I)O%(I)1:INNS:SA%(I)SA%(I1):SU%(I)SU%(I1)::ST$"":N0ST$(S$,3N)$NNSST$ST$(S$,(NSN1)3))S$S8:I0NS:SA%(I)ASA%(I)JJSA%(I)O :I0NP:PA%(I)APA%(I)JJPA%(I)h:LJA:(BAA)1042JA3999:39168,BA(BA256)256:39169,(BA256):39170,J(J256)256:39171,(J256):39172,L(L256)256:39173,(L256):39174BABAL:I7920I:770:T:"DELETE (S)HAPE OR (P)ATH?";:C$:C$:C$"S"C$"P"100"WHICH NUMBER : ";N:C$"S"NNSC$"P"NNPN0100C$"S"SU%(N)C$"P"PU%(N)ĺ"THAT ONE IS USED.":C$:100C$"S"ASA%(N):1030APA%(N)%J3260TH START ADDRESS : ";:A37984I:770:A38016I:770::"PATH LIST : ":J0N1:A381444IJ:(J65);") ";:770::::"CURRENT REPEAT FLAG : ";:AA1:770::"COLLISION FLAG : ";:A38368I:770:: T2T4ĺ"PAGE 2 FLAG : ";:A3780,750:"ACCESS LOCATIONS :"S\:"SHAPE POINTER AT : ";:A37888I:770::f"X COORDINATE AT : ";:A38048I:770:A38080I:770:p"Y COORDINATE AT : ";:A38112I:770::z"PATH POINTER (A,B,C) : ";:A37952I:770:9"PA) ";:Nĺ:85094LP%(I,J):LNPĺL,(P$,3L1,3):850N>L255ĺ"REPEAT"fCL254ĺ"DRAWN END"HL253ĺ"ERASED END"MNJR:" STARTING PATH : ";(PN%(I)65);" LOCATION IN PATH : ";PL%(I):T2T4ĺ" PAGE 2 FLAG: ";(37920I)20WDS16H::A;" ($";H$;") ";:h :"**************************************************************":: "OBJECT NUMBER : ";I:DSİ780*N0::"SHAPE : ";O%(I),(S$,3O%(I)1,3)::"START AT ";OL%(I,0);", ";OL%(I,1)::"PATHS : ":J03:(J65);"):37952I,PN%(I):N4000PA%(P%(I,PN%(I)))PL%(I):37984I,N(N256)256:38016I,(N256):J0vNP%(I,J):381444IJ,N:JJ1:NNP630:37888I,255::"";:C$:::XA:H$"":H301:G(X(16H)):H$H$X$(G):XXG17ľC$:C$0::DS1780,750@:I0NO:800:DS1780,750:RD"PR#0":100XI0NS:ASA%(I)4000:377602I,A(A256)256:377612I,(A256):]I0NP:APA%(I)4000:382722I,A(A256)256:382732I,(A256):_bI0NO:37888I,O%(I" ";(S$,3I1,3);" ";:ASA%(I)4000:770:SU%(I)ĺ"UNUSED";_DS(16384)127ľC$:C$u::DS1780,750&:"PATH DATA"::"# NAME ADDRESS":I0NP:I;" ";(P$,3I1,3);" ";:APA%(I)4000:770:PU%(I)ĺ"UNUSED"; +DS(16384)12510 "PR#"C$:780 "ANIMATION FILE : "A$::"ANIMATION TYPE : ";T$(T1):"HI-RES PAGE : ";PG:"BOTTOM ADDRESS (SET HIMEM TO) : ";BA::NO1" OBJECTS":NS1" SHAPES":NP1" PATHS":DS1780,750A:"SHAPE DATA"::"# NAME ADDRESS":I0NS:I;ED FILE (Q) QUIT":C$:C$"S"İ1500:1008 nC$"R"500I xC$"D"1000Z C$"Q"100m :"RUNN,"MR$ DS0::"REPORT"::"(P) TO PRINTER, OR (S) TO SCREEN":C$:C$"S"ė:DS1:520 C$"P"100 "PRINTER SLOT : ";:C$:C$:C$"1"C$"7"2I)2564000:PU%(I)0::I0NO:SU%((37888I))1:J02:P%(I,J)NPJ3:90` UPU%(P%(I,J))1h Z:( d:"ANIMATION FILE : ";A$::NO1" OBJECTS":NS1" SHAPES":NP1" PATHS"::"(R) ANIMATION REPORT (D) DELETE UNUSED PATHS OR SHAPES (S) SAVE MODIFIDT$:"OPEN";A$;".ATX":"READ";A$;".ATX":T,PG,BA,NO,NS,NP,P$ FS$:I0NO:O%(I),PN%(I),PL%(I),OL%(I,0),OL%(I,1):J03:P%(I,J):::"CLOSE":216,0M PI0NS:SA%(I)(377602I)(377612I)2564000:SU%(I)0::I0NP:PA%(I)(382722I)(38273ISK"B X$(15):I015:X$(I)::0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F :"ANIMATION REPORT PROGRAM"::"'D' FOR DISK CATALOG, 'Q' TO QUIT":::"ANIMATION FILE NAME : ";A$:A$"D"ĺ"CATALOG,";DT$:A$:30 (A$"Q"140 230> <"BLOAD";A$;".ANM,";(C)1983,MARK PELCZARSKI16384:O%(31),P%(31,3),PA%(47),PU%(47),SA%(63),SU%(63),OL%(31,1),PL%(31),PN%(31),T$(3):T$(0)"BLOCK":T$(1)"BLOCK/BACKGROUND":T$(2)"XDRAW":T$(3)"BLOCK/XDRAW":S$"":P$"" "OPENDISK":"READDISK":MR$,DT$:"CLOSED     5:6030 z"BLOADBLOCK,"MR$::"BLOADBLBACK,"MR$:Q"BLOADEOR,"MR$:l"BLOADBLBACKE,"MR$:T2T4A$"1":6040"PAGE (1) OR PAGE (2)":A$:A$"1"A$"2"6035:"BLOADP";A$;"L":PG(A$):N0:5050?"STARTING PATH (A/B/C): ";A$:A$"A"A$"C"5005_N(A$)65:P%(I,N)NP5000lPN%(I)N"STARTING LOC. IN PATH : ";N:N05100PL%(I)N:p:I14:I") "T$(I1)::A$:A$"1"A$"4"6000u:T(A$):T6010,6015,6020,602NNP)(N253N255)4600/*P%(I,2)N:NNPıY"R/D/E :";A$:4900:N253N2554750iP%(I,3)N:}$A$"R"N255:%A$"D"N254:&A$"E"N253:'A$""J0:NNP:500:N1:(A$"0"A$"9"N1:)N(A$): :P%(I,1)NPI,0)N3"STARTING LOC., Y : ";N:N0N2554250DOL%(I,1)N:m"PATH A : ";A$:4900:N0NNP4350{0P%(I,0)Nb"PATH B (OR R/D/E) : ";A$:4900:(N0NNP)(N253N255)4450P%(I,1)N:NNPı"PATH C (OR R/D/E) : ";A$:4900:(N0$:I0NO:O%(I),PN%(I),PL%(I),OL%(I,0),OL%(I,1):J03:P%(I,J):::"CLOSE":210"SHAPE NUMBER : ";A$:A$""J1:NNS:500:4050A$"0"A$"9"4050N(A$):N0NNS4050O%(I)N:6"STARTING LOC., X : ";N:N0N17914150hOL%(N";A$;".ATX":"WRITE";A$;".ATX":T:PG:BA:NO:NS:NP:P$S$:I0NO:O%(I):PN%(I):PL%(I):OL%(I,0):OL%(I,1):J03:P%(I,J):::"CLOSE":1400:380:"BLOAD";A$;".ANM,";DT$:"OPEN";A$;".ATX":"READ";A$;".ATX":T,PG,BA,NO,NS,NP,P$S"S16304,0:16302,0:16297,0:16301PG,0:T3Č37073FT4Č37117w36864:I0510(0)2::(16384)1281220A$::x:"DELETE CURRENT SET-UP?":A$:A$"Y"ı}:210;380:600:"BSAVE";A$;".ANM,A";BA;",L";38400BA;",";DT$:"OPE05\A$"C"İ4150:8050aA$"P"İ4350:805GfA$"L"İ5000:805UkA$"R"ımA$"F"Ĺ37920I,17((37920I)17)128:805p855:"SHAPES ":NS0920NNS:J1:500" PATHS ":NP0940NNP:J0:500A$::2106600:L253ĺ"ERASED END"MN1R:" STARTING PATH : ";(PN%(I)65);" LOCATION IN PATH : ";PL%(I);" (S)HAPE (C)OORDINATE (P)ATHS (L)OCATION IN PATH (R)ETURN TO OPTIONS ":T2T4ĺ"PAGE 2 FLAG: ";(37920I)20;" (F) TO CHANGE"WA$:A$"S"İ4050:8I0ı!%:"OBJECT NUMBER : ";I*N0::"SHAPE : ";O%(I),(S$,3O%(I)1,3)::"START AT ";OL%(I,0);", ";OL%(I,1)::"PATHS : ":J03:(J65);") ";:Nĺ:8504LP%(I,J):LNPĺL,(P$,3L1,3):850>L255ĺ"REPEAT"CL254ĺ"DRAWN END"H(N256)QlNOL%(I,0):38048I,(N7):38080I,N(N7)7:38112I,OL%(I,1):J0vNP%(I,J):381444IJ,N:JJ1:NNP63038368I,0::37888I,255:A$(A$,3):(A$)3A$A$" ":700 600::"OBJECT NUMBER (0-"NO;:") : ";I:INO37)1:S0N:L:8S1:S;" ";:Jĺ(S$,3S1,3);:530J(P$,3S1,3);V:::vXNO0ĺ"NO OBJECTS":A$::bI0NO:37888I,O%(I):37952I,PN%(I):N(38272P%(I,PN%(I))2)(38273P%(I,PN%(I))2)256PL%(I):37984I,N(N256)256:38016I,AS:IS8192:J8191L:38400,0:38401,32:38402,J(J256)256:38403,(J256):38404,I(I256)256:38405,(I256):38406:T2T4PG2Đ:NS1NP1NO30210:NONO1:"OBJECT #";NO::INO:4050:4150:4350:5000:2106:L(^NP46ĺ"PATH TABLES FULL":A$:210 h380:"BLOAD";A$;".PTH,A8192,";DT$:390:NPNP1:700:P$P$A$:38273NP2,(S256):38272NP2,S(S256)256:210 |"NAME:";A$:385 ~ "DISK ERROR "(222):A$:210{L(43616)(43617)256:SBAL:B0S B380:"BLOAD";A$;".PIC,A$2000,";DT$:T2T4PG2ĺ"BLOAD";A$;".PIC,A$4000"\ D210 JNS62ĺ"SHAPE TABLES FULL":A$:210 T380:"BLOAD";A$;".SSH,A8192,";DT$:390:NSNS1:700:S$S$A$:37761NS2,(S256):37760NS2,S(S256)256:210% :210 A$"S"İ1500:210E A$"C"İ1400::"RUN ANIMEDIT,"MR$V "A$"Q"210w '1400:39590::"RUNN,";MR$ ,:"(S)HAPE, (P)ATH, (H)I-RES SCREEN, OR (A)NIMATION TABLES":A$ 1A$"S"330 6A$"P"350 ;A$"A"1550 @A$"H"21:"OBJECTS: ";NO1:"ANIMATION TYPE: ";T$(T1):"PAGE: ";PG:"BOTTOM ADDRESS: ";BA:A$:A$ A$"D"ĺ"CATALOG,";DT$:A$:210 A$"H"İ395 A$"L"300 A$"T"İ6000:210 A$"O"400 A$"N"900 A$"E"İ800:210 A$"A"İ1200P1L"::::T1:6010:PG1:NO1:NS1:NP1:BA36608:I3792037951:I,17: 216,0::"(L)OAD (O)BJECT CREATE (E)DIT OBJECT (A)NIMATE (S)AVE (D)ISK CATALOG (N)AMES (H)I-RES CLEAR (T)YPE OF ANIMATION (C)LEAR (Q)UIT "Z "SHAPES: ";NS1:"PATHS: ";NP1(C)1983,MARK PELCZARSKI8192:O%(31),P%(31,3),OL%(31,1),PL%(31),PN%(31),T$(3):T$(0)"BLOCK":T$(1)"BLOCK/BACKGROUND":T$(2)"XDRAW":T$(3)"BLOCK/XDRAW":S$"":P$"""OPENDISK":"READDISK":MR$,DT$:"CLOSEDISK"K "BLOADPTABLE":"BLOAD       303,0:"UIOJKNM, MOVE AND REGISTER RETURN <- -> / SINGLE STEP MOVES Z - REGISTER MOVE OR PAUSE D - DELETE MOVE X - CHANGE X INCREMENT Y - CHANGE Y INCREMENT S - SAVE C - CLEAR ESC - FULL SCREEN Q - QUIT" A$::16304,0:205 AMR$E1XDX,YDY:23:1:"X:";XDX;" Y:";YDY;" ":1XDX,YDY:LL1:LM(L):V1(LM8):DYLMV18:DX(V12):V1V1DX2:V2(DX8):DXDXV28:V2DXDXV1DYDY4:X,Y:XXDX:YYDY:MM1:DX0:DY0:7:22:1:M;" MOVES": :16Y"ė:205100F,XDX0XDX279YDY0YDY191DX0:DY0:210z6V128(DX0)16(DX)8(DY0)(DY):V0V128EL,V:LL1:MM1:22:1:M;" MOVES":XXDX:YYDY:X,Y:DX0:DY0:210:21:"LOSE PATH?":A$:A$"Y"205::"RUNN,";;A$:258@L,0:"BSAVE";A$;".PTH,A16384,L";M1;",";DT$:205b"DISK ERROR "(222):A$:205(A$"D"A$(127))Mİ2000:210 A$"Q"400A$"C"210FSFS0:16301,0 :21:"CLEAR PATH - START OVER - ARE YOU SURE?";:A$:A$"3 (A$(13)A$(11))YDY0DY7DYDY1:210Z A$(8)XDX0DX7DXDX1:210 A$(21)XDX279DX7DXDX1:210 (A$"/"A$(10))YDY191DY7DYDY1:210 A$"Z"300 A$"S"260 FSFS0:16301,0 :21:"NAME:"$"Y"Ģ24:6:"DY:";:B$:B$"0"B$"8"YI(B$):206R A$"I"DX0:DYYI:300p A$"O"DXXI:DYYI:300 A$"J"DXXI:DY0:300 A$"K"DXXI:DY0:300 A$"N"DXXI:DYYI:300 A$"M"DX0:DYYI:300 A$","DXXI:DYYI:300JKNM, RET<>/ Z D X Y S C ESC Q (H)ELP";G 24:1:"DX:";XI;" DY:";YI;e (16384)128İ1000:210 A$:A$(27)Ĺ16302FS,0:FSFS:210 A$"H"3000 A$"X"Ģ24:"DX:";:B$:B$"0"B$"8"XI(B$):206 A$"U"DXXI:DYYI:3005 A0, A$:A$(27)Ĺ16302FS,0:FSFS:130< A$"S"200b (A$"I"A$"U"A$"O")Y0YY1 (A$"M"A$"N"A$",")Y191YY1 (A$"J"A$"U"A$"N")X0XX1 (A$"K"A$"O"A$",")X279XX1 130 7:X,Y' :21:1:"UIO$:102 jA$"Y"1027 k"PICTURE NAME : ";A$:109_ l"BLOAD";A$;".PIC,A$2000,"DT$:110 m"DISK ERROR "(222):A$:100 n:DX0:DY0:FS0:X140:Y96 x21:"MOVE CURSOR TO START, THEN PRESS 'S' [UIOJKNM,] ESC S" (16384)128İ1000:13  (C)1983, MARK PELCZARSKIT2"OPENDISK":"READDISK":MR$,DT$:"CLOSEDISK"Z0:1:I768773:V:I,V::232,0:233,3: 1,0,4,0,4,0dL16384:M0:XI2:YI2f::21:"LOAD SCREEN?";:A$::A$"N"110 iA$"D"A$"C"ĉ:"CATALOG,"DT$:A ` x`*`1` `L`` @ HHH p ` ``  ` 8` I`) @"` 1 q` I1 b``"` b`` I` ` q`` 8` `` x0 "OPENSHAPEDIT RUN":"WRITESHAPEDIT RUN"h"BLOADSML":"BLOADTSANIM":"LOADSHAPEDIT":"RUN20"v"CLOSE"R ͍̍ԍβKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KTSPATHSJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK@KTSPATHSJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?LL4̍56 456` !$'*-0369I06:Y(I3)643:4MD%(I):XS%(I),YXS%(I)49,YF:ZK FLASH CURSORSLJ12:I06:MD%(I)XXS%(I)XC:Y(I3)648YC:1X,YM::} PLOT A DOT (Z OR X)~I06:MD%(I)XXS%(I)XC:Y(I3)648YC:X,Y: PR7A^( 1 M($=5%ȼ=>9<6.N_MZI.M(."\EO M(><<< @(><<<,4<=;fN+-^-˿<:?5Fˆ5<595<6.^YBB .7A^( } >?9  =><<6__=95 >4> >48 L\5>>:?6=95  $O_?%86==9<6=95 R .@C_I,OY^^IBX,_DM\I3.6M(666E$M(.U.%6 ,J@MK,_DM\I5A$"L"270&1250:252:235"BLOAD";A$;".SSH,A$8500,";DT$:3,0:216,0:1350:1000:2,8:I03:258::2,72:I46:258::BR0:H(34063):W(34062)76:15300,(XS%(I)7):1,XS%(I)(0)7:36608:A$"C"İ350:Iĺ"RUNSHAPEDIT,""O"159f1300:"(E)DIT (S)AVE (L)OAD (D)ISK CATALOG (C)LEAR (Q)UIT :";:A$:A$:A$"E"İ1300:145}A$"D"İ4050:235A$"S"2502000:1250:"BSAVE";A$;".SSH,A$8500,L";SL;",";DT$:216,0:2351300:"DISK ERROR "(222):A$:216,0:23000:159 A$"Q"SS2:2824 A$"W"SS3:284E A$"A"226` 2000:16302,0:37102 36864:I1510(0)2::(16384)128222 36608:16301,0:159 A$"S"A$(19)1800 A$"F"2050 A$"R"3000 A$"E"1900A$CWBR1XCBR1! XCXC1:2807 A$"Z"SS1:282H A$"H"4010e A$"B"İ1700:1500:145{ A$"X"SS1:284 A$"C"200 1300:"COLOR (0-7): ";:A$:A$"0"A$"8"CS(A$) 150 A$"0"A$"8"MD%((A$)1)1MD%((A$)1):1ITE HBIT ON ALL SET";9 (16384)128İ1100:159V FR(0):A$:A$"I"165i YCBRYCBRHz YCYC1:280 A$"M"170 YCHBR1YCBR1 YCYC1:280 A$"J"175 XCBRXCBRW XCXC1:280 A$"K"180 X"COLOR: VIOLET HBIT OFF EVEN SET";:159^ "COLOR: WHITE HBIT OFF ALL SET";:159 "COLOR: BLACK HBIT ON NONE SET";:159 "COLOR: ORANGE HBIT ON ODD SET";:159 "COLOR: BLUE HBIT ON EVEN SET";:159 "COLOR: WH1400:1000:1200 CS3:SS1 :21:"IJKM ZXQW C B F R S E A 1-7 O (H)ELP":"WIDTH:";W;", HEIGHT:";H;", BORDER:";BR::CS152,153,154,155,156,157,158 "COLOR: BLACK HBIT OFF NONE SET";:159 "COLOR: GREEN HBIT OFF ODD SET";:159. y (C)1983 MARK PELCZARSKI$620480:28672k"OPENDISK":"READDISK":MR$,DT$:"CLOSEDISK"i0:1:I768773:V:I,V::232,0:233,3: 1,0,4,0,4,0nMD%(6),XS%(6)xI06:MD%(I)1:XS%(I):7,79,151,223,43,115,187 216,0:        SELECTING SLOT OR VOLUME. "Zi"PRESS RETURN TO CANCEL ":"MASTER DISK : ";A$:A$""10{n"DATA DISK : ";B$:B$""10xMR$A$:DT$B$:"OPENDISK,"MR$:"WRITEDISK":MR$:DT$:"CLOSEDISK":10MF <A$"L"ĺ"BLOAD PICDRAWH,"MR$:"BLOADAPCOLORS.CLT":"RUNPICDOC"V ?A$"M"100| AA$"C"ĺ"CATALOG,"DT$:A$::10 FA$"Q"10 P"MAXFILES3":d:"DISK SELECT: TYPE 'D1' FOR DRIVE 1, 'D2' FOR DRIVE 2,OR USE THE FORM 'S5' OR 'V20' FORR$:"WRITEINPUT":"TABLET":"CLOSE"y 3A$"4"ĺ"OPENINPUT,"MR$:"WRITEINPUT":"HIPAD":"CLOSE":"BLOADHIPAD READ" 4A$"0"A$"5"ĺ"BLOADCPAGE.PIC":"BLOADCURSORS":"BLOADMOVE1":"BLOADPICDRAWH":"RUNPICEDIT" 7A$"B"ĺ"RUNBINTRAN,"MR$,"MR$3 #A$"D"ĺ"BLOADMOVE1,"MR$:"RUNANIMDOC"a (A$"A"ĺ"BLOADMOVE,"MR$:"RUNANIMEDIT" -A$"1"ĺ"OPENINPUT,"MR$:"WRITEINPUT":"JOYSTICK":"CLOSE" 1A$"3"ĺ"OPENINPUT,"MR$:"WRITEINPUT":"MOUSE":"CLOSE"% 2A$"2"ĺ"OPENINPUT,"MG (B)INARY TRANSFER UTILITY (Q)UIT MASTER DISK:";MR$;" DATA DISK:";DT$ "V3.84 COPYRIGHT 1984, PENGUIN SOFTWARE CHOICES IN PARENTHESES";:A$: A$"S"ĺ"BLOADSML,"MR$:"BLOADTSANIM":"RUNSHAPEDIT" A$"P"ĺ"RUNPATHEDITR (P) PATH EDITOR (A) ANIMATION EDITOR (D) DOCUMENT ANIMATION TABLE PART 2 - THE PICTURE/OBJECT EDITOR (1) JOYSTICK (2) TABLET"S " (3) MOUSE (4) HIPAD (L) LIST/TRANSFER PICTURES ALSO (M)ODIFY DISK ACCESS (C)ATALO"MAXFILES1"I"OPENDISK":"READDISK":MR$:DT$:"CLOSEDISK" ::"THE GRAPHICS MAGICIAN - PENGUIN SOFTWARE":"WRITTEN BY MARK PELCZARSKI, DAVID LUBAR, AND CHRIS JOCHUMSON " "PART 1 - THE ANIMATION SYSTEM (S) SHAPE EDITO     "RUNN"dd1 )UVWq.?6?8rrY[d2e?o5 q88 rrP a@*#rGd2e[3"d ed!ed"ed,eM[V$qq"qqKM6o a(̠ΠŠ)Y%oq\q\qqq[/qqvq\q6q\[q(\\[/qqq\q6q\[q(\\[Nq.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r _d"ed,eM[0d&ed$ed%ed'eM[#qqq\q\ qq\q\9 qq\q\qq\\q*q\qq\qq0q        $0DqdeNq_&a()o Pa()oPa()oPa()[UV W X q.?rq.?rq.?rq.?r\Y[q q.?r&`.?r%[0q/?r":`.?rqq("q1?r`1?r1?r%q1?r!,qqq0?rq0?r6UVW@dedeJdeMTdeM^qqhY[rd6ed7e |oPa()Pa()PrdUVWYnUVW- xo P a@*#rUVWKYYUVWYMM UVWYo P a()Pa()UVWYo P a()Pa()UVWY\_nQҮʮ N@"3r<@p( РӠŭΡ) (M6%2o P a(ŭΠ)47oPa(ԠŠҬî)<UVW Y FM6&PMd6?ed6?ed6?e Z\\FMd6?ed6?ed6?e P\4\ZUVWYdUVW+ xA]A]ŭA]ŭΠ<]ŭΠԠҮʮA ]<]7]ŭΠΠ٠A]ŭA]ŭΠԠҮʮР N@"/r8@p( РӠŭΡ) M6%(o P a(ŭΠ)<\ &@Τl4И`(ҌTӸԀHլt<נh0ٔEL (2<FPZdx,6^hr|$.8=B  4>HR\fp  & 0 : gCB@@@@9 РӠŭΡ? G MSY_fmw}66L|DŨ p8ǜd,ɐXʼ ˄L̰x@9`0``@@@```@@x|?~@gg`aG@agc7fld`pxxx>x<888<0px| 8`ppp``|@`?pyy`xa@ya{1~| x x||~_O|p@````08<<<p|~`>@>>>>@@?@8@@  00000  0xxx00@p| |Cxxxxx~@px8`0`0`p``@`@@@p@@`@a@``@`@ ` @ `@@aacFN|xx?xwxcpp<p ppppxxx8888 8800@1@1@ @ ``0@ 0<<< @`x~<||p||~~~wwgggc@c@c@a@a`?ppx8__  ?C?0A? A?@?@;@;@;@1@1@1@1@1$dn$i&d( } }   }s} U]Սߟ55555ߟJ :341(1(AAMMWb W MA:AM b W MWb(x!n$} x!d  s n$ s"d(  x!ss"      } d( xis"x!  }   x! n@M W b h b W b vb W MMM W b W MWWM W b h b W b vb W MAAM b W MWb(M AM AAM AM A=J :"J :":"J :"`Ruuu4u4R4R4R_chdKOKOKOOK!NCNCNCC!!!NKFFFJFJFOK4H 44HH4  ccO  cccMM!!__uuOu}u}u}}u>> "HPRWɍ;)?  i% HH Ge$ihhhLHH  5hh`i V$ Gi     𼪩 HhHh0> >>>  >00000>">>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< "*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6""""""".& dede _H &h`H &I1h`H &1h` G me@` @ )jjjj) j)jj)`  ff `HH hh`               A100))! A1200AA1200:PM1:HOUR(AMIN)100:A0NHOUR12HOUR0W500c :936*"STOP PLAYING WITH THE APPLE !!!!, GO AND TELL DAD TO WIND UP THE CLOCK AND START IT AGAIN"ZB$"N":ZC$"N":ZD$"N"&936"WHAT IS THE PRESENT TIME PLEASE? USE 24 HOUR NOTATION, FOR EXAMPLE 1340 AND NOT TWENTY TO TWO";A936:"HANG ON WHILST I WIND THIS APPLE UP"AA1Q1999:QMIN(((A100(A100))100.05)(OCK?";ZC$"ALARM?";ZD$0(ZD$)89ī770" ":"WHAT TIME DO YOU WANT THE ALARM TO GO OFF? PLEASE USE 24 HOUR NOTATION,FOR EXAMPLE 1340 AND NOT TWENTY TO TWO";SET770YPE Y OR N,THEN HIT 'RETURN'KEY";ZA$9(ZA$)89ī765C936r"WHICH OF THE FOLLOWING WOULD YOU LIKE?,""JUST PRINT Y OR N, (DON'T FORGET TO HIT THE RETURN KEY)"" "" ""CHIMES/";ZB$ "TICK T0:B0:C0:XPH%65:XPM%65:160)936z"(THIS PROGRAM WRITTEN BY BILL SMITH, GAMBIER ISLAND, B.C. CANADA)"::"HI,I'M APPLES GRANDFATHER CLOCK":40)"DO YOU WANT ME TO CHIME THE HOURS OR USEMY OTHER FACILITIES ?":" "$"PLEASE T27816382:B:A,B:A#b:3:1:08l232,150:233,63Cv16277^A118:B,C:3B,C:AxA15:B,C:4B,C:AA14:B,C:5B,C:AA112:B,C:6B,C:A5:825,16:8252,16:32:826,141:8253,141A770790:B:A,B:AA0,13+ 204,110,178,136,132,148,84,136,60,110,64,74,70,40,86,14,130,2,138,16,170,24,192,46,200,78,192,110,170,132,138,140,106,132,84,110,76,78,84,46,106,24D 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96XA18:B:A]A162,12,12,00 53,39,00( 44,62,00! 63,63,54,45,53,62,62,62,54,53,53,62,62,46,46,54,55,55,46,46,46,54,63,55,46,45,5,0& 144,1,148,1,178,14,200,40,204,40,208,74,212,74,216,74,216,74,200,110,146,148,98,136,102,136,74,110,78,110,82,110,60,73,100,150A 08,00,18,00,22,00,25,00,32,00,44,00,70,00,73,00,77,00S 36,36,36,00b 36,36,00} 54,54,54,54,54,14,00  118,118,118,118,118,05,100,100,100,100,100,12,0  14,14,14,14,14,14,14,14,14,14,222,219,219,27,96,12,12,12,12,12,12,12,1RM(HOUR1)100:405+ ALARMHOUR100MINF PM1ALARMALARM1200Z ALARMSETī420d E4:z SETSET1:E1:R1 AE87 (16384)127ZD$"N":R0:455 768,255:769,255:770 A 16368,0  100,150,100,250,100,150,5]E1:160 ^ cA03:EE h768,E:769,50:770:F1200:F:AS iA8ī365c jF1400:Fv kA47:E:360 mA11000:A rHHOUR:HOUR0H12 wE1H:768,250:769,100:770 |F1800:F E E500(H133)  MIN60ALASIBLE ERROR 1AE486267:Q1, 3FG60D 6(16384)127ī800K ;FY @B1ī335s E768,100:769,03:770 J780,180:B1:7168,180:345 O768,70:769,03:770 T7168,180:780,180:B2 YG1:A [B1ĕ780,180 \B2ĕ7168,180 5 HOUR6MIN34ĘPH%:295@ XPH%PM%XPH%PH%ĘPM%:295b PM%XPH%PH%PM%1ĘPM%:295{ PH%XPH%ĘXPH%:295 OPM%PM%:XPH%PH%:B1:E1:FLAG1İ350 FLAG0:R0ī120 160 "1140,80: '2140,80: ,7:780,180:G19: POSFLAG1 HOUR12ī2003 HOUR0:PM1PM0:200G PM0PM1:200O 12k PM%MIN6460:PM%:290 PH%(HOUR64PM%)12:PH%:295 PH%XPH%ĘPH%:295 PM%PH%ĘPH%:295 B0ī285 OPM%:290 XPH%:295 OPM%PH%ĘPH%:29 ** GRANDAPPLE CLOCK&16277GZD$(1),ZC$(1),ZB$(1),ZA$(1)P700bZE420(H140)jwE1~x(ZC$)89ī300}AE4862(16384)127ī800AMINMIN1:(ZD$)89İ400MIN60ī200MIN0:HOURHOUR1 (ZB$)89          Į٠f/?rij'kf/?rlm'n[nP q`2?r %[qFq82?r rdededeM[#'`.?6@r%[d6?ew_t']~']Ҡή']']Ҡӧ']']Ԡ̱m̲nḻm̲n[ZqUVW'UVW'f81?rr81?rrghYZ\'_/KM6Po a(ŠĠ)Q M6Vq flm'no8rP`%bG\'_+ij'kf \pf lmnY*qf\plm'nq`'$4qlm'nlm'nS4qqqdf \pf lmnfghUVWY\'_*@pq̱q̲qḻm̲nlqFq82?r r`2?r %[dededeM[kq/?rqFq82?r rdedede8rM\'_Y qqqqqqqf`$Y5]fUVWXq'ijk\lmn\*bijk\lmn\Ygqhq/?r`$hBlfUVWX6q'lmn\ijk\(vlmn\ijk\Y\'_Xnqfg8r%h8r#Y\'_,UVW-rq/?rYHUVWX6-rq-rY-rq/?rUVWUVWJf-rqq'ijklmnijklmnYZ\'_q_XqYq/?r٠Ġՠ)'` $AL` %_d_YJ1918 HX,Y$ RJ,I* \7 I0191F 0,I279,IM IS Z 4 "COLOR TV ALLIGNMENT PATTERNS":: 6)"PATTERNS:": 8)"1) VERTICAL BARS" 8)"2) HORIZONTAL BARS" 8)"3) CROSS HATCH" $8)"4) DOTS" %H2,V2:H2,V2! V,H:2000, I08: XI2798I X,0X,191P IV a XI08o bYI1918~ l0,Y279,Y vI    I015 I X4(I2)6(I2) 0,39X X,I 2000 I08 *J08 4XI2F 24576(3#Z1000,d5006n2000?900F0O100X600b2000k900r0{200,5006600@2000^900h0r3008002000H227725:V218923 H2,V2H2,V2:H2,V2: ŠŠƠΠϠҠŠƠӠ٠Ү]]ԠĮ٠]&]ԠԠ0QӠ͠Ӡ͠))a(ŠĠΠӠӠŠ)a(ŠԠԠŮ)oa(ӠçϠ))a(ӠŠŠҠϠŮ)`.?6@r$`.?6@r$d6?eM6[]\]ΠϠqfghqq 6fgh7`'$@;`=>r$(@`'$J`=>r$^_,Cd6?ed6?eKM6o P a(ŠĠ)QM6oa(Ԡ)cca(Ҡ)c*a( #qq(`=>r$d)UVW-q.?6?r.?6?r.Y2`'$$<`=>r=>r$Fq`/?r%q6K`=>r$FP_,d`'$)q&nfghqqfgh_( ,d6?ed6?eKM6\ Lf(UVW,g/?$rh/?r YUVW$q/?(rq/?(r`=>r$/ghq`'$`=>r$_Yqq`=>r$ q!`.?6@r$ HH 0p(k 0\(W  qƥ 0'8' 0 '8 0'8 0 Ёhh`ƠӮ6 ]٠ΠϠŠ ٠F]ԠĮԮҠӠŮI]͠ĠàΠ]ԠӠQ "P a(ŠĠ)Q4]ԠҠŇP;@ra@ a()[4]Ġ··e]ΠϠŠŠƠΠϠҠŠχ$oa(ӠŠçϠ)1oa(ӠŠŠҠϠŮ)`.?6@r$`.?6@r$:]̠ĠŇd6?eM6[d6?eK_ \o2]ŠŠŇ"o@p(ԠӠ)\(@p(͠ΠϠŠ)\@p(٠)\],c@p(Ӡ͠Ҡ)\@p(٠Ԡ)\]1]ŠŇW/?rde/?r:de/?rde/?r`.?r.?r$`.?6@r$d6?e MYYUVWY_]]Ԡӧ]0]ԇŇN@"(r\?rYN2`%de`%de`%deH<de/?rq/?/?/?-rrrq/?0r FM6%dde/?r de/?r nUVWxq/?r`.?r$xfUV\a(Ġ)$]Šӽ̱] qqqqqqqqqq q M6L&dededeq/?r8(de/?rf.?rUVW'ij'kq.?6     ӠŮM]͠ĠàΠ]ԠǠQԠҠŇP;@ra@ a()[]e]ΠϠŠŠƠΠϠҠŠƠӮ ]F]ԠĮԮҠŠçϠ)1oa(ӠŠŠҠϠŮ)`.?6@r$`.?6@r$:]̠ĠŇd6?eM6[d6?eK_ \o "P a(ŠĠ)Q4]Ǡ)\@p(٠Š)\(@p(͠ΠϠŠ)\@p(٠)\,c@p(ӠìϭӬ)\@p(ҠӠ)\]1]ŠŇ$oa(Ӡ ed e^X d ed ed ededededeLdedede`b [0]̇ŮN@"(r\2]ŠŠŇ&o@p(Ԡ UV6W f q8ѱ8 rr `%\  gh gh Y _  q q\D & [0 qq\D : [D dedeM[TN dede0dedededededm'n Y UVW Y" UVW' , q'6 qq\D @ fJ ij'kT Y^ fh ij'kr lm'n| ij'k' lm'n' UVW Y q/?r q/?r `$  ѱq ԠӠӠ)< TF `$ P M6Z UV Wd qq\D n `$ x _  q q \D  Y _  M6 L# a(ϠՠԠĠ٬Ω) T `$ M6 UVW' q/?r f lĩ)V T ` M6j `$~ t _ ~ a(ԠҠ) Tñ M6 UVW `%\  q/?(r q/?(r fñ `$  _  qq\D  gh Y _ ñq/?r [  M6( o2 a(ϠM6a(ԠҠ) Tñ *M6#4a(ϠՠȠĠ٬Ω)>T HM6*Ra(ŠϠՠԠϠŠ)\T fM6,pa(נǠϠՠԠŠӠ)zT̲ M6 UVW`%\0 `%\bfl`%\vgh`"$_Dq2?rq \D [ M6L(a(נ٠ӠϠՠԠ)T`$ M6?a(ϠՠԠ͠ŠŠҠԠӠĬө)T`$ _* %\0 ḻm̱ٱn`%\0 ijḵٱ`%\0 ḻm̱ٱn_ M6L$a(ԠҠϠՠԠ)T`$ &M6#0a(ϠՠԠĠ٬Ω):TDq2?r NM6Xq2?rTٱ M60a(ŠϠՠȠϠŠؠӮ)"T ,M66a(٠Ӯ)@Ṯ JM6$Ta(ԠҠϠՠԠ)^T hM6#ra(ϠՠȠĠ٬Ω)|T M6f`%\0  ijḵ`:"BRUSH = ";X:1""NORMAL TEXT ";(X):J,"FILL COLOR = ";X:k@"START LINE AT ";X;", ";Y:T"DRAW LINE TO ";X;", ";Y:h"PLOT BRUSH AT ";X;", ";Y:|"FILL AT ";X;", ";Y:YBYL%((BY)16):1200:BYBEED0)<PRINT COMMANDCM11520,1530,1540,1550,1560,1570,1580,1510,1600,1510,1620,1510,1640,1510,1660"???":"END":"TEXT CURSOR TO ";X;", ";Y:"LINE COLOR = ";X:"REVERSE TEXT ";(X):A$::% GET CURRENT PARAMETERSCD((228)32):CF(SP13):BN(SP14)1:P4(224):P5(225):P6(226):XOP4P5256:YOP6:CM(SP12)16:CIL%(CM):BY,BS:0,BY(BY256)256:1,(BY256):BYSBCM0:XO0:YO0:CI0M1İ450#x1305:B100:216,0:LS1:,:"NAME : ";A$:10302? BSAVES990:"BSAVE";A$;".SPC,A";SB;",L";LN;",";DT$:P$A$:216,0:30"DISK ERROR ";(222):A$:216,0:30K REDRAW PICTUREL::0,0:1,96:SP:LN(0)(1)256SB:22:"PRESS ANY KEY";",";Y:F"M "X","Y:-H"U "X","Y" ":WTP1624,1626,1628: DRAW LINE TO X,YlX"DA ";X;",";Y:}Z"D "X","Y:\"D "X","Y" ":h: PLOT BRUSH AT X,Y|: FILL AT X,YAT X,YIIqCM:XM:YM:610'vCM:X:610CCM:"CLOSE":P$A$:30e"DISK ERROR ";(222):A$:30"PRINTER SLOT #";:A$:A$"1"A$"7"30:"PR#"A$:BYSB:I0:"PICTURE LISTING : ";P$:II1:800:I;") ";:1500:BYBYL%(CM):CM0720 :BY1,X:BYBY2:510JLNBYSB1:"CLOSE":LS1:P$A$:216,0:1100:30tXM10:"NAME : ";A$:A$A$".PTX":690]"OPEN";A$;",";DT$:"WRITE";A$:BYSBb800:BYBYL%(CM):CM1640,625,630,630,630,630,630,620,625,620,625,620,625,620,625l610BY2:510@"UNIDENTIFIED COMMAND, ";CM;". LOC.";BY:A$:510 I(CM12):X:Y:X(XMX):Y(YMY):X279I13X279I13Y191I15Y191I1=]ȧ.,̼+],ȼ-̼+.]Y2,Y:BYBY3:510X:BY,CM16X:BYBY1:510X"X SCALING FACTOR (10 IS NORMAL) : ";MX:MX0502j "Y SCALING FACTOR (10 IS NORMAL) : ";MY:MY0503 "OPEN";A$;",";DT$:"READ";A$:BYSB CM:BY,CM16:CM1540,525,530,535,530,535,515,520,525,520,525,520,525,520,525 X:BY1,(CTX):BYRS.CLT,A"CT","MR$:100J "CHANGE #";I:"TO ";N:N0N255I0I255250[ CTI,N:100 ,"PRINTER SLOT #";:A$:A$"1"A$"7"100 6:"PR#"A$:"COLOR TABLE : "C$:I0255:I"-->"(CTI)::"PR#0":100 "NAME : ";A$:A$A$".PTX":6902 30 nA$"L"150" sA$"S"1752 xA$"N"200B }A$"C"250R A$"P"300[ 100 190:"BLOAD"A$",A"CT","DT$:C$A$:100 190:"BSAVE"A$",A"CT",L256,"DT$:C$A$:100 "NAME : ";A$:A$A$".CLT":690 690 "BLOADAPCOLO"L"İ900:307 -A$"V"LSĹ16304,0:A$:16303,0:30J 2A$"P"LS700] 7A$"W"LS600m <A$"R"500} FA$"E"30 d216,0::"COLOR TABLE EDITOR (L) LOAD (S) SAVE (C) CHANGE (P) PRINT (N) LOAD NORMAL TABLE (M) MAIN OPTIONS":A$:A$:A$"M"ICTURE (S)AVE PICTURE (P)RINT PICTURE COMMANDS (W)RITE TEXT FILE (R)EAD AND INTERPRET TEXT FILE (E)DIT COLOR TABLE (V)IEW PICTURE (D)ISK CATALOG (Q)UIT":A$:A$ A$"D"ĺ"CATALOG,";DT$:A$:30 A$"Q"ĺ"RUNN,"MR$ #A$"S"LSİ1000:30 (A$ (C) 1983, MARK PELCZARSKIk8192:::L%(15):I015:L%(I):: 1,3,1,2,1,2,2,0,3,0,3,0,3,0,3,0"OPENDISK":"READDISK":MR$,DT$:"CLOSEDISK"LS0:SP36096:SB24576:CT39168:C$"APCOLORS" 216,0::"PICTURE FILE HANDLER (L)OAD P   B0(24581):B10:(16384)141Ĺ16368,0:B11V B30:(16384)160Ĺ16368,0:B31\ "CLOSEHIPAD":8192::"OPENHSLOT":"READHSLOT":S,X8,X9,Y8,Y9:"CLOSE":24576,S} 19l24582:X(24577)256(24578):YpppqY(Y16383)32638X((XX8)X9280):Y191((YY8)Y9192):ZCXZX(X140ZR)ZR:YZY(Y96ZR)ZRXX(X0):X279X279YY(Y0):Y191Y191/   ΠŠ³ΠԠĢͺԠԠԢԠԢԠӬظعٸٹԠŢŠӍ΍Pˣ٠Ơ͠z# ţ!Š! Ԯà! ţ!ţ " ţ "ţţĠŠ Ԡ Ԡ ˠ Ԡ ԠԮà ΠԠŮԮԮԠŠŠ ŠԠŠΠԠŠҠȠҠҠŠӮԠҠ͠Ҡ ҠӠΠ ԠŠ ţ ţţţ ţ ţ ӮԠ  Ƞ ԠȠ ̠ Ԡ̠ űţ ҠŠ Ԡ͠ŠҠԠ à Ůà" àŠΠӠб̠ в̠Šˠ ԠΠ ҠԠ ͠ ȠҠԠ  ΠҠ Ԡ ŠӠΠ ϭà Π ŠҠ Ԡ ̠ ͠ L̐`@L̐ ``<@ }@0 `ȹL; @9L̐@LL) e)J)) 0L  L-. -.`  ȹ  ȱej_ek`  (p1) pQ ĥ ` ȹ   ( ӥ `=LŐ`@LŐ``?@ }@0 `ȹL6 @< LŐ@LG) e)J)) 0L L)) 0Lߐ L ȹ  ȱeUeV  (p ѥ ` ȹ   ( ӥ ` ʥ ` 1 LuLopQ Q`@@A@AB@ABC@ABCD@ABCDE@ABCDEF((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_  ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  20:BK3:30720,0:BY,0:900:SB25344:CM0:30= !A$"L"30L "900:BEBY] #2:B0B135 (:21:"T Z SP ESC R D E S I Q (H)ELP";:EDĞ:"<>";: ,:M45,46,47 -"LINE";:50 ."FILL";:50 /"BRUSH ";BN; 2" FCOLOR:";CF;" LCOLOR:";C114:KY0:CR0:BK0:ES0:ED0:J0:M1:232,0:233,3:1:0:BYSB:BESB:1100 :21:"(L) LOAD PICTURE (N) NEW PICTURE (B) LOAD BACKGROUND (D) DISK CATALOG";:A$::A$"N"35 A$"D"Ĺ16303,0:"CATALOG,";DT$:A$:16304,0:30- A$"B"SB307%&COPYRIGHT 1983, MARK PELCZARSKIa"OPENINPUT":"READINPUT":A$:"CLOSE":"EXEC"A$:"OPENDISK":"READDISK":MR$,DT$:"CLOSEDISK":L%(15):I015:L%(I):: 1,3,1,2,1,2,2,0,3,0,3,0,3,0,3,0J :ZR20:SP36096:SB25344:BRSP835:CLSP      JJJJJe ) e)`L 00>3>3333300>333>3633>03333 00003333 ?[[[[333333333>33>003063333>333 mmmm~3 3333>0? ? 8( ?3??33?33??33??333????????;3?333??33?? ??3;;3??cwkcccc337?;33?333??3??##+.?3?;3?0??? 33333?33333 ccckkwc33 33333 ?? ??8p` ?J66$6???? ??0? '<:9 *.  88888*>* ??  >>`p833333<630000?38???0>0?8<63?00??0?33??0 ?33??3>0> p88p>>>>8?3 => =>`"BLOADAPCOL`@L  h 菙hLX동o``?@ }@0 `ȹLd @< L@Lu) e)J)) 0Lߐ L  ȹ  ȱemfeng  i (p pQ Q) й ` ȹ   i (  ʥ ` 1 LuLopQ Q   ""DRAW LINE TO ";X;", ";Y:Ah1690:"PLOT BRUSH AT ";X;", ";Y:b|1690:"FILL AT ";X;", ";Y:X(BY2)256((BY3)CM16):Y(BY1):EDİ1750:39249BYBYCI:BEBECI:1100:.39168,BY(BY256)256:39169,(BY256):39170,BE(BE10,1640,1510,1660:A1690:"TEXT CURSOR TO ";X;", ";Y:["LINE COLOR = ";CD:}"REVERSE TEXT ";((BY1)):"BRUSH = ";BN:""NORMAL TEXT ";((BY1)):,"FILL COLOR = ";CF:@1690:"START LINE AT ";X;", ";Y:T1690:226):XOP4P5256:YOP6:CM(SP12)16:CIL%(CM):BY,BS:0,BY(BY256)256:1,(BY256):BYSBCM0:XO0:YO0:CI0M1İ450x1305:BYBYL%((BY)16):1200:BYBEED023:1:CM1530,1540,1550,1560,1570,1580,1510,1600,1510,1620,15";DT$:216,0:40(LBKĹ0,0:1,120:SPhV0,0:1,99:BS(BY):BY,0:SPBK:BY(0)(1)2561:1300:~0,BY(BY256)256:1,(BY256):450:450:BS(BY):BY,0:CL:1300:sCD((228)32):CF(SP13):BN(SP14)1:P4(224):P5(225):P6(6095:1100:216,0:-BS(BY):BY,0:1025s:21:"NAME : ";A$:"BSAVE";A$;".SPC,A";SB;",L";BYSB1;",";DT$BY,BS:216,0:40BY,BS"DISK ERROR ";(222):A$:216,0:401030$:21:"NAME : ";A$:"BSAVE";A$;".PIC,A8192,L8192,BNCI1:2000:BY,63X:2020'7902X770cYY1:YCDİ1305:CI1:2000:BY,32Y:2020l790CX10Y11:C108CCFİ1305:CI2:2000:BY,96:BY1,C:2020650:610:"NAME : ";A$:30"BLOAD";A$;".SPC,A";SB;",";DT$:BY3670:2XP,YP:XN0:YNCD1:670:2XP,YP:XN(CF10)1:YNCFXN1011:670:2XP,YP:YNYP32:XPXN2032(XN1)20(XN1)40:YPYN1445:XPXN2143:XNXP30:YPYP14650:Y7501305:X2MX1:1305:790XX1:M3:XB0700,lYN(Y17.4):YNXN(X28):624LnXN(X23.3):XNYN8YN8^p670:2XP,YPvI(16384):16368,0:I218ZCZC:ZXX:ZYY{2XP,YP:I160610650:230,32:16300,0:16301,0:ES0:35XXN:YYN:YN0:XNM1:M3XNBN1XA31590+A18CR0'0A14CR32:5A12KY32KYI:A27İ480d?(A4A8)BYSBİ1700sDA13510IM1:450:40NAAKY:A127510SCI2:2000:BY,48CR:BY1,A:2020:510X16302,0:16299,0:230,64:650b2:B3640gC <- RET"."KEYBOARD: ";:KYĺ"LOWER":525>"STANDARD"h 22:20:"TYPE: ";:CRĺ"NORMAL":535w"REVERSE"1500:470:X(SP19)256(SP18):Y(SP20):460:X273ĺ"":585455:A(16384)128:A0540!A127A4&16368,0:"RUNN,";MR$40<I(230):230,32:1XO,YO:230,I:Z1X,Y:I120::1X,Y:~24:20:"X:";X;" Y:";Y;" ";:"BYTES USED : ";BYSB1;:16302ES,0:ESES:X273Y18440V16:190 :21:"TEXT MODE ^L ^R ^N ES@ED1:BYSB:1100EED403JA$(21)İ1400TOA$">"A$"."(A$)940pTK110:1400:EDK11z:40:21:"(S)TART OVER, OR (M)ENU":A$::A$"S"ĺ"INSERT MASTER DISK AND PRESS A KEY":A$::"RUNPICEDIT,"MR$ A$"M"ģ39590:(A$"D"(A$)127)BYSBİ17000A$(4)290_:21:"DELETE HOW MANY STEPS? ";D:D140w K1D:BYSBİ1700}!"A$"S"1000,A$"R"310.EDED0:BYBE111006A$"Q"4008A$(8)ED1:BYBYCI:1100;A$"E"325A$"T"İ1305:M4:5005 A$(20)İ1305:M4:510L A$"1"A$"8"270 1305:M3:(A$)BNCI1:2000:BY,63(A$):2020 A$(27)İ480 A$"J"JJ (A$"X"A$(13))M1105 A$"Z"ZXX:ZYY:ZCZC A$(26)ZR25ZR8:190:35 xM125,150,1755 }450:V160:190:35H V224:190:35[ V192:190:35 CI3:2000:BY,V(X255):BY1,X(X255)256:BY2,Y:2020: A$:A$"I"1050 A$"H"3000 A$" "600 A$"L"M1:450 A$"F"İ1305:M2 D:1500:470:CD:SP13,CF. 72:460:B3600; <M380L DX266X266] EY176Y176 FSP17,1:K12:SP15,X255:SP16,X(X255)256:10,Y:BR:I150:::SP17,0:90 P455 Z(16384)127200 _B0120 dB1M155 i450:V1256SB:22:"PRESS ANY KEY":A$::? GET CURRENT PARAMETERSCD((228)32):CF(SP13):BN(SP14)1:P4(224):P5(225):P6(226):XOP4P5256:YOP6:CM(SP12)16:CIL%(CM):BY,BS:0,BY(BY256)256:1,(BY256):BYSBCM0:XO0:YO0:CI0SPC,A";SB;",";DT$:P$A$:1100:216,0:LS1:F:"NAME : ";A$:1030LY BSAVES990:"BSAVE";A$;".SPC,A";SB;",L";LN;",";DT$:P$A$:216,0:30"DISK ERROR ";(222):A$:216,0:30K REDRAW PICTURE"L::0,0:1,64:SP:LN(0)(1)2BYBYL%(CM):CM0720'"PR#0":30> GET NEXT COMMAND CM((BY)16):CM1820,805,810,815,810,815,815,820,805,820,805,820,805,820,805%X(BY1)256((BY)CM16):Y(BY2):*X(BY)CM16:/X(BY1)4+990:"BLOAD";A$;".CM:2000:TVAC(X):2000:610]TVCM:2000:LTTLST:"BSAVE"A$",A"ST",L"LT","DT$:P$A$:30"DISK ERROR ";(222):A$:30"PRINTER SLOT #";:A$:A$"1"A$"7"30:"PR#"A$:BYSB:I0:"PICTURE LISTING : ";P$:II1:800:I;") ";:1500:PTX":690]BYSB:TLSTzb800:23:BY:BYBYL%(CM):CM1640,625,637,630,630,630,635,620,625,620,625,620,625,620,625l610qTVCM:2000:TVXM:2000:TVYM:2000:610vTVCM:2000:TVX:2000:610{TVCM:2000:TV(CTX):2000:610}TV13X279I13)Y191I15Y191I15hBY,CM16(X255):BY1,X(X255)256:BY2,Y:BYBY3:5102100:XTV:BY,CM16X:BYBY1:5102100:XTV:BY1,X:BYBY2:510LNBYSB1:LS1:P$A$:216,0:1100:30 XM100:"NAME : ";A$:A$A$".2100:23:BY:CMTV:BY,CM16:CM1540,525,530,535,530,535,515,520,525,520,525,520,525,520,5252100:XTV:BY1,(CTX):BYBY2:510"UNIDENTIFIED COMMAND, ";CM;". LOC.";BY:A$:510 I(CM12):2100:XTV:2100:YTV:X(XMX):Y(YMY):X279IBLE : "C$:I0255:I"-->"(CTI)::"PR#0":100V "NAME : ";A$:A$A$".PTX":690 "X SCALING FACTOR (100 IS NORMAL) : ";MX:MX0502 "Y SCALING FACTOR (100 IS NORMAL) : ";MY:MY0503 "BLOAD"A$",A"ST","DT$:BYSB:TLST 216,0_L256,"DT$:C$A$:1009 "NAME : ";A$:A$A$".CLT":690? I 690r "BLOADAPCOLORS.CLT,A"CT","MR$:100 "CHANGE #";I:"TO ";N:N0N255I0I255250 CTI,N:100 ,"PRINTER SLOT #";:A$:A$"1"A$"7"1001 6:"PR#"A$:"COLOR TA LOAD (S) SAVE (C) CHANGE (P) PRINT (N) LOAD NORMAL TABLE (M) MAIN OPTIONS":A$:A$:A$"M"30n nA$"L"150~ sA$"S"175 xA$"N"200 }A$"C"250 A$"P"300 100 190:"BLOAD"A$",A"CT","DT$:C$A$:100 190:"BSAVE"A$",A"CT",A$"D"ĺ"CATALOG,";DT$:A$:30: A$"Q"ĺ"RUNN,"MR$S #A$"S"LSİ1000:30h (A$"L"İ900:30 -A$"V"LSĹ16304,0:A$:16303,0:30 2A$"P"LS700 7A$"W"LS600 <A$"R"500 FA$"E"30^ d216,0::"COLOR TABLE EDITOR (L)16384:ST19456:CT39168:C$"APCOLORS" 216,0::"PICTURE FILE HANDLER (L)OAD PICTURE (S)AVE PICTURE (P)RINT PICTURE COMMANDS (W)RITE TRANSFER FILE (R)EAD AND INTERPRET TRANSFER FILE (E)DIT COLOR TABLE (V)IEW PICTURE (D)ISK CATALOG (Q)UIT":A$:A$!  (C) 1983, MARK PELCZARSKIkAC(7):AC(0)1:AC(1)1:AC(2)2:AC(3)3:AC(4)1:AC(5)3:AC(6)2:AC(7)38192:::L%(15):I015:L%(I):: 1,3,1,2,1,2,2,0,3,0,3,0,3,0,3,0"OPENDISK":"READDISK":MR$,DT$:"CLOSEDISK"& LS0:SP36096:SB     IMAGE Q - QUIT":A$::16304,0:40R - REDRAW D - DELETE E - EDIT S - SAVE" "I - SAVE STANDARD SCREEN IMAGE Q - QUIT":A$::16304,0:404 - SAVE STANDARD SCREEN IMAGE Q - QUIT":A$::16304,0:40256)256:39171,(BE256):39172,CI:39173,0:CEDİ1750:39174IgBYBYCI:BEBECI:1200: :16303,0:"T - TEXT Z - ZERO IN SPACE - SELECTION PAGE ESC - FULL SCREEN R - REDRAW D - DELETE E - EDIT S - SAVE"# "I - SAVE STANDARD SCREEN 󁀀3f"\;w2fL*U*ݻ~\;wn];vn]*U*\;wT*U*U*ժ~T*U~\;wn];*U*\;wԪԪ"D*U*@"~vn]*U*ݻԪT*U\;wn];vn]*U*\;wT*U*U*ժ~T*U*U*\;wn];"D"vn]~n];ժ~*U*~vn]"ժժ~T*U\;w󃀀*U*\;wn];"D"vn]~n];~*U*~T*U:wnܻݻvn]DT*U"DT*Uvn]*U*T*U:wnĈT*U*U*ԪՀ*U*n];T*U"ݻԪT*UT*U"D"DT*Uvn]*U*T*U:wnĈT*U*U*ժ~*U*~vn]"ժժ~T*U\;w@:wnD"D*U*DԪ3f"*U*@"~vn]*U*ݻԪT*U\;wn];@:wnD"D*U*DԪ3f"*U*ԪՀ*U*n];T*U"ݻԪT*UT*U"D̙ĈԪݺ"D:wn"DժԪ՘ժԪԪ:wnn];Ԫ̙ĈԪպĈ"Dvn]:wn*U*ĈݻݢĈĈ\;w:wnժժ̙~T*Uvn]"D*U*ĈݻݢĈĈ\;w:wnԪܻĈĈժժ~\;w~ժpDT*UܻժժĀĈ:wn"ԪՀԪպժvn]*U*"ժ`|@? T*UܻժժĀĈ:wn"ժժ̙~T*Uvn]"D@@ݻԪՐݻݻ~"D"@ԪՀԪՐvn]"D*U*ԪՀԪպժvn]*U*"3f"\;w2fL*U*ݻ~\;wn];~*U*~T*U:wnܻݻvn]DT*U~\;wn];*U*\;wԪԪ"D*U*3f"\;w2fL*U*ݻ~\;wn];vn]*U*\;wT*U*U*ժ~T*U*U*\;wn];"D"vn]~n];ժ~*U*~vn]"ժժ~T*U\;w၀*U*\;wn];"D"vn]~n];~*U*~T*U:wnܻݻvn]DT*U"DT*Uvn]*U*T*U:wnĈT*U*U*ԪՀ*U*n];T*U"ݻԪT*UT*U"D"DT*Uvn]*U*T*U:wnĈT*U*U*ժ~*U*~vn]"ժժ~T*U\;w@ ~~\;wn];*U*\;wԪԪ"D*U*@"~vn]*U*ݻԪT*U\;wn];@:wnD"D*U*DԪ3f"*U*ԪՀ*U*n];T*U"ݻԪT*UT*U"D           ):TL,((TV$,I,1)):TLTL1::TL,155:TLTL1::4TV$""]9(TL)155TLTL1:TV(TV$):>TV$TV$((TL)):TLTL1:2105015:L%(I):: 1,3,1,2,1,2,2,0,3,0,3,0,3,0,3,0"OPENDISK":"READDISK":MR$,DT$:"CLOSEDISK"& LS0:SP36096:SB"REVERSE TEXT ";(X):0"BRUSH = ";X:K""NORMAL TEXT ";(X):d,"FILL COLOR = ";X:@"START LINE AT ";X;", ";Y:T"DRAW LINE TO ";X;", ";Y:h"PLOT BRUSH AT ";X;", ";Y:|"FILL AT ";X;", ";Y:/TV$((TV.5)):I1(TV$M1İ450=x1305:BYBYL%((BY)16):1200:BYBEED0CVPRINT COMMANDCM11520,1530,1540,1550,1560,1570,1580,1510,1600,1510,1620,1510,1640,1510,1660"???":"END":"TEXT CURSOR TO ";X;", ";Y:"LINE COLOR = ";X:~\;wn];*U*\;wԪԪ"D*U*3f"\;w2fL*U*ݻ~\;wn];vn]*U*\;wT*U*U*ժ~T*U~\;wn];*U*\;wԪԪ"D*U*@"~vn]*U*ݻԪT*U\;wn];vn]*U*\;wT*U*U*ժ~T*U*U*\;wn];"D"vn]~n];~*U*~T*U:wnܻݻvn]DT*U񁀀糆㳀3f"\;w2fL*U*ݻ~\;wn];~*U*~T*U:wnܻݻvn]DT*U"DT*Uvn]*U*T*U:wnĈT*U*U*ժ~*U*~vn]"ժժ~T*U\;w"*U*\;wn];"D"vn]~n];ժ~*U*~vn]"ժժ~T*U\;w@:wnD"D*U*DԪ3f"*U*@"~vn]*U*ݻԪT*U\;wn];"D@:wnD"D*U*DԪ3f"*U*ԪՀ*U*n];T*U"ݻԪT*UT*U"DժԪ՘ժԪԪ:wnn];̙ĈԪݺ"D:wn"DԪ̙ĈԪպĈ"Dvn]:wnժԪ՘ժԪԪ:wnn];@ݻԪՐݻݻ~"D"Ԫ̙ĈԪպĈ"Dvn]:wn*U*ĈݻݢĈĈ\;w:wnԪܻĈĈժժ~\;w~Ʊ̙ĈԪݺ"D:wn"DԪܻĈĈժժ~\;w~ժ@x 2T*UܻժժĀĈ:wn"ժ~"ժժ̙~T*Uvn]"D@ԪՀԪՐvn]"D*U*@ݻԪՐݻݻ~"D"ժ@ԪՀԪՐvn]"D*U*ԪՀԪպժvn]*U*"~\;wn];*U*\;wԪԪ|?"D*U*3f"\;w2fL*U*ݻ~\;wn];vn]*U*\;wT*U*U*ժ~T*U~\;wn];*U*\;wԪԪ"D*U*@"~vn]*U*ݻԪT*U\;wn];vn]*U*\;wT*U*U*ժ~T*U*U*\;wn];"D"vn]~n];~*U*~T*U:wnܻݻvn]DT*U泆෶Ʊ3f"\;w2fL*U*ݻ~\;wn];~*U*~T*U:wnܻݻvn]DT*U"DT*Uvn]*U*T*U:wnĈT*U*U*ԪՀ*U*n];T*U"ݻԪT*UT*U"D"DT*Uvn]*U*T*U:wnĈT*U*U*ժ~*U*~vn]"ժժ~T*U\;w@:wnD"D*U*DԪ3f"*U*@"~vn]*U*ݻԪT*U\;wn];@:wnD"D*U*DԪ3f"*U*ԪՀ*U*n];T*U"ݻԪT*UT*U"D̙ĈԪݺ"D:wn"DԪ̙ĈԪպĈ"Dvn]:wnժԪ՘ժԪԪ:wnn];@ݻԪՐݻݻ~"D"Ԫ̙ĈԪպĈ"Dvn]:wn*U*ĈݻݢĈĈ\;w:wnƱԪܻĈĈժժ~\;w~ժ`@DT*UܻժժĀĈ:wn"ԪՀԪպժvn]*U*"ժx UT*UܻժժĀĈ:wn"ժժ̙~T*Uvn]"D@ԪՀԪՐvn]"D*U*@ݻԪՐݻݻ~"D"@ԪՀԪՐvn]"D*U*ԪՀԪպժvn]*U*" 66$6???? ??0? '<:9 *.  88888*>* ??  >>`p833333<630000?38???0>0?8<63?00??0?33??0 ?33??3>0> p88p>>>>8?3@@@``@`pppp``xx||||xx``|~~~???~~~|`???@  ( $@h`+'bH"(@ "   U*U**U*Uժժժ3fL̙L3f̙"DĈD"Ĉ"DĈ"Dɤ$I$wn];ݻ];wnݻn];wݻ;wn]@@@``@                ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? =/I1L"QȥQ L`                         . .8eeNj ӎ L`   i H 8 ih i 8 ` @ ӎe   &LJA ) =/I1ȥ i) 8Ȱ8  i ` 0`  1`E))/%` WȹW`)0  5`)0 J.` @ ӎ  L ӎ  5 Q . h% (0  Q (LȄ (  h (Lޏem m 8 m ɀ  Luɠ  :Lu CLu ~Lu iLr`` JJJJJm  i` <e  JL ` L:L?L)ȱȱLD    Lu))  ` L@  L`ȱ L0L̍Pȱ  L ȱȱ 28  ժԪ՘ժԪԪ:wnn];̙ĈԪݺ"D:wn"DԪ̙ĈԪպĈ"Dvn]:wnժԪ՘ժԪԪ:wnn];@ݻԪՐݻݻ~"D"Ԫ̙ĈԪպĈ"Dvn]:wn*U*ĈݻݢĈĈ\;w:wnԪܻĈĈժժ~\;w~̙ĈԪݺ"D:wn"DԪܻĈĈժժ~\;w~ժ `|@? |T*UܻժժĀĈ:wn"ժժ̙~T*Uvn]"D*U*ĈݻݢĈĈ\;w:wnժժ̙~T*Uvn]"D@ԪՀԪՐvn]"D*U*ժԪՀԪպժvn]*U*" 66$6???? ??0? '<:9 *.  88888*>* ??  >>`p833333<630000?38???0>0?8<63?00??0?33??0 ?33??3>0> p88p>>>>8?3@@@``@`pppp``xx||||xx``|~~~???~~~|`???@  ( $@h`+'bH"(@ "   U*U**U*Uժժժ3fL̙L3f̙"DĈD"Ĉ"DĈ"Dɤ$I$wn];ݻ];wnݻn];wݻ;wn]@@@``@                ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? =/I1L" QȥQ L `                         . .8eeNj  L `   i H 8 ih i 8 ` @ e   &L JA ) =/I1ȥ i) 8Ȱ8  i ` 0`  1 `E))/%`  WȹW`)0  5 `)0 J. ` @  L  5 Q  .  h % ( 0  Q ( L Ȅ (  h ( L em m 8 m  ɀ  Lu ɠ  :Lu  C Lu  ~ Lu  iLr`` JJJJJm  i` < e  JL  ` L:L?L)ȱȱLD    Lu ))  `  L @  L `ȱ  L 0LPȱ  L ȱȱ 28  J JJJJJe ) e<)`  00>3>3333300>333>3633>03333 00003333 ?[[[[333333333>33>003063333>333 mmmm~3 3333>0? ? 8( ?3??33?33??33??333????????;3?333??33?? ??3;;3??cwkcccc337?;33?333??3??##+.?3?;3?0??? 33333?33333 ccckkwc33 33333 ?? ??8p` ?TER (L)OAD PICTURE (P)RINT PICTURE TO PLOTTER (V)IEW PICTURE (D)ISK CATALOG (Q)UIT":A$:A$ A$"D"ĺ"CATALOG,";DT$:A$:30 A$"Q"ĺ"RUNN,"MR$ (A$"L"İ900:30 -A$"V"LSĹ16304,0:A$:16303,0:30 2A$"P"LS700 F30 1630$:"CLOSEDISK"3 LS0:SP36096:SB16384:ST19456 :21:"PLOTTER TYPE: (1) APPLE (2) AMDEK (3) HOUSTON INSTRUMENTS ";:A$:A$"1"A$"3"25 P(A$) :"PLOTTER SLOT #";:A$:A$"1"A$"7"27 S(A$)\ 216,0::"PICTURE PLOT (C) 1983, MARK PELCZARSKID "MAXFILES1":"BLOADPICDRAWH"AC(7):AC(0)4:AC(1)1:AC(2)2:AC(3)3:AC(4)4:AC(5)5:AC(6)6:AC(7)38192:::L%(15):I015:L%(I):: 1,3,1,2,1,2,2,0,3,0,3,0,3,0,3,0 "OPENDISK":"READDISK":MR$,DT     `l` ,4`0ߍ``````L5`X279X279& YY(Y0):Y191Y191M B30:(16384)160Ĺ16368,0:B31S o "CLOSEJOYSTICK":8192C22:L%(15):I015:L%(I):: 1,3,1,2,1,2,2,0,3,0,3,0,3,0,3,0q+19: COPYRIGHT 1983, MARK PELCZARSKIJB00:(16287)127B01:iB10:(16286)127B11:X(J):Y(1J):ZC6XZX(X128ZR)ZR:YZY(Y128ZR)ZR:9X245XS30X10XS5XXXS:Y(Y256202)5 XX(X0):mm 8 ``88 L8 8 ``iii i Lh J JJJJJe ) e < )`  00>3>3333300>333>3633>03333 00003333 ?[[[[333333333>33>003063333>333 mmmm~3 3333>0? ? 8( ?3??33?33??33??333????????;3?333??33?? ??3;;3??cwkcccc337?;33?333??3??##+.?3?;3?0??? 33333?33333 ccckkwc33 33333 ?? ??8p` ?ΠŠ³ΠԠˢͺ΍٠Ԡ٠ҩҺϠƠؠΠӠƠؠΠӠؠؠӺ٠Ԡ٠ؠؠؠƠؠΠؠ٠٠٠Ơ٠Π٠³ƠˠϠ͠Ԡˠɍ°ƠˠΠ°Π±ƠˠΠ±Πؠ̠ʩ٠̠ʩƠԠàΠؠؠԠؠҩҺ٠ԢͺԠԠԢԠԢԠӺԠŢԠңӺԠͱҬӱرٱ¬ЬâԠң΍ƠؠΠؠ٠٠٠Ơ٠Π٠°Ơ Π°±ƠˠΠŠ±³ƠˠΠŠ³ΠԠ̍Ϡ͠Ԡˠɍ ԠԠңӺԠЬάâԠΣӺԠج٬ºԠΣԠңƠàΠؠؠԠؠҩҺ٠٠Ԡ٠ҩҍؠؠؠU "X","Y" ":7TP1624,1626,1628: DRAW LINE TO X,YHZ"D "X","Y:\\"D "X","Y" ":vh: PLOT BRUSH AT X,Y|: FILL AT X,YI COLOR X "P1 ":AP1554,1556,1558: REVERSE TEXT CHR$XQ"P "(X):m"S12 "(X);(95);" ":}: BRUSH X"P1554,1556,1558: NORMAL TEXT CHR$X,: FILL COLOR X@P1604,1606,1608: START LINE AT X,YF"M "X","Y: H"1530,1540,1550,1560,1570,1580,1510,1600,1510,1620,1510,1640,1510,1660Q: ???nP1524,1526,1528: END"J 0":"Z":"U H Z ":P1534,1536,1538: TEXT CURSOR TO X,Y"M "X","Y:"U "X","Y" ":P1544,1546,1548: LINE,";DT$:P$A$:1100:216,0:LS1:;:"NAME : ";A$:1030Aj"DISK ERROR ";(222):A$:216,0:30K REDRAW PICTUREL::0,0:1,64:SP:LN(0)(1)256SB:22:"PRESS ANY KEY":A$::PRINT COMMAND FIX COORDINATESECM11520,SMY(Y7.8125200):X(X7.8125150):HY:YX:XH:p 'Y191Y:Y((Y7.8125200)2):X((X7.8125150)2): (Y191Y:X((X7.8125150)(2SM)):Y((Y7.8125200)(2SM)): *X(BY)CM16: /X(BY1) 4 990:"BLOAD";A$;".SPC,A";SB;"1:800:1500:BYBYL%(CM):CM0720? 16303,0:"PR#0":30V  GET NEXT COMMAND CM((BY)16):CM1820,802,810,815,810,815,815,820,802,820,802,820,802,820,802 "X(BY1)256((BY)CM16):Y(BY2):P804,806,808 $ APPLE COORDINATES6 &4,0: GET SIZE AND ORIENTATION( SM1A :"PR#"S:BYSB:I0T P714,716,718k  APPLE INITIALIZE SMĺ"F 0":"J 4":"Q 1":"S 63,55":720 "F 1":"J 4":"Q 0":"S 126,110":720 SMĺ";:EH ECM H A ";:720 ";:EF ECM H A ";$ II!"-!@E % !*+6< %!: ! K" I0107:I,:X:39168I,X:I"BSAVE ATCOLORS.CLT,A39168,L256"C  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkx "MAXFILES1" CT391687I0107:CTI,I:PI108255:CTI,0:v("BSAVE APCOLORS.CLT,A"CT",L256"C @u *** """ **   ,0:B11. B30:(16384)160Ĺ16368,0:B314 "CLOSETABLET":8192::"OPENSLOT":"READSLOT":S:"CLOSE":"PR#"S:"M1,R,S16,X1536,Y1536,B,P,C":"PR#0":"):I015:L%(I):: 1,3,1,2,1,2,2,0,3,0,3,0,3,0,3,0C*19:COPYRIGHT 1983, MARK PELCZARSKI:::::1::"PR#"S:"P,N,C":"IN#"S:X,Y,B:"IN#0":"PR#0":ZCXZX(X140ZR)ZR:YZY(Y96ZR)ZRXX(X0):X279X279YY(Y0):Y191Y191B00:B2B01 B10:(16384)141Ĺ16368# BINARY FILE TRANSFER UTILITY=1982 MARK PELCZARSKIaLS0:HM(115)(116)256:7679H$(15):S015:H$(S)::0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,FT ::"PENGUIN SOFTWARE":"BINARY FILE TRANSFER UTILITY":"(L)OAD (S)AVE (D)ISK CATALOG (Q)UI ;",";Y:F"M "X","Y:-H"U "X","Y" ":WTP1624,1626,1628: DRAW LINE TO X,YlX"DA ";X;",";Y:}Z"D "X","Y:\"D "X","Y" ":h: PLOT BRUSH AT X,Y|: FILL AT X,YAT X,YII8: REVERSE TEXT CHR$X-"PL";(X);(3):<"P"(X):\SMĺ"S13 "(X);(95);" ":x"S13+"(X);(95);" ":: BRUSH X"P1554,1556,1558: NORMAL TEXT CHR$X,: FILL COLOR X@P1604,1606,1608: START LINE AT X,YD"MA ";X"U H Z ":>P1534,1536,1538: TEXT CURSOR TO X,YS"MA ";X;",";Y:d"M "X","Y:x"U "X","Y" ":P1544,1546,1548: LINE COLOR X"PS";(X2)1: X(X0)4(X7)3(X0X7)X:"J "X: "P1 ":P1554,1556,1550:1,64:SP:LN(0)(1)256SB:22:"PRESS ANY KEY":A$::OPRINT COMMANDe FIX COORDINATESCM11520,1530,1540,1550,1560,1570,1580,1510,1600,1510,1620,1510,1640,1510,1660: ???P1524,1526,1528: END"CH":"J 0":"Z":))150):Y(Y7.8125(1.4(SM0))200):=*X(BY)CM16:K/X(BY1)Q4990:"BLOAD";A$;".SPC,A";SB;",";DT$:P$A$:1100:216,0:LS1::"NAME : ";A$:1030"DISK ERROR ";(222):A$:216,0:30K REDRAW PICTURE<L::0,1)256((BY)CM16):Y(BY2):CM1YY6= #P808,806,808c $APPLE COORDINATES SAME AS HIPLOT &SMY(Y7.8125200):X(X7.8125150):HY:YX:XH: 'Y191Y:Y((Y7.8125200)1.4):X((X7.8125150)1.4):)(Y191Y:X(X7.8125(1.4(SM0 88,56":720+ SMĺ";:EH ECM H A ";:720A ";:EF ECM H A ";m II1:800:1500:BYBYL%(CM):CM0720 16303,0:"PR#0":30  GET NEXT COMMAND CM((BY)16):CM1820,802,810,815,810,815,815,820,802,820,802,820,802,820,802* "X(BY (2) SMALL";:A$:A$"1"A$"2"700< 16304,0:SM(A$)1U :"PR#"S:BYSB:I0h P714,716,718 SMĺ"SP0":"LS61":"PS1":"CH":720 "SP2":"LS85":"PS1":"CH":720 SMĺ"F 0":"J 4":"Q 1":"S 63,40":720 "F 2":"J 4":"Q 0":"SPICTURE (P)RINT \G(XDG\\MZ ^!AȸȫPE̵ͱZ^I,*L*̲* KIHKC(ߠT$:A$:30 A$"Q"ܢ:JMVG86ư19հD6Ф-$$.'$vQ|=X^*^0/ŵMJOLHPLF=XFŵMJOLOPLFOL|vN|q`|c0:v00;2 |qbwubOGRAM TYPE: (1) APPLE (2) AMDEK (3) HOUSTON INSTRUMENTS OR PRESS FOR MENU";:A$:A$(13)ĺ:"RUNCGS" A$"1"A$"3"25 P(A$) :"PLOTTER SLOT #";:A$:A$"1"A$"7"28 S(A$)P 216,0::"PICTURE PLOTTER (L)OAD !COPR.1983, MARK PELCZARSKIE "MAXFILES1":"BLOADPICDRAWH"8192:::L%(15):I015:L%(I):: 1,3,1,2,1,2,2,0,3,0,3,0,3,0,3,0"OPENDISK":"READDISK":MR$,DT$:"CLOSEDISK"LS0:SP36096:SB16384:ST19456{ :21:"PLOTTER PR     ";A$ 1402 :"BLOAD "A$".PIC,A$4000,"DT$C NX140:NY96f 1NX,NY:XSĕ1NX,Y1:1X1,NYv OXNX:OYNY~ A$ A$"I"NYNY1:280 A$"J"NXNX1:280 A$"K"NXNX1:280 A$"M"NYNY1:280 A$"1"XSĕ1X1,Y1:1X1p3 PROGRAM TO CAPTURE SHAPE FROM HI-RES SCREENG:"MAXFILES1"sAD40964101:I:AD,I:: 1,0,4,0,47,0232,0:233,16:1:0 "OPENDISK":"READDISK":MR$,DT$:"CLOSE"2"BLOADSCM":"BLOADP1L,A$9200" ::21:"PICTURE NAME :  [- :"MOUSE/TABLET SLOT : ";S:S1S710Y"OPENSLOT":"WRITESLOT":S:"CLOSE" 6`3333>33>003063333>333 mmmm~3 3333>0? ? 8( JJJJJe ) e@)`L3??3??##+.?3?;3?0??? 33333?33333 ccckkwc33 33333 ?? ??8p` ? 00>3>3333300>333>3633>03333 00003333 ?[[[[3333333333<630000?38???0>0?8<63?00??0?33??0 ?33??3>0> p88p>>>>8?3 ?3??33?33??33??333????????;3?333??33?? ??3;;3??cwkcccc337?;33?33((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP66$6???? ??0? '<:9 *.  88888*>* ??  >>`p8 $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?   VE";A$;",A";S;",L";L:216,0:20@ ,"DISK ERROR "(222):A$:20} A$"":I301:J(X(16I)):A$A$H$(J):XXJ16I:: UPEARSIN THE DISK CATALOG."::"FILE NAME : ";A$:300S n"BLOAD";A$:N$A$:216,0 xS(21902)(21901)256:L(21920)(21919)256 }XS:400:S$A$:XL:400:L$A$ LS1:20 LSĺ"NO FILE":A$:20 :"FILE NAME : ";A$:300 "BSAT"::LSĺ"CURRENT FILE : ";N$:"STARTS AT ";S" ($";S$;")":"LENGTH ";L;" ($";L$;")"s A$::A$"Q"ģHM:"RUNN" A$"L"100 #A$"S"200 (A$"C"A$"D"20 -300 2"CATALOG":A$:216,0:205 d:"YOU MUST USE THE FULL NAME AS IT AP   Y0)(DY) F8 x"DONE. PRESS A KEY TO SAVE.":B$:[ "BSAVE";A$;".PTH,A$8500,L";L{ "ANOTHER?";:B$:B$"Y"10 $} PATH CONVERTER/:"PATH NAME : ";A$O"BLOAD ";A$;".PTH,A$8500"m(L(21920)(21919)2562I3404834048L2 <J(I):V1(J64):V2((JV164)16):V3((J(J16)16)4):V4J(J4)4:DYV2V1:DXV4V3:I,128(DX0)16(DX)8(D6- ZJ134064I(SL2):J234063I(SL2)SLH dJJ1J2:JI2,(J):N nv x"DONE. PRESS A KEY TO SAVE.":B$: "BSAVE";A$;".SSH,A$8500,L";L "ANOTHER?";:B$:B$"Y"10  SHAPE CONVERTER1:"SHAPE NAME : ";A$Q"BLOAD ";A$;".SSH,A$8500"r(L(21920)(21919)25612234049,16<I4122:OF(34048I)256(34049I)I2:34048I,(OF256):34049I,OF(OF256)256:FSL(34062)(34063) PI1:"MAXFILES1"J"OPENDISK":"READDISK":MR$,DT$:"CLOSEDISK"V ::21n"SCREEN NAME: ";A$"BLOAD";A$;".PIC,A$2000,";DT$#"INSERT MASTER DISK AND PRESS ";A$"EXEC SHAPEDIT RUN,";MR$ 90 A$"M"İ500:YCYC1:900 A$"S"100< 0:450[ "EXEC SHAPEDIT RUN,";MR$a I0B:7I,8I250,8I:7I,8I7I,150:: I06:NXS%(I)XC,(I3)648YC:: 9 NUMBER : ";N:N1NNS60C F"BORDER SIZE (0-7): ";B:B0B770T KXCB1:YCXC` P3:450i Z500 d:21:"I J K M (S)HAPE EDITOR (N)EW":A$: nA$"N"đ:60 xA$"I"İ500:YCYC1:90 A$"J"İ500:XCXC1:90 A$"K"İ500:XCXC1::"MAXFILES1"J"OPENDISK":"READDISK":MR$,DT$:"CLOSEDISK"V ::21I06:XS%(I):: 7,79,151,223,43,115,187"YOUR SHAPE TABLE NAME: ";A$"BLOAD";A$;",A$4000,";DT$(232,0:233,64-1:02NS(16384) <"SHAPE   EIGHT:"Y2Y11" BORDER:0"::"INSERT YOUR GRAPHICS MAGICIAN DISK":A$:320Q o "EXEC SHAPEDIT RUN,"MR$1& XS(NYY11NYY155)NYOY:(7)^ ((NXX113)7)(NYY11)256XSĺ(7):NXOX:NYOYg !190 "1X1,Y1:1X1,Y2:1X2,Y1:1X2,Y2 ,XY(X17):XIX1XY7:0,XY:1,XI:2,Y1:8,Y2Y11:9,X2X11 1 624576K @:21:"WIDTH:"X2X11" H,NY:1NX,Y1:XS0:280H A$"1"XS1:X1NX:Y1NY:NXNX1:NYNY1:190h XSA$"2"X2NX:Y2NY:290q 200 1OX,OY:XSĕ1OX,Y1:1X1,OY NX279NX279 NY0NY0 NY191NY191 NX0NX0 XS(NXX11NXX149)NXOX:(7)11* B30:(16384)160Ĺ16368,0:B310 "CLOSEMOUSE":8192::"OPENSLOT":"READSLOT":S:"CLOSE":"PR#"S:(1):"PR#0""+19: COPYRIGHT1983, MARK PELCZARSKI1::"IN#"S:"";X,Y,B:"IN#0":X(X3.66):Y(Y5.33):ZCXZX(X140ZR)ZR:YZY(Y96ZR)ZRXX(X0):X279X279YY(Y0):Y191Y191B00:B2B01 B10:(16384)141Ĺ16368,0:B  c  ! $"/0;:%KK&WW'"#20a0b0c0d0e0f0g0h0i0j0k0l0m0n0o0p0q0r0s0t0u0v0w0x0y0z0A0B0C0D0E0F0G0H0I`  ıı ōˍ :"OPENHSLOT":"WRITEHSLOT":S:X8:X9:Y8:Y9:"CLOSE"424578):X8X8(X816383)32638:Y9(24579)256(24580):Y9Y9(Y916383)32638:24582:(24581)17z 24582:(24581)18 X9(24577)256(24578):X9X9(X916383)32638:Y8(24579)256(24580):Y8Y8(Y816383)32638:X9X9X8:Y9Y9Y8:Y8Y8:X8X8>@"BLOAD HIPAD READ"e::"HIPAD CALIBRATION PROGRAM"::"HIPAD SLOT NUMBER :";S:S1S75r 24576,S"CALIBRATE:UPPER LEFT, THEN PRESS BUTTON"24582:(24581)15"CALIBRATE:LOWER RIGHT, THEN PRESS BUTTON"b X8(24577)256(A =968<75334662-1/+.0843 =?=?93>9737 5 3F`WC`\GBQTZXV]OcT[NXRgZ`MI]bciilpNP[Vp`lhvf~ll{krzeHQJP@QLWTZ`\TZ@Q ] ccjEz~G8D@IGIHJNNSUW\XUQSOMIJNOQLKOQTQLK`WFB60586fOhrW[_fiqprrtuIEHHEHFJMTRTKHCDHFEEBDCDJK&ZPLE @==O P OTSEC8Axppp6:d ``   `@@@@@@?!?!!?~JJJJ~|||x!!!!!!""xppp6:d ``   `@@@@@@?!?!!?~JJJJ~|||x!!cD`^^FM0T0O0M0 0L0O0V0E0S0 0A0N0N0 0 0 0 0 0 0 0 0 0 0 0 0 N! ŢͺԠԠԢԠԢԠӺԠŢԠңӺԠҤԠң΍Πؠ٠٠٠Ơ٠Π٠°Ơ Π°±ƠˠΠŠ±³ƠˠΠŠ³ΠԠՍϠ͠Աˠɍ ԠԠΣӺԠج٬ºԠΣؠԠؠ٠Ԡ٠ƠàΠؠؠԠؠҩҺ٠٠Ԡ٠ҩҍؠؠؠƠ!! ! ԠؠҩҺ٠٠Ԡ٠ҩҍؠؠؠƠؠΠؠ٠٠٠Ơ٠Π٠°Ԡˠ±ƠˠΠŠ±³ƠˠϠ̠ؠˠˠ٠ˠˠؠؠؠ٠٠٠ؠԠؠظع٠Ԡ٠ٸٹƠàΠؠؠ"" START LINE AT X,Y%F"M "X","Y:9H"U "X","Y" ":cTP1624,1626,1628: DRAW LINE TO X,YtZ"D "X","Y:\"D "X","Y" ":h: PLOT BRUSH AT X,Y|: FILL AT X,YL AT X,Y"U "X","Y" ":4P1544,1546,1548: LINE COLOR XA "P1 ":mP1554,1556,1558: REVERSE TEXT CHR$X}"P "(X):"S12 "(X);(95);" ":: BRUSH X"P1554,1556,1558: NORMAL TEXT CHR$X,: FILL COLOR X@P1604,1606,1608:OMMAND FIX COORDINATESqCM11520,1530,1540,1550,1560,1570,1580,1510,1600,1510,1620,1510,1640,1510,1660}: ???P1524,1526,1528: END"J 0":"Z":"U H Z ":P1534,1536,1538: TEXT CURSOR TO X,Y"M "X","Y:1)4L990:"BLOAD";A$;".SPC,A";SB;",";DT$:P$A$:1100:216,0:LS1:g:"NAME : ";A$:1030m"DISK ERROR ";(222):A$:216,0:30K REDRAW PICTUREL::0,0:1,64:SP:LN(0)(1)256SB:22:"PRESS ANY KEY":A$::PRINT C08 $ APPLE COORDINATEST &SMY(Y7.8125200):X(X7.8125150):HY:YX:XH: 'Y191Y:Y((Y7.8125200)1.4):X((X7.8125150)1.4): (Y191Y:X(X7.8125(1.4(SM0))150):Y(Y7.8125(1.4(SM0))200): *X(BY)CM16:/X(BY ";:EF ECM H A ";B II1:800:1500:BYBYL%(CM):CM0720] 16303,0:"PR#0":30t  GET NEXT COMMAND CM((BY)16):CM1820,802,810,815,810,815,815,820,802,820,802,820,802,820,802 "X(BY1)256((BY)CM16):Y(BY2):P804,806,8) LARGE OR (2) SMALL";:A$:A$"1"A$"2"700F 16304,0:SM(A$)1_ :"PR#"S:BYSB:I0r P714,716,718  APPLE INITIALIZE SMĺ"F 0":"J 4":"Q 1":"S 63,55":720 "F 1":"J 4":"Q 0":"S 126,110":720 SMĺ";:EH ECM H A ";:720TER (L)OAD PICTURE (P)RINT PICTURE TO PLOTTER (V)IEW PICTURE (D)ISK CATALOG (Q)UIT":A$:A$ A$"D"ĺ"CATALOG,";DT$:A$:30 A$"Q"ĺ"RUNN,"MR$ (A$"L"İ900:30 -A$"V"LSĹ16304,0:A$:16303,0:30 2A$"P"LS700 F30- :"(1$:"CLOSEDISK"3 LS0:SP36096:SB16384:ST19456 :21:"PLOTTER TYPE: (1) APPLE (2) AMDEK (3) HOUSTON INSTRUMENTS ";:A$:A$"1"A$"3"25 P(A$) :"PLOTTER SLOT #";:A$:A$"1"A$"7"27 S(A$)\ 216,0::"PICTURE PLOT (C) 1983, MARK PELCZARSKID "MAXFILES1":"BLOADPICDRAWH"AC(7):AC(0)4:AC(1)1:AC(2)2:AC(3)3:AC(4)4:AC(5)5:AC(6)6:AC(7)38192:::L%(15):I015:L%(I):: 1,3,1,2,1,2,2,0,3,0,3,0,3,0,3,0 "OPENDISK":"READDISK":MR$,DT" " " " """""" QUOrkh[ibuonmuof_cU_H\@Xv{wzT Y{ c iC9<84>4A B,TQWejsuvtppprsE oC)U$WX['X*ZDENE (.)4<65 $+ `Y J"