' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( ϠΠŠŠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`# d ֠z# u`129:C5130:C6128:C7173:C8208:C934:A165:A290:A348:A457:A536:A637:A744:A8127:B1190:B2132:B3135:B4131' I1107' TKN$(I)' I' TKN$(36)TKN$(36)":":TKN$(37)TKN$(37)":"' END,,,DATA,INPUT,DEL,DIM,READ,GR,TEXT'( PR#,IN#,CALĹ176,(104)14&H 103,1:104,8:RESET SOP POINTERSR&R 0::N;" LINES PRINTED."s&\ (7);"LISTING COMPLETE...."y&f &p DATA INITIALIZATION SECTION&q BYTE0:LOC0:B55:B62049&z TKN$(127),CO$(200),LINE$(200),DF%(200)r' C1178:C258:C3196:C4 LNE$" ":TXT$"":RM0:NN1:BYTE0SPACESPACETHN:THN0[% NFRSPACESPACE3:NFR0a% n% WRAP UP% COMMENTSCX1:1850% 0% XREF2050% 1%* I175PAGE(N):" ":%4 175,(103):176,(104):RESET EOP POINTERS&> (175)255:WIDTH(A$));A$:US$:" ":X(0)$ LX(LNE$):LNE$;SPACE);(TXT$,WIDTHSPACELX):((TXT$)SPACELX)WIDTH3290:TEXT FITS ON ONE LINE$ TXT$(TXT$,(TXT$)LXSPACEWIDTH):RMāT1KOMMENT2SPACE:TXT$" "TXT$:$ LNE$" ":NN1:3250>%GRAM IS "(SIZE)" BYTES LONG.":3240# LNE$" COMMENTS ACCOUNT FOR APPROXIMATLY "(KM)" BYTES ("((KMSIZE100))"%)."# 3240# 3320# PRINT OUT A LINE#$ PAGE(N)āT1SKIP:" "::SKIP6:NN11:NAME$:TIME$:A$"PAGE - "((NS6)1)"N I6"X LNE$"":TXT$" ":3240:LNE$"NOTES:":3240q"b LNE$" * INDICATES SYMBOL REFERENCED ONLY ONCE.":3240"l LNE$"** INDICATES SYMBOL EQUIVALENT TO PREVIOUSLY DEFINED SYMBOL.":3240"v LNE$"-> INDICATES UNDEFINED SYMBOL.":3240&# LNE$" PRO J! LOLD07! (TXT$)MX3140:CHECK LINE LENGTHL! J1MX1:KMXJf! (TXT$,K,1)" "3090m! J! KK1:(TXT$,K,1)" "3090! B$(TXT$,K1)!& TXT$(TXT$,K):3240:TXT$B$!0 LNE$(" ",MAX)!: 3050"D 3240"**"(LNE$,3), CO$(I)" "OLD$CO$(I)X J1(LINE$(I))2:DECODE LINE NUMBERS L((LINE$(I),J,1))BLK((LINE$(I),J1,1)) LLOLDTXT$TXT$(" "(L),6) LOLDL:(TXT$)249LINE$(I)(LINE$(I),J2):CO$(I)" ":II1:3040!$(I),3):SYMBOL ONLY OCCURS ON ONE LINE[r LNE$(CO$(I)" ",MAX)| (CO$(I),3,2)(OLD$,3,2)2970:CHECK FOR DUPLICATE SYMBOLS A$(CO$(I),1):A$"%"A$"$"ĭ(OLD$,1)A$LNE$"**"(LNE$,3) A$"%"(OLD$,1)"%"LNE$OLD$" ":ITRASH:UNDEFINED SYMBOL FOR TEST PURPOSESG@ I1KNTJ CO$(I)" "LNE$(" ",MAX):2980T CO$(I)" "CO$(I)^ DF%(I)CO$(I)"->"(CO$(I),3):2930:UNDEFINED SYMBOL'h (LINE$(I))2CO$(I)" *"(COA$:IDF%(L):DF%(L)DF%(K):DF%(K)I:I(16336):M" OUTPUT CROSS REFERENCE, 1:33,40:34,0::BYTE1:SPACE0:RM0:MAXMAX2:MXWIDTHSPACEMAX:LNE$"":TXT$" ":3240:LNE$"":TXT$"BEGIN CROSS REFERENCE......":3240:6 LNE$"":TXT$" ":3240:SPACE1:LOC2:2340 23700 SORT CROSS REFERENCEK :20:25:"SORTING":z LKNT21:K1:C$(CO$(1),2)(CO$(1),1) J2L:B$(CO$(J),2)(CO$(J),1):B$C$KJ:C$B$1 :A$CO$(L):CO$(L)CO$(K):CO$(K)A$:A$LINE$(L):LINE$(L)LINE$(K):LINE$(K)'IF'x LPLP0:23708 (CO$(I))MAXMAX(CO$(I))T (LINE$(I))25427450 LINE$(I)LINE$(I)(LNEBLK)(LNE(LNEBLK)BLK) 2770 "TOO MANY REFERENCES TO ";CO$(I);".":"REFERENCES AFTER LINE #";LNE;" IGNORED.":2770  BYTE0LOC),4);:16:25:25:16:(" "SYMBOL$,15):CO$(KNT)SYMBOL$gF SYMBOL$"":SYMBOLNNNNIP SYMBOL(BYTEC8RD)DF%(NN)1:SYMBOL0Z BYTEC7TEST1:BEGIN 'IF'd BYTEC2SYMBOL0:NN0:'COLON' n BYTEC3TEST0:NN0:SYMBOL0:END $""Ģ24:1:LNE;9);SYMBOL$:TESTSYMBOL1D 33,39:KNT02600Q I1KNT| SYMBOL$CO$(I)2630:NOT A NEW SYMBOL ( SYMBOL$""27702 KNTKNT1:IKNT:KNT200ĺ"TOO MANY SYMBOLS FOR CROSS REFERENCE";(7):G< 14:36:(" "(KNTBYTE02500 2 BYTE0WRDLOCLOC2:2340 (BYTEA1BYTEA2)(WRDBYTEA3BYTEA4)2530:NON-VARIABLE CHARACTER SYMBOL$SYMBOL$(BYTE)::WRD1:2370 WRDLP1:2640 BYTEA5BYTEA62520:'$' OR '%' - WRD0:33,22:SYMBOLCHECK FOR 'DATA' & 'REM' TOKENSB` BYTEC1RE1:KMKM5:COMMENTj I1255:BYTE(LOC):LOCLOC1:BYTE0RE0:LOCLOC2:2340t REKMKM1~  BYTEC92500:CHECK FOR QOUTED LITERAL I1BLK:BYTE(LOC):LOCLOC1 BYTEC92550  "(LNE),B5);:KKKK1:10:35:(" "(KK),B5);8 12:35:(" "(LOCB6),B5);:13:35:(" "(((LOCB6)L))"%",B5);:LOCLOC2B BYTE(LOC):LOCLOC1L BYTEB1BYTEB2BYTEB3RD1:READ, GET OR INPUT V BYTEB4BYTEC12450:EFERENCE (IE. SPEED UP PROGRAM)BSTART(121)BLK(122):I13g (START)0STARTSTART1:2310 STARTSTART1::103,(START):104,(START1) CROSS REFERENCE$ LOCEOP27904. LNE(LOC)(LOC1)BLK:SYMBOL0:NN0:RD0:9:35:(" "PROG. BYTES ";(" "(L),5);ALL0.0099:32,0:12:23U"CURRENT BYTE"d32,22:23v"% COMPLETE""SYM TABLE LEN""LAST SYMBOL:"34,7:32,0LOC8BLK3:2290SET START OF PROGRAM ADDRESS TO STARTOF CROSS R---------------------------------":A$Q>"LINE";9);"CURRENT";23);"OPERATING"yH"NUMBER SYMBOL";23);"STATISTICS"R(A$,7);" ";(A$,13);" ";(A$,18)\32,22:23f"CURR. LINE"p"LINES PROC."zLEOP2049:SIZEL:SAVE PROGRAM SIZE$3340LNE$" "#TXT$"+"BI1LNB5:TXT$TXT$"-":ZTXT$TXT$"+":3240`}GENERATE STATUS DISPLAY XREF0:(4):BEGIN STATUS DISPLAY 14);"*** LACRAB ***"*5);"SYMBOL TABLE GENERATION MONITOR"&4A$"-------:SPACE1SPACE1:CENTER COMMENTSFv2000:BOX THIS SET OF COMMENTSXI1COMMENTSLNE$(CO$(I),B5):TXT$(CO$(I),6)J(CO$(I))LNTXT$TXT$" "::TXT$TXT$"!"3240:2000COMMENTS0:LNE$SVE$:SPACESSPACE:CX1230EA8TXT$TXT$" "TKN$(BYTEA8):1770BTXT$TXT$(BYTE):1770X0PROCESS COMMENTS:SSPACESPACE:SAVE CURRENT SPACINGDLN0:SVE$LNE$NI1COMMENTS:FIND LENGTH OF LONGEST COMMENTX(CO$(I))LNLN(CO$(I))b"lSPACE(WIDTHLN)21610SPACESPACE3'BYTE0116011190EPROCESS 'NEXT'iSPACESPACE3:TXT$TXT$"NEXT "BYTE(LOC):LOCLOC1:BYTE0İ3240:LOCLOC2:1160BYTEC2TXT$TXT$":":3240:1190BYTEA7TXT$TXT$",":SPACESPACE3:1770&BYTTXT$"FOR "&JBYTE(LOC):LOCLOC1HTBYTE0İ3240:LOCLOC2:1710[^BYTEC21660vh(LOC)C1NFR1:1230rTXT$TXT$":":3240:1710|BYTEA81690TXT$TXT$TKN$(BYTEA8):BYTE210TXT$TXT$" "1610TXT$TXT$(BYTE)T$" "::QUOTE03 TXT$TXT$"! ":LOCLOC1:1190E QUOTEİ3240O 1190c PROCESS 'THEN' TXT$TXT$" THEN":THNTHN3:3240:SPACESPACE3:(LOC1)A3(LOC)A41190 "TXT$"GO TO ":ADD IMPLIED 'GO TO' ,1190 6PROCESS 'FOR' @TXT$)LNE$"! "= xBYTE(LOC):LOCLOC1:BYTE0LOCLOC2:1160k CO$(COMMENTS)CO$(COMMENTS)(BYTE):1400~ PROCESS COLON TXT$TXT$":" (LOC)1781510:CHECK FOR 'REM' J(TXT$)SPACEB5:RM1:JKOMMENT1500 IJKOMMENT TXT$TXINE7 TXT$TXT$TKN$(BYTEA8):BYTE210TXT$TXT$" "A 1190k BYTE0İ3240:QUOTE0:LOCLOC2:1160 (TXT$TXT$(BYTE) 2BYTE341190 <QUOTE0QUOTE1:1190 FQUOTE0 P1190 ZPROCESS COMMENTS dCOMMENTSCOMMENTS1:CO$(COMMENTSLNE$(" "(LNE),B5):CONVERT LINE NUMBER TO STRINGS BYTE(LOC):LOCLOC1m CHECK FOR KEY TOKENS BYTEC11380 COMMENTS1850 BYTEC21450 BYTEC31540 BYTEC41600 BYTEC51750 BYTEC61310 BUILD UP THE L* CHELMSFORD, MA 01824 *7 8 * ALL RIGHTS RESERVED *V B * *u G ************************ V3440:CALL INITIALIZATION ROUTINE `MAIN PROGRAM tLST3320 ~1 LOCEOP3320 LNE(LOC)BLK(LOC1):LOCLOC29 Z(  ************************? * *^ * APPLESOFT *} * BASIC PROGRAM LISTER * * N. R. MCBURNEY * * * * COPYRIGHT (C) 1982 *$ * MICRO INK, INC. * .                **************(%* *B%* TRICK DOS *\%* *v%* BY S MOSSBERG MD *%* *%* (914) 937-6400 *%* *%********************DTH20((TT$)2):WIDTH0ĺTT$:4$0 WIDTH:TT$:T$ CONTINUE/END p$ 23:12:"[ESC] TO END"$ 24:8);"[SPACE] TO CONTINUE ";$ "[ ]";:29:ZZ$:ZZ$(27)ZZ$(3)ĉ::1510$ ZZ$(32)ı$ 868:1008:3230: %******# TT$SS$:3110:3110=# TT$" TRICK DOS ":3110U# TT$SS$:3110:3110{# TT$" BY SANDY MOSSBERG ":3110# TT$SS$:3110:3110:# 16:TT$"CUSTOMIZE YOUR SET OF DOS COMMANDS!":3110# 3210:# PRINT CENTER "$& WI" SYNTAX ERROR IF A DIRECT OR DEFERRED":" COMMAND UTILIZES 'NORMAL' TERMINOLOGY.""d "6.";::"TRICK DOS";::" IS MENU-DRIVEN AND SELF-":" PROMPTING. HAVE FUN!!!""n 34,0:3210:" TITLE PAGE " SF APPLE CORE FORMAT " :4DOS COMMAND":" DOES NOT DUPLICATE THE FIRST PART OF":" AN APPLESOFT BASIC COMMAND, OTHERWISE":" UNUSUAL EVENTS MAY OCCUR. EXPERIMENT!"!P " TIREDNESS OR SILLINESS MAY RESULT IN":" WEIRD SYMBOLS!!!":T"Z "5.THESE MODIFICATIONS WILL TRIGGER A":CE"::1 ( "3.ZERO MARKS THE END OF THE TABLE."= 2 3210: < "4.THIS PROGRAM WILL ENABLE YOU TO ALTER":" THE COMMAND TABLE. YOU MAY DESIRE TO":" CHANGE 'CATALOG' TO ";::"CAT";::" OR 'SAVE' TO ":" ";::"SV";:!F ". BE SURE THAT YOUR NEW ASCII":" CHARACTER CODES. ONLY THE LAST LETTER":" OF A COMMAND HAS THE HIGH BIT ON SO":" THAT DOS CAN RECOGNIZE THE END OF THE"  " COMMAND. NOTE THE EXAMPLES BELOW:"::" LOAD = 4C 4F 41 C4":" INIT = 49 4E 49 D4":" RUN = 52 55 3110J 7:958:"DO YOU WANT INSTRUCTIONS (Y/N) ? ";:I$:I$:I$"N"ı\ I$"Y"2540o 34,4:5:958 "1.THE DOS COMMAND TABLE RESIDES AT RAM":" LOCATIONS $A884 TO $A908 (DEC 43140":" TO 43272).": "2.EACH COMMAND IS REPRESENTED BY 04,66,210,86,69,210R77,206,78,77,206,80,163,73,163,77,65,216,70,208,73,78,212,66,211,66,204,66,210,86,69,210: SANDY'S TABLE INSTRUCTIONS  :TT$"============":3110 TT$"INSTRUCTIONS":3110 TT$"============":2,85,206,86,69,82,73,70,217:NORMAL TABLEH73,170,76,196,83,214,82,85,206,67,72,206,68,204,76,203,85,76,203,67,211,82,196,69,88,195,87,210,80,83,206,79,208,65,208,82,69,206,67,65,212,77,206,78,77,206,80,163,73,163,77,65,216,70,208,73,78,212,66,211,66,269,88,69,195,87,82,73,84,197,80,79,83,73,84,73,79,206,79,80,69,206,65,80,80,69,78,196)>82,69,78,65,77,197,67,65,84,65,76,79,199,77,79,206,78,79,77,79,206,80,82,163,73,78,163,77,65,88,70,73,76,69,211,70,208,73,78,212,66,83,65,86,197,66,76,79,65,196,66,8123456789ABCDEF"CMOD(X)X(X256)256:SIMULATE MOD FUNCTIONcSTART43140:START OF TABLEi U473,78,73,212,76,79,65,196,83,65,86,197,82,85,206,67,72,65,73,206,68,69,76,69,84,197,76,79,67,203,85,78,76,79,67,203,67,76,79,83,197,82,69,65,196,TT$" END OF TRICK DOS PROGRAM ":3110:15:" INITIALIZING A DISK BEFORE REBOOTING":"WILL PRESERVE THE CURRENT DOS COMMANDS"22: INITIALIZE DOS$(30,2)D$(4):B$(7):SS$" ":21 SPACESH$"0S$)1XZCH4TM$MYDOS$:TT$" SANDY'S COMMAND TABLE INSTALLED ":FINSTART(MYDOS$)1dI1(TM$):DOS,((TM$,I,1)):DOSDOS1:nFIN1,0x1:TT$::3210:1:690 END PROGRAM 16298,0:16300,0:16368,0::(10:: INSTALL SANDY'S TABLE ?20::" WRITING COMMAND TABLE ";V(NDOS$"":MYDOS$""y2I1132:D:NDOS$NDOS$(D):<I167:D:MYDOS$MYDOS$(D)::FDOSSTARTPCH3TM$NDOS$:TT$" NORMAL DOS COMMAND TABLE REESTABLISHED ":FINSTART(NDO958:1150J18:958::"RETURN TO MENU OR TRY AGAIN (M/A) ? ";:I$:I$\I$"A"ī1080lI$"M"610v118020:958:"ANOTHER CHANGE (Y/N) ? ";:I$:I$:I$"Y"1040I$"N"6101220 RESTORE NORMAL TABLE OR $""1130ctNC$(NC$,1,(NC$)1)(((NC$,1))128):TURN HI BIT ON IN LAST LETTER OF COMMAND~B$:18:3:"CONFIRM (Y/N) ? ";:I$:I$I$"Y"Ģ20::" WRITING COMMAND TABLE ":410:18:1:958:" CHANGE COMPLETED "::1220 I$"N"Ģ18::TURN HI BIT ON IN LAST LETTER OF COMMANDLI128:OC$DOS$(I,1)PTI:1130:PT=POINTER TO POSITION OF COMMAND IN ARRAYVI28ĺB$:16::" NOT A VALID CURRENT COMMAND "::J13000::1080`I j16:958:"TYPE NEW COMMAND: ";NC$:NCT$" READING DOS COMMAND TABLE ":3110::110:5:958E$I17.DOS$(I,1);:10:DOS$((I7),1);:20:DOS$((I14),1);:30:DOS$((I21),1):814:958:"TYPE COMMAND TO BE CHANGED: ";OC$:OC$""1180-BOC$(OC$,1,(OC$)1)(((OC$,1))128):" EXPECT A PAUSE ";:I$:::D$;DOS$(20,1);1:810:FF0:D$;DOS$(20,1);0:610^I$"N"610j1:900 CHANGE TABLE :TT$"===============":3110TT$"CHANGE COMMANDS":3110TT$"===============":3110(4:958:8::TI,2)):310:HEX$" "DOS$(I,1);:21:DOS$((I14),2)" ";:DOS(DOS$((I14),2)):310:HEX$" "DOS$((I14),1):~zFFāI15:::22:"LIST TABLE TO PRINTER (Y/N) ? ";:I$NI$"Y"FF1:1:998:958:B$::" TURN PRINTER ON AND PRESS ANY KEY "::10T DOS COMMANDS & ADDRESSES":3110R>TT$"================================":3110HFFĢ8::TT$" READING DOS COMMAND TABLE ":3110:R110:4:958\:2::"DEC";:8:"HEX";:22:"DEC";:28:"HEX"::fI114ipDOS$(I,2)" ";:DOS(DOS$(OMMANDS.":&"5.EXIT PROGRAM."::\17:958:" WHICH CHOICE? ";:I$:I$:CH(I$)uCH1CH5I$""690CH800,1000,1300,1300,1500  DISPLAY CURRENT TABLE *:TT$"================================":3110!4TT$"CURREN MENU )b:TT$"==============":3110HlTT$"TRICK DOS MENU":3110gvTT$"==============":31106:"1.DISPLAY CURRENT DOS COMMAND TABLE.":"2.CHANGE DOS COMMAND TABLE.":"3.RESTORE NORMAL DOS COMMAND TABLE.": "4.TRY SANDY'S C)START)- I1(NC$):T2$T2$(NC$,I,1):D PT28T3$"":460l T3$(DOS$,FIN1(DOS$((PT1),2))) DOS$T1$T2$T3$:T2$"" DOSSTART I1(DOS$):DOS,((DOS$,I,1)):DOSDOS1: FINFIN(NC$)(OC$) FIN1,0:X D%:340:HB$HEX$8 @LD%MOD(DOS):NBRLD%:340:LB$HEX$K JHEX$HB$LB$:x TH%NBR161:L%NBR16:LL%16:L%NBRL1 ^HEX$(H$,H%,1)(H$,L%,1):  REORGANIZE COMMAND TABLE PT1T1$"":430 T1$(DOS$,(DOS$(PT,2)DOSSTARTFIN (((DOS)))127DOS$(I,1)DOS$(I,1)((DOS)):DOS$DOS$((DOS)):DOS$((I1),2)(DOS1):II1:180:IF HI BYTE INCR I DOS$(I,1)DOS$(I,1)((DOS)):DOS$DOS$((DOS)) DOS: , DEC --> HEX  6HD%DOS256:NBRH1=COMMAND C2=START ADDR @ hDOS$=DOS COMMAND TABLE ^ jDOS=ADDR COMMAND TABLE k nTMSTART x(TM)0FINTM1:140: FIND END OF TABLE TMTM1:120 I1:J129:K12:DOS$(J,K)"":K,J:DOS$(1,2)(START):DOS$"":INITIALIZE * ALL RIGHT RESERVED *6 * *T ************************~ :936:16298,0:16300,0:16368,0 2010:3010:2510:610 d PEEK COMMAND TABLE AND CREATE ARRAY " fARRAY DOS$(R1-28,C1-2) C  ************************? * *^ * TRICK DOS *} * SANDY MOSSBERG * * * * COPYRIGHT (C) 1982 * * MICRO INK, INC. * * CHELMSFORD, MA 01824*           RACKA0999:'70HOLD TIGHT!7A03000:M 490REINITIALIZEa720START OVERg RAINING IS NECESSARY. "/::::_"PLEASE BE PATIENT WHILE I MEDITATE TO ""GET MYSELF READY FOR THIS..............."------------------------ 440INITIALIZE::3LL0:LOWEST POINT310LAY T(300(1))l0q------------------------ fv::" CREATED BY ART RADCLIFFE, ANN ARBOR "::"PLACE 8 INCH BY 12 INCH CARDBOARD ""BETWEEN SCREEN AND TIP OF NOSE SO EACH ""EYE SEES ONLY IT'S IMAGE. SOME EYE "!"TE40:Y COOR'S OF EYES!F40QL150: X,Y,Z COOR'S OF OBJECT [T250{&G300:# CYCLES IN X,Y,Z ->0U(15(1)):V(15(1)):VU570DW(15(1)):WVWU580NI(300(1)):START POINTSXJ(300(1)) bKІIIU:I299I0' JJV:J299J0< KKW:K299K0C PI h ------------------------ O8(1)300:360DEG/300 N40:OBJECT SCALE FACTOR A0299 S(A)N(1(AO)):SINE+1>0 A C200:X COOR'S OF EYES D120 - 6P0299:ESTABLISH PATTERNL @XS(I)L:Y2S(J)T:ZS(K)^ JM(CZ)(GZ) TA(SXM(EX)):A%(P)A: LEFT X ^B(SYM(FY))50:B%(P)B: Y hH(SXM(DX)):H%(P)H: RIGHT X rA,B:A2,B:H,B:H2,B |LLBLLB ND OF TRAIN' BA%(Q):CB%(Q):DH%(Q)= EB1:FC1:GD1P B,F:E,C:E,Fc D,F:G,C:G,F A(R):REPLOT TRACK -> 3:B,C:D,C A(R) Z0LLB%(P):: TRAIN SPEED A(R) P "(7) , 1------------------------ ---------------------- 9 F(7):(7):A01000::(7)F PP0299Q ZA(R)i d3: FRONT OF TRAIN nBA%(P):CB%(P):DH%(P) xEB1:FC1:GD1 B,F:E,C:E,F D,F:G,C:G,F QP10 A(R) Q0QP289:0<=Q<=360DEG 0:E* ALL RIGHT RESERVED *6 * *T ************************r :36,12:"NOISY COASTER" A%(299):B%(299):H%(299):S(299) ABCDEFGHIJ0 (KLMNOPQTUV0 2WXYZ0:R16336:S.5:LL0 <630 A---i  ************************? * *^ * NOISY COASTER *} * ART RADCLIFFE * * * * COPYRIGHT (C) 1982 * * MICRO INK, INC. * * CHELMSFORD, MA 01824*  120 HE40 JF40 LG300) NT2503 PL150E RU(15(1))_ TV(15(1)):VU84} VW(15(1)):WVWU86 XI(199(1)) ZJ(199(1)) \K(199(1)) ^S.5 `49234,0 b24XM(EX)) $B(SYM(FY))4 &H(SXM(DX))B (A,B:H,BW *IIU:I199I0l ,JJV:J199J0 .KKW:K199K0 0 2Z05000:Z 4 622 8O.04(1) :N40 <A0199 >BAO @S(A)N(1(B)) B DC200 FD* ALL RIGHTS RESERVED *6 * *T ************************i :3:::"WAIT"u S(199) ABCDEFGHIS0 JKLMNOPXYZ0 56 P0199 XS(I)L XS(J)T ZS(K) M(CZ)(GZ) "A(S  ************************? * *^ * LISSAJOUS FIGURES *} * ART RADCLIFFE * * * * COPYRIGHT (C) 1982 * * MICRO INK, INC. * * CHELMSFORD, MA 01824 *    : * *6 ************************T (4)"BLOAD COLOR FILTER"` ::22k I17r I (0,I10250,I1050 2I 7J15000:J <I14 F::"COLOR FILTER INPUT: "I P769,I Z768 dJ15000:J nI x   ************************? * *^ * COLOR FILTER DEMO *} * BERGGREN * * COPYRIGHT (C) 1982 * * MICRO INK, INC. * * CHELMSFORD, MA 01824 * * ALL RIGHTS RESERVED * 775,LO(B2):776,HI(B2)& :COM$: COM$"GO"280Q "REPETITIONS? ";Ri I1R:777:I:240~ COM$"LOAD"100 "COM$"SWAP"330 ,819,80(819):835,80(835) 6240 JCOM$"CAT"ĺ"WHAT?":240 T(4)"CATALOG":240:240 dM:B1M4 n/ x"TITLE? ";FILE$H (4);"BLOAD ";FILE$f B2B1((M1)256(M2)) TB1((M3)256(M4)) ET(43634)(43635)256: CONTAINS BEGINNING ADDRESS OF FILE$(FOR 48K SYSTEM) ET 773,LO(B1):774,HI(B1) * ALL RIGHTS RESERVED *6 * *T ************************ M38400: MUST BE SAME ADDRESS AS IN ASSEMBLER-PROGRAM  LOAD MACHINE LANGUAGE PROGRAM <(4)"BLOAD TONE GEN" PHI(X)(X256) ZLO(X)XHI(X)256 _  ************************? * *^ * MUSICAL DUETS *} * RICK BROWN * * * * COPYRIGHT (C) 1982 * * MICRO INK, INC. * * CHELMSFORD, MA 01824 * Q1:P$"FLAT"Q1+SF$:LN(SF$):210KM1,M2:IM(M2)M(M1)E395aM(M2)M(M1)220KM(M1)M(M2)11:IKM(M1),(K)::IIKM(M1):LLL(M2)L(M1):220&P$:P$(8)II1:" ";(8);(8);:550<(P$","P$";"N+P$(21)550h-P$(24)ĺ(92):5350P$;:P$(13)5805FILE$FILE$P$:I::B$;"TITLE TOO LONG":530DD$"BSAVE ";FILE$;",A";ET;",L";METND$"LOCK ";FILE$X450ETITIONS? ";RI1R)777:I:450E(COM$,6)"CHANGE"180f(COM$,4)"EDIT"ģM:697,:(COM$,4)"SWAP"Ĺ819,80(819):835,80(835):450(COM$,4)"SAVE"ĺ"WHAT?":450"TITLE (1-30 CHARACTERS):"FILE$""I131)SH;". SONG WILL END EARLY."F1ĺ:"WARNING: DURATIONS OF SOME NOTES WERE":"ROUNDED TO THE NEAREST INTEGER. TUNES":"MAY NOT BE SYNCHRONIZED."773,LO(B1):774,HI(B1)775,LO(B2):776,HI(B2):COM$(COM$,2)"GO"500 "REP400B2I1:L1LIQB$;"INSUFFICIENT MEMORY":"FOR TUNE TABLES":M:uM1,LO(B1B2):M2,HI(B1B2)M3,LO(B1ET):M4,HI(B1ET)L1L2SH.5(3(L2L1))::"WARNING: PART ";SH;" IS ";(L1L2);" UNITS SHORTER":"THAN PART ";3JDD:LLDD:DDDDTM:D(DD.5)H TD255ĺB$;"TEMPO IS TOO LONG":180X ^DDDF11 c POKE PITCH & DURATION INTO NOTE TABLE hI,N%(P):I1,D:390 rI,0:I1,0 w(P$,7)"ENDSOLO"B2B1:ETI2:L2L1:400|(P$,4)"END2"ETI2:L2LL1:# PP%((P$)64)12((P$,1))K%4 A$(P$,2,1)D A$"N"310[ A$"#"PP1:310r A$"&"PP1:310 LN0310 "J1LN '(SF$,J,1)(P$,1)PPQ:310 , 6P1ĺB$;"KEY IS TOO LOW":180 @P65ĺB$;"KEY IS TOO HIGH":180 D$(4) B$(7)"ERROR: "C :"TEMPO,KEY? ";TM,K%:L0:F10e P$:P$"SHARP"P$"FLAT"680p :LN0 IB11E2 P$:(P$,3)"END"370 P$"R"P0:330 (P$,1)"*"MK((P$,2)):M(MK)I:L(MK)L:220 (P$,6)"REPEAT"692AGE PROGRAM% <(4)"BLOAD TONE GEN"9 xN%(0)1:N%(1)0X } SET ISOTONIC WAVELENGTHSd I265 N%(I)256(2((I1)12)).5 I ABCDEFG P%(1)0:P%(2)2:P%(3)3:P%(4)5 P%(5)7:P%(6)8:P%(7)10 EM(0)65536((0)0)200:E * ALL RIGHTS RESERVED *7 * *U ************************\ b M38400: M=HIGHEST AVAILABLE ADDRESS B1M4:M N%(65),P%(7),M(10),L(10) (HI(X)(X256) 2LO(X)XHI(X)256 7 LOAD MACHINE LANGU  ************************? * *^ * NOTE-TABLE ASSEMBLER *} * RICK BROWN * * * * COPYRIGHT (C) 1982 * * MICRO INK, INC. * * CHELMSFORD, MA 01824 *          126: CALL BLOT%XXTEMP:YYTEMP/(7)GSC(TURN)SC(TURN)1[SC(OP)SC(OP)1bJhoIu 0+ IF WE GET HERE, CAPTURE IS POSSIBLE6FLAG1DCC(TURN)[BOARD(X,Y)0159p126: CALL BLOTBOARD(X,Y)TURNSC(TURN)SC(TURN)1J1NRXNXNDX(I):YNYNDY(I)BOARD(XN,YN)TURNXTEMPX:YTEMPYXXN:YYNX8134Y((MOVE$,1))480Y1Y81346S FIND AND EXECUTE MOVES^FLAG0OP3TURN: COLOR OF OPPONENTI18NR0XNX:YNYXNXNDX(I):YNYNDY(I)BOARD(XN,YN)OPNRNR1:149(BOARD(XN,YN)0)(NR0)17}<~ SUBR BLOT FILLS IN A SQUARE WITH THE CURRENT COLORE122QX2XS2_XS,X2YSoXS,X2YS1XS,X2YS2 SUBR GETMOVEMOVE$PASS0(MOVE$,1)"P"PASS1:(MOVE$)2134X((MOVE$,1))64X1,531n32,1o32,5%p1,533?q NOW DO BOARD ITSELFVrDC: BORDER COLORdsI7394pt4,36IwuIvI4364w8,38IxIyz SUBR MAP FINDS SCREEN COORDS (XS,YS) GIVEN BOARD COORDS (X,Y){XS14X|YS404Y9[ NEXT "T"\11,131)]2,5128^ NEXT "H"D_1,515N`16,3Za1,517ib NEXT "E"uc1,519d20,211e20,3f20,215g NEXT TWO "L"Sh1,523i24,255j1,527k28,295l FINALLY ANOTHER "O"m1C(2),K"WOULD YOU LIKE TO PLAY AGAIN?";A$@L(A$,1)"Y"35JM::qN SUBROUTINE TO DRAW OTHELLO BOARDwOPBCQI039R1,39ISITTC: TITLE COLORU PLOT "OTHELLO"V FIRST "O"W1,57X8,1Y8,5Z1,5ŭBOARD(X,Y)062' B143: CALL MOVES6 CFLAG062Q D((SC(1)SC(2))64)71o E((SC(1)0)(SC(2)0))71v FQ GSC(1)SC(2)ĺ"WHITE WINS!":74 HSC(1)SC(2)ĺ"BLACK WINS!":74 I"IT'S A TIE!!"J"FINAL SCORE: WHITE ";SC(1);" BLACK ";SBLOT 4X5:Y4! 5BOARD(X,Y)26 6126: CALL BLOTB 7SC(2)2M 8TURN2c 9 BEGIN MAIN LOOPp :Q1100 ;TURNM2(TURN)1 <CC(TURN) ="SCORE IS: WHITE ";SC(1);" BLACK ";SC(2) >PROMPT$(TURN) ?133: CALL GETMOVE @PASS70 A "I18:DY(I):I #I09* $J09; %BOARD(I,J)0D &J,IL '78W (WHITEc )X5:Y5t *BOARD(X,Y)1 +126: CALL BLOT ,X4:Y4 -BOARD(X,Y)1 .126: CALL BLOT /SC(1)2 0BLACK 1X4:Y5 2BOARD(X,Y)2 3126: CALL UT WHITE MOVE:"2 PROMPT$(2)"INPUT BLACK MOVE:"> BLACK0K WHITE15[ CC(1)WHITEk CC(2)BLACK BC12: BACKGROUND COLOR TC13: TITLE COLOR DC4: BORDER COLOR  0,1,1,1,0,-1,-1,-1 1,1,0,-1,-1,-1,0,1 !I18:DX(I):I* ALL RIGHTS RESERVED *6 * *T ************************Z ` f w  INITIALIZE BOARD(9,9) CC(2): HOLDS CURRENT COLOR PROMPT$(2) SC(2) DX(8):DY(8) M2(Q)Q(Q2)2 PROMPT$(1)"INPw  ************************? * *^ * GAME OF OTHELLO *} * C.F. TAYLOR * * * * COPYRIGHT (C) 1982 * * MICRO INK, INC. * * CHELMSFORD, MA 01824 *        END OF TABLE (ZEROS)%-0,0,0,0,40,-19,-6,21,34,-19,-41,21,26,-22,-2,21,24,-22,-38,21,4,-25,-12,20,49,-27,-6,20,43,-25,-27j, AQUARIUS, 22,3,-0,-34,22,23,1,7,22,26,-0,-17,22,33,-0,-23,22,50,-7,-51,22,47,-13,-51,22,52,-16,-5,23,12,-6,-19,23,13,-9,-22,23,16,-9,-53,23,40,-14,-49-+ 18,3,-30,-26,18,14,-36,-47,18,21,-34,-25,18,18,-29,-51,18,25,-25,-27,18,43,-27,-3,18,52,-26,-22,18,59,-29,-57,19,4,-27,-45+ CAPRICORNUS+ 20,15,-12,-40,20,24,-18,-23,20,36,-15,-8,21,3,-17,-26,21,19,-17,-3,21,37,-16,-53,21,44,-16,-21[,B 21-19,-28,15,14,-9,-12,15,33,-14,-371* SCORPIUS* 15,57,-22,-29,16,3,-19,-40,16,18,-25,-28,16,28,-26,-19,16,33,-28,-7,16,47,-34,-12,16,48,-37,-58,16,50,-42,-17*\ 17,9,-43,-11,17,34,-42,-58,17,44,-40,-7,17,39,-39,-0,17,30,-37,-4* SAGITTARIUS13,11,11,20,48,11,47,14,51,11,12,15,422): VIRGO})D 11,43,6,49,11,48,2,3,12,17,-0,-23,12,39,-1,-11,12,53,3,40,13,0,11,14) 13,7,-5,-16,13,23,-10,-54,14,13,-5,-46,14,40,-5,-27,14,44,2,6,13,59,1,47,13,32,-0,-20) LIBRA"* 14,48,-15,-50,15,10,1,7,8,30,20,7,31,32,0,7,42,28,9,7,17,22,5,7,1,20,39,6,35,16,27,6,42,12,57V( CANCER( 8,14,9,20,8,18,24,11,8,30,20,37,8,29,18,16,8,42,18,20,8,40,21,39,8,56,12,3,8,44,28,57(& LEO&)0 9,43,24,0,9,50,26,15,10,14,23,40,10,17,20,6,10,5,17,0,10,6,12, PLEIADES\' 3,42,24,8,3,42,23,57,3,42,24,18,3,43,24,13,3,43,24,24,3,45,23,57,3,43,23,48g' TAURUS' 5,23,28,34,4,39,22,52,5,35,21,7,5,4,18,35,4,33,16,25,4,26,15,51,4,17,15,31,4,23,17,49,4,26,19,4' GEMINII( 6,12,22,31,6,20,22,32,6,41,25,1,1,9,29,49,0,55,28,43,0,47,27,26,0,53,26,56,1,28,15,5,1,43,8,54,1,59,2,31& 1,39,5,14,1,28,5,53,1,11,7,19,1,0,7,37,0,46,7,19,23,57,6,35,23,37,5,21,23,40,1,30,23,25,6,6,23,18,5,6,23,15,3,1,23,24,0,59& ARIES& 1,51,19,3,1,52,20,34,2,1,25,42 ' SC%" BTD95SC!%, TPD95SC5%6 RG0RGRG360K%@ LF360LFLF360Q%J `%T 0,0279,0n%^ 279,191z%h 0,191%r 0,0%| B,B1,G,G1% BB15B1.25:GGG160% B0G0ı% 210:2940% PISCESI& 1,11,24,19,1,17,27,0,1,18,28,29$ :$ 650$ 3?$ :"ENTER FACTOR: 0 OR 1 - 20 ";SCO$ SC02785z$ RG0:LF360:BT90:TP110:SC.75:2890$ SC12760$ :"ENTER CENTER COORDINATES":$ " R.A. DEC.":$ "HH.HH , DD.DD ";R,D$ RGR15139SC% LFR15139(DC))600)10*#F DB1Ģ22:11:"-":DB07#P ZYZYDAJ#Z ZTZYDN2700Y#d PL02690#n 23:1:"PRESS RETURN FOR NEXT DISPLAY":A$#x 23:1:" "# 1830# ZY0:DE0# "";""$ "PRESS ENTER TO START AGAIN";A$6RA:H6DC:2640<" 18:1:"SATN D-S. ";(RV10000)10000b" 19:7:"A-S. ";(VA10000)10000" 20:7:"D-E. ";(ED10000)10000"( 21:7:"R.A. ";(RA15);" ";((RA(RA15)15)40)10"2 DC0DCDC:DB1#< 22:7:"DEC. ";(DC);" ";((DC10! DC0DCDC:DB1N! 16:28:"DEC. ";(DC);" ";((DC(DC))600)10j! DB1Ģ16:32:"-":DB0x! SATURN! SA02640! AA6:PP6:EE6:PEU6:EZK6:SRDS6:JJ6:WW6:ZZZYW:CC6:II6! 310:PL12570! FF6:HH6:BRA:GDC:110" FI5 j 310:PL124404 t FF5:HH5:BRA:GDC:110J ~ F5RA:H5DC:2520x 12:21:"JUPTR D-S. ";(RV10000)10000 13:28:"A-S. ";(VA10000)10000 14:28:"D-E. ";(ED10000)10000! 15:28:"R.A. ";(RA15);" ";((RA(RA15)15)40)0=$ 15:7:"R.A. ";(RA15);" ";((RA(RA15)15)40)10S. DC0DCDC:DB18 16:7:"DEC. ";(DC);" ";((DC(DC))600)10B DB1Ģ16:11:"-":DB0L JUPITERV JU02520 ` AA5:PP5:EE5:PEU5:EZK5:SRDS5:JJ5:WW5:ZZZYW:CC5:IBAA4:PP4:EE4:PEU4:EZK4:SRDS4:JJ4:WW4:ZZZYW:CC4:II4V310:PL12310sFF4:HH4:BRA:GDC:110F4RA:H4DC:2390 12:1:"MARS D-S. ";(RV10000)10000 13:7:"A-S. ";(VA10000)10000 14:7:"D-E. ";(ED10000)10008:"A-S. ";(VA10000)10000B8:28:"D-E. ";(ED10000)10000~9:28:"R.A. ";(RA15);" ";((RA(RA15)15)40)10DC0DCDC:DB110:28:"DEC. ";(DC);" ";((DC(DC))600)10DB1Ģ10:32:"-":DB0 MARSMA02390600)10$>DB1Ģ10:11:"-":DB01H VENUS@RVE02260\AA2:PP2:EE2:PEU2:EZK2:SRDS2:JJ2:WW2:ZZZYW:CC2:II2f310:PL12180pFF2:HH2:BRA:GDC:110zF2RA:H2DC:22606:21:"VENUS D-S. ";(RV10000)100007:2PL0İ11096:1:"MERC D-S. ";(RV10000)10000^ 7:7:"A-S. ";(VA10000)100008:7:"D-E. ";(ED10000)10000 9:7:"R.A. ";(RA15);" ";((RA(RA15)15)40)10*DC0DCDC:DB1410:7:"DEC. ";(DC);" ";((DC(DC))DC:DB1=4:28:"DEC. ";(DC);" ";((DC(DC))600)10XDB1Ģ4:32:"-":DB0g MERCURYvME02130AA1:PP1:EE1:PEU1:EZK1:SRDS1:JJ1:WW1:ZZZYW:CC1:II1310:PL12050FF1:HH1:BRA:GDC:110F1RA:H1DC:2130019802X2:1:"EARTH D-S. ";(RV10000)10000Wb3:7:"A-S. ";(V310000)10000bl SUNvXBX3:YBY3:ZBZ3:EDR35402:21:"SUN D-E. ";(ED10000)100003:28:"R.A. ";(RA15);" ";((RA(RA15)15)40)10 DC0DCW:CC3:II30310:EE1;5X3XA:Y3YA:Z3ZA:R3RV:V3VAA8:1:1:"STARTING DATE ";MM;"/";DD;"/";YY;" PLOT DAYS ";ZTZY?PL0Ģ23:"STARTING DATE ";MM;"/";DD;"/";YY;" PLOT DAYS ";ZTZY:"":1980: EMPTY PRINT IS A CNTL-G (BELL)NEA0/"ENTER 1 TO PRINT, 0 TO PLOT ";PLEPL0PL11760PL0ĺ:"DO YOU WANT"::"POINT (0) OR CONTINUOUS (1) PLOTS ";TYTY0TY11785PL0İ2750 EARTH:EE0 &AA3:PP3:EE3:PEU3:EZK3:SRDS3:JJ3:WW3:ZZZYȭ(YY400)YY40016601r(YY100)YY1001670@|MM21680LZYZY1]ZYZY723180hZTZY::"ENTER # OF DAYS TO PRINT/PLOT ";DN::"ENTER # OF DAYS BETWEEN PRINT/PLOTS ";DADA01760:"0 NOT ALLOWED":171,DD,YYYY":" ";MM,DD,YYJDF(MM2)31(MM3)59(MM4)90(MM5)120(MM6)151(MM7)181(MM8)212(MM9)243(MM10)273(MM11)304(MM12)334TZY(YY365(YY4)DDDF1(YY100)(YY400)1)^(YY4)YY41680hC5100.24I51.3T1<"DISPLAY SATURN ";SAMS610825.863ZE6.0555qA6937.541838.425P6A6(1E6E6)2K61E6U6P6E6J695.5Q180W62090C6113.51I62.49T16,@"ENTER BEGINNING DATE? MM4(1E4E4)2K41E4& U4P4E49J4335.7Q180DW4287P(C449.4_2I41.85T1<"DISPLAY JUPITER ";JUFS54332.125PE5.0478ZA5507.046460.595dP5A5(1E5E5)2nK51E5xU5P5E5J513.6Q180W51608 EARTH ";EA!jS3365.256.tE3.0167C~A394.55591.445YP3A3(1E3E3)2eK31E3rU3P3E3J3102.6Q180W33.82C30I30"DISPLAY MARS ";MAS4686.980E4.0934A4154.936128.471 P4A1J177.1Q180 W137.53,C148.18I17T1X"DISPLAY VENUS ";VEgS2224.701tE2.0068A267.72666.813P2A2(1E2E2)2$K21E2.U2P2E28J2131.3Q180BW2140.5LC276.5VI23.4T1`"DISPLAYROM 0 DEGREES TO PERIHELION FOR 1980G| C1=ASCENDING NODE IN DEGREES~ I1=INCLINATION IN DEGREES / T1 TO CONVERT TO RADIANS"DISPLAY MERCURY ";MES187.969E1.2056A143.40328.597P1A1(1E1E1)2K11E1U1P1E A 1 FOR YES, 0 FOR NO">CH SPACIFIC VALUES FOR EACH PLANETnR S1=ORBITAL PERIOD: P1=A1*(1-E1*E1)/2\ E1=ECCENTRICITY: U1=P1/E1: K1=1/E1f A1=MINIMUM + MAXIMUM DISTANCE FROM SUNp J1=LONGITUDE OF PERIHELION IN RADIANS$z W1=DAYS FPLAY "1:"THE SAME PLANETS AS YOUR LAST RUN"E:"Y OR N ";A$UA$"N"790fA$"Y"710vS101590SC02785 :"YOU HAV'NT PICKED THE PLANETS YET":::800 "CHOOSE THE PLANETS YOU WANT TO DISPLAY"*4"ENTERA90 DY0RA270+ NX0RA(YX)T1> XX0RARA180U bX0Y0RARA360a lDZZED| vDC(DZ(1DZDZ))T1  T1.5708:T157.2957795 IN23.434T1 Q3.14159265 Q26.2831853 VL.99999999 "DO YOU WANT TO DIS60ZX ZXZXT1! LA(ZX)I7 XARV(LA)(VA)M YARV(LA)(VA)] ZARV(LA)| XBXAX3:YBYAY3:ZBZAZ3 VAVAT1 VA360VAVA360 EE0ı ED(XBXBYBYB) XXB &YYB(IN)ZB(IN) 0ZYB(IN)ZB(IN) :R,(TPG)SC ,' 6DZZ(ZZSRD)SRD: @BQ(DSRDQ2)J JY0RA270b TRVA(P(1E(B)))q ^VPERVEZ hV1VVL rV1VVL |VA(V(VV1))T DSRD2VAQ2VA VAVAJ ZXVAT1C ZX360ZXZX360 ZX0ZX3F210" 279(FRG)SC,(TPH)SC+ 210> FLFFRG210Q FLFFF360n 279(FRG)SC,(TPH)SC GTPGBTı 3 RGLF270 BRGBLFı 279(BRG)SC,(TPG)SC  BLFBRGı BLFBB360 "279(BRG)SCORD, MA 01824 *- -* ALL RIGHTS RESERVED *K 2* *i 7* * <************************ A F K d650 nTY1210 xHTPHBT210 0 RGLF180 FRGFL&% ************************=* *[* SOLAR SYSTEM *y* SIMULATION ** DAVE PARTYKA ** *#* COPYRIGHT (C) 1982 *(* MICRO INK, INC. * ,* CHELMSF                          ND **%\˰51000::4&%p˺"NAME";:148%˺"$GAIN";:21E%˺"%GAIN"K%˺V%LINE2\%˱DIV " $ú$LINE2$|ıD$8Dz ** WAIT FOR (CR) TO BE PRESSED **O$BǢ23:5q$LǺ"PRESS 'RETURN' WHEN READY "$jǹ16368,0$ǭ(16384)141ı$ȫ51100$ ˲ ** WAIT FOR (CR) AND **$4˲ ** PRINT HEADER **%H˲ ** FOR APPRECIATION AND DIVIDE#"DIVIDEND/SHARE ";DV(COUNT)8#"SHARES ";SH(COUNT)J#lCOUNTCOUNT1P#Нo#Pò ** WAIT FOR (CR) THEN **#Zò ** OUTPUT HEADING FOR 'LIST' **#dò#ð51000:#ú"NAME ";#ú"PDATE ";#ú"SDATE ";#ú"PPRICE ";#ú"SPRICE ";$ú"UNT),25)A"̜"PURCH DATE ";PD$(COUNT):PD$(COUNT)(PD$(COUNT),6)i"ќ"ENTER A SINGLE BLANK IF NOT SOLD""֜"SALE DATE ";SD$(COUNT):SD$(COUNT)(SD$(COUNT),6)"ۜSD$(COUNT)""SD$(COUNT)" """PURCH PRICE ";PP(COUNT)"꜄"SALE PRICE ";SP(COUNT)"WRITE ";F$!8COUNT)!LI0(COUNT1)E!`NM$(I):PD$(I):SD$(I)e!bPP(I):SP(I):DV(I):SH(I)k!t!D$;"CLOSE ";F$!!@ ** ADD A HOLDING **!:4!"NAME ";NM$(COUNT)!"INPUT DATES IN THE FORM (MMDDYY)""NM$(COUNT)(NM$(CO卲 ** GET PRICES FOR STOCKS NOT SOLD **; ꍁI0(COUNT1)R SD$(I)" "36370^ NM$(I)z "CURRENT PRICE ";SP(I)  0 p ** UPDATE STOCK LISTING FILE ** 26000: CLEAR NOT SOLD PRICES Ԕ"FILE NAME ";F$ 蔺D$;"OPEN ";F$ !D$;LISTING FILE **$"FILE NAME ";F$7D$;"OPEN ";F$J,D$;"READ ";F$UhCOUNTh|I0(COUNT1)NM$(I):PD$(I):SD$(I)PP(I):SP(I)DV(I):SH(I) ** CHECK FOR NOT SOLD **(SD$(I))6SD$(I)" "̍D$;"CLOSE ";F$( URCHASE PRICES **9~TSPTSPSP(INDEX):TPPTPPPP(INDEX)?~O LINELINE3a*INDEXINDEX1l432300p ** PRINT TOTALS **:"TOTALS"10:"PPRICES ";TPP10:"SPRICES ";TSP51000: WAIT FOR KEY PRESSʀ ** READ STOCK )10.0)(~(TP$)7TP$" "TP$:324106~TP$;:37K~ ** DIVIDEND **q~TP$((DV(INDEX)10.00.5)10.0)~(TP$)3TP$" "TP$:32440~TP$~ ** NUMBER OF SHARES **~" ";SH(INDEX)~ ** COMPUTE TOTAL SALES AND **~ ** TOTAL P PRINT HEADER&@~(NM$(INDEX),5);:7@J~(PD$(INDEX),6);:14ZT~(SD$(INDEX),6);:21u^~ ** PURCHASE PRICE **h~TP$((PP(INDEX)10.00.5)10.0)|~(TP$)7TP$" "TP$:32380~TP$;:29~ ** SALE PRICE **~TP$((SP(INDEX)10.00.5)"N"ANS1: NOTSOLD4}(YN$,1)"S"ANS2: SOLDV}INDEX0::LINE30:TPP0:TSP0n,~INDEXCOUNT32900.~ANS0323100~(ANS1)(SD$(INDEX)" ")323102~(ANS2)(SD$(INDEX)" ")323104~INDEXINDEX1:32300 6~LINE18İ50000: WAIT AND(INDEX))100.5)|oTT$(TT)?o(TT$)7TT$" "TT$:28560HoTT$XoLINELINE1joINDEXINDEX1uo28200p20900: OUTPUT TOTALSp} ** LIST CURRENT HOLDINGS **d}:10:10n}"ALL/NOTSOLD/SOLD ";YN$x}ANS0: ALL}(YN$,13oTP((DV(INDEX)SH(INDEX)(MN12))100.5)100AoTP$(TP)b,o(TP$)8TP$" "TP$:28460p@oTP$;:20Jo ** CALCULATE DOLLAR GAIN AND **Oo ** TOTAL VALUE **ToDGDG(TP$):TVTVPP(INDEX)^o ** CALCULATE % GAIN **hoTT(((TP$)PPTHS **3nMN((SD$(INDEX),2))((PD$(INDEX),2))On ** CALCULATE YEARS **|nYR((SD$(INDEX),2))((PD$(INDEX),2))n ** CONVERT TO MONTHS **nMNMNYR12nF1SD$(INDEX)" "n(NM$(INDEX),10);:12n ** ESTIMATE DIVIDENDS PAID **S1)(SD$(INDEX)" ")28620@dn(ANS2)(SD$(INDEX)" ")28620Ynn ** PRINT HEADER **mxnLINE18İ52000n ** USE CURRENT DATE OR UNSOLDS **nDV(INDEX)028620: DON'T USEnF10nSD$(INDEX)" "F11:SD$(INDEX)CD$n ** CALCULATE MONE DIVIDEND GAIN **4tm"CURRENT DATE (MMDDYY) ";CD$Bm:10:13_m"ALL/NOTSOLD/SOLD ";YN$}mANS0:(YN$,1)"N"ANS1m(YN$,1)"S"ANS2mINDEX0::LINE30:DG0:TV0n ** TEST IF DONE **(nINDEXCOUNT289001 YEAR 4N INVERSED FOR LTGpN"CURRENT DATE (MMDDYY) ";C:"WRITE";::" DATA FILE"+ :"EXIT":7 22:10L "COMMAND: ";YN$l  ** SEARCH FOR COMMAND ** I0CC:CMD$(I)(YN$,2)500  400 II1 I20000,18000,24000,19000,28000,19000,32000,19000,36000,38000,40000 X300 PF MENU% 6:T(0): CLEAN UP STRINGS0 @2:18K E ** PRINT COMMANDS **W J"MENU"v T4::"ADD";::" HOLDING" ^:"APPRECIATION" h"CHANGE";::" HOLDING" r:"DIVIDENDS": |:"LIST";::" HOLDINGS" :"READ";::" DATA FILE" (4)"DI":CMD$(5)"XX"@ CMD$(6)"LI":CMD$(7)"XX":CMD$(8)"RE"_ CMD$(9)"WR":CMD$(10)"AD"k COUNT0 CC10: LAST COMMAND D$(4) : 8:12 "STOCK MANAGER 1.0" 12:13: "BY R.A. GUEST": I11000:I , DISPLAYGHTS RESERVED *- * *K ************************Q (W 2 dNM$(25),PD$(25),SD$(25),PP(25),SP(25),DV(25) eCMD$(10),SH(25) x ** INIT COMMAND STRINGS ** CMD$(0)"AP":CMD$(1)"EX":CMD$(2)"CH" CMD$(3)"XX":CMD$^ ************************= * *[* STOCK HOLDINGS MGR *y* R. A. GUEST ** ** COPYRIGHT (C) 1982 ** MICRO INK, INC. ** CHELMSFORD, MA 01824 * * ALL RI             )2:ZZ23:ZZ(7)ZZ,(ZZ(9)ZZ):ZZ:ZZ%;:=ZZ209830 ::(4);"BLOAD PAGE 0 SAVE":(4);"DELETE PAGE 0 SAVE":(4)*(4);"BLOAD PAGE 3 SAVE"4(4);"DELETE PAGE 3 SAVE":(4)>ZZ3235:ZZ,(715ZZ):ZZH:ZZ750,770,780|ZZ(7)(25)256(26)2:ZZ(7)2,(ZZ(9)2):ZZ(7)3,(ZZ(9)3):ZZ(7)4,(ZZ(9)4):ZZ(7)5,(ZZ(9)5)ZZ(7)6,(ZZ(9)6):ZZ;:ZZ(7)(27)256(28)2:ZZ24:ZZ(7)ZZ,(ZZ(9)ZZ):ZZ:(ZZ$,14);:- ZZ(7)(29)256(308)3):ZZ(7)(ZZ(5)16):((752ZZ(7)));((752ZZ(5)16ZZ(7)));ZZ(7)(ZZ(4)16):((752ZZ(7)));((752ZZ(4)16ZZ(7)));ZZ$(256ZZ(5)ZZ(4))6(ZZ$));ZZ$;ZZ(9)(ZZ(8)3)256(ZZ(8)4):ZZ(ZZ(8)2)31:ZZ1ZZZZ3ZZ(1)100:ZZ(3)ZZ(3)20:530::610ZZ(6)ZZ(2)4:ZZ(8)ZZ(1):670:19(0));"* ";:ZZ(6)20ZZ(0)ZZ(8)ZZ(1)100:670:ZZ(1)ZZ(1)5:640((ZZ(8)));((ZZ(8)1));((ZZ(8)2));" ";:ZZ(10)2730B"$";:ZZ(5)(ZZ(8)4):ZZ(4)(ZZ(790+D PRINT VARIABLE NAMES & LOCATIONS\NZZ(10)(((250)1)2):ZZ(10)510,520:34,3vXZZ(3)0:ZZ(1)ZZ(1)5bZZ(2)ZZ(3)1:ZZ(2)ZZ(0)Ĺ34,0:lZZ(3)ZZ(2)19:ZZ(3)ZZ(0)ZZ(3)ZZ(0)vZZ(6)ZZ(2)1%ZZ(6)ZZ(6)1:ZZ(6)ZZ(3)ZZ(1)-------------":ZZ$"HIT"(96)"SPACE"(96)"BAR"(96)"TO"(96)"CONTINUE"(123)(96)(103)"ESC"(103)(96)"TO"(96)"QUIT"ZZ1(ZZ$):ZZ1999,((ZZ$,ZZ,1))64:ZZ&ZZ(16384):ZZ128550016368,0:ZZ155ĺ:::::0ĺ:"NO ARRAY VARIABLES":530:500ZZZ(0)(254):ZZ(1)(251)256(252)5(254):580c7902:"VAR HEX DEC * VAR HEX DEC":"--- ----- ----- * --- ----- -----":2:"VAR VALUE * VAR VALUE":"--- -------------- * --- -)g(250)2ZZZZ:25,(131):26,(132):ZZ$ZZ$:27,(131):28,(132):ZZ%ZZ%:29,(131):30,(132)p580(250)2Ĺ250,(250)2::6);"ARRAY VARIABLES; ";:(250)1ĺ"ALPHA ORDER";6);(250)2ĺ"MEMORY ORDER";5);#::(254)"DELETE PAGE 0 SAVE2":(4)e::5);"SIMPLE VARIABLES; ";:(250)1(250)3ĺ"ALPHA ORDER";6);(250)2(250)4ĺ"MEMORY ORDER";5);::(253)0ĺ:"NO SIMPLE VARIABLES":530:450ZZ(0)(253):ZZ(1)(251)256(252)5((253)(254)ARIABLE NAMES . . .":, ^25,5:26,0:27,3 hZZ(251)256(252)5(254):28,(253):29,0:31,(ZZ256):30,ZZ256(31):ZZ(254):768 r28,ZZ:29,0:ZZ(30)256(31)5ZZ:31,(ZZ256):30,ZZ256(31):768|(4);"BLOAD PAGE 0 SAVE2":(4); 0 SAVE,A$C0,L$40"H "(4);"BLOAD APPLESOFT VARIABLE LISTER OBJ":(4)a ,250,ZZ:ZZ(0):768 6251,(111):252,(112):(250)2(250)4390 @(4);"BSAVE PAGE 0 SAVE2,A$C0,L$40":(4) J(4);"BLOAD SHELL-METZNER SORT":(4) T:"SORTING VZ192:ZZ1ZZ2L 250,ZZ::"V";::"ALUES OR ";::"L";::"OCATIONS?";i ZZ(16384):ZZ128240 16368,0:(ZZ):ZZ204ZZ214ĺ(7):250 ZZZZ204:ZZ0ZZ2 ZZZZ(250) (4);"BSAVE PAGE 3 SAVE,A$300,L$100":(4);"BSAVE PAGE;8):@ ZZ09:752ZZ,48ZZ:ZZ:ZZ1015:752ZZ,55ZZ:ZZ ::"A";::"LPHA SORT, ";::"M";::"EMORY SORT OR ";::"Q";::"UIT? "; ZZ(16384):ZZ128190 16368,0:(ZZ):ZZ193ZZ205ZZ209ĺ(7):180 ZZ209830 ZZZ* ALL RIGHTS RESERVED *6 d* *T n************************ xA SUBROUTINE TO BE INSERTED INTO YOUR PROGRAMS ZZ3235:715ZZ,(ZZ):ZZ 32,0:33,40:34,0:35,24:: ::7);"APPLESOFT VARIABLE LISTER"  ************************? * *^ * VARIABLE LISTER *}( * RICHARD ALBRIGHT *2 * *< * COPYRIGHT (C) 1982 *F * MICRO INK, INC. *P * CHELMSFORD, MA 01824 * Z      *+ ENDIDER,APPLEVENTION,APPLE PI,APPLESAUCE,APPLE TREE,APPLE ORCHARD+ APPLE II PLUS, APPLES & ORANGES ,APPLE BLOSSOM,CANDIED APPLES,APPLE/ORANGE,APPLESOFT,APPLEODIAN,APPLEVISION + APPLE STEM,APPLE CORE,APPLE-A-DAY,APPLE PIE,APPLE PEEL,APPLE-OF-MY-EYEI)'NA$(I)"END"10160+'II1:101305'II1;'F'K0IX'K;4);NA$(K)_'Ke'z* SAMPLE STRINGS+ NOTE: THIS DEMO IS SCREEN ORIENTED. DON'T PUT MORE THAN 22 ITEMS IN THE DATA STATEMENT LIST.> + APPLE II,APPLE SIDER,APPLE C1013,76:1014,0:1015,146: SETUP '&' VECTOR AT $3F5 TO JMP $9200f L'::10:12:"AMPER-SEARCH DEMO" V'19:"BY":14:"ALAN G. HILL" `'D$"BLOAD B.AMPER-SEARCH(48K)" j'I11000:I t'NA$(22),I%(22) ~'I0 ' INITIALIZE STRING ARRAY'NA$((NA$,L,H,ST$,PL,PH,I%,N%)2  LIST FOUND STRINGSF 32,20:33,19:e N%0ĺ"NONE FOUND":1120s I0N%1 I%(I)1:NA$(I%(I)) I 1120 ' HOUSEKEEPING '940962256 '235,0 $'D$(4) .'B$(7) 8'D$"NOMONIC,I,O"A B' START AT NA$(0)% BHI: SEARCH ALLF LPL1: START WITH 1ST COLUMNc VPH255: MAXIMUM COLUMNSw [F%0: FIND ALL `32,0:33,39:23:868 j:"STRING:";::" ";ST$ t(ST$)0Ā ~N%F%: INIT COUNTER  INVOKE 'AMPER-SEARCH' SEARCH$:1030C 12:868:"UPPER SUBSCRIPT:";H:H0H21HLĺB$:1040| 14:868:"LOWER COLUMN:";PL:PL1PL255ĺB$:1050 $16:868:"UPPER COLUMN:";PH:PH1PH255PHPLĺB$:1060 )18:868:"FIRST/ALL?";:A$::A$"F"F%1 .1120 8L0:* ALL RIGHTS RESERVED *6 * *T ************************Z ` k 10000 32,20:33,19::5:"DO YOU WANT TO":"SPECIFY SEARCH":"LIMITS(Y/N)?";:A$: A$"Y"1080 10:868:"LOWER SUBSCRIPT:";L:L0L21ĺB   ************************? * *^ * AMPER-SEARCH2 *} * ALAN G. HILL * * * * COPYRIGHT (C) 1982 * * MICRO INK, INC. * * CHELMSFORD, MA 01824 *      ND": 9>I0N%1,H4:NA$(M%(I))3RI;\:N I15000:I: 30:2100:3000 DEALLOC(M%)/ ST$"APPLE"6 JR X FIND 'E' IN COLUMN 10c YN%0:ST$"E" ZSEARCH(NA$,0,3,ST$,10,10,I%,N%) [600,602:2000  N%0ĺ"NONE FOUND": I0N%1 4:NA$(I%(I)) I :4N%0ĺ"NONE FOUT$"ORANGE"0 SEARCH(NA$,0,3,ST$,1,255,I%,N%)I 400,402:2000:3000X ST$"CRAB"  DYNAMICALLY ALLOCATE/DEALLOCATE M% J12 N%0:K%0 SEARCH(NA$,0,3,ST$,1,255,K%,N%) M%(N%):N%0 SEARCH(NA$,0,3,ST$,1,255,M%,N%) 490,51) COLUMNS 1->5$ N%0:ST$"APPLE"G SEARCH(NA$,0,1,ST$,1,5,I%,N%)` 200,202:2000:3000z , FIND 'APPLE ORANGE' -N%0:ST$"APPLE"(14)"ORANGE" .SEARCH(NA$,0,3,ST$,1,255,I%,N%) /300,302:2000:3000  FIND 1ST 'ORANGE' N%1:S"APPLE CORE"$ NA$(1)"CRAB APPLE"> NA$(2)"APPLE&ORANGE"X NA$(3)"APPLE/ORANGE"c 18,23 d FIND ALL OCCURRENCES OF 'APPLE' eN%0:ST$"APPLE" fSEARCH(NA$,0,10,ST$,1,255,I%,N%) g100,102:2000:3000 FIND 'APPLE' IN NA$(0)->NA$(* ALL RIGHTS RESERVED *6 * *T ************************Z ` r 940962256 D$(4):D$"NOMONIC,I,O" D$"BLOAD B.AMPER-SEARCH(48K)" 1013,76:1014,0:1015,146:3F5:JMP $9200 NA$(10),I%(10) NA$(0)P  ************************? * *^ * AMPER-SEARCH1 *} * ALAN G. HILL * * * * COPYRIGHT (C) 1982 * * MICRO INK, INC. * * CHELMSFORD, MA 01824 *  R(4)"BLOAD ERROR1"#(4)= "WHAT VALUE OF X?";XH774,XQ768 *! Z * CHELMSFORD, MA. 01824 *A \ * *a ^ *************************q d25344,211 n25343,151 x22572 (4)"BLOAD FIAT"! *************************A * *a * FIAT LOADER *( * *2 * WES HUNTRESS *< * *F * COPYRIGHT (C) 1982 * P * MICRO INK, INC.  z#Š ΠӠ ԠϠΠŠŠ Π®ҭȨ˩ ԠӠΠҠŠҠ ͠ˠ  ӠҠӭԭϠŭӠ  Ӡ ŠӠ ŠΠ  ԠŠҠʠ ̭ҠԠҠҠɠŠΠ ­à ˠӠ * ӠŠҠԠ ұҲŠҠ Ҡ͠Π' Ϡ ŠŠҠ ̠ӠˠҠҠϠӠӠ ٠Ҡ ϠΠŠŠԭҠ ұҠ ҭȱҭȲ ŠҠˠӠҠOFT BASIC PROGRAM TO BE LISTED."+ H (" 2)TYPE 'EXEC LIST'."N 2o <" 3)ANSWER THE QUESTIONS."u F P" 4)TURN ON THE PRINTER (SLOT #1)." Z d" 5)STAND BACK!" n x" 6)LISTED PROGRAM SHOULD STILL BE IN" " RAM WH& ~I2311:NN1:X(N)1:Y(N)I:, E :I15:39);" ":L 3t 7);"<<< LACRAB DEMONSTRATION >>>" 7);"(";  "ROM APPLESOFT";  " BASIC VERSION) 7 15 "INSTRUCTIONS"  9% " 1)LOAD APPLES* CHELMSFORD, MA 01824 *7 8 * ALL RIGHTS RESERVED *V B * *u G ************************ L16368,0 VX(126),Y(126) `I140:NN1:X(N)I:Y(N)1: jI123:NN1:X(N)40:Y(N)I: tI4011:NN1:X(N)I:Y(N)23:  ************************? * *^ * INSTRUCTIONS *} * BASIC PROGRAM LISTER * * N. R. MCBURNEY * * * * COPYRIGHT (C) 1982 *$ * MICRO INK, INC. * . 30A$"2"A$"3"XREF1:SET CROSS REFERENCE FLAGR0A$"1"A$"3"ĺ(7):4200X0/:"A";::"PPLESOFT ";1/":"B";::"ASIC"=/,17:12T/6"1) LISTING ONLY"`/@19:12/J"2) CROSS REFERENCE ONLY"/T21:12/^"3) LISTING AND XREF"/h23:13:/r"WHICH OPTION?";:/|A$/A$"1"A$"3"LST1:SET LISTING FLAG,33,34,35,36,0.1.9L."========================================"R.n.11:15);"SYSTEM MENU"~.19);"FOR".15);"PROGRAM TO:".15.:"L";::"IST ";.:"A";::"ND ";.:"C";::"ROSS ";.:"R";::"EFERENCE ";6,0*-d3,10,12,15,19,21,25,28,30,33,37,0M-n3,9,13,15,21,25,27,31,33,37,0|-x3,9,13,15,21,22,23,24,27,31,33,34,35,36,0-3,9,10,11,12,13,15,21,23,27,28,29,30,31,33,37,0-3,9,13,15,19,21,24,27,31,33,37,0.3,4,5,6,7,9,13,16,17,18,21,25,27,318,PAGE(N)N(NS6)S6:NEW PAGE DETECTION FUNCTIONe,KOMMENT41:TABBING FOR IN-LINE COMMENTS},3850:DISPLAY MENU,,, DISPLAY MENU,:,I17,(J:J0ĢI:J:" ";:3880,P-Z3,11,16,17,18,21,22,23,24,29,33,34,35,3NAME$" "NAME$:)+I(TIME$)WIDTH1?+TIME$" "TIME$:\+I1WIDTH:US$US$"=":o+SKIP3:BLK256+LOC2051:START OF PROGRAM+EOP(103)(104)BLK2:END OF PROGRAM POINTER+SPACE1:INITIAL SPACING AFTER LINE NUMBER,S666FT$,RIGHT$,MID$1*$:WIDTH76:ASSIGN PAGE WIDTHW*." ";NAME$:"PROGRAM NAME?";NAME$j*8"DATE/TIME?";*BA$:I(A$):I133690*LI8TIME$(TIME$,(TIME$)1):3680*VTIME$TIME$A$*`3:11:TIME$;:3650*j" "*tI(NAME$)WIDTH1+~LOAD,SAVE,DEF,POKE,PRINT,CONTL) LIST,CLEAR,GET,NEW,TAB(," TO",FN,SPC(,,AT) NOT," STEP"," +"," -"," *"," /",^," AND"," OR")" >"," ="," <",SGN,INT,ABS,USR,FRE,SCRN(,PDL,POS) SQR,RND,LOG,EXP,COS,SIN,TAN,ATN,PEEK,LEN* STR$,VAL,ASC,CHR$,LEL,PLOT,HLIN,VLIN,HGR2,HGR,HCOLOR=,HPLOTj( DRAW,XDRAW,HTAB,HOME,ROT=,SCALE=,SHLOAD,TRACE,NOTRACE,NORMAL( INVERSE,FLASH,COLOR=,POP,VTAB,HIMEM,LOMEM,ONERR,RESUME,RECALL( STORE,SPEED=,LET,GOTO,RUN,IF,RESTORE,&,GOSUB,RETURN) REM,STOP,ON,WAIT,L954:V(BASEI)256(BASEI1):V(V2)>CNTCNT(V)::X SETUP DEC-HEX CONV. 76,0,032,32,12,225,165,160,166,161,32,65,249,96"I1012:Z:I,Z:I,I81928202:Z:I,Z:I61,DR:DA15,DR20F DETERMINE FREE SPACEn 76,0,032,32,12,225,165,160,160,0,162,9,24,42,16,1,200,202,208,249,165,161,162,9,24,42,16,1,200,202,208,249,169,0,32,242,226,96,96xI1012:Z:I,Z:I81928227:Z:I,Z:CNT0)I561,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0: 19 ZEROSht1,96,1,0,17,0,17,35,0,36,0,1,1,0,254,96,1,0,1,239,216~I84488474:J:I,J::I89608980:J:I,J: RWADV8448:TA8964:SA8965:RD8972SL6:DR1DA37148(DA,SL16:DA14,SL16:DAASE2)256(BASE3):LLL:LLTCLLLL216E 15:Z(AA):"("A")";^*28:Z(LL):"("L")"j4LCLC1\TNCT:SNCS:880:p READ TRACK/SECTORTA,TN:SA,SN:RD,1:RWDRV: SETUPRWTS DRIVERB8191-j 169,035,160,00,32,217,3,96,0,0 FILES"=" FREE SECTORS= ";CNT::22:Ca DISPLAY FILE PARAMETERSmlI315v((B3I));:ITN(B3):SN(B31):880TN(BASE12):SN(BASE13):880 A(BASE)(1BASE)256:AAA:AATCAAAA216+L(B"Y"4202 1:24:" ";= 35,23K 21:958W :21:` 510 1:24:" "; LC1:21  B2 CTNTC:CSNSC 230  EXIT PROGRAM21:" NO MORE BINARY1350:1530! TNCT:SNCS:880A NTC(BASE1):NSC(BASE2)S TB21122435b ^B3BASEB2 h(B3)0(B31)0Ĺ35,23:21:958::500 r(B3)255390 |PR(B32):PR4PR1284İ540 LC16440 24:"CONTINUE (Y-N) ?";:A$:A$;:A$A$:A$:A$(13)ĉ::C FVT17:VS0:BASE9216:NULL$"":TC2151M P::| Z" FILE NAME START LENGTH " _"1ST 13 CHAR. HEX(DEC.) HEX(DEC.) ":34,3:6: d TNVT:SNVS:880:CT(BASE1):CS(BASE2) LC1:35,21 LENGTH IN BOTH HEX AND (DECIMAL)"m (:"THE NUMBER OF FREE SECTORS ON THE DISC WILL ALSO BE CALCULATED" 2::12:" INSERT DISC TO BE SEARCHED " <:" DEPRESS RETURN TO CONTINUE, ANY OTHER KEY TO EXIT PROGRAM ";::* ALL RIGHTS RESERVED *6 * *T ************************] 960# ::"THIS PROGRAM WILL SEARCH A GIVEN DISC FOR ALL BINARY FILES, GIVING THE FIRST 13 LETTERS OF THE FILE NAME FOLLOWED BY THE FILE START ADDRESS AND FILE  ************************? * *^ * BFILE PARAMETER LIST *} * CLYDE R. CAMP * * * * COPYRIGHT (C) 1982 * * MICRO INK, INC. * * CHELMSFORD, MA 01824 *      EN LACRAB IS DONE."4 I1126:X(I):Y(I):"*";:A I1126w X(16384):X128ė::5:(4):(4);"CATALOG": KI100 K1KK126 X(K):Y(K):"*"; :X(I):Y(I):"*";:: JJ1 1430@Ah`L` b         H    E \LB8$ 0 LN` `TS y`yST`@:A;`:@;A`hhLw`A?@>`:B;C`B:C;`:; HLg<H@ /@e/   ` L80LH  ` L(hh`  hh`aiȱiȱi  E`  b`   LK iȩiȩi` LKP 0=EL=G0=IL0=K8eө8e@`ժժeɥΥffΥ`8΅ڥυ۩ܩݥ܅ʥ݅e΅̥eυ͢8uuɐИuu /(8΅ʥυ˥0вЮݥېФڐЙ ijelk 檤` %)ȱ)ȱ$)8ooppoiiqq 7 ְL:<=ii ٥>? Li `I0 ` `昆`:ʈ`ȱ` LL67` f 8劥勐斠ȱ` o     ɛ1 8 r L r %` Ш  /HH-  Jh h Ĕ`$,$`  ŏhh: 0 N .: c Ș N N $2$: ɠ /ȐL $L擆~`8/e`ȘI`8~~` ] 8񌪈~`ȱޥ  ~o )$ H 0.~~ x !  Ĕ1I r ``e` `  S:;8刘$` $JH : L J/Ȑ Jh,--&,*i J/'.$0ɣf LL.`4 PASSSAR EAR TSP PCU8@i>D.憕唅 X    ) & L) 8i ] 捑Ċȑuȑȥȑ g  H `昆`:ʈ`ȱ` LL67` f 8劥勐斠ȱ` o     ɛ1 8 r L r %` Ш  /HH-  Jh h Ĕ`$,$`  ŏhh: 0 N .: c Ș N N $2$: ɠ /ȐL $L擆~`8/e`ȘI`8~~` ] 8񌪈~`ȱޥ  ~o )$ H 0.~~ x !  Ĕ1I r ``e` `  S:;8刘$` $JH : L J/Ȑ Jh,--&,*i J/'.$0ɣf LL.`4 PASSSAR EAR TSP PCU8@i>D.憕唅 X    ) & L) 8i ] 捑Ċȑuȑȥȑ g  H    H@ /@e/@Ah`L` q         R    E kL$B8$ 0 L]` `TS `ST`@:A;`:@;A`hhL`A?@>`:B;C`B:C;`:; HLg< @@@@@@@@ @@@@@@@@0@O;U]epz   ""AA""A""A""A""AA""A"A6c>w        ɈL) . E  E L L L  L )   L  E L ɍ) Ɉ[ɛ1ɕaɍc) Ev_L  `H ɕɈɠ ɝ Lt L LU LL  L L0 B b`L=   :LL 8e E B `     H @@H(`h0HH@H𠸸hH(H@(`X``HH@@0hH@hH@  pH`hH( ȸ H(h Hب@HxHH H@h H@ `phH@@ HhH@H@8H0010P1<0$m%m 0L ` @(((((P(H` P@ 0H(@hH@8xxx (08@HPX`hpxIEB ~|x<}xp>HwA]Awx<?kk+̀]*Ix@ld|dlxH AIAYIkIMIkIIIwAwAwII"UIU"AcwcA>>>**_.**:#dbpJ]"P"AA"**>@`@ >AAA>DB@@bQIEB ~|xH+?KK?+HHwA]Awx<?kk+̀]*Ix@ld|dlxH AIAYIkIMIkIIIwAwAwII"UIU"AcwcA>>>**_.**:#dbpJ]"P"AA"**>@`@ >AAA>DB@@bQ@@@@@@@@ @@@@@@@@B@0@OԠŠɬU]en y 1@T IIF"AIIOIII1IIIyC! 6III6FIII>@h"AA"Y A]Q_||III6AAAAAA"IIIA AQqAAAAaAA"A@@@@AAA AQa? )OoIII{@@@8@8  ccxaQIECAA ~|xp`U*U*UH$$HwA]Awx<>0"A"]W]*Ix@ld|dlxH AIAYIkIMIkIIIwAwAwII"UIU"AcwcAc6>>**_.**:#dbpJ]"P"AA"**>@`@ >AAA>B@bQ          q<d<e8 rAd=e8 rFM HUVWYKY)PfUVWijkYU_ ] ]) a(Ġŭ)a(Ġ)  Lcccdedeq/?rq/?rf/?rd$ed%eUVW/? r(q/?r2ԍ]]]Ӡ]ҮîŠ]]Ԡé]Ϡˬî]Ĭ ]̠ӠĪ!!Z` \ υ ж0 f К n  $ ````````````Lk H m hLk !>!2!1 n`$ $Ȣ8Ii`h 0` h` \ 8ɵh[ ZW$ ` \ LJ \  J œ k` \Φ Ϊ0Z W Z$ ` \ 8`ש` \L \$8Ii` \ l Jeeeffffff٦ ` \ l &&&&&8몥쨥צ ` \  Lz \ ΅ fff ؙӍLԧ $(,15:>BGKOSX\`dhlptx|` \` \8` \$ f` \$0 \ lu` \ l8` \03$` \ l0 00  TuVTvPPQ`ԑѥmnՐ`Н֕ PЕ `֕ ЕP`ҭΠǮ̠Ӡϓ#DSŠԠeх 8m҅mnӅn )з Ь Z` ,) hhL]ʽ`%`8`$ `8`kޥlߠ͵ȱͶeHȱe߅hmn`ޤ`iޥjߠ͵ȱͶiޥiߥmn`ޤ`iRiSPJҥiӠLȱ҅ȱ҅NȱЅȱЅ܈;Ȅ =E8ڤ$ݐiХi8ХѰL$0ّȥؑiԥiՠiֈ0iLlȩLL]Lc "$ A a xЄѠЅȱЅeЅH 5h0Sݩ F(HH` " a x4Є g RPإQ g RPڥQ " a ZLޢ  ҄ " A x Ԅ " A ք КiԥiեڅPۅQTU 锆؅PمQ 锆Єi       )&@ +'`@9()%[,'S(Šſ)&@-'a(Ġ)E@.'[a(ǠϠԠ)G 'Po''S(ȠƠӠؠ)' '` %_"'4!'qoa(ǠϠȠ)G "'Po4$'S(ŠӠΠ̠Ԡ)' )'M6*'cS(ĠĠſ ] de q.?r`$  de `<()r%[ KM6Q 'KM6'q6@q6?q ''UVW-rq-rY)'S(ԠƠӠؠ)''` %_'4'qoӠϠΠ)" P a(ԠǠ) P a(Ԡή) c0 Pa()GP a(ӠӠŮ)3 cPa(ϠԬŠ٠ƠŠǺ)0 Pa(ԧѧЧŧҠԧ)  \' [ ]) c7 Pa()GP a(ӠРΠĠΠ) P a(Ӯ) c8 Pa()GP a(ӠԠΠΠ)% P a(ΠŮԠ̠)" P a(ĠȠٮ) c1 Pa()GP a(ΰqqUVWde-rY[ ]Р ] KM6( oPa()GP a()$ Pa()GP a()6 oPa()GP a(Ӡנed%eAfijkijk=lmnlmn UVW-rq.?rY_4a(Ƞٿ)q.?r`$)de-f0[!UVWb-rE()GY[S(Ƞٿ)q.?r`$#deq8rdeded<e8rd=e8rLd$ed%e fM d$VWYoPa()_4q-r0UVW-rqqY-rqq-rUVWX6q-rY&-rq'`%f+ghqq`$4q_4^Z`<()r$dq`$4qq`$4q_4&d`<()r$nq\_4&n`<()r$xq\_4Exoa(Ġه)U)r$Fq`$4qq`$4q_4|F`<()r$Pq`$4qq`$4qq_4fP`<()r$Zq`$4n54q=>rq.?r`$9\6fghUVW YfghUVW Y`$4#8fghf_4 9de:`%[ff<`<()%\`@9()@9()%\4`@9()@9()%\ 7`@9()@9()@9()@9()@9()%_ -_ !2UVW-rqYL{3fijkijklmnlm ]̠ӠĠ ]A a(Ġŭ)O4rD4rC@"r\'4 S(ĿЩ)&@`@9()@9()%\2 `@9()@9()%\ `@9()@9()%\`@9()@9(= ] ] ]ΠҠ ]ҮîŠ ] ]Ԡé ]Ϡˬî ]Ĭd%e!q/?r#f (q2q6q\7_#q.?$rq.?%r(q` $\Xq+`$\Xq q/?r]d$ed%e qd=e8 rd<e8 ]̠ӠĠ ]  a(Ġŭ) a(Ġ)< q6(de(dede qqLd6?efUV(W/ij'kYdede d$e ] ] ]Š ]ҮîŠ ] ]Ԡé ]Ϡˬî ]Ĭ[)XfUVWijkYb[`($\Xq`$\Xq(d$ed%eq/?r`$d=e8 rd<e8 rM !UVWY+f0ijk2lmn:`$72qq6\_#7`$A<q6q\_#A`$KFqq\_#Kq6q\_#q.?$rq.?%r(q` $\Xq`$\Xq (q ]̠ӠĠ ]  a(Ġŭ) a(ĠŠ)qLd6?efUV(W/ij'kYdede d$e/? rd%e/?(r#f/?r (q/?r-. ] ] ]͠ˠ ]ҮîŠ ] ]Ԡé ]Ϡˬî ]Ĭd!e(d"ed#e[Yf/?r_ a()G[q`0$q_fUVWM6ij'k.ij'k/Y$q(qf/?r_q6@q6?dedeLd6?ef'd eij'kYf/?rqq_`˱ $`˱$`8˱˱r%[`˱$ ˱q [q`$$qq`$qqfUVWijkr-M 2q`$$$7qq`($6<UVWM6fij'k.ij'k/YAf/?rFq(q_q.?r`$ de˱q`˱$-fUVW/ ]̠ӠĠ ]  a(Ġŭ) \UV(W/ij'kYqqf/?r\d$ed%e#d<e8 ˱r(d=e8 ˱r*f/? ] ] ]ŠҠ ]ҮîŠ ] ]Ԡé ]Ϡˬî ]Ĭ: A:X1BA1:C$;::# : :49234,0:X039J ((1)16)X X,39XXi X,47X39Xz 39X,X47X 47X,XX X::: 8,31,6,17C" ' A3:"ALL RIGHTS RESERVED"7 X1700:XC :1000w :20:2:"WOULD YOU LIKE TO SEE THE CATALOG?"; Y$:Y$"Y"Y$"N"200 Y$"N"ė: ::(4);"CATALOG" A:C:X1BA1:C$;:: YCD A:C$:B:C$:Y****** [$ _::C$"*":A,B,C,D4 d2000:3:8V n:"MICRO ON THE APPLE: DISK"b x:1000 :C2:A3:"MICRO ON THE APPLE" C3:A9:"VOL. 3" A3:C5:"COPYRIGHT (C) 1982" A5:"MICRO INK, INC." A2:"CHELMSFORD, MA 01824 **********************; * *X * MICRO/APPLE HEADER *u( * *2 * COPYRIGHT (C) 1981 *< * MICRO INK, INC. *F * ALL RIGHTS RESERVED*P * * Z ****************ŠˠƠˠŠˠű˨Ԩ˨Š˨˨Š˨˨Š˨˨ЍıǬƬŬԬIJԬıҬҬŬƬƬŬƬǬìĬƬŬҬԬҬñıƬǬıñ±Ǭñ±Ǭ±ñŬŬƬĬìǬԬǬŬìŬǬñ±ñ±ǬƣǬ±   ĠdedUVW2YMde[ gh*fgh/`%gh2` %gh4q>`%qH[ rM \ !UVWY&`/?r%\+f0ijk2lmn:[)XfUVWijkYb[QM]ŠȠΠƠՠϠԠŠŠҧӠ