' +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` `kk`>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 pk Ԡ@跻~!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£֠Ԡkˣ٠Ơ͠z# ku`":40000 :A$"=======================":40000 :A$"Prefix: "PR$:40000 10:A$"(1) Set Prefix ":40000 :A$"(2) Catalog Prefix":40000? :A$"(3) Load In File ":40000d :A$"(4) Send File ":40000 :A$"(5) Main Menu I(16384):I1272120B16368,0:II128:I272200HSR\Yf200022:A$"Press for Main Menu, or any key to return":400004I(16384):I1272210R16368,0:II128:I27ı\2000 :A$"Read and Send Text File End":400006Y1144);S112R15:RN(3):RN.652060C(3)26:C(C)652075 C(3)50:C(C)40!C41C40NC42C43C45C64C60C61C622060Y(C);h E$"":500o4Ry>" ";@ ";I$I(I$):I5I351000A1143.228057:B1.111686508:E12.71828183$D(A1(E1(B1I))))D13D.D2D1:D3D83:A$"Send Random 5 letter groups":40000`:A$"===========================":40000g4A$"Press to4":E$"34":E$"1134":E$"11134":E$"1334":E$"31134":E$"31334":E$"33114": :8A$"Set Code Speed":40000WA$"==============":4000010:"Enter Code Speed (5-35) WPM:":E$"3114":E$"14":E$"11314":E$"3314":E$"11114":E$"114":E$"13334":E$"3134":E$"13114":!E$"334":0E$"314":@E$"3334":QE$"13314":bE$"33134":rE$"1314":E$"11111114":E$"311114":E$"331114":E$"333114":E$"333314":E$"3331114":E$"3131314":E$"3311334":E$"311134":+E$"311414":>E$"1133114":PE$"131114":_E$"134":pE$"31114":E$"31314E$"3133134":E$"313144433134":E$"1113134":E$"131314":E$"3311334":E$"3111134":E$"1313134":E$"311314":,E$"333334":>E$"133334":PE$"113334":bE$"111334":tE$"111134":E$"1 n o p q r sE$"313144433134": t u v w xE$"5": yE$"111111114": zE$"1311314":{E$"3311144111334":,|E$"11131134":X}E$"13141114344411111443333144333314":l~E$"14411144":E$"1333314":88,689,690,691,692,693,694,695 (E$)0527 10000 XX(0)  ::62 YE$"1334431114413333441131443334431344": Z [ \ ]" ^( _. `4 a: b@ cF dL eR fX g^ hd ij jp kv l| m28,629,630,631,632,633,634,635,636,637,638,639,640,641,642,643,644,645,646,647,648,649,650,651,652,653,654,655,656 525 C657,658,659,660,661,662,663,664,665,666,667,668,669,670,671,672,673,674,675,676,677,678,679,680,681,682,683,684,685,686,687,6127130 16368,0 II128 I48I53200 130 I((I)) I1000,2000,3000,4000 35  C56CC56:520 C601,602,603,604,605,606,607,608,609,610,611,612,613,614,615,616,617,618,619,620,621,622,623,624,625,626,627,600 -A$"==================":40000 P10 Z:A$"(1) Set Sending Speed ":40000 d:A$"(2) Send Random Letter Groups":40000; n:A$"(3) Send Text File ":40000k x:A$"(4) Quit ":40000 I(16384):I50000(4);"PR#3" D$(4)PR$"None"63000:144:63100:144:1013,76:1014,64:1015,3# A1143.228057:B1.111686508:E12.71828183; D(A1(E1(B15)))F !D13DU "D2D1:D3D[ # (:A$"Morse Code Program":400 GL~%'% MORSE.CODEZ!BY GARY KELTZ,WB1FOK, 1979'K Major Rewrite by Kirk Kambergm KA0ATH on November 11, 1988s~37376           ҥ    )R @ȱ A@A<=?> >8>悠  ) hD i' L0i怦@A=< for Main Menuend Text File":40000 :A$"==============":40000 FL$""Ģ10:"No File Loaded.":3390 4 CO0:RW0 A$"Press to End":40000 6" 58 R2000020000LED C(R):S C41C40g C97C903700 C42C43C45C In File":40000R :A$"============":40000W PR$"None"Ģ10:"No Prefix Specified.":3390\ 10:"Enter File to Load to Return: ";FL$!a (FL$)0ı-b D$(4)Of D$;"BLOAD "FL$",ttxt,a20000"lk LE(48859)(48860)256rp  :A$"S PR$  :A$"Catalog Prefix":40000 :A$"==============":40000 PR$"None"Ģ10:"No Prefix Specified.":3390 4:D$;"Catalog"C> 21:::A$"Press any key to return":40000_? I(16384):I1273391o@ 16368,0:H :A$"Load) I3245,3247,3249,3251,3270 SL5:DR1:3255 SL5:DR2:3255 SL6:DR1:3255 SL6:DR2: D$;"prefix,S";SL",D";DR D$;"Prefix"! PR$' U :10:"Enter Prefix: ex. /EXAMPLE/ ";PR$k D$;"prefix ";PR$| D$;"prefix"e 1":40000 :A$"(2) Slot 5 Drive 2":40000 :A$"(3) Slot 6 Drive 1":40000 :A$"(4) Slot 6 Drive 2":40000 :A$"(5) Type in Prefix":400009 I(16384):I1273230G 16368,0S II128g I48I543240q 3230 I((I) ":40000 D$(4) I(16384):I1273100& 16368,00 II128: I48I543150D 3100N I((I))X I3200,3300,3400,3500,3180!b 3000)l :F :A$"Set Prefix":40000b :A$"==========":40000 10:A$"(1) Slot 5 Driv" AND THEN TYPE 'FP'"1#  :.:"1. TO RUN APPLE CHECKER 3.0"R(:"2. BLOAD APPLE CHECKER 3.0"}2:"3. LOAD THE PROGRAM TO BE CHECKED"<:"5. TO RESET BASIC TO NORMAL:"F:"6. SWITCH TO INTEGER AND BACK TO BASIC."P" THAT MEANS TYPE 'INT'"! ZB$"R"190B$"E"240,B$""1000 BOPTIONS --- ONE LONG"[v"VERSION FOR DEVELOPMENT AND ONE SHORT VERSION FOR EXECUTION."::::" WHAT YOU THINK ?? ":::"THATS IT ON INFORMATION. HAVE FUN ..."::"SELECT: R - HOW TO RUN E - EXIT PROGRAM":B$ HEN TYPING IN A PROGRAM OR MODIFYING IT."MX::" HIT RETURN KEY "::B$mb:"THE LONG AND SHORT ..."l:" LONG VARIABLE NAMES ARE LOVELY TO LOOKAT, BUT NOT SO BEAUTIFUL TO HOLD IN MEMORY. AT LEAST WITH VARIABLE CRUNCH YOU CAN HAVE BOTH BE ABLE TO GET"D"HIS PROGRAM RUNNING. THERE IS NO EASY WAY TO ENTER THE STATEMENT, EXCEPT BY PUTTING IT IN THE ORIGINAL FORM AND THENRUNNING THE CRUNCHER. FORTUNATELY, THE"+N"CHANCES OF THIS HAPPENING ARE REMOTE, AND ONLY BECOME A PROBLEM WABLES"p&"OF A PROGRAM, AND THEN MAKE A LISTING WHICH YOU GIVE TO SOMEONE ELSE TO TYPE INTO THEIR SYSTEM."0::" HIT RETURN KEY "::B$::"IF ANY VARIABLES ARE SHORTENED TO NAMES THAT MAY BE INTERPERTED AS TOKENS, THE OTHER PERSON WILL NOTRUNCHER WILL NOT CHANGE THE WAY IN WHICH IT WORKS. IF THE PROGRAM WORKED BEFORE IT WAS ""CRUNCHED, IT WILL STILL WORK. HOWEVER, IT MAY CREATE SOME STATEMENTS THAT CANNOT BE RECOPIED. THIS IS PARTICULARLYIMPORTANT IF YOU COMPRESS THE VARISE AN ERROR WHEN THE PROGRAM IS RUN. HOWEVER, IF YOU COPY OVER THE LINE WITH THE CURSOR, IT WILL BE RETOKENIZED AS":"100 IF X=NOT HEN 150"::" HIT RETURN KEY "::B$_:" SO RUNNING YOUR APPLESOFT PROGRAM THROUGH THE VARIABLE CHEN 150"*::" HIT RETURN KEY "::B$:"AND THIS CAUSES A SYNTAX ERROR. NOW ASSUME YOU HAVE A VARIABLE -NOW- THAT IS COMPRESSED TO -NO-. IT IS POSSIBLE TO HAVE A STATEMENT":"100 IF X=NO THEN 150"y:"THAT DOES NOT CAUUSED THE VARIABLE NAME --NO--, YOU HAVE PROBABLY FOUND THAT APPLESOFT MAY""INTERPRET SOME CHARACTER SEQUENCES AS PART OF A TOKEN. FOR EXAMPLE, IF YOU ENTER:":"100 IF X=NO THEN 150":"APPLESOFT INTERPRETS IS AS":"100 IF X=NOT "AND THEN JUST RUN THE VARIABLE COMPRES. WHEN YOU WANT TO PRODUCE THE MORE EFFICIENT VERSION."::" HIT RETURN KEY "::B$:::" CAUTIONS "::J" THERE IS AN INTERESTING SIDE-EFFECT CREATED BY THIS PROGRAM. IF YOU'VE EVER R APPLESOFT PROGRAM AS USUAL. YOU MIGHT WANT TO SAVE BOTH THE ORIGINAL AND THE"|"COMPRESSED VERSIONS. THE ORIGINAL WILL PROBABLY BE EASIER TO READ WITH ITS LONGER VARIABLE NAMES. YOU CAN ALWAYS USE THIS VERSION WHEN MAKING CHANGES,"dRD COPY LISTING OF THESE CHANGES, JUST ACTIVATE THE PRINTER BEFORE EXECUTING THE VARIABLE COMPRESSER."^::" HIT RETURN KEY "::B$h:"SAVING PROGRAMS":Ur" ONCE YOU HAVE COMPRESSED THE VARIABLES, YOU CAN SAVE OR RUN YOU2K CASSETTE SYSTEM. TO RUN ON ANY 16K SYSTEM OR 32K DISK SYSTEM, THE PROGRAM SHOULE BE RE-ORG'D AT $3800." 6:"TO SAVE THE PROGRAM:" @:" BSAVE VARCOMP,A$6000,L$370 (FOR DISK) 600.637FW (FOR CASSETTE)" JrT:"IN ORDER TO GET HA OLD NAME OR ANOTHER NEW NAME SO YOU CAN COMPARE BOTH."J :o ::" SYSTEM REQUIREMENTS ":: ":" THE VARIABLE COMPRESSOR IS WRITTEN IN ASSEMPLY LANGUAGE AND CAN BE RUN AS IS ON 48K SYSTEM, EITHER WITH DISK OR"u ,"CASSETTE, OR 3RAM ":B$ B$"I"280) B$"E"ĺ:8 B$""180S ::"TO RUN PROGRAM:" :" 1. LOAD IN APPLESOFT PROGRAM TO BE COMPRESSED." :" 2. BLOAD VARCOMP" :" 3. CALL 24576"B :" 4. SAVE NEW COMPRESSED PROGRAM UNDER REDUCE TO FIRST LETTER" "PHASE 4: ASSIGNS SINGLE LETTER VARIABLE NAMES TO REMAINING VARIABLES, WHEN POSSIBLE" :"SELECT: I - MORE INSTRUCTIONS R - FINAL INSTRUCTIONS E - EXIT PROGATTEMPTS TO RENAME TO ONLY ONE CHARACTER."Y :"THIS IS DONE IN FOUR PHASES:" "PHASE I: MARKS ALL SINGLE CHARACTERS VARIABLES." "PHASE 2: SHORTENS LONG VARIABLE NAMES TO 2 CHARACTERS"# "PHASE 3: ATTEMPTS TO . *** VARIABLE CRUNCHER) ***F *** NIBBLE VOL 3/NO 4Q( ***\2 ***o< *** PAGE:31zF ***d:n:"APPLESOFT VARIABLE CRUNCHER"3 x:"THIS ROUTINE REDUCES APPLESOFT VARIABLESTO AT LEAST TWO CHARACTERS, PLUS      Ƞ𲠠Ҫ `,+  ɍ `&0 Ԡ d'FLMWSKP"H̠ʠӠ𠱠ȠՆŠҠϕϢ砠蠸ʠ۠ɠ𠠠ѠՅƠتҠϠ̵۠хՐؠ֠ϲ𠁠хՐȠȠӠΠǍŠԠǮ۠ĠŭźĭƭҠԯ̠ΩҠԭРǺӠŠҠϠĠǍӠ̭àϠԠÏѠ﷍ӠŠ̠٠ŠΠ٠ŠҍӠ٠̠ԠΠԍ͠Π̠Ġ٭ϭ׍ԮϠŬĠ͠ύٮΠҺԠǵ͠Ԡ ΠנŠȠӠӠөˠ ӠԧөРӯŠčҠǍР٠Ӫƣ̣ͣףӣˣУȾ۠ĠǍЧͧӺԍƠԠŠ̠ ԠŠ` g  * s` g g g p Ɗ p Ɗ Ɗ p Ɗ $ g p ` ` g J` ȹ -  ۰ ` ȹ ` ;PV]m'Lɠ,Ƀɠ,`H 5h `HHH  Jhhh`)Ѕυ0 0ȱm 5  % 0 % % %  ݉ 5Ɂ щɲ``  xQʰ ʽxP  PQ $8 J R 눐 ɲ` ZQ"HJhA [H Zh ɺ%JȱH Έh: 5  Нɂ ȱ :,`&Ƀ ,hh g R [ ,`e ,8`" @g` KHh Phhh8`hPhhPQ` *ghȱ `ȱPȱQPɥQ ׭PРH Έhɲ  X [ } } uɍ) g RP+Q,eP } u'ɍ }L Ά LL8 ɍ  Ɗ L X }hhL F : 3݀8`L8     LʥML̍ÍԍύàgrhsL`Ma к    L: ei 8 8(!$ ɀɡɄ8L E*eiie   A      WةJ hK L*`آB  X $, e JJ u % Ji 'eeL: -L 2L ȱ ȑ  >$%H4hrcduc8`H:"udrc``uc `ec `ud `heHiheiŰů䥯ikmjlnȑȑhh`rcud``hdɲɃ" cA[HE.0:rcuchrcducd-A[0:ɥddd sb "c aL addddLL``dq sbdxddީxd8i[d db aducwcvcwc Sc Ec 5c Hdhdddd sb "c aHdhLarc8Ae`8HHHH8ȱh`pYHYjHdMxd  Gci  u`u`gh }`HȱhLD`d0hYjhY````1al sb axd`La sb awctc db 5c Ec Sc L`dG sb axdxd db awcvcwc Sc Ec 5c d-DjCR$"COPYRIGHT (C) 1981, BEAGLE BROS.":e:ERRMEMMEM240:AE174(157(978)):DING947VCYI142:A$::IDING975:J:I,J::CYPEAK(202),EF$(14),EM$(14),CF$(28),CM$(28),E(15):60000C``DON'T CHANGE ANYTHING BEYOND HERE OR PROGRAM WILL BOMB!DeCR(175)((176)256((176)127))256152VIMEM1MEM132::(I)127Ğ;BV((I));:(I)127ĺ,EBV::B=W ERROR MESSAGE CHECK (RUN 22333) ------------------- B>W22500B?WIMEM241MEM443::(I)127ĞBDW((I));:(I)127ĺBNW::,CWMEM((978)((978)127)256)2562947YNTAX ERROR,NO BUFFERS AVAILABLE,FILE TYPE MISMATCH,PROGRAM TOO LARGE,NOT DIRECT COMMANDAR32,74,255,160,150,152,32,200,3,73,234,32,200,3,136,208,244,32,63,255,96,170,202,208,253,44,48,192,96AV COMMAND CHECK (RUN 22222) ------------- AV22500 BEAD,EXEC,WRITE,POSITION,OPENI@NAPPEND,RENAME,CATALOG,MON,NOMON,PR#,IN#v@NMAXFILES,FP,INT,BSAVE,BLOAD,BRUN,VERIFY@RLANGUAGE NOT AVAILABLE,RANGE ERROR,WRITE PROTECTED,END OF DATA,FILE NOT FOUND,VOLUME MISMATCH,I/O ERRORXARDISK FULL,FILE LOCKED,SODES ??D$;CA$J?::" RE-FORMAT.":" MENU"::POZ(37)1?POZ:1:" ";:5550:C$:C$;">";:C$"M"C$"R"ČDING:6320?C$"M"160?C$"R"6070? N DATA ---- ?NINIT,LOAD,SAVE,RUN,CHAIN,DELETE,LOCK@NUNLOCK,CLOSE,Rt6290>~MEM1428,8:MEM1439,234:MEM1440,234:MEM1441,234:MEM1398,234:MEM1399,234:MEM1400,234:MEM1403,234:MEM1404,234:MEM1405,234:MEM1416,234:MEM1417,234:MEM1418,234?MEM1421,234:MEM1422,234:MEM1423,234:4-SPLIT CAT, NO C=V6290=`MEM1428,29:MEM1439,32:MEM1440,47:MEM1441,AE:MEM1398,32:MEM1399,237:MEM1400,253:MEM1403,32:MEM1404,237:MEM1405,253:MEM1416,32:MEM1417,66:MEM1418,AE=jMEM1421,32:MEM1422,237:MEM1423,253:NORMAL CAT >90 SEE EXISTING FORMAT":" MENU":::" ";:5550:C$:C$;">":C$"M"160:C$"0"6290:C$"1"6240:C$"2"6180:C$"3"6210:C$"4"6270:DING:6070EW";:28:"MAXIMUM FILE CATALOG FORMAT:";:28:"NAME LENGTH:":" ---------------------- -------------";9"<1> 1-COLUMN (NORMAL) 30 CHARACTERS<2> 2-COLUMNS WITH CODES 13 ";(34):"<3> 2-COLUMNS, NO CODES 19 ";(34)m:"<4> 4-COLUM98FIRSTLTR0:LASTLTR0:J1:I1132:(MEMI)1286050V8JJ1:J17FIRSTLTRI1p8J18LASTLTRI:6060v88CA$"":IFIRSTLTRLASTLTR:CA$CA$((MEMI)128((MEMI)127)):8:::3:10:": CATALOG FORMATTER :":n96:" SELECT NNUM1ĺ::LINE;:LINELINE1E7" POKE E+";I;",";(ERRMEMI);":";:K7d7"SELECT:<_>";H$;H$;7I12:K15:ZZ(16336)(16336)::K150:::16368,0:7p CATALOG FORMAT ------------------8z:::3:10:": CATALOG FORMATTER :":$"CAT-POKES"LINELINE1:NUM0:46TD$;CL$;" ";C$:6^6hC114:EM$(C)"":IE(C)E(C1)1:EM$(C)EM$(C)((ERRMEMI))::LINE:LINELINE1:6rC114:EM$(C)EF$(C)LOE(C):HIE(C1)1:55106|:54606ILOHI:NUMNUM1:NUM9NUM17"30900 RETURN"55LINE;" REM ";A$:LINELINE1:NUM0N5C$"ERR-POKES"5480r5ILOHI:NUMNUM1:NUM9NUM15NUM1ĺ::LINE;:LINELINE15" POKE M+";I;",";:I1418I1441I1343ĭ(MEMI)234ĺ"AE:";:54085(MEMI);":";5 :!6"CLO1369:HILO:5380:LO1376:HILO:5380:546064160e4D$;MO$;" C,I,O":::" SAVING ";A$;": ":4D$;OP$;" ";C$:D$;DE$;" ";C$:D$;OP$;" ";C$:D$;WR$;" ";C$5"30000 M=(PEEK(978)-(PEEK(978)>127)*256)*256+2947: E=M+240: AE=174-(157-PEEK(978))":F3A$"CATALOG FORMAT":C$"CAT-POKES":LO1398:HI1400:LINE30200:5330:LO1403:HI1405:5380:LO1416:HI1418:5380:LO1421:HI1423:5380:LO1428:HILO:5380:LO1439:HI1441:5380-4F3LO1341:HI1343:5380:LO1324:HI1326:5380:LO2852:HI2871:5380:802".";:j2CA$CM$(17):DE$CM$(6):CL$CM$(9):RE$CM$(10):WR$CM$(12):OP$CM$(14):MO$CM$(18):8682F1A$"DOS COMMANDS":C$"COM-POKES":LO1:HI132:LINE30010:53302F2A$"ERROR MESSAGES":C$"ERR-POKES":LO241:HILO201:LINE30100:53303 MENU"::10:5550:C$:C$;">":C$"M"160S1nC$"M"C$"S"ČDING:5090v1x:"STAND BY";:F1F2F301601I128:CM$(I)""::COMNUM1:I1132:CM$(COMNUM)CM$(COMNUM)((MEMI)):(MEMI)12852702COMNUMCOMNUM1:COMNUM28I132:520(X:27::"<-SAVE?";::" (Y/N)";:5560:C$:C$[02C$"Y"C$"N"C$"M"ČDING:5160n0<C$"M"ġ:1600FX:27:C$"N"ĺ"(OMIT)";0PC$"Y"Ğ:" SAVE ";:0Z868:21d:::" SAVE THE ABOVE DOS CHANGES.":" RE-SPECIFY.":"E FOR EACH TYPE OF DOS CHANGE YOU HAVE MADE:":/"DOS COMMAND CHANGES . . .":"ERROR MESSAGE CHANGES . .":"CATALOG CHANGES . . . . ."/F10:F20:F30:X8:5160:C$"Y"F11/ X9:5160:C$"Y"F21/X10:5160:C$"Y"F31/52202EW";Q$;".":." 2. LOAD OR CREATE NEW ";Q$;"HELLO";Q$:" PROGRAM, APPLESOFT OR INTEGER."::" 3. ";Q$;"INIT";Q$;" NEW DISK."::" ...OR ";Q$;"RUN";Q$;" TO CONTINUE DOS BOSS.":I113::.216,0:.3:1:9588/5:"SAVE ONE FILOS FOR YOU."e-:" OR..."::"

CREATE POKE FILES FOR APPENDING INTO ANY BASIC PROGRAM.":-" ";:5550:C$:C$;">";:C$"M"C$"Q"C$"P"ČDING:5000-C$"P"5090-C$"M"160 .C$"Q"Ė1:" 1. DELETE DOS BOSS WITH ";Q$;"N SAVE EXISTING SET-UP ------------------------,:" RETURN TO MENU, OR..."::" ";::" SAVE EXISTING DOS ONE OF TWO WAYS--";: -:" QUIT THIS PROGRAM & INITIALIZE A NEW DISK WITH ANY HELLO PROGRAM. BOOTING THAT DISK WILL FORMAT D;">";:A$"M"160:+A$"I"A$"N"A$"F"ČDING:4250\+A$"I"(C$"?"C$"`")X192+A$"I"(C$(31)C$"@")X128+A$"F"(C$"?"C$"`")X128+A$"F"(C$(31)C$"@")X64+A$"N"X0+MEMJ,(C$)128X+:40101, 1:" "::18:1:958:" NEW CODE CHARACTER":" FOR ";A$;":";:10(A$):"<_>";H$;H$;:5560:C$:C$;">";:868*C$" "C$"~"4230*POZ:18:C$+:17:1:958:" NORMAL, INVERSE, FLASHING"::26:" MENU";:5:5550:A$:A$2855:A$"BINARY":POZ11@)TF$"A"J2854:A$"APPLESOFT":POZ9g)^F$"I"J2853:A$"INTEGER":POZ10)hF$"T"J2852:A$"TEXT":POZ12)rF$"U"J1369:A$"UNLOCKED":POZ15)|F$"L"J1376:A$"LOCKED":POZ14)POZ:20::"<-":w*I417:I:I)'(J63J128ğ:J95JJ64:4130G(J64Ğ:JJ64:J95JJ64U("(J)::(,32,8:17:1:958::" MENU":::5:5550:F$:F$;">":868(6F$"U"F$"L"F$"B"F$"A"F$"I"F$"T"F$"M"ČDING:4140(@F$"M"160)JF$"B"J'I2854:" APPLESOFT... ";:4100K'II1:" INTEGER..... ";:4100q'II2:" BINARY...... ";:4100'II3:" TEXT........ ";:4100':" LOCKED...... ";:I1376:4100'" UNLOCKED.... ";:I1369:4100':4140(J(MEM224)X128*&H A$"F"(J159J192)X64:&R A$"N"X0N&\ MEM2872I,JXT&f d&p POZ(37)3n&z 3010& FILE CODE CHANGE --------------------&:32,8:33,32:3:1::": FILE CODE CHANGE :":&6:17:"CODE":17:"NOW:":17:"---"%1:MEM1326,187(C$):I1(C$):X$(C$,I,1):J(X$)128:X0Z% X$"^"J138:X0:3420v% X$"@"J141:X0:3420% X$"<"J136:X0:3420% X$">"X$" ":J160%* A$"I"(J192J224)X192%4 A$"I"(J159J192)X128 &> A$"F"(J191JK VOLUME ":A$"N":33201$ (C$)16C$(C$,16)D$ :VPOZ(37)2$ VPOZ1:1:" NORMAL, INVERSE, FLASHING"::26:" MENU";:5:5550:A$:A$;">";:958$ A$"I"A$"N"A$"F"A$"M"ČDING:3295$ A$"M"160>% MEM1324,(C$)URN ^ = LINE FEED < = BACK SPACE > = LEADING SPACE M = MENU (CANCEL)";# POZ:13:5560:": ";C$:POZ:15:(C$)16C$(C$,16)# C$;:(MEM1341)32ĺ(MEM3955);# 868::958# C$"M"160$ C$""C$"DIS32ĹMEM1341,234:MEM1342,234:MEM1343,234:3030|"l C$"#"(MEM1341)32ĹMEM1341,32:MEM1342,66:MEM1343,AE:3030"v 32,0:" POZ:1:958" " NEW HEADING: ________________";:(MEM1341)32ĺ(MEM3955);i# POZ2:1:"@ = CARRIAGE RETPOZ:1:(MEM1341)32ĺ"<#> OMIT VOLUME NUMBER MENU"x!: (MEM1341)32ĺ"<#> ADD VOLUME NUMBER MENU"!D " CHANGE HEADING":!N 5:5550:C$:C$;">";:C$"#"C$"C"C$"M"ĢPOZ:DING:3120!X C$"M"1603"b C$"#"(MEM1341)138J136ĺ(J);:3090; J141Ĺ32,14:(J);:32,0:3090` J63J128ğ:J95JJ64:3080y J64Ğ:J32JJ64  (J);:  :868:(MEM1341)32ĺ(MEM3955);  32,0::15:"----------------":958: & POZ(37)1:POZ20POZ20=!0 I160ASKII322430,t S$(S$,Z):Z1:24404~ :: u VOLUME HEADING CHANGE ------------------------- ::3:10:": VOLUME HEADING CHANGE :": 6:5:"EXISTING: ";:958 6:15:IMEM2871MEM2871(MEM1324)1:J(I) J4:37:"SAME"B 2110XL 20:1:958:21:" (";::"REPLACING";::", STAND BY.)"V X0:I114:J1(EF$(I)):XX1:ERRMEMX,((EF$(I),J,1))::` I114:4I:5:B$;:5:EF$(I);:37:"SAME"::2110j Z(S$)11:ASKII((S$,Z,1)):ASKI:DING:2240M 20:1:958:21:" (";::"REPLACING";::", STAND BY.)"$ IERRMEMFIRSTLTRERRMEMLASTLTR:I,((C$,IERRMEMFIRSTLTR1,1)):. COMNUM4:5:868:B$;:5:EF$;:EF$C$S$C$:2410:40(S$)::" ";::S$: 8 EF$C$ĢCOMNUMȖ5:"("Q$"RETURN"Q$" ONLY, IF SAME)";:22:4:5560:" ";C$:C$"M"160XC$""C$EF$(C$)MAXāI(C$)1MAX:C$C$" ":A$(C$,(C$)((C$)1)):X$(C$,1):(X$)127X$((X$)128)(C$)1C$X$:2320 C$A$X$  (C$)MAXĢ20:4:2::"->":EF$EF$(NUM)WCOMNUMNUM:FIRSTLTRE(COMNUM):LASTLTRE(COMNUM1)1nMAX(EF$)::225020:1:958:23:5:"MAXIMUM ";MAX;" CHARACTERS.":20:1:"NEW ";::EF$;::" MESSAGE:":21:1:868:22:5:I1MAX:"_";:F24:I4:1:"<";(ALPH$,I,1);">":g\:24:1:" ";:5550:34,23:C$:C$;">";:34,0:X$C$:C$"M"160xfC$"$"2380p20:1:958:::5:" STAND BY ":zI114:C$(ALPH$,I,1)NUMI:2190:DING:2110I118:I:1:" ":NUMAME"*EM$""4IB>SAME0:I9352:SAMESAME(39,I)3):H19:1:958::" ------------------------------------":"<$> STANDARDIZE ALL STANDARD.....";SAME10);SAME;" MENU";:26:"CHANGED......";(14SAME)10);14SAME;RI114:" ------------------------------------";QI114:4I:5:B$;:5:EF$(I):EM$"":J1:X1:I1202:EM$EM$((ERRMEMI)):(ERRMEMI)1282100 XJ:JJ1:J1521104X:EM$EF$(X)S$EM$:2410:40(S$):" ";::S$::2090 37:"SM132:10806V4C14(C14):H1621(C14):V:H:p ERROR MESSAGE CHANGE ------------------------::10:": ERROR MESSAGE CHANGE :":::B$". . . . . . . . . . . . . . . . . ."" STANDARD MESSAGE";::30:"NEW MESSAGE";:+)C$ĖH:"SAME"1080V20:1:958:21:"(";::"REPLACING";::", STAND BY.)"X0:I128:CM$(I)CF$(I):J1(CF$(I)):XX1:C((CF$(I),J,1)):MEMX,C:PEAK(X)C:: C128:1480:H11:" . . . . . . .";:H11:CF$(C);:H:"SAME"::LTRSUI):PEAK(I)127NUMNUM1<nNUM28LTRSUMI:I132::1410BxLTRSUM132āIMEMLTRSUM1MEM132:I,171:PEAK(IMEM)171:CCOMNUM:1480:V:H11:" . . . . . . .";:H11:CF$(COMNUM);:CF$(COMNUM)C$ĖH3(C$):" ";::C$:CF$(COMNUMDING:1280HF20:1:958:21:"(";::"REPLACING";::", STAND BY.)"PIMEMFIRSTLTRMEMFIRSTLTR(C$)1:I,((C$,IMEMFIRSTLTR1,1)):ZJ132EXCESS:X0:IMEMFIRSTLTR(C$)MEMJ:I,PEAK(LASTLTRX):XX1:dNUM0:I1132:PEAK(I)(MEMAND:";:I1MAX:"_";::23:5:"("Q$"RETURN"Q$" ONLY, IF SAME)":21:19(F$):5560:":";C$:C$"M"160:C$""C$F$:1330A$(C$,(C$)((C$)1)):X$(((C$,1))128):(C$)1C$X$:1330(C$A$X$2EXCESSMAX(C$) <(C$)MAXĢ20::FIRSTLTRI14NUMBERCOMNUM1LASTLTRI1:1250:SCOMNUM1FIRSTLTR1MAX(132LTRSUM)(LASTLTRFIRSTLTR):20:MAX9MAX9:958:129020:958:24:5:"MAXIMUM ";MAX;" CHARACTERS.";:h 21:1:"ENTER NEW ";::F$;::" COMM20:1:958:::5:" STAND BY ";:7:I1C:C$:nA$(C$,(C$)1):B$(((C$,1))128):CM$(C)A$B$COMNUMC:I518:I:1:" ";:22:" "::1480:H14::"->": F$CM$(C):NUMBER1:I1132:PEAK(I)127NUMBERNUMBER1:NUMBERCOMNUMPARE CHRS...";:132LTRSUM100ĺH$;FV(132LTRSUM)10);132LTRSUM;v`C128:1480:H15:"<";(ALPH$,C,1);">":j24:5:5550:34,23:C$:C$;">";:34,0tC$"M"160~C$"$"1450I128:C$(ALPH$,I,1)CI:1180:DING:1080$0.>8SAME0:I9352:SAMESAME(18,I)3)(39,I)3):BCC0:19:1:958::"------------------- -------------------":"<$> STANDARDIZE ALL STANDARD.....";SAME10);SAME;" MENU";:26:"CHANGED......";(28SAME)10);28SAME;#L26:"S1:" . . . . . . .";:H11:CF$(C);:CM$(C)""::LTRSUM0:C1:X1I1132:PEAK(I)(MEMI):CM$(C)CM$(C)(PEAK(I)):PEAK(I)1281070XC:1480:CC1:CM$(X)CF$(X)ĖH3(CM$(X)):" ";::CM$(X)::1060"SAME"$X28LTRSUMI:I132::108G:216,0: ^DING:160N  DOS COMMAND CHANGE ---------------------- :::10:": DOS COMMAND CHANGE :"::13:"COMMAND";:34:"COMMAND";:3:1::"FUNCTION";:22:"FUNCTION":"------------------- -------------------"@C128:1480:H1 HEADING CHANGE":" FILE CODE CHANGE"::" SAVE EXISTING SET-UP":" QUIT"v 19:5:5550:F$:F$;">";:32,0 F$"C"1000 "F$"E"2000 ,F$"V"3000 6F$"F"4000 @F$"S"5000 JF$"X"6000 TF$"Q"ČDING:1:15):23:DIN:CF$(I)A$((B$)128):e I114:X$:B$(X$,1):A$(X$,(X$)1):EF$(I)A$((B$)128)::FLAG1u 5:16:"C" 32,7::" ";::" MENU "::R " DOS COMMAND CHANGE":" DOS ERROR MESSAGE CHANGE"::" CATALOG FORMATTER":" VOLUME38);":";, I321:I:1:" ";:40:" ";: 1:15:": :":15:" DOS BOSS ":15:": :":::5:CR$:FLAG250 CR:REM SET-UP COMMAND & MESSAGE STRINGS 5:16::"C": I128:X$:B$(X$,1):A$(X$,(X$)1)(34):ALPH$"ABCDEFGHIJKLNOPQRSTUVWXYZ123" E(1)1:E(2)23:E(3)34:E(4)49:E(5)60:E(6)74:E(7)89:E(8)98:E(9)107:E(10)118:E(11)130:E(12)150:E(13)168:E(14)185:E(15)203 MENU -------- :: 2:":";12):28:12);":":22:":";.<9=================== DOS BOSS DISK COMMAND EDITOR BY BERT KERSEY & JACK CASSIDY COPYRIGHT (C) 1981 BEAGLE BROS.;4315 SIERRA VISTA SAN DIEGO 92103 (714) 296-6400 =================== n22500:160+ D$(13)(4):H$(8):Q$                                    MORE DATA"::756::5:300: 9:I123:" ";::" ": N2N(N16)16:N1N16:(HEX$,N11,1)(HEX$,N21,1);:: CONVERT TO HEX L9:I119:" ";::" ": I27Ė12:" = ";:220: PRINT CMD NAMES 0 210 X(I)(I1)2561:15:X65536" = ";X"=$";:N(X256):1000:NX(X256)256:1000:"":300: PRINT CMD ADDRESS ::37,(37)2: ,(37)18320 6 @37,((37)2):::6:"HIT ANY KEY FOR  DOS COMMAND FINDERYd::1::1100:9:" DOS COMMAND FINDER ":1100::34,4:5nD(978)256:AD2948:BD30:CD84:HEX$"0123456789ABCDEF": INITIALIZE; D FINDS MEM SIZEIBC2: TABLE OF CMD POINTERS' CHR(A):AA1:(CHR);:CHR1 V1301CTVV11 T(M2CT):MMT2CT9T;JV1:" ";:Vc(PVPV1:PV19PV18l2290<PV4:32,2:33,6:F32,10:33,5:P32,17:33,19:Z200': :33,5(~N65535N$"XXXX"(7):12206MN:N$""ECT301bT(M16CT):MMT16CTyTT48:T57TT7N$N$(T)CTPV:5:N$MN:32,17:33,19:PV:19:N65535ĺ"NUMBER TOO LARGE":1320V1204 N$,(N$)1)BS$;'(N$)169500850=A$:860RN$""N0:1020eCT(N$)11T((N$,CT,1)):P(N$)CTTT48NNT2PCT1100L OUTPUTV32,2:33,6`PV:6:jN$(N):(" "N$,5)t32,10NT16P CT 1100.  BINARY INPUT= *PV0PV4O 432,17:33,19] >PV:19:k HN$"":N0 RA$:(A$)48(A$)49ĺA$;:N$N$A$:930 \(A$)13960 f(A$)27200 p(A$)8930 zN$""850 (N$)1N$"":920 N$((A$)13660 :(A$)272001 D(A$)8630@ NN$""550X X(N$)1N$"":620m bN$(N$,(N$)1)w lBS$; v(N$)4650 550 A$:560 N$""N0:720 CT(N$)11 T((N$,CT,1)):P(N$)CT TT48:T9TT7 N(N$)1N$"":420* N$(N$,(N$)1)3 B$;D (N$)5450M 350Z A$:360f N(N$)p 1100  HEX INPUT PV0PV4 32,10:33,5 PV:5: N$"":N0 &A$:(A$)47(A$)58(A$)64(A$)71ĺA$;:N$N$A$:630 0O GET MENU";16)6 "(NB$)48300,500,800,1340,10000J , DECIMAL INPUTY 6PV0PV4i @32,2:33,6v JPV:6: TN$"" ^A$:(A$)47(A$)58ĺA$;:N$N$A$:430 h(A$)13460 r(A$)27Ė1:5);:200 |(A$)8430 N$""350 ):  34,3:35,19+ MENU INPUT< 32,0:33,40G 21:1\ "MENU:";:22:1 "NUMBER BASE(1-3) OR 4-CLEAR OR 5-EXIT"; NB$ (NB$)49(NB$)53200 NB$"5"Ģ21:1:868:22:868:290 21:1:868:22:1:"HIT ESCAPE T NUMBER CONVERTER2 FOR DECIMAL, BINARYH AND HEXADECIMALb(::BS$(8)" "(8)|21:14:"NUMBER BASE"<F" 1-DEC 2-HEX 3-BINARY "PY320ZY:1:" ";:9:" ";:16:" ";:38:" ";dYn1 x37       420 (512)ı* :(4);"PR#0": 4160P32ĺ1);(115);(112);:3501 T2);(P);= ^X:380j hXLOCLOC255:X(X8)80ĺ:X;" - "; rP(X):1(P100)(P10));P;:X |:(4);"PR#0"::"(TRACK=";TRK;" SECTOR=";SEC;")" :"READ ANOTHER SECTOR? (Y/N): ";A$:(A$,1)"Y"ĬXLOC11LOC22135:X;" - ";:JXX2:300:Je JX3X32:((J));:J:JX33X34:300:J::Xn "380 ,P(J):(P100)(P10));P;" ";: 6XLOCLOC255:X(X8)80ĺ:X;" - "; @P(X):P32(P127P160)ĺ1);" ^ ";(P64);:350" JPL,ASCII OR CATALOG DISPLAY?: ":"(H/D/A/C): ";DSP$:410@ 768R DSP$"C"260d DSP$"D"360v DSP$"A"310 DSP$"H"A$"2000.20FF N D823G":X1(A$):511X,((A$,X,1))128:X:72,0:144:380 LOC;" - ";:JLOCLOC10:300:J:. 4140G "SELECT SECTOR NO. ";SEC$:410:SEC(SEC$):SEC0SEC15150k 47084,TRK:47085,SEC:47092,RW 47083,0:47091,0 LOC10000:47088,LOC(LOC256)256:47089,(LOC256) 768,32:769,227:770,3:771,76:772,217:773,37 "HEX,DECIMA, DISK READER PROGRAME 0-2 DOS, 17 DIR, 13-16 & 18,34 USERhn::RW1: RW 2 WRITES TO DISKx" TO QUIT.":"PRINTER ON ?(Y/N)";A$:410:(A$,1)"Y"ĺ(4);"PR#1" :"SELECT READ TRACK NO.";TRK$:410:TRK(TRK$):TRK0TRK3   0XX7: ADD 7 FOR SIMPLE VRBLS? ZL1XX(X2)256(X3)E dL nIs x"C TO CONTINUE,A FOR ARRAYS";LTR$ LTR$"C"40 LTR$"A"120 X256(108)(107): GET START OF ARRAY LIST L1: SET FLAG FOR ARRAY VRBLS NOW 40 9> X265(106)(105):GET SIMPLE VARIABLES STARTING POINTgX;"=STARTIMG ADDR FOR SIMPLE VRBLS"L0: FLAG DENOTING SIMPLE OR ARRAY VARBLES(I152((X));((X1));<(X)127(X1)127ĺ"%";F(X)128(X1)127ĺ"$"; PL  ժժSߴժժժ*U*T"*U*?~sgǪժժժժժժ?T*eU**U~?wo_zWzoWjgos~Wzwowowwo_z_z_zWjwժժOժժժU*U*U"U*UzT"U*%CgժP*ժO)E*P*U*~U* U?nAG_;w{;>ժՂ惀ժժժժժժժՊ*@JժLժժՆԪժժyT U*sxT*~V`ժժyժժժժժժժժ(QȪ*ժժժժժ(eT*T*Ufvotwowwowwvowo$n~wwkCժժժժժժժժՀժ*U*!ԪOgU*U T*A*A*U*:**E*E|~)0 S U*U*pS**U* *eժՊ<ժժժժժժժ,|Հ*ժ`g*P*A**U*P*Q*~}_{P*U*U*wpU*~*Peժժg8ժժժժժժժժ)1R*_Ԫժժժժժ(eT*T*Unto~Gowowwowowtowo~wwoHժՊժժժժժժժꀐ*U*5ԪggU*U*P*E*E*U*0r@**E*E}|)"[(T*U*S**U*@*eժՊժժժժժժժժX*ժd*A*(U U*UՁP*Q*E~}_U*U*U*UJ?T U|ժ1Ԫժժժժժժժժժժժժժժժժժժyp3ժժU*U*U*U*E*UT*T*E|Oתժ y W*P*U"U*U*Ur?T*|DժբժЪժժժժժժժժժ @ U*A*ժxysOP*U T*U*U*U U*I*EE*Q*Eo|ժ*'A*U*U**U*T*UrA*qժժ9~Ԫժժժ*UҪQ yT*w`ժժՊQ*eU**U|?wo~wowoww{{?xwow{wowwo~wkwo_wժժOժժժR*U*U"P TU*% ժ՚ժ՚`o?x)YG*U*U*H(U~O?z}?~8s{kw?ժժժժժժժժ*ժ@ ժLժp*Uժժ|T*T*>w@*~*U"ժժsժժժժժժժժ)ՒSªȪԪժժժժժժT*T*Unuo~towwowowT{wOFo~wowou/JժՊժժժժժժժպކ*U*ԪgsOOU*U*A***U*aY**A*E}ժq)X,(U*~S*U*U*U*eժՊժժժժժժժժP**ժ?pW**U U"U*ǿT*E*E~*U*U*U*U T*~ժժժժժժժժժժժժժժժժժժժժp3ʏժժP*U*U*U*P*UT U*E}_תժ*{S* U*U*Ur?U* DժՀԪԪժժժժժժժժժ)U*U E*ժ}yת͞*U*U*U*U*U*U*I*eP*Q*EO}ժ cWFU*U**U*Q*UrA*qժժ|Ԫժժժ*ЪG*'T*㿨ժժՊ~Q*eU**U|?wo~wowowwzc|wowzwowwo~wkwo_ժժ~Oժժժ*U*U"*EjTT*);~?~ժժժժժ`s(`*U*U*(U~J?xpaG_;u{s?ժʟ̇ժժժժժժ՚ժO*ժLժ*U TҪժT*T*>w E*~(U*ժժժժժժժժժժ)SªȪߏsfЪժժժժժժeT*T*Unuo~wodwowow/P{wKfo~wowou/JժՊǧժժժժժժժՊ@*(ժgsOU*U*E*(*U*e!P**Q*Eyժ(e?.M"U*UP*U(U*UA*eժՊǸժժժժժժժժ•(*ժ?ayV**U"U U*U׀?T*E*E~?S*U*U*U*U T*U*~ժժժ@ժժժժժժժժժժժժժժժժժժժC*U*U*U U*UxT U*Ey~Ϫ(ԊsY U*U"U*U*Up0T*DժժԪժժժժժժժժժ!P*UժժժyǪժ(U*U*U*U*U*U* Q*Q*E_yժ OS U*U**U*E*UrQ*qժժ|xԪժժժ(ժjqT*ժժժ~S*eU*Q*Up?wo~wkwoww~bwkw~Wjwwo~wo_~ժժ~Gժժժ*U*U *JTT*);~~ժժժժժժgx?)U*EU*@*U~O?wn}{w_;vukw_~ժՊLJЪժժժժժժժ ժ@ ժLժ(U*T ժՀTT*>~gU*U~޿U*ժժժժժժժժժՀ(DQҪתժժժժժժeT T*Nuo_zWzwoW*TzWzWzPzWZfo_zWzWzP JժՊ񳕀ժժժժժժժաֺ@**ժcsG5~U*U**U(*U*AU *Q*E{ժ(a'L T*UA*U*U*UI*eժժժժժժժժժ8*ժ<|P*(U U T*UU*E*E~?T*U*U*U*U*T*0U*Q`?~'UժժժժժժժժժժժժժժժժժժժժժժժժՊ*U*U*U"U*UT U*E|ߪժՐժGT*U*U*U*U*U?T*Eժժժժժժժժժժժժ)Q*AժժժyުŏժU*U*U*U*U*U* >qQ*Q*E{Ԫ L|~Q @*U**U*U2Q*qժժ|yyԪժժժժjժՊjeTԚ*ժժժG*eU*Q*Uv?w/x~wkwowW~xwkW~Wjwwo~wo~ժժ~Cժժժ*U*U*U(UJTQ*){||?ժժժժժժ~O~'U*eU*Q*U~O?wn};w~?=wn[wo}ժՊЪժժժժժժժ( ժşJժLժUU*Q*Ԫ*T*~~o@@U*U|U*ժժժժժժժժժ*PҪѪߪժժժժժժqT U*^wo_z_zwoWjU x_zWz@rWZfo_z_z_zPJժՊժժժժժժժժՆ Q*E*ժsy~U*U*U U U(U*UB*Q*E{ժ*eGQ*U*AD*U"U*UH*eժժժժժժժժժժծ@*ժW*U U U*T*U 'U*E*E~?~U*U*U*U*U*T*E,U*Q?|#eժժժժժժժժժժժժժժժժժժժժժժ׊ժժժ(U*U*U"U*Uz?U U*e}ժժ_8T(U U*U*U|?T* Eժժժժժժժժժժժժ@*Q ժժժy?̪ժT*U*U*U*U*U*`Q*Q*E?sժj@x~)*U*U(U*UTrP*qժժyߪԪժժժժ)ժ՚*DTԊ*ժժժՊ@*U*Q*Uv?Vj{~wWjWzWzwWzwoUzWj~wWjzժժ|ϟժժժ*U*U*T(U US*y|}ժժժժժժ`U*eU**U~?xpAG`>wn;n}ժՊԪժժժժժժժ˪ժ*ժNժ(U*T*E*U*T*~~oqAUJUzT*ժժſժժժժժժժ*ՊrWҪѪժժժժժժyT U*^}`Y`HjժՊժժժժժժժժժP*Q*ժsygy~U*U*U"U"U U*M3*Q*Esժ *DE*U**U"U*U ҠҠϠҠŠҠ"ŠҠΠҠ(" Ӡ"ɠԠ ԠҠ ҠǠӠحҠϠˠР ҠҠ ӠӠĠ ٠ ΠӠ ͠ӠŠϠ ͠ҠԠ ԭà ŠɭӠǠŠɭӠǠҠŠɭӠǠҠ Z210 d7 nDX010* xCX0:Y0D XCXCXDX1:290:XW CXCXDX:YY1l X560Y160130t DXz DOUBLE HI-RES INITIALIZATION AND SCREEN CLEAR 49154,0:49156,0:49153,0:49239,0 49160,0:49246,0:49232, HI-RES DOUBLEPLAY, SOFTALK 7/83< LISTING 1B l EXAMPLES OF A SIMPLE DOUBLE PROGRAM WHICH DRAWS SEVERAL DIAGONAL LINES(2 DON D. WORTH 5/25/83<F(4);"PR#3":(12) P22:25:"DOUBLE HI-RES IGNORING COLOR",150,3,160,56,185,0,149,162,8,10,144,8,238,149,3,208,3,238,150,3,202,208,242,200,192,196,144,232,96C917)256(918):UNSRO3:35:32,37:33,3::"---------------------------":5:" SECUSE":" SECFRE":5:" ";U:9:" ";R:::c 1,96,1,0,17,0,145,3,0,149,0,0,1,0,0,96,1,0,1,239,216,0,0,169,3,160,128,32,217,3,162,0,142,149,3,142N64:BSC13N80" BSC10N323>BSC11N48WpX015:H,V)XT$T$(XN):_:z:I896960:P:I,P:AE149(157(978)):905,AE:938,AED(MEM485):S(MEM487)897,S16:911,S16:898,D:912,D919: $397R(12BSC13)8(BSC10BSC11):H,V1<|BSC10TSC0SP0VBSC10TSC0SPSP1eSP21850kMEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253:216,0:MEM1463,12:MEM1464,253D22::D$;T$vBSCH,V1):TSCH,V)5,I1)BSC)(4,I1)96,I1)9)1360, P PSCT3,I):SCT13SCT14T$RU$c SCT10T$BR$u SCT2T$EX$ JX21VSEL1:J:1:" ";::VSEL:1:958 I21:1::" ";:2:T$;:#JVI:H737:1960:TSC:H,V:BSC12(BSC4q VVSEL:1:37):6::" SELECT:";:16368,0:A$:VSEL:15::A$;" ";:TSC14,2VSEL2):BSC14,2VSEL1): (A$)13360 A$"Z"Ĺ216,0:MEM1463,12:MEM1464,253: A$"#"İ5000:1060 A$MAX$A$"A"1060& I0462:(5,I)TSC1,V)4FILE$(34)4 *LTRLTR1:TEST$N$:N$(LTR)p \1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$ TEST$" "N$" "VSELV21:1060 " ";:50,63192(LOCK$" "):FILE$;::" ";::N$;::N$" "Ė38:"." : $VSEL0VSEL2,0:MEM1464,32 hMAX$"W":D$(4):D$;NO$"C,I,O"N 255::::1::D$;CA$l X1452:(5,X)11)ĂX LTR64:XX1:VX442::V21:1 0LOCK$" ":0,V)10LOCK$":" b1,V)1FILE$"]" 1,V)2FILE$"*" 1,V)9FILE$">" (978)((978)127)256)2562947:AE174(157(978))T xNS40393((MEM2925)16)^ 360| MEM1313,24:MEM1466,23 768,32:769,12:770,253:771,201:772,141:773,208:774,3:775,76:776,44:777,AE:778,76:779,60:780,AE:781,0 6MEM1463d ? CA$"CATALOG":RU$"RUN":EX$"EXEC":BR$"BRUN":NO$"NOMON"<=========================== "KEY-CAT" CATALOG MENU-FIER BY BERT KERSEY (C) 1981 BEAGLE BROS. LISTS UP TO 23 FILES SELECTABLE BY ONE KEYPRESS. ===========================5 nMEM(      :D$(4): CTRL-DF2:958:A$"TOM'S MENU DISK":1000Zd(4);"RUN T-C"`nw CENTER STRING A$B(20((A$)2)):B0B1B:A$:Sύýì˨ë˨ë˨ë˨ű˨ű˨˨˨Ү΍32 X3,X2,X1,X0" "'";:A$( W  DOUBLE HI-RES VERTICAL LINE DRAW ROUTINEu XX(X7):PGXX2(XX2) XX(XX2)((X7)XX) XX(XX7.5) 49237,0:PGĹ49236,0 XX,0XX,159 49236,0  XCOMBINATION X001# X101/ X201; X301P "TBTBDL:T(TB)l ,21:36,T:X0:36,T:X1 636,T:X2:36,T:X3; @AD0244 JX0XXBAD:430 TX1XXB1AD:430 ^X2XXB2AD:430 hX3XXB3AD:430 rAD |XBXBOUBLE HI-RES MODE d49154,0+ n49156,08 x49153,0E 49239,0R 49160,0_ 49246,0l 49232,0y 49165,0 XB0 ERASE THE GRAPHIC SCREEN 49237,0:62450 7 DL7316:TB(DL2) PLOT GROUPS OF 4 DOTS IN EVERY  HI-RES DOUBLEPLAY, SOFTALK 7/83< LISTING 3B z THIS PROGRAM DRAWS 16 COLOR BARS ON THE SCREEN IN DOUBLE HI-RES GRAPHIC MODE(2 DON D. WORTH 5/25/83<F(4);"PR#3":(12)P21:36,1:""; Z INITIALIZE D 60000& YOUR PROGRAM HERES90:PIRNT:: TEST; 2ND "PRINT" MISSPELLEDY_`T256:E(220)T(221):EE5((E)0):V(E):E,207:L$("0000"((218)T(219)),5):L(121)T(122)49:I15:LI,((L$,I,1))::00000:E,V:216,0:9CX P4  ALLOW USER TO TOGGLE BACK AND FORTHJ 49236,0:49235,0v (12):936:22:"PRESS RETURN TO SEE" "STANDARD HI-RES ... ";A$ (27);(17) 49164,0:49152,0:49237,0 &49234,0:49232,0 0A$:250:500 X,Y ^49236,0 h@ r NOW PLOT SINE WAVES IN SINGLE HI-RESX |:49236,0:49235,0~ (12):22:25:"PLEASE WAIT ..." X02755:Y80:X,Y:X P622 X0 CX0(3.14159P)(3.14159P250) Y80(CX)70 X,Y XX1 N SUBROUTINE4 49154,0:49156,0:49153,0:49239,0\ 49160,0:49246,0:49232,0:49165,0b   DOUBLE HI-RES PLOT SUBROUTINE "XX(X7):PGXX2(XX2) ,XX(XX2)((X7)XX) 6XX(XX7.5) @49237,0:PGĹ49236,0 JXX279ı TXXR" Z250* d DOUBLE HI-RES SINE WAVES0 n= x49237,0H 62450e X055010:Y80:290:Xs P622{ X0 CX0(3.14159P)(3.14159P500) Y80(CX)70 290 XX1 CX P 380 DOUBLE HI-RES INITIALIZATIO HI-RES DOUBLEPLAY, SOFTALK 7/83< LISTING 2B w COMPARISON OF SINE WAVES IN BOTH DOUBLE HI-RES AND STANDARD HI-RES MODES(2 DON D. WORTH 5/25/83<F(4);"PR#3":(12) P22:25:"DOUBLE HI-RES IGNORING COLO     0:49165,0  49237,0( 62450. R  DOUBLE HI-RES PLOT SUBROUTINEX v "XX(X7):PGXX2(XX2) ,XX(XX2)((X7)XX) 6XX(XX7.5) @49237,0:PGĹ49236,0 JXX279ı TXX,Y ^49236,0 h X       :5JLf62g7"YB"89H4D'$9h1d)8"4 $)21h!!:$;)<*+qL,q :L -LL66?/-----$$$%--(66>6??------,'%%%--....-,,,,,,,,---..'''8?>777777/-,--%-?>?7?7?????????$$'''???/--.5556>?'''755=??@-,,,<<6..6(%%%???.$-5--,-,,$-<$%$%,-.-6'7''76/6>$,56.-???.?-5?/-65>$'?/>><6'7?>>6777?????????/%.-----------$$'$?'?%%<<77..>?>>>>?'$$?'$6.-$46-%$6>?66LII05555-%?>>><<<|IAI55555-.06....ECX<<,,557$,,,$$77?<>>>JIH!$$$$$%%%%$$䚒$%??.6-???????g-------8??????L,,,,66%$$%<7n(-5%d077-%%%???'%??77777777---,,,,,??????7%$%%%%$$4777?<<--.--- 6--55=>>???$????'$,----6?O --ۛ???????(------8????????HI$$6%,6M!-> -d-???????---------E??????????GII---%???g!$-=?????-------%???????GII +-----e??????,-----%??????------?'`$???????????7------------4??66.-5????????????'--$$,566-%$$-66.-$$,566-%$$66.?????????$&$$$$?'$5-,.%.-$$$$$?6666>???????OI!$$-5664$?$$$<'?<$???777IJIIIIII26666-$$$$$$$--------,,,%%???????>>>77OIIII666666.,,,,$$$$$$$Қ???????OI!$$--66.--%$$$$ۓ*-$?O @ 66666????????????????,,$%%-,%%45555-.5,,,,,,,,45555556556.-66-?<--,-,-$--,,,,,-,-----...5555-...5--?(-,-,,,,-,,-.,,,,,-%-,,$%%-,4555--.5...6655--65--.6--$<-,,$$$<'????<<$%%%--%----.-%--555-6?777??7766655(???????$$?'''%%---555>>766-$$$%%-55 ,,,,,;<</--<>,,,,-%%%%-455-....6-,-,,,$%--%%%--%%%%........66555 %%%-%%%--,,,,,,,,-.......),.<<<-.??>---7??----?<'/-%??%-%---'$$<6?$766-%?'--@ d<1Jd*=Mf)OqQ-W<Yly% d  c  z $$56666.$$$$$56666.$$$$$56666.$$$$$56666.$$$$$56666.$$$$$56666.$$$$$5666668? -$$$$$,$,6.$,6.$$$$$$$56666.$$$$$56666.$$$$     ĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠōōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LϠ젃Š𠁠Ƞɠź̪ӯؠԉȠҠńϠ̠̠ΒȤŠ͠㠩υe h QQQQQ<JWdv&crK.М LHHH?!=>@AH IL=K>Lhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  RSQzmVVW` `DE]^ /].^ E̞`DE `HHH/.0+>0jj.9hhh`( 01 0㎓/%` f`RS`KȱL`KȭL`DERS ` ` I,`DE]ȹ]Ȍ  E`,0 /R.SDE$,/ ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭR S   ` .H h. ` % fɽQ ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̅ $T+  # o? : L  hh` %)`ʽQ08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈQ`  UɽQ 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` RRSS`R S8`RSDE  `iiiQLk RLk H m hLk S%RQrU o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L N D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! o , и` X$i( " X ,  Hhf L` 5 JJJJ V) VȢ V`iɺi`H p e) hH)hHJ[[Lh`& `n齌oХЙЉrtФqКLM8` *HhffHh Hh Hhf fLHhHhiTf{kZȌlmn齌oLYY0TYY0Bʎkrt+%q ޴0L`w8`gLx8`ψýmw'x8`h콌i⽌jؽ*%* % E* % * % E EksLl LL ⹴L 0L`<=>?j!]o  ' H 0j jjU((((PPP    ҮŠàӠŠŠĠ MIMM) = h) E 0($ p,&"ժުժ'   !"#$%&'()*+,-./0123456789:; y L m#dL L ʎLr \  f 04>`v0v p ` )pi` M ) 8`M HhM h6 MH8 /h 8`  iL   L h  V- o (yyL 0 f  \ 0 ɠL 5 0L "/*h% |   5 LA  f  y0Lɠ 6yH cJH y0dɰɠ e0Jy chhv&؍ | viʼH | U 1 , ( \  ɠ y)yL{L 鯪yyL o  Q ɸ 鯐 yLBHi ɱ ɲ LJ h*yLB ]`L o u y uy ddɰpN0u0t=b6y02H Q iy ӑhjiȑȑ(iȑàtigh ]uu0#G ɰɺXɭ MiiLBɪɺMggfɔɓ fgɃhɖhо L)COPYRIGHT (C) 1981 ALF PRODUCTS INC.xTQy p  _ `f'A8Ȱ8#Ȱmeh `o٩wi  jf    êŦƥ堠ѥԀհť՞ŠÊĨȘƸ+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠Ӎԍs 8tit8sB@tCtABCB>?><>=?>BPݱ>BL@ /@i ipm@8e@@AiA8ϥ_^8LKLKꤸ ML#gA$ (A$)3Ā% (A$)13220Q :4)"RENUMBER IS INSTALLED AND READY" 8:"IF YOU USE 'FP', 'HIMEM', OR 'MAXFILES'" :" YOU WILL HAVE TO RE-RUN RENUMBER" ' DO NOT CHANGE 10010 '(121)(122)256316yi<>zi=i?> CALL 24576 <<r A:"SAVE UNDER NEW OR OLD PROGRAM NAME" 5t ( *** REM PROGRAM LISTING.J *** NIBBLE EXPRESSf *** VOL 1. PAGE 78l# *** PAGE 78(-::2"TO EXECUTE THIS PROGRAM, LOAD IN YOUR APPLESOFT PROGRAM FIRST." 7:"THEN TYPE >> BRUN REM LEAVES L`ghHȱh`HȱVɲȄȱ8H0hHH8ȱhhZhhHeȱHiŰů䥯ijijȑȑhh  33,64,76,249! 2 253,76,240,2533 <I76876827B FV:I,V:IR P54,0:55,3\ Z1002p]S PROGRAM WILL FIND HIDDEN CONTROL CHARACTERS EXCEPT CTRL M,ESC,CTRL H,CTRL UzTYPE CATALOG AFTER PROGRAM IS RUN FOR NORMAL PRINTOUTS TYPE PR#0 201,141,240,21,201,136 240,17,201,128,144,13 201,160,176,9,72,132 ( 53,56,2 :; A$"***************************************":7000M 1000:ER900W 2000a 5000 V ******************************* W MAIN BBODY OF PROGRAM X:10 bA$"TYPE 'Y' TO PRINT A LABEL":7000 l:A$"TYPE 'N' TO EXIT":7000 vA$176)256200 _:6 aD$(13)(4):BELL$(7)(7)A bSLOT1Y cPRNT$"PR#"(SLOT)` d5 nA$"***************************************":7000 s: xA$"CATALOG LABEL PRINTING PROGRAM":7000 : A$"INSTALLING MACHINE CODE":7000 ! LABEL PRINTING - CATALOGS; BY ALLEN L. RODGERST BONITA, CALIFORNIAw FROM MICROCOMPUTING DEC 1982} LOMEM IS SET 200 BYTES ABOVE THE END OF THE PROGRAM( LEAVING ROOM FOR MACHINE CODE BEFOR VARIABLES BEGIN Z(175)(     K$:K(K$)48# ,K17KT16130d 6CH1:CVSTK16:1000:C194(B$"RUN"B$"LOAD")B$"B"B$ @CH639:1000:B$B$(C):CH:1:868:B$:D$;B$:100 C1(CV8):C2CVC18:P1024128C240C1CH:C(P)  (A$,39);:A$(A$,2)(A$,1):K(16384):K128āK175:K:K(0):130i 16368,0:KK176:K1K5300} 1:868:K5Ā "PRESS 'LETTER' YOU WISH TO";:K1B$"LOAD" K2B$"LOCK" K3B$"UNLOCK" K4B$"DELETE": B$;:198::  D$(4)02D$"CATALOG"I<B(37)2:B22B22OdnT0:CH4:CV023:1000:C160ĹP1,219:P,T193:P1,221:TT1:SCVxCV}24:A$"TYPE LETTER TO RUN,OR LOAD=1,LOCK=2,UNLOCK=3,DELETE=4,EXIT=5..."F B$"RUN":1:LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0Ȫ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO ` Lӆ Ԇ8stijRLghLABCՆ>ֆ?sȥ Ȫ͆0 ҅ >&eee膝 & &ghȱ y y;L ۥghij L L  ͆0 ҅ >&eee膝JJJJ)ŝƝLpƞߥ ,LLL )WHLC L , Ɇ ɀL  , ҅LзLgş堰G L & & & .ee'Lѥȥ񥰶L       :"2. ";::" TYPE: ";::" EXEC XLISTER "k 2:"3. SELECT OPTIONS FROM THE QUESTIONS ON THE SCREEN." m :" XLISTER":G"XLISTER PRODUCES AN EASY-TO-READ""RE-FORMATTED LISTING OF ANY APPLESOFT PROGRAM. SEE: UTILITY CITY BOOK FOR FURTHER INFORMATION ON THIS PROGRAM.":"1. LOAD YOUR PROGRAM ";::" APPLESOFT ONLY ":+ (D$;"CATALOG";!D$;"PR#0"+45001UW *****************************yX PRINTS A$ IN CENTER OF SCREENb((40(A$))2)1gA$v ON LABEL? "-A$$2A$"N"515067A$"Y"5165]< ADVANCE TO BOTTOM OF FIRST LABLEoF::::::P(4)"PR#0"o *****************************p PRINTS LABELSz400049280SLOT16,143: EPSON COMP CHARD$;PRNT$;A$"Y"5050:CA$"POSITION TOP OF FIRST LABEL":7000o:A$"IN FRONT OF PRINT HEAD AND":7000:A$"TYPE A 'Y'":7000 A$:A$"Y"5000D$;PRNT$: TURN ON PRINTER(15);: SET COMP MODE ON EPSON ("IS THIS FIRST LINE FUNC,A1:FUNC1,A2:FUNC2,A3$H *****************************t POSITION PRINT LINES AT TOP OF LABLES}:5A$"DO LABELS NEED TO BE":7000:A$"INSTALLED AND POSITIONED":7000:A$"IN PRINTER ?":7000A$:A$"N"5300,237,253,169# 8:8LINESPERLABEL: 141,207,3,96,0,0^ ***************************** DIRECTS CATALOG FUNCTION CALLS TO NEW ROUTINEFUNC,76:FUNC2,(RTN256):FUNC1,RTN(RTN256)256 RESTORES ORIGINAL CATALOK ROUTINE2,136,16,246,32,112,16,32S 48,-21,144,198,176,189,169,141,32,237,253,206,207,3 208,246,76,127,-22,0,0,0,0,0,169,252,32,237,253 206,206,3,208,25,169,141,32,237,253,169 3: 3 ENTRIES PER LINE  141,206,3,206,207,3,208,10,169,141,3217,-19: 176,62,162,0,142,156,-22,189,198,-23,240,52,48x 43,189,200,180,41,127,160,7,10,10,176,3,136,208,250,185 167,-22,32,237,253,169,186,32,237,253,232,232,232,160 23: # CHARACTERS PER ENTRY (29 MAX) 189,198,-23,32,237,253,23N1121 RTN86,(A256):RTN85,A(A256)2567*U MACHINE CODE IN DECIMAL 32,220,-14,169,255,141,249,-24,32,247,175,169 3: 3 ENTRIES PER LINE 141,206,3,169 8: 8 LINES PER LABEL 141,207,3,169,141,32,237,253,24,32,N(175)(176)2565:LNGTH1494IRTNRTNLNGTH;AuA0A(A)DOS: ADJUSTS ABS JUMP TO PROPER DOS PAGE~I,A I RTN+112 IS ADDR OF SUBRTN WITHIN BODY OF CODE OFFSET MUST BE ADDED TO CALL AT RTN+86 TO RELOCATE CODEART AT FUNC ER04 A132A2A3256FUNC4441060? ER255I :10l BELL$:A$"STANDARD DOS":7000 ::A$"NOT PRESENT IN THIS MACHINE":7000 $  ******************************  POKES MACHINE CODE BETWEEN PROGRAM AND LOMEMRTURNS ER=255 IF NO VALID DOS FUNCTION HANDLERO DOS(978): FIRST PAGE OF DOS FUNCDOS2564248: CATALOG FUNCTION HANDLER  SAVE VALUES OF EXSISTING JUMP AT FUNCTION A1(FUNC):A2(FUNC1):A3(FUNC2)  VARIFIES PROPER JUMP INSTRUCTION:A$"N"900 {A$"Y"600' 60000 600V  ******************************* :::A$"TOO BAD. PROGRAM TERMINATED":7000:BELL$;BELL$;   *******************************  LOC DOS & ADDR OF DOS CATALOG FUNCTION HANDLER,  RET J?2hJ H$ $ h 2 J !` /$ [ B K%"    [    [ E`?ˠЊ ͩ͠Рנˮ?źˠԠŠĠĠӺ˯ҠԠӺȱ `L# ȱŲ(u L?Ġ˯Ҡ ȱ0e%#` i` ȱ :`日\ `œ KHYYeiihe H 8 h   HJJJJ Lg h)  J HJJJJ L h K K( K`?źԠҠԠ٠ŠӠ ( ? ? :ɛL(ɆL]ɐ(Z ʅ  k ?υ LQL(д ?L ͱ ! K K):J1JĢ(JѢJJۢ J (0   !Hȱ?ҠԠٍҠҠŠҠϠ٠0Cɠ 0+ɠ  H e΅he΅0ɠ de΅Υ œhh :Lɺ鯐`YY X# k%Ȣ  ɛL]ɍ [ B d  Ͻu)?%)?PM)?(Z ͠˺?ԺJHh eJȥȥ`i۩ [ $C # X#䓐  L(?ϠӠ 䓰%i# K L$%# [$  B U$ [# K L:0WiȱŲ刱"ȱ…ʥ8 LŲЩ   `ȭ $H B  h$   :$ ?>#`ߢ ˱0U& Kȱ  L$ YY K J̱ !Х"ȱ䲐 ʥ :`iŲ i `?˺?Һ?к??̭ԠנˠӠ̭ϠŠΠՠҠ̭Р٠Ҡ٠ҠԠҠ̭ƠנŠH K )H h L   h` H)Тˢ hբe%# L :ɛL(ɔ# B [$ L ɐ   ɏL е L  X 08e%#  :ɛL(ɔ# B [$ Ldɐ   LɏL ж L )?%)?PM)?(` [!  B ZV :L Ӻé٠ŠЮө٠РٮźH [$ hL LdHHHe" 0ie8爩hhh`  X 0Ȅȱ ƕpLV  ) ȱŲ̩# B|  L(#]ȱŲTȱ ȩZ { ȥ(+ȱ`#ȱŲ i\` $ [) # X [     { 0 Q 0 0 ŲL(_ pip 0ȱL Y襕Y膓  d ZŗߩZ ȱ1J#$ȱŲ 0J Jк 日\ȱi# 0LZ L(ǠǠï?̠ٯ٠٠Ϡ̠Ǡ˯ҠӠ٠٠ϠϠΠ"ʆ po*H80hL h­L( "Ӡ٠٠Ϡ ȥȥȢeȄ҆Ȅ#ǩ [ B ȥio {Dʆ L( {ȱ 8ϭpŲp :/  L(L ˠРٍ Aة / X [ߢ  ΅ R W  :  BL9Lx / XHLL L] [ $Ң  Xz  ɛɲ   ɛɲ   : ɍɛL( ))?P󠠠          70F P:LLZ:X$A$(X):A$(X)A$(L):A$(L)X$:L;".";X$:ALZ:AN70L ZNZ:AN70a Z2N  ***$ *** SORTER ***/ ***8 N22CA$(N)i:::" ";N;:" RANDOM WORDS ":(I1N:J15((1)5):A$(I)A$(I)(((1)26)65)::I;".";A$(I):2:" SORTED LIST ":<A1:L0:Z1 FXAN:YAN:A$(X)A$(Y)AY:IL), THE PROGRAM WILL PRINT THE" 2"HEX DOS ERROR CODE (USUALLY $40), AND THE TRACK AND SECTOR OF THE BAD REGION. USING THIS INFORMATION, UTILITIES SUCH AS 'INIT-A-SINGLE-TRACK' CAN BE USED" 7"TO RESTORE YOUR DISK."D KEY ENDS THE PROGRAM)."t #:" IF A BAD SECTOR IS ENCOUNTERED, A CHARACTERISTIC ''BUZZ'' WILL BE HEARD" (:" IF A BAD SECTOR IS ENCOUNTERED ('BAD'" -"DEFINED AS RETURNING FROM RWTS WITH CARRY SET--SEE DOS MANUAL FOR MORE DETA  :W:" TO USE SWEEPER, BLOAD AND RUN THE FILEWITH *5000G (OR ELSE BRUN)."]" THE PROGRAM WILL THEN PROMPT YOU TO INSERT THE DISK TO BE CHECKED. THEN YOU CAN HIT RETURN TO BEGIN CHECKING THE"; "THE DISK (HITTING ANY OTHERP췍P QɍPhh(L PP Q H Qh  Q  Q PPȩP췭#йLR/QeQlQQԠ˻ΠԠΠϠˬҠϠĮҠޠĠҠˠޠҠީ%P&P0$# 0  H``8`H h 'Qȹ'Q LQ`HH距PLQ     'P  ɛhh K8&L(`ɛ` :``H# B [  B ɰɸ :LhH K   X )?P)?( XƢ  : ɛhhhL(ɍ Xfh 4 `ԠҠƠҺӠ٠٠ϠԯРǠŠŠϠ̠ (# K` ("( K`> 0 ($ 2 % >`%L ȥȥCȩ `ȥ  ` '(?2ɮ 2" [` ` 'P#`膚 ɍ!Ɉ$ɛL( ĊŠԠΠŠĮĩ٠РƠˮƩ٠ŠЮũԠͮ͠ź ǠӠ ŠҺԠˠϠŠĠҠ?ϠŊҠ?Ϡ̊L1256:L1L113:1070:33302SHAPE,L2:33312SHAPE,L1Ro2S1S11::3329,S1:22eo<SHAPENUM31o:"SHAPE TABLE IS NOW FULL.":I1500:I:1750o:::6:" SHAPE TABLE MEMORY USAGE ":24:7:"PRESS ANY KEY TO HALT LIST.";0p3:1:" SHAPENT (Y/N)?";:10:V2171320+nV2061310HnC10:500:C1CC1:1308WnV193İ18fnV211İ16nX050:Y079:0:3:X0131:3:X0210:SHAPEX0,Y0:C:(R11056):S9:1301n::15:"TRY AGAIN.":22:1070:317o(LOCLOC1:L1(LOC256):L2LOCOC1=mj:15:" DRAW1 DRAW2 XDRAW ":}m5:LOC,0:7:1:0:R10:S91:C17:232,0:233,13:SHAPES11mX050:Y079:3:X0131:3:X0210:SHAPEX0,Y0n:" SHAPE OCCUPIES LOCATIONS ";LC;" TO ";LOC;" IS THIS THE SHAPE THAT YOU WAD(2)0D(1)0:D(2)Q:D(3)0:Q0:D2:1065Ml$D(1)Q:D(2)0:D(3)0:Q0:D1tl)DZD(1)D(2)8:LOC1,Z:LOC2,0l+LOCLOC1:BX(LOCLC)X:BY(LOCLC)Y:BYTEBYTE1:23:9:BYTE:12:LOC;:LOC81901490l,l.D0:D(1)0:D(2)0:D(3)0:m`ZLOCLV211820*kM16:SHAPEX0,Y0:S9:805UkRX0(0)327985Y0(1)319185820kk\SHAPEX0,Y0:810kF0:DD1:D(D)A:F(D(3)):D(3)3QD(3):D(3)0kZD(1)D(2)8D(3)64:LOC,Z:LOC1,0:D3ıkF0Q0D0:D(1)0:D(2)0:D(3)0:1067,lURN WHENSATISFIED. X = Y = ";yj*X0((0)327985):Y0((1)319185):SHAPEX0,Y0:23:16:X0;" ";:25:Y0;" "j4V(16384):V128850j916368,0:V141Ē3:SHAPEX0,Y0:X0138:Y079:7:49j>V193İ18:SHAPEX0,Y0:(R11056):805 kHV194C16iV214C12,iV207C15{:S81:2500{DC17:15:" VIEW SHAPE ";::" WHICH SHAPE (0=NONE)";SHAPE{GSHAPE1SHAPES11750{I20::21:13:SHAPE;" ";::868|J:" PRESS RETURN FOR NEXT SHAPE S=SCALE A=ANGLE =NO SAVE)? ";A$:A$""ĉ:::D$;"CATALOG"::1825Dz#A$"0"1750vz&D$;"BSAVE";A$;",A3328,L";LOC3328:S80:1750z015:" DELETE SHAPE ";::" PRESS RETURN";:10:15:868:" WHICH SHAPE? ";SHAPEz5SHAPE1SHAPES11750/{621:17:" DELET"V=VIEW SHAPE C=CLEAR TABLE Q=QUIT";:1775~y15:" LOAD NEW TABLE ";::" WIPE CURRENT ONE (Y/N)?";:10:V2171750y21:17:868::1721y15:" SAVE TABLE ";::" PRESS RETURN";:10:13:868:3z!"WHAT NAME (RETURN=CATALOG, 0xV2161750*xV198V209V2121880:xV1951920[xV205(3329)0İ1500:1750xV205ė:" THERE ARE NO SHAPES IN MEMORY.":I1600:I:1750x:"A=ADD SHAPE L=LOAD TABLE M=MEMORY D=DELETE SHAPE S=SAVE TABLE X=STATUS"0y SHAPES ":" BYTES ";BwS1(3329):NUM(3328):C7:R10:S91w:23:13:S1;:23:NUMS1;:34:NUM:13:LOC3328;:23:8192LOC;:34:4864;w10:2:V193İ22:CFLAG1:XFLAG1:31wV2041800wV2111820wV1961840wV2141860721`v:D$;"BLOAD ";A$;",A3328":NUM(3328):S1(3329):LOC3328(33302S1)256(33312S1)mv:34,20v232,0:233,13:251,0:252,0:16304,0:16301,0:16297,0:34,20:w:15:" COMMAND MODE ":34,21:" USED REMAINING TOTALNT (LIMIT 255) ";NUM:NUM017028uNUM1NUM2551705[u3328,NUM:3331,0:S10:3329,0uLOC33322NUM:L1(LOC256):L2LOCL1256:3330,L2:3331,L113:LOC,0::1730v" WHAT IS THE TABLE NAME (RET.=CATALOG)? ";A$:A$""ĉ::D$"CATALOG"::1AW OR DISPLAY MODES WILL RETURN CONTROL TO THE COMMAND MODE."bt" PRESS ANY KEY TO BEGIN.";:10t:10:"DO YOU WISH TO START A NEW SHAPE TABLE OR LOAD AN OLD ONE (N OR O)?":10:V2061705tV2071721t1702 u" HOW MANY SHAPES DO YOU WA YOU CAN CREATE A NEW"lsh"SHAPE TABLE OR ADD TO AN EXISTING ONE. SHAPES MAY BE VIEWED OR DELETED AT ANY"sm"TIME. PRESSING THE SPACE BAR WILL DISPLAYTHE COMMANDS THAT CAN BE USED AT THAT "=tr"TIME. PRESSING THE ESC. KEY WHILE IN SHAPE DR BY ROBERT C. CLARDY"hr[23:"COPYRIGHT 1980 BY SYNERGISTIC SOFTWARE":D$"BLOAD HIRES":2893r^14:" THE HIGH RESOLUTION SHAPE TABLE GENERATOR PROGRAM IS A GRAPHICS UTILITY"sc"PROGRAM THAT CAN BE USED TO DRAW AND STORE SHAPES. (37):16368,0:24:868:7:"CONTINUE (Y/N)?";:10:V217Ĉ:16297,0:q7::"PRESS ANY KEY TO HALT LIST.";:J1::1530qOD(3),BX(300),BY(300):D$"":232,0:233,13qQ::8:11:"THE SHAPE MAKER 2"rT" A HI-RES SHAPE TABLE GENERATOR START END LENGTH "::34,3:35,23zpS1(3329):I1S1:J33282I:5:I;:14:BG(J)256(J1)3328:BG;pEN(J2)(256(J3))3327:23:EN;:34:ENBGp(16384)128ĂI:24:1:868:14:"PRESS RETURN.";:10::16297,0:JqJ WHICH SHAPE (1 TO ";N;")";5mA$:A$""A$"0"240NmI(A$):I1IN270ZmSHAPEIm:"V,G,B,O,W=COLORS A=ANGLE S=SCALE";m:DFLAG0:X0100:Y0100:SHAPEX0,Y0:901:F3441n" DISPLAYING SHAPE ";SHAPE;" "::"RETURN=NEXT SHAPE ::D$;"CATALOG"::360Ll|D$;"BSAVE";S$;",A16384,L";L216384:FLAG0:335Xl233,13l1:0:7:C7:F30:N(3329):900:" DISPLAY SHAPE ";::" SHAPE TABLE 1 OR 2? ";l1000:V177V178402lV178Ĺ233,64:F31:NS2m21:16:868:")256(33312S1)akY:23:6:S1;:27:S2;" OF ";N2:3:L1;" BYTES";:27:(L216384);" BYTES";gk[k^900:" SAVE TABLE NUMBER 2 ";::" PRESS RETURN":1000:21:868:kh"WHAT FILE NAME (RETURN=CATALOG, 0=NONE)?";S$kmS$"0"240lrS$""2S2)256(163872S2):jJV177ĺD$;"BLOAD";A$;",A3328"QjLV177V178325zjO16304,0:16301,0:16297,0:34,20jT270jU34,21::jV" TABLE 1 TABLE 2 ":16:" SHAPES ":16:" LENGTH ";kWS1(3329):L1(33302S1E 1 ('FROM' TABLE) OR"DiF"SHAPE TABLE 2 ('TO' TABLE)?";:1000::iGV178(16385)0ė:"YOU WILL LOSE SHAPES CURRENTLY IN TABLE 2. PRESS RETURN TO CONTINUE.":1000:V178jHV178ĺD$;"BLOAD";A$;",A16384":N2(16384):S2(16385):L216384(16386"GFLAG1:190Yh,900:" LOAD A SHAPE TABLE ";::" PRESS RETURN";:1000:21:868:h6"LOAD WHAT FILE (RETURN=CATALOG, 0=NONE)?";A$h@A$""ĉ::D$;"CATALOG"::310hBA$"0"270iE:I110::I:"LOAD FILE ";:"'";A$;"'":"INTO SHAPE TABL8:13:"WHICH COMMAND?";"g1000@g232,0:233,13:V204300OgV211350^gV196400mgV212450|gV218500gV216270gV2091500gV2011100gV195240g900:" CLEAR SECOND TABLE ";::" PRESS RETURN":1000h,0:16301,0:16297,0:34,20:f:" LEGAL COMMANDS ARE: ";::"L=LOAD TABLE T=TRANSFER I=INSERT";f"S=SAVE TABLE D=DISPLAY ONE X=STATUSC=CLEAR TABLE Z=DISPLAY ALL Q=QUIT";:272g251,0:252,0:341:21:1:86eV194C6eV207C5-eV215C7::" SHAPE # ";SHAPE;" HAS BEEN DELETED":5010:SHAPES2414nvHLOC2,0:LOC21,0:335wv341v21:1:868::v:" TABLE 2 IS FULL":5000:335vV(16384):V1281000v16368,0:V155ıv:270 wL256(I1)]u*768,216:769,160:770,0:771,76:772,44:773,254:66,(I):67,(I1)64:768u/J163862SHAPE:KJ2:LS222SHAPE:I0L12:T1(KI)256(KI1)M:JI,MOD(T1):JI1,(T1256):I v4163862N2,0:163872N2,0:S2S21:NN1:L2L2S61:S6S651:NS6S6N$t&:510kt :" DELETE SHAPE NUMBER ";SHAPE;" (Y/N)? ":1000:V217412t":::9:" DELETING SHAPE ";SHAPE;". ":t%I163842SHAPE:60,(I2):61,(I3)64:62,MOD(L2):63,(L2256) u'M(I2)256(I3)(I)EK:LKS5:X0(L10(L10))30:Y010(L10)30:SHAPEX0,Y0:Ks901:"1 2 3 4 5 6 7 8 9 10":::" SHAPES ";S5;" THROUGH ";S6;s" OF TABLE ";T;". PRESS RETURN TO CONTINUE.";sDFLAGT:1000:V141273sS6N270tS52;" OF ";N2:27:(L216384);" BYTES";+rtrN(3329):900:" DISPLAY SHAPE TABLE ";::" TABLE 1 OR 2? ";:r1000:V177V178502rV178Ĺ233,64:NS2rTV176:22:868:T;" ";:::S51:S650:N51S6Nr0:1:7AsKS5S6:SHAP5:X0(L10(L10))30:Y010(L10)30:SHAPEX0,Y0:455}qL33282SHAPE:J3328(L)256(L1):K3327(L2)256(L3)qIJK:L2,(I):L2L21:I:S2S21:L2L21:163862S2,MOD(L2):163872S2,(L2256)64%r16385,S2:FLAG1:23:27:F90ĺS:" TRANSFER A SHAPE ";::" WHICH SHAPE";?pS2N2920YpA$:A$""A$"0"270{pI(A$):SHAPEI:I1IS1270pDFLAG460p:X0100:Y0100:SHAPEX0,Y0p470:21:11:868:" SHAPE ";SHAPE;" XFERED. NEXT";:DFLAG2455:qLS2S13:"NO MORE SHAPES";:5010:270bo901:" DISPLAYING SHAPE OF TABLE 2 ";:22:SHAPE:o" RETURN=NEXT SHAPE, D=DELETE SHAPE"o"NOTE: YOU CANNOT TRANSFER FROM TABLE 2";:1000:V212441oV196800o423oS2N2920/p900 T=TRANSFER SHAPE"; n1000onV212F91:470:F90:901:" SHAPE ";SHAPE;" HAS BEEN TRANSFERRED.":421n210:C8ĒC:415nV193İ220:R:414nV211İ230:SC:414nV141273nSHAPESHAPE1:SHAPEN440n415 o34,20:::0R32R48R64R16IX0:X0X02(COLR6COLR2)1:X0X0(X00X0280)279(X0279):SHAPEX0,Y0:X0IpIX0:JH:KY0:4100pA(16336)(16336)(16336):190pIX:KY:JVT:4200:XX0:YY0:145QqSC(R0R16R32R48):IX0(R3:SHAPE1:0:1GoX0((0)327985):Y0((1)319185):SHAPEX0,Y0oX0((0)327985)Y0((1)319185)(16384)128139oSHAPEX0,Y0:V(16384):V128138o16368,0:232,0:233,13:R:COLRC:COLR:SC:XX0:YY0:191np3:COLR7R45 nV155EFLAG0:40:410nV212150=n133:41n999:" TYPE MODE "::600:DF7:610:620:H7:VT9:COLR7SC2H8:VT10nHHSC:VTVTSCn:" USE PADDLES TO INDICATE STARTING POINT.":I1200:I:16302,0o232,223:233,11mgV207COLR5mh3:45+miV211108Qmj620:COLR8EFLAG0ĕSHAPEX0,Y0hmkSC:3:EFLAG0:45xmlV193115mm600:EFLAG0COLR8ĕSHAPEX0,Y0mnEFLAG0:R:3:45msV198130m}FFLAGFFLAG:FFLAG0Ĺ16301,0m~FFLAGĹ16302,0n. = ";Y:Y0Y19188/lYEFLAG0ĕSHAPEX0,Y0XlZX0X:Y0Y:EFLAG0::SHAPEX0,Y0:45l[V206V203V215V214V194V199V207105l\V206COLR8lbV203COLR0lcV215COLR7ldV214COLR2leV194COLR6lfV199COLR10DY192):Y0191Y0Y0192:Y0191Y0Y0191DkSEFLAG0:3:26:60mkTV197ĕSHAPEX0,Y0:EFLAGEFLAG:45kUXX0:YY0:16301,0:V216V21791kVV216Ģ22:1:868:12:"NEW X COORD. = ";X:X0X27986lXV217Ģ22:1:868:12:"NEW Y COORD9541jAV136V204'jBV149V210QjDDX(V210)(V204):DY(V196)(V213)ajFDXDY084jHPFLAGCOLR8ĕSHAPEX0,Y0jKPFLAG0:FFLAGĹ16302,0jPCOLR8EFLAG0ĕSHAPEX0,Y0jQX0(X0DX280):X0279X0X0280:X0279X0X0279-kRY0(Y:10:"WORKING WITH SHAPE ";SHAPE:4:FFLAGĹ16302,0Li.FFLAG0Ĺ16301,0i/"SCALE =";:29:"X =":4:"ANGLE =";:29:"Y =";:26:PFLAG302i0DFLAG62i<200i>V2PFLAG1:302i?DFLAG0:V218Ĺ16299,0:16302,0:200:16300,0:45j@V1:868:13::" DISPLAY MODE "::SFLAG1:Oh)999:" DISPLAY MODE "::SHAPE1h*R0:SC1:COLR8:PFLAG0:16301,0:F20:0:1::" WHICH SHAPE (0=NONE, RET=COMMAND MODE)";A$:A$""1000h+EFLAG0:A$"0"150h,2050:X0100:Y0100:SHAPEX0,Y05i-:X0?g12:(R5610)(R0)(R46);:33:" ";:33:Y0;::Lg":34,20Rg#g$" LOAD WHICH SCREEN (RETURN FOR CATALOG, 0 = NONE)? ";SC$:SC$"0"C1$"NOT NAMED.":g%SC$""ĉ::D$;"CATALOG":36g&C1$(SC$,20):D$;"BLOAD";SC$:*h(21:10"ĺ"BLOAD";A$;",A16384"f%f+fif" SHAPE TABLE NAME (0=NONE, RET=CATALOG)? ";A$:A$"0"ıfST$A$:ST$""ĉ::D$;"CATALOG"::23fT1$(ST$,20):D$;"BLOAD ";ST$;",A3328":232,0:233,13:NUM(3329):g:23:12:SC;:33:" ";:33 THE SHAPE IS MOVED.A NEW SHAPE TABLE CAN BE LOADED AT ANY TIME."e" PRESS RETURN WHEN READY TO BEGIN.";:200:21:34:34,20::18:1000e" ENTER NAME OF SAMPLER SCREEN IF DESIRED (RET=CATALOG, 0=NONE).";A$:A$""ĉ:"CATALOG":18fA$"MANDS CAN BE DISPLAYED BY PRESSING THE SPACE BAR WHILE IN COMMAND ENTRY MODE. THE COMMANDS ALLOW SHAPE"d"MOVEMENT, ERASURE, PLACEMENT, AND SWEEPING. THE LATTER FUNCTION CAUSES AREAS OF COLOR (SPECIFIED BY THE USER)"Be"TO BE LEFT BEHIND AS PREDEFINED SHAPES (REFER TO SHAPE TABLE GENERATOR). SHAPES, TEXT, LINES,";{c " POINTS,AND AREAS OF COLOR CAN BE PLACED"c "ANYWHERE ON THE SCREEN. THIS ALLOWS THE USER TO MAKE MAPS, GRAPHS, GAME LAYOUTS, DISPLAYS, ETC."gd" LEGAL COM PROGRAM ":10:"BY ROBERT C. CLARDY"xb 23:"COPYRIGHT 1980 BY SYNERGISTIC SOFTWARE":D$"BLOAD HIRES":2893:11:958b 13:1:" THIS PROGRAM IS A HIGH RESOLUTION GRAPHICS UTILITY. IT CAN BE USED TO"Kc "CREATE A HIGH-RES SCREEN PICTURE USING 286)1288aNP1:::10:"MUCH OF THIS PROGRAM'S OPERATION WILL REQUIRE THE USE OF THE GAME PADDLES. DO YOU WISH TO PLUG THEM IN BEFORE BEGIN- ING (Y/N)?":200aV217ė:10:"TURN OFF YOUR APPLE AND PLUG IN PADDLES.":%b:10:9:"SCREEN CREATOR SCREEN L=LINES N=NEW TABLE ";iB" C=CLEAR SCREEN P=POINTS Z=SAMPLER M=MOVE SCREEN";:1020999:" SAVE SCREEN ":ʀ:"SAVE TO WHAT NAME (0=NONE, RET=CATALOG)?";SC$:SC$"0"1000SC$""ĉ:D$;"CATALOG":2005)D$;"BSAVE ";SC1951080;0999:" CLEAR SCREEN "::DF0:610:0,014,03768,216:769,160:770,0:771,76:772,44:773,254:60,0:61,32:62,255:63,63:66,2:67,32:768:1000834,20:#="T=TYPE Q=QUIT G=GET SCREEN D=DRAW X=STATUS S=SAVE$V2091070/~%999:"  TERMINATING! ":p~&SFLAGĺ" SAVE SCREEN FIRST (Y/N)?":200:V2171000~)SFLAG0ĺ" PRESS RETURN.":200~*::10:"TYPE 'GOTO 10000' TO REENTER PROGRAM WITH SCREEN AND SHAPES INTACT.": .VCT1:5007} V208İ999:"DRAW BY POINTS":PT1:1026e} V206İ999:" NEW TABLE "::22:1000{} V212İ133:1000} V218Ĺ16299,0:16302,0:200:16300,0:1000}V211İ2000:1000}V2054000}V2161000}V196SFLAG1:41~|999:" DRAW BY LINES"Q|34,22::" C = CONTINUOUS P = PUSHBUTTON";e|200:V208500v|V1951000|22:958:" DESIRED SPACING OF ENDPOINTS (1-100)";SP:SP1SP1001030|22:958:" AUDIO FEEDBACK (Y/N)?";:200:V217AU1 }NS ";NUM;" SHAPES.":FFLAG0ĺ"CURRENT SCREEN ";:1016O{:"FULL SCREEN ";:_{"IS ";C1$;~{200::34,21:V1991024{999:" GET SCREEN  "::" MAIN OR SECONDARY SCREEN (M/S)?":200:V205İ35{V211İ18{1000{V2041033T SCALE (1-9)?":200:SCV176:SC1SC9SC14zmSz34,21:::21:868:13:zDF0:16301,0:16304,0:16297,0:34,20:999:" COMMAND MODE ":34,21:z251,0:252,0:232,0:233,13:PT0:CT0:SP0:T06{:"CURRENT TABLE IS ";T1$;" IT CONTAIb:" WHICH COLOR (V,G,B,O,W,K)? DEFAULT = ";:DF0ĺ"BLACK";eycDF7ĺ"WHITE";}yd200:C8:V199C1yeV194C6yfV207C5ygV214C2yhV203C0yiV215C7yjC8CDFykCOLRC:COLR:.zl:" WHAY0:560\x&SHAPEX0,Y0:IX0:JY0:X0X:Y0Y:X0,Y0:X0I:Y0J:X0,Y0:XX0:YY0:SHAPEX0,Y0x0AUA(16336)(16336)(16336)(16336)x:514xX:" 0 270 + 90 WHAT ANGLE 180";:23:28:R:R0R360600xYR(R1056):Qy232,0:AU0:CT0:PT0:1000Kw X0((0)327985)Y0((1)319185)514\w SHAPEX0,Y0wX0((0)327985):Y0((1)319185):SHAPEX0,Y0:22:17:"X = ";X0;" ":17:"Y = ";Y0;" ":T0CT0514w(XX0)(YY0)SP515x!PTēX0,Y0:XX0:Y:JY0:X0X:Y0Y:X0,Y0:X0I:Y0J:X0,Y0:XX0:YY0:SHAPEX0,Y0:T1nvI110:A(16336):I:I120:I:514vV(16384):16368,0:V127524vV198FFLAGĹ16301,0:FFLAG0:524v V198FFLAG0Ĺ16302,0:FFLAG1:524w SHAPEX0,Y0:233,13:SCREEN TOGGLE)";:I11000:Iu:FFLAG0:T0:0:1:232,223:233,11:SHAPE1:X0((0)327985):Y0((1)319185):SHAPEX0,Y0uXX0:YY0u(16286)127T0:518u(16287)128519uT0PTēX0,Y0:T1:XX0:YY0:518CvSHAPEX0,Y0:IX0(16384):16368,0:V12865OtEX0((0)327985)Y0((1)319185)320tJSHAPEX0,Y0:X0((0)327985):Y0((1)319185):SHAPEX0,Y0:26:320t^16368,0:45tDF7:610u:" USE BUTTON 0 TO START, BUTTON 1 TO PAUSE (F = FULL 60142sSHAPEV158s143csV(16384):V2((16287)127)((16286)127):V128V2NP200}s16368,0:V1551000ss.FFLAGĹ16302,0s1COLR8EFLAG0ĕSHAPEX0,Y0s6EFLAG0:X0((0)327985):Y0((1)319185):SHAPEX0,Y0t@VPADDLE MOVEMENT"ir"U,D,L,R,X,Y=MOVE F=FULL T=TYPE V,G,B,O,W,K=COLORS C=CHANGE N=NO COLOR";r"S=SCALE A=ANGLE E=ERASE Z=SAMPLER";:200:DFLAG1r999:" DISPLAY MODE "::45r200:V136147rV141146rV155ısV13)2(R32R48):JH:KY0:4100:SHAPE1:COLR0:0:SHAPEX0,Y0:X0X0(R32):SCqCOLR1R10R116R132R148R164IX0:X0X02(COLR6COLR2)1:SHAPEX0,Y0:X0IqX0X01:COLRC:COLR:145r16301,0:34,20::"PADDLE PUSHBUTTON => ժժժժժժժժժժժժժժժժժժժժժժժ QT*"ժժժժժժժժՊԪժժժժժժժժժժժժժժժժժժժժժժժժժժժժ(ժժժժժժժժժԪժժժժժժժ"          6?U $dI2-U--??d ?-($$$-?'- ? -< $$$?---d $$66v- $$-` $$M16'$$$$66-5&$$$?d l )=$$$> --?' ?- / ?I$$$6.??$$- ?'$--)- ?7&$ (-!d --'466&,??L(-?`-3666II%` ;.)) c݃ )  $` $``L666 `( $4>/-- ) ?(--;` I $d-66? -((@KA0UW_hz#/<JScoty&0;KWes#-6?GI """""M L] ` -   8 8  m m  m     `#$ $䛒:??RII!$$ H---Be>BCe?C8BBBCB<>=?>?>` $"X0279UrY0(KJ(R10R50)J(R20R42)191):Y0191Y0Y0191:Y0191Y0Y0191[|':"ERROR CODE NUMBER ";(222):"PRESS RETURN.":A$: '216,0:9990'1000D6,0:67,32:768:4005dX0(IJ(R15R52)J(R20R44)279):X0279X0X0279:X0279X0X0279Y0(KJ(R4R30)J(R36R62)192):Y0191Y0Y0192:Y0191Y0Y0191hX0(IJ(R34R60)J(R4R26)279):X0279X0X0279:X0279X0й61,63:63,63:67,28:3072:60,128:62,255:62,215:66,40:67,28:3072{60,0:61,60:62,127:63,63:66,128:67,28:307260,0:61,28:62,255:63,59:66,0:67,32:3072:4005݄60,1:61,32:62,0:63,64:768:400560,0:61,64:62,255:63,95:6V20040504002X8191,(16383):60,255:61,31:62,254:66,0:63,63:3072:400261,32:63,63:67,28:768:60,128:61,28:63,31:66,0:67,60:76860,40:61,28:62,128:63,28:66,128:67,63:768:60,0:62,39:66,216:768:4005F60,216:771,76:772,44:773,254:60,0:61,32:62,255:63,63:66,0:67,64:768[200:V1984007FFLAGFFLAG:FFLAG0Ĺ16301,0FFLAG1Ĺ16302,04002˂60,0:62,255:66,0:67,32:V2134020ۂV1964030납V2044040V2104019 $;",A8192,L8184":I20:(SC$)20I(SC$)FC1$(SC$,1,I):SFLAG0:qSHAPE(A$):SHAPE1SHAPENUMSHAPE1wၠ999:" MOVE SCREEN "::" U L + R WHICH DIRECTION? D (H=HOME, F=FULL)";E768,216:769,160:770,0: