' +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-(D ՠ@跻~!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`˨Π͠ǠҍŠ˨ű˨Ų˨ų˨ű˨Ơ˨ΠŠ˨ű˨Ԩ˨Š˨˨Š˨˨Š˨ɽϵɥŷɭɥԠɺź΍  39:"*":5)0u ********.DATA.****************** ):u"TYPE: F T M A P G",ITEM,MANUFACTURER,"MODEL/COMMENT","SERIAL #","ORIGINAL YEAR","ACQUISITION YEAR","ACQUISITION COST"SAR","ACQUISITION YEAR","ACQUISITION COST"NA$:24060:24070A(]CE$"BY BOB HUELSDONK":24060:24070:24070(]CE$"":I20592066:CE$CE$((I))::24060:24070:24050(]9310::SCRN.PAUSE (]I139:"*";::::*LINE(]"*";:20(CE$)2:CE$;:39:"*"::CENTER )^"*";:E "NA$",D"A+'N%HN ********.PRINT.SUB.************* %RNWF(W)%\N36,DT(W)%fNW(W)ĺ"0";%pNW;%N: &Y ********.SAVE:C $4&R$>&D$"CLOSE "FI$:?$& ***.PRINT.ROUTINES.*** V$&770::PRINTER.ONm$&903::12/IN,8/IN$&907::16/IN,8/IN$&(27)(120)::8/IN$&39700::DURA.ON$&960::BOTH.OFF$ N ********.FORMAT.FUNCTIONS.****** ]%*NT(X)(:A$(R,C)#N%::C#X%R-#b%D$"CLOSE "FI$A#l%D$"LOCK "FI$g#v%IF DD = 1 THEN DD = 2: GOTO 9430m#%#% ********.FILE.READ.************* #%D$"OPEN "FI$#%D$"READ "FI$#&EF:READ.EOF# &R1EF#&::C1C1# &::::A$(R,C)$*&:EW.DATA.FLAG..A$(R1,C1)=DATA.ARRAY1"$DD1:ND0K"$D$"OPEN "FI$",D"DD_"$D$"UNLOCK "FI$s"$D$"DELETE "FI$"$D$"OPEN "FI$"$D$"WRITE "FI$"%R1R1"%::A$(R,1)""EFR1:9510:FIND.EOF"%"&%EF"0%R1EF":%::C1C1 #D%:::N.NAMES1!# ********.TIME.****************** J!#D$;"IN#3":D$"PR#3"W!$" ";TI$q!$D$"IN#0":D$"PR#0":!T$ ********.SCREEN.PAUSE.********** !^$24:16:"ANY KEY";:A$:!$ ********.FILE.WRITE.************ ""$IN:R1=ARRAY.ROWS..ND=NARRAY.SIZE F#2:FI$"HM.INV"; P#A$(R1,C1),B(R1,1),T(C1)_ Z#I1C1:A$(0,I)::FIELD.NAMES~ d#20000:24000:FCTNS&TITLE n#1000:MENU!x#OUT:D$=DOS.CMD..A$=ARRAY..R1=ARRAY.ROWS..C1=ARRAY.COLUMNS..NA$=PGRM.NAME..FI$=FILE.NAME..A$(0,1TO0,C1)=COLUM **.?.DATA.SUB.** M"(VI):(H(A$(0,I))):A$(0,I);:(H):":";:A$(J,I):g`" **.FORMAT.SUB.** j"A$(J,I)""A$(J,I)"--------------"t"(# ********.INITIALIZE.************ 2#16298,0:::D$(4):HRES.OFF.CLR.SCRN <#R1500:C18: !::"";I$*!::::I1ĭI$"^"ġ:1010L!::::I$"^"İ8710:II1:8600d!::::I$"S"ġ:8050!::::I$""A$(J,I)"--------------"A$(J,I)"":8710:8675!::::I$""İ8710:8675!::A$(J,I)I$!::::I3TT(A$(J,I))!I!! TO G=GENERAL"6\!4:34,4:SET.WINDOW.TO.SAVE.PROMPTSGf!"RECORD #"JZk!I25:8810:wl!A$(J,6)""A$(J,6)"YY"m!A$(J,7)""A$(J,7)"YY"p!I1C1z!::8710:?.DATA.SUB!I!T0!I1C1!::8710:?.DATA.SUB!::(VI):(H1)C1=ARRAY.COLUMNS..R1=ARRAY.ROWS..K=1ST.OPEN.ROW;TJKR1G^::8510NhJTrp|OUT:A$(R,C)=INPUT.DATA4! **.ROW.INPUT.SUB.** >!:H!V5:H18:SCREEN.POSITION R!"S=STOP ^=BACK UP CR=KEEP F=FURN T=TOOL":"M=MACHINE A=APPLIANCE P=PHOATOR.** L179:"-";:::8L179:"=";:::`L119:" ";::L140:"*";:::z **.TYPE.TOTAL.**  637036,D(5):"TOTAL ";C$(C);:36,D(8)5:WT1:20050::6370:: FORM&?@ ******.INPUT.SUB.*************** /JIN:ENUBOUT:NO.DATA.OUT-L **.TOTAL.** PV6380:36,D(5):"GRAND TOTAL";kjT0:ZERO.TOTAL.ARRAYy::I1R1::::TT(A$(I,8)):TOTAL::I::DD(8)5:WT:20050:FORMAT.&.PRINT:6380:SEPARATOR:MENU **.SEPART.COLUMNS ::I8I::::DD(I)5:W(A$(J,I)):W6175:JUMP.IF.0b::::20050:PRINT.IT::36,D(9):YR(A$(J,6))!T1T1(A$(J,8)):TYPE.TOTAL$J)6410:C:TYPE.TOT.&.LOOP+6230:GRAND.TOT.9960:PRINTER.OFF81000:M";:36,D(8):"COST";:36,D(9):"AGE":C ***.PRINT.TABLE.*** YC16:TYPE.LOOPrT10:ZERO.TYPE.TOT~J1R1::A$(J,1)""6185:TYPE.TOTAL::A$(J,1)C$(C)6180:IS.IT.THIS.TYPE? ::J;:I17:36,D(I):A$(J,I);:I:PRINT.TEXTIONSMC$(1)"F":C$(2)"T":C$(3)"M":C$(4)"A":C$(5)"P":C$(6)"G":TYPESm ***.PRINT.HEADINGS.*** 6390:36,27:NA$;" ";(TI$,5);"/";YR:6390:"#";:36,D(1):"T";K25::36,D(K):A$(0,K);&:36,D(6):"OR";:36,D(7):"ACINT OUT.*************** QzIN:C1=ARRAY.COLUMNS..R1=ARRAY.ROWS..A$(R1,C1)=ARRAY:9210:5:"PLEASE INPUT THE YEAR 19(YY):";"YY";:30:"";YR9910:PRINTER.OND(1)3:D(2)5:D(3)20:D(4)35:D(5)50:D(6)65:D(7)68:D(8)71:D(9)76:COLUMN.POSI IN:NONE6::5:" EDIT WHICH RECORD? ";K$FK$""1010hJ(K$):8510:ROW.INPUT.SUB" STOP? (S) ";:Q$:Q$Q$"S"4020ND1:1010: NEW.DATA.FLAG.THEN.MENUOUT:ND=NEW.DATA.FLAG..A$(J,1TOC1)=DATAp ******.PRA$(0,I))):A$(0,I);" ";I:A **.DISPLAY.FOUND.RECORD.SUB.** a :V5:H18:SCREEN.POSITIONr "RECORD #"J~* I1C14 ::8710: ?.DATA.SUB> IH R **.QUIT.** \ 1000:MENUf OUT:NONE  ******.EDIT.FILE.*************** :"KEY TO CONTINUE, ^ FOR MENU. ";:Q$:Q$"^"ġ:3420:QUITF _ **.REVIEW.ALL.** k J1R1 ::A$(J,1)""1000 ::3350:DISPLAY.FOUND.RECORD ::3230:CONTINUE  3420:QUIT **.PRINT.FIELDS.SUB**  (VI):(H("WHICH? ";:Q;:(23):Q$:Q$:Q$(13)Q(Q$)cN ::"INPUT SEARCH WORD:";A$:A$"^"3420:QUIToX J1R1b ::R$A$(J,Q):R$""3210l ::210:SEARCHv ::S1S10:3340:3230:DISPLAY.&.CHOICE  3420:QUIT **.CONTINUE.SUB.** @1::17)"WHICH? ";:Q;:(25):Q$:Q$:Q$(13)Q(Q$)P Q$"^"3420:QUITj Q23260:REVIEW.ALL **.SEARCH.FIELDS.**  :3:10:"FIELDS:": V5:H22:SCREEN.POSITION& I1C10 ::3330:PRINT.FIELDS.SUB: /D Q2::15) ND1:NEW.DATA.FLAG'1010:MENUS OUT:ND=NEW.DATA.FLAG..A$(J,1TOC1)=DATA} ******.REVIEW.FILE.*************  IN:A$(R1,C1)=DATA.ARRAY :7:10:"REVIEW FILE :":: 11:"SEARCH FIELDS 1" 6:"REVIEW ALL ENTRIES 2":9 Q**** e::7:" THIS IS THE"::10)NA$::20)"PROGRAM."::::" BYE FOR NOW, BOB!"::: ******.INPUT.DATA.************** IN:R1=ARRAY.ROWS..A$(R1,C1)=ARRAYK1R1::A$(K,1)""2050K:K=NEXT.OPEN8010:INPUTSAVE.FILE.************* (J9400:1000R ********.SET.UP.FILES.1ST.TIME.* :::"FILE SET UP WILL DESTROY ANY EXISTING":"FILE ON THIS DISK. TYPE 'YES' TO":"CONTINUE. ";A$:A$"YES"10009400:1000 ********.QUIT.**************"SET UP FILES 1ST TIME 7"; j:" QUIT 8"{ tQ1::15)"WHICH? ";:Q;:(23):Q$:Q$:Q$(13)Q(Q$) ~Q1410,2010,3020,4010,1610,6010,1810,1990 1000 x ********.READ.EXISTING.FILE.**** 9710:1000@ ********.IN:ND=NEW.DATA.FLAG :# 5D :" READ EXISTING FILE 1"e :" INPUT NEW DATA 2" $:" REVIEW FILE 3" .:" EDIT FILE 4" 8NDğ B:" SAVE FILE 5" L V:" PRINT LIST W TOTALS 6" `:IJ# LIM:B(I,0)B(L,0)450H TB(I,0):B(I,0)B(L,0):B(L,0)To T1B(I,1):B(I,1)B(L,1):B(L,1)T1 IIM:I1450 400 JJ1:JK370 390 :OUT:B$(R1,1)=ARRAY.OF.DATE.ORDER  ******.MENU.********************  ) , ********.ORDERING.************** G 6 IN:A$(R1,1)=RECORD.DATES @I1R1 J::A$(I,1)""360:LOOK.FOR.END.OF.DATA T::B(I,0)(A$(I,1)):B(I,1)I:FORM.ARRAYS.OF.DATES.&.REC.NOS ^ hNI1:MN rM(M2):M0470 |J1:KNM  770:Z$:960:7$ 9000:INIT8 2:23010:SAVEb ********.SEARCH.**************** IN:R$=FILE$..A$=SEARCH$..T$=LOCAL L1(R$) ::T$(R$,L,((A$))) ::T$A$S11:OUT:LOOP.CNTR.SET.TO.SEARCH.RECORD..S1=FOUND.FLAG :!9:..03/30/80.21;39 :NA$"HOME.INVENTORY":: s5:::" CALL770:LISTXXXXX-YYYYY:GOTO 6":(37)1:5:1016:D$(4):2:9210:770:NA$" "(TI$,5)"/80 "(TI$,7,5):960:960:1016:"TEXT:":"";Z$:Z$"/"Č1016:                ,151:1012,50: #)::10:"ON RESET RUN HELLO":A$: A$"300:20 EA 03 A0 00 B9 3E 03 20 ED FD C8 D0 F7 84 D2 D5 CE C8 C5 CC CC CF 80 N 3F2:00 03 A6 N D7D2G":I1(A$):511I,((A$,I,1))128::72,0:144"TRY # "T%:T%T%1:A$:A$"Q"15 1010,0:1011 ,0:1440 "TRY # "T%:T%T%1:A$:A$"Q"15Q 1010,0:1011,151:1012,50: :SJ::10:"ON RESET WIPE MEMORY":"SAVE TO DISK BEFORE RUNNING":A$: A$"300:A9 00 8D B0 B8 85 3C A9 08 85 3C A9 08 85 3D 85 43 A9 FF 85 3E A9 BE 85 3F A9 01 85 42 20 2C FE 4C 00 00 N 3F2:00 03 A6 N D7D2G":I1(A$):511I,((A$,I,1))128::72  &::10:"ON RESET LOCKUP":A$: A$"300:4C 00 03 20 98 D8 4C D2 D7 N 3F2:00 03 A6 N D7D2G":I1(A$):511I,((A$,I,1))128::72,0:144"TRY # "T%:T%T%1:A$:A$"Q"151010,0:1011,151:1012,50: : ,::10:"ON RESET CONTINUE":A$::10 A$"300:20 EA 03 20 98 D8 4C D2 D7 N 3F2:00 03 A6 N D7D2G":I1(A$):511I,((A$,I,1))128::72,0:144"TRY # "T%:T%T%1:A$:A$"Q"151010,0:1011,151:1012,50: '::10:"ON RESET RUN":A$::10 A$"300:20 EA 03 20 66 D5 N 3F2:00 03 A6 N D7D2G":I1(A$):511I,((A$,I,1))128::72,0:144"IT IS DONE":A$:A$"Q"201010,0:1011,151:1012,50: : 6 , WHEN FINISHED, ALWAYS DISABLE THE RESET VECTOR Y 61010,191:1011,157:1012,56: @ IF YOU HAVE PLE UP, LINE 310 SHOULD READ: 310 POKE 1010,0:POKE 1011,151: POKE 1012,50:END::10:"THIS IS THE MAIN MENU":"PRESS RETURN":A$z x:10:"SECTION "T%" OF CODE":"PRESS RETURN":T%T%1:A$:120: NOTE: BY POKEING 775, LINE NBR/ 256 AND POKEING 779, LINE NBR - PEEK(775)*256 YOU CAN CHANGE THE LINE THAT RESET BRANCHES TO. ' KEVIN C KILLION JANUARY 1981 F SET UP TRNASFER ROUTINE A$"300:20 EA 03 20 FB DA A9 00 85 51 A9 64 85 50 20 41 D9 4C D2 D7 ND823G":I1(A$):511I,((A$,I,1))128::72,0:144(1010,0:1011,3:1012,166:100dMAIN MENU 3 n 20w32,123,221,32,82,231,32,26,214,144,3,76,65,217,162,90,76,18,212L9Mq AMPERSAND GOTO * D A LINGWOOD CALL -A.P.P.L.E. IN DEPTH 1 1013,76:1014,0:1015,3I768786:J:I,J: "AT TEN""GOTO LINE(100 OR 200)? ";AA220d"ONE HUNDRED"n"ONE HUNDRED TEN"x20*"TWO HUNDRED"2 D TEN"8xK"TWO HUNDRED"Q32,123,221,32,82,231,32,26,214,144,29,169,3,32,214,211,165,185,72,165,184,72,165,118,72,165,117,72,169,176,72,32,183,0,32,65,217,76,210,215,162,90,76,18,212LLr AMPERSAND GOSUB * D A LINGWOOD CALL -A.P.P.L.E. IN DEPTH 1 1013,76:1014,0:1015,3I768812:J:I,J: "AT TEN""GOSUB LINE(100 OR 200)? ";AA220<"LINE 60 --NEVER GETS HERE"d"ONE HUNDRED"2n"ONE HUNDRE  (222):O" END OF FILE ON ";F$UrI47684794:J:I,J::32,227,223,162,0,32,117,253,160,0,138,145,131,200,169,0,145,131,200,169,2,145,131,32,57,213,96 THIS SAMPLE PROGRAM WILL PRINT TEXT FILES AT ABOUT 1400 BAUD0 BAUD,r AMPERSAND INPUT * D A LINGWOOD CALL -A.P.P.L.E. IN DEPTH 1 :"NAME OF FILE TO PRINT: ";F$1000D$(13)(4):D$"OPEN"F$:D$" READ "F$ 2001013,76:1014,0:1015,3A$""dA$nA$:1004(222)5ĺ" ERR# ";  ,90,3,162,186,32,46,213,162,255,32,108,213,32,26,214,144,41,160,4,185,2491,240,9,145,155,200,208,246,162,182,16,27,169,58,145,155,200,169,178,145,155,173,88,3,133,184,173,89,3,133,214,173,90,3,133,185,96,162,90,76,18,212,0,0,0L XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXi100n30u32,123,221,32,82,231,165,184,141,88,3,165,214,141,89,3,169,0,133,184,133,214,165,185,141 AMPERSAND LINE PARSER BY DAVID A LINGWOOD CALL -A.P.P.L.E. IN DEPTH 1 1013,76:1014,0:1015,3I768858:J:I,J: LN100100d"THIS IS A TEST OF THE PARSER":X321:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX A GOOD WAKER-UPPER 'I110:30,12:J1500:J:30,28:J1500:J:I:I1400:30,30:::RATION (1-255) ";IKK0255h((K16(K16))16)ĺo2KxdI,KxJ11000::J12000:15 32,70,231,134,81,164,80,152,170,202,208,253,44,48,192,69,81,170,202,208,253,44,48,192,136,208,236,96&(# TRY GOSUB 10000 FOR?2#] AMPERSAND TONE: "NAME THAT TONE" BY DAVID A LINGWOOD CALL -A.P.P.L.E. IN DEPTH 1 SEE "ERR-RING" R & D ALDRICH, CALL -A.P.P.L.E., MAR 1981, PG 44 :" NAME THAT TONE !!"::I768795:J:I,J:# 1013,76:1014,0:1015,3>"DU  C AMPERSAND WAIT \I768792:J:I,J:y 1013,76:1014,0:1015,3"# TENTHS OF SEC. WAIT? ";II((7): CTRL-G22032,103,221,32,82,231,166,80,169,199,32,168,252,202,208,248,198,81,48,4,162,255,208,240,96 I 5678901234567890"NdN:I1N:J[nJNN(J)kxSP(J));Jqy12 -1234.56789,8.13,.012345,123.4567,1234567.890, .0012, .4,.9,0,-1,-.1,1234n FORMATTER BY D A LINGWOOD CALL -A.P.P.L.E. IN DEPTH 1  FW10:FIELD WIDTH DP3:# DECIMAL PLACES SP(X)(FW(((X))))((X)1.1E8(X)0)NN(X)((X)10DP.5)10DP(X)( !2" 11111111112"=<"1234  8:XX:60000:  E ""UNFORMATTED + FORMATTED -"K , `Q(X):(" "((X0)45(X0)32)((Q(Q0)1(Q0).005))"."((((Q100)100.5)),2),S);:S[ DOLLAR FORMATTER: BY P HEMPFNER & D A LINGWOOD CALL -A.P.P.L.E. IN DEPTH 1  0,1.010101,1.9999,8.13,.123,1.2345,123.455,1234.501,1234567.890,10,100,1000,10000,9.01,9.51,9.99S11I116:XX;:36,14 60000:36,2  :OR998:J(175)256(176)I1y\(4);"BSAVE MODULE ";K;",A";I;",L";JaJ;" BYTES":I(121)256(122):7zf  OVERLAY * DAVE LINGWOOD CALL -APPLE IN DEPTH 1 *"MODULE#";K:" SAVE OR RECALL (S/R) ";A$:A$"S"850/A$"R"1204830:>998:(4);"BLOAD MODULE ";K;",A";ICL(21920)256(21919)I1.H175,L(L256)256:176,(L256)  􍪍ɍЍύ̍Р԰ ٠٠٠Ѝ٠̍Р԰ɠԠР̍àɠƠҠΠҠȬōгϩ٠ŠĠȠǍРϩٍŠɠƠԠ̬РϠԠٍٍ٠̠ˠҠ̠ҧӠčŠгƠԬō Ϡɍàɠɠ٠ƠɾΠΠŠԠҠҠԠǠӠĠҧӍ̠ˠĠȍÍàƠˠҠàč̠ԠƠԬōР̠ƠϬȠԠŠ̍ѠгŠύϩ٠ԠǠȠ̍Ѡ٠Ơ̬ԍٍϩ٠ԠǠӍύٍϩٍɍɠàϠԠ٠ҍŠ΍àɍΠàϠˠōàÍàύϠϠϠϠàɠɠɠàϠɠӍԠ ԠŠ٠ŠҠŠ٠٠ɠҠ٠Ҡ٠ϩ٠ԠǠӍÍàЍϠ٠ϩٍàɠ٠ӍԠ ԠԠɠύ̠٠ϠϠ٠ɠ̍ؠɠϠؠ ԠҠϠԠРϠɍϠɠҠԍϠԠǠҠӍàύύύɍàɠɍɍҠȠĠԠĠ٠؍ϩٍϩٍϩٍٍ̠͍ÍϠԠɠɭ͍àύύɠàɠɠɠĠƠɾ͠ΠōŠҠҠЍύѠčҠРҍԠ ɠ̠àƠʾˠΠԠנҍύàύɠàɠàΠРҠŠŠҠЍΠРԍˠӠĠƠŠǠǬōȠ٠ŠȠӍ͠ϩٍǠРϩٍŠˍ٠ӠŠ̠٠ӠˠĠƠԠčàвƠԠŠԍ̠ˠĠŠà̍àȠƠҠҠΠȠĠàϠԠʍŠ̍àǯŠǍàɍ̠ŠǠҍѠȠƠ̠ΠȠӍɠӠԠԠӧΠϠˍàƠˠàҍɠȠƠϠȠӍвÍϩ٠ŠǠӠǍŠҍҠ̠àŠԠĩӠˠҠ̠ӠР̍ѠвƠϠŠ٠ɠȠƠǠҠȠӍ̠ĠŠōȠÍР̠ĠԬҠ̠ˠҍѠȠƠ̠ȠӍàƠˠҠÍ̠ĠƠԠōϩ٠ƠϠŠǠϧӍРŠҍà̠٠Ǡ͠àύŠҍàɠĠҠ̠ˠǠȍѠĠƠ̠ΠōàƠˠҠàč̠ȍϩ٠ƠϠŠǠϧӠРŠҍà̠٠Ǡ͍àύŠҍàɠŠҠĠč̠ŠԠĠȍ̠ƠĠàĠǠƠ٠ϩ٠ԠŠǠӠÍàЍύٍϩٍàɍҠҠԠǠӠĠҧӍύύҠàԠРϠɫͩύàύύɠàɠҠԍϠԠŠǍàϠҠӍύύɍàɠɍɍҠȠĠԠŠɠύҍύŠԠƠͽΠԍɠѠ԰Ԡ٠ԠʠϠ٠ɠٍ٠ύàԠˠϠӠ͍ύàύύɍàɠɠҠɠԠɠʍɠԠǠӍԠ Ԡ԰٠ΠŠϠӠΠجٍɬٍٍ̠΍РԱԠӠԠԠ ԠԠàԠͽͯɠҍӬϠǠčàРԠҍàϠԠҠϠԠҠŠĠˠҠנàɠԠɠҠΠנŠĠӠȠ 獪Ġà̍РԠҠ РĠ٠ȠӍ 򍪍ԠРˠàҠɠԍàƠƠԠԠàǍԠӠҠϠԠԍÍРРŠϠԠӍàĠƠ̰Ġ٠ԠҠϠԍРϩ٠ԠҠΠǍРƬ٠ŠϠԠҍŠԠԠԠƠϠȍÍ٠ԠϠԠҠΠǠ٠̠ˠƠŠàРŠƠӍ Ġ̠ӠĠԍбàԠҠ̠ȍà̍РĠԠĠӧΠ٠٠ƠԠàĠǍҠԠĠԠҍŠаӠȍԠ 獠Ԡ٠ǠҠɍɍؠύؠҠԠؠϠĠҠҠĠĠԠҍаؠˠҠō̠бƠԬōÍàРԠĠȍӠĠˠҠŠȍƠԠԠϠЍ٠Ѝ٠̍٠ƠĠàĠǍÍà̠ˠҠ̠ҠӠԍàϩ٠ˠҠũҠҍàԳӠԠΠϠˍٍϩ٠ǠҠϠ؍ٍϩԠŠƠϠԠ̧ҠȠϠϠԳ̍ԲàРԠӧΠҠǠӠԱàРԠӠĠԠԠ 䍠ԠȠ٠ŠӠ٠ĠРōԠ ԠؠЍЍЍЍЍЍЍЍЍЍԠ 占ԠİҠȠĠĠčӠˠĠƠǠÍРЍӠԲ԰٠ŠŠϠӠŠɬٍجٍٍ̠ō٠ϩ٠ӠΠǠ٠ɠɍٍϩ٠ϠύàƠˠԠҠŠٍѠŰРԍŰҍϩٍѠİƠŠҠҠǍҠ͍ҠԠӠϠԍύ٠ɍàƠˠҠԠٍѠ԰Ҡ͠ƠԬԠǠҠӍҠԍύ٠ɠɍҠ͍ҠԠģϠ٠ɠ٠ŠȠӠϩ٠Ҡȍٍ̍ϩ٠ҠҍЫٍϩٍЫٍϩ٠Ġҍ 占ԠҠԠŠΠϠ٠ɍҠ͠ˠҠԠǠӍύύ٠ɍ٠ɠҠ͠ˠҠԠҍύ٠ɠՠϠՠɠՠϠՠɠՠϠՠɠՠϠՠɠՠϠՠ͠ՠŠˠŠԠՠųԠԠҠŠǠƠʠƍԠ ĠǠҠՠĠҠϠԠӠՠ ԠΠϠˠ̠ՠàҠȠƠՠĠҠàǠϠՠŠРǠàӠɠՠƠ٠ōϠՠǠàҠɠՠϠՠРҠàҠɠՠ ϠՠàԠҠàҠɠՠĠϠՠàԠҠҠɠՠčϠՠŠРҠҠɠՠƍƠՠƹ ˨˨ ŠѠՠԠŠӺРՠĠΠ̠ՠĠȠРՠҠΠ̠ՠҠȠ ˨ ˨ Ӻ Ӻ ˨ ˨ ź 򪍪 䣬 媍 Ӻ ˨ ˨ ǵ Ƕ ĺ Ժ 䣬 ź DZDzdzǴ ǵǶ ź DZ Dz dz Ǵ &ң Ҭ ЮЮ̮Ů                  8姅妅0L ee ޓeȱi` *ee`Eȱȱ8塥0* a8۱ LM LM e ` LۓjjȄ8姅妅ee ee ޓeȱi aY40 Z=0 0<!810+8"8壥墐LL[?c ߅ ߅ ߅ ߅ ȱ$ȱ%H ߅ ߅ ȱL[L ޓ8 `8 qȱȱ  8`e  1 8 `:08 #)|IQ   B #l9`A44ɍT)) @ 4T ɠ$$A0 ɍuHAЯ #:92:`J ? f3  Q #)IQJQ!:BQ $3 Ƀ0ɯ,ɠ #$9 #*4 B #$9 L L   #IAYAl!:JL):I #<)q'q*q7L,  Q  #IL7ʆ #7AY`   L  #l;  #):(; LtI ?'; #&;  iL i #9: tL  Q   ᾀ. ɍe пг` ʊܥԥαɍ  AL %7L #l;8Ll8(N )`,8hkxXxXx@PQ  @* #+)D+@6L ?  #(;)8 ):l; (11*2!|| #': #i$ir!9 B \1R$Qɻ 10R`T11 0$!$  ɍ$! %# <ɍД #I`$ٵו1     $1if1 :NTң1!( +;-J:N%20:I%,A$(0),S$,J%,N%hI120:I;". ";5);A$(I):It300:JD$"PR#0":,PSĺD$"PR#0":"ANY KEY TO CONTINUE";:I$:6PS7ČPS:@D$"PR#"PS:S:ATE TEST":I%2:L%0:N%20I120:J%(1)2.5:K%(1)20.5:L%,A$(K%),S$,J%:B$(A$(K%),(6),(7)):I%,A$(0),S$,J%,N%,B$I;". ";B$;" ";J%;" ";256(8)(9);" ";A$(256(8)(9));" ";(6);" ";(7):I300:"SORT TEST":I%1GJ02:J%K:A$(I)A$(I)(((1)42)48):JqnI;". ";5);A$(I):I:I%0:300:"FIND TEST":S$";":"S$ = ";S$:J%0I120:I;".";:36,5:A$(I);:36,30:;:J02:J%J:I%,A$(I),S$,J%:" ";(6);" ";(7);" ";(8);" ";(9);" ";:J::I 300E:"LOCL?":"['0' FOR NO PRINT ] ";PS::310<I120:K((1)6.5):KāJ1K:A$(I)A$(I)(((1)10)48):JFA$(I)A$(I)";":IPI120:K((1)6.5):KāJ1K:A$(I)A$(I)(((1)26)65):J ZA$(I)A$(I)";":INdI120:K((1)6.5):KāJ1r  DELIMITED STRING DEMO BY T W MILLER, JR CALL -A.P.P.L.E. IN DEPTH 1 37632:::D$(13)(4): &SUBROUTINE CHECKOUTD$;"BLOAD DSR.O,A$933F"(1013,76:1014,63:1015,147:& JMP $933FQ2A$(20):"PRINTER SLOT OR DRIVER CAL     ,STR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$PLRE,SPEED=,LET,GOTO,RUN,IF,RESTORE,&,GOSUB,RETURN,REM,STOP,ON,WAIT,LOAD,SAVE,DEF,POKE,PRINT,CONT,LIST,CLEAR,GET,NEW,TAB(,TO,FN,SPC(,THEN,AT,NOT,STEP,+,-,*,/,^,AND,OR,> 8t =,<,SGN,INT,ABS,USR,FRE,SCRN(,PDL,POS,SQR,RND,LOG,EXP,COS,SIN,TAN,ATN,PEEK,LENn END,FOR,NEXT,DATA,INPUT,DEL,DIM,READ,GR,TEXT,PR#,IN#,CALL,PLOT,HLIN,VLIN,HGR2,HGR,HCOLOR=,HPLOT}7p DRAW,XDRAW,HTAB,HOME,ROT=,SCALE=,SHLOAD,TRACE,NOTRACE,NORMAL,INVERSE , FLASH , COLOR= , POP , VTAB ,HIMEM,LOMEM, ONERR , RESUME , RECALL 28r STOFI$:"DATE : ";DA$5hIN0:TIN0:SRF0:PB82561:NB(103)(104)256PB1:N1NB:NB1ė:10:"NOTHING TO LIST.":}6j::" PRESS ANY KEY TO HALT LISTING. ":"LINES=0 STMTS=0 BYTES=0 OF ";:36:NB:34,2::23:PRİ22:206l366OR START OF PROGRAM)? ";A$:ST(A$)::"ENDING LINE NUMBER (RETURN FOR END OF PROGRAM)? ";A$:EN(A$)5f:"LINES TO SKIP BETWEEN LINE NUMBERS?";:A$::S1(A$)::"LINES TO SKIP BETWEEN STATEMENTS?";:A$:S2(A$):PRĉ::"TITLE : ";TI$:"NAME : ";7)":":DUMMY$:12:"ENTER PRINTER SLOT OR CALL NUMBER [DEFAULT = NO PRINTER]";A$:PR(A$):LL34V4c:PRĄ"DESIRED LINE LENGTH = ";LL::"LEFT MARGIN INDENT = [DEFAULT = 0]";:A$:MG(A$):LLLLMG:4d:"START AFTER WHICH LINE NUMBER (RETURN F2\I51RF1:LP132^54P3`::5:7:"PROGRAM LISTING FORMATTER"::"BY MARK CAPELLA, ROBERT C. CLARDY, JIM MORRISSETT, CHRIS ANSON, & VAL GOLDING":D$(13)(4):TKN$(127):I1107:TKN$(I):3bD$"NOMONCIO":TKN$(36)TKN$(36)":":TKN$(37)TKN$(358(QF)RF541JSS1:4:BY58LCPLİ181LBY178JS2:34:LP01N561PTF0:LP0ĺ" ";2RBY130ININ4?2T10:IBY127:TKN$(I);" ";:LPLP(TKN$(I))2:LPLL5İ14R2VI2ININ4:y2XI69JS2:34:TINTIN4:LP0:TF12ZI4DF104MG);LN;:LL1:SS1:56064:BYJS1:34:3608BY127800:LP0RFTFİ10:"LET ";0<BY58ĺ" "; 1>TFİ101@LP0BY3254M1B(BY);:LPLP1:LPLL10(BY44BY32)İ14m1DBY13İ16:QFĺ15);:LP161FBY34QFQF1HBY6:22:/"28:I0J1:Jĺ:/#LCLCJ(J0):17:/$LP0:TI0:QF0:RF0:4:XBY:4:XBY256X0&4:XBY:4:LNXBY256:LNST44 0(4:BY40(0*3680,ENLNEN6Q0.JS1:4:BYİ34:38m00SRFİ34:BY178SRF102SRFBY178SRF0:34:DA$:::LC10:36,X:;:.PRPR8ĺD$"PR#"PR;.PR7ČPR. /D$"PR#0":I(37):2:7::L;:18:S;:28:N1NB::I1:(16384)127İ22:v/16368,0:::"PRESS ESC TO TERMINATE, ANY OTHER KEY TOCONTINUE":A$:A$(27)6/ (37)3:95,(0):104,(1):175,(2):176,(3)-:"OK."::- LP0Ĺ36,8MGINTIN:;- LPLP1:MGLPLP5- .:12MG);:LP1MG:LCLC1:%.LCLC16.LCPLPRıP.X(36):ILC70::I.PNPN1::TI$;:36,LL8:"PAGE ";PN:FI$;:36,LL8+ - PROGRAM LISTING FORMATTER BY M CAPELLA, J MORRISSET, R CLARDY, C ANSON & V GOLDING CALL -A.P.P.L.E.IN DEPTH 1 -PL78:964-BY(PB):PBPB1:NBNB1:NB1ı-NBNB1:28:D$"PR#0":::"RETURN TO ORIGINAL PROGRAM (Y/N)?":A$:A$"Y"Ĺ103z#? ΠԠŠ ΠԠР ΠԠŠ ΠԠΠϠ ŠŮ֠# ĮԠРԠ РŠ РŠҠ РԠ Р  РϠ ԠҠ ΠԠΠ̠ҠϠ ҮϠҮӠ( ٠ Ҡ͠ Ҡ РԠ!ӮӠ" ӮϠ" ԠӮӠ"ԠӮϠ"ӠԠ"ŠРԠ"͠ǠҠ ŠҠҮӠ  ҮϠզƮϠզƮӠ!Ӡ!Ϡ  ȯЮϠȯЮӠӠҮϠ ӠҮӠӠȠҮϠŠŮǠ!Š  Š ̠Ҡ٠ ԮϠԮӠР٠ӠԮϠԮӠ Ġ دà ԠҠӠҠŠӠ  ŮϠŮӠ٠Ϡ 7ՠ ͠ ȠŠŠӮϠŠӮӠ ĮӠؠ 1 2 ... ..  3 4  -... .. 5    1 6 ;" DISK AND PRESS RETURN";:" ";DK$-9363C16368,0:K141340:KK176:KLKH330:NKDO16368,0:K141340]PKK176:KLKH330eQNKT20:N;" ":^:22:"DEFAULT = ";:((41)256(40)14),96:hMSSSırMDSDıw:(DK$,1)"D"ĺ#|"INSERT ";DK$16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300U '(I$,1)"Y"160k ,(I$,1)"N"290s 1: 6:350:N;::1:I$;" SLOT: ";:L1:H7:330:A,N16: @350:N;::4:" DRIVE: ";:L1:H2:330:+JK(16384):K128330:"DUPLICATE":360: GET DUP DISKC 8:24::"WRITING";::" "\ 710: WRITE A HUNKr 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"@ "19:: ERROR!+ 5:24:" ":(713)1290F FT255: NOT FIRST RDn DK$"DUPLICATE":360: GET DUP DISKx 275 8:24::"FORMATTING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256 DK$ "2 704:717,SS16:718,MS16:719,SD:720,MDG 17:34,16:936T :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280:ON PROGRAM"::% Z704:CS(718)16A d715,(110)1:BUFSTART[ n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" 4% ************************C* DISK COPY *a* COPYRIGHT 1980 BY *(* APPLE COMPUTER INC. *2* *<************************F"BLOAD COPY.OBJ0": A$2C0 P:" APPLE DISKETTE DUPLICATI      ԠŠŠĠӠ٠̠ʠǠ̠ЮЮ̮ŮΠȠΠ̭     Ġ` qͺ`hh L$qHH`/p=` I |pgh $ p $ pij $ pkl $ pmn $ pop $ qst $ epo8mpn $` qŠŠ` q͠Ԡ` q͠Ġ` qͺ` q٠Ԡ` q٠Ġ` qǠ(ADRH2)(D64)# (37)21220l :::::4:" HIT ANY KEY FOR NEXT PAGE "::16384,128:16368,0::~ :D:756::ADR208::H1:D0124:2:"$";:HD128:" "D128;:12: TKN = ADDRESS OF TOKEN TABLE C(TKN):(C);:TKNTKN1:C128150: PRINT TKN NAME D63D82D106ĺ:200 HH1 22:"$";:H(ADRH21),(ADRH2)(D64):" "(ADRH21)256ȭ(2)212ADR2048:H2$"EF 1E":RTS$"CC 16 ND1025G" x::A$H1$H2$H3$RTS$:I1(A$):511I,((A$,I,1))128::72,0:144 :::I1160:" ";::::::34,5:2:3:" TOKEN ";:13:"COMMAND";:24:"ADDRESS":3:3:"HEX DEC";:24:"HEX DEC"Z TKNh APPLESOFT ][ DISPATCH TABLE BY NEIL KONZEN AND VAL J GOLDING CALL -A.P.P.L.E. IN DEPTH 1 d::ADR53248:H1$"3F5:4C E7 02 N 2E7:C9 48 D0 12 20 B1 00 20 ":H2$"F8 E6":H3$" 8A 20 DA FD 20 B7 00 C9 2C F0 EF 60 4C ":RTS$"CB DE ND823G"4 n(S$,K%,1);::' LOC(103)(104)2562 62160M NXTLIN0LINE65536:] LINEL0ıs LOCNXTLIN:62120 NXTLIN(LOC)(LOC1)256:LINE(LOC2)(LOC3)256: LST(121)(122)256:LST(LST1)(LST2)256:: 62000:)):::63999& b62110:LINEL062090\ l:" ";:K%LOC256:62100:K%M(LOC):62100:": "; vI18:K%(LOC):62100:" ";:LOCLOC1:LOC(NXTLIN)ĺ:62010 ::62060 "* NO LINE ";L0;" *":62010 J%K%16:K%K%16J%1:J%J%1:(S$,J%,1);B * EXAM * BY VAL J GOLDING * CALL -A.P.P.L.E. IN DEPTH 1 |0M(X)X(X256)256:S$"0123456789ABCDEF":ZERO$"0":"EXAM ";L0:L00ĀD63998:LSTLST4:EXAM$(L0)N(EXAM$)5EXAM$ZERO$EXAM$:62030 XI15:LSTI,((EXAM$,I,1   ~d:"CALL -A.P.P.L.E. IN DEPTH DISKETTE 1"::"TO PROVIDE ROOM FOR ALL PROGRAMS, THE SELECTABLE MENU HAS BEEN OMITTED." ԠŠԠԠؠԠРԠ̠ԠŠԠҠ̠ŠӠԬԠΠàҠҠԠŠ͠ìԠϠҬؠ͠ԠΠ͠ĠĠؠҠҍͫРɠԬҠ͠ԠϠؠӠؠ̠ԠԠˠŠ̫ŠӠŠ٠ӠӠҠ٠ŠԠӠŠҠϠӬŠԠƠŠŠ٬ΠҠؠϠ٠ĠĠؠȠŠԠ΍ŠԠؠԠӠ٠Ơˠ٠٠ӠŠӠҠԠԠԠɠҠѠŠƠŠĠϬŧŠՠÍàԠɠԠҠҠŠά٠ƠΠԠҠŠˍҠŠŠԠ̠ՠō͠ՠԠՠ±Πՠ̠ՠķҠՠŷԠՠIJؠՠƹ͠ՠŠՠ÷ǠðʠðԠРƠҠӭԠŠԠ캠򠦤򠠠򠦠 ԠدàïؠҠ٠̠ʠǠ̠ЮЮ̮ŮΠȠΠŠƠӠȠԠˠΠˠРȠנϠŠƠӠĠԠԠΠŠˠӠנŠנŠŧŠǠΠŠàЫԠŠɠŠĠЩ٠ԠҠ͠ɠǠѠӠƠҽĠƠǠƠĠɠԠϠǠҠԠҠԠԠŠҍРРԠנҠӠЫԠ썪宍Ԡ̠ϠŠƠӠƠˠРŠԠ̠ɠŠЫĠŠԠύ٠ϠؠǠРàРŠӠҠҠȠҠŠĠƠԧӠϠ٠ԠؠӍǶҠԍؠčà٠ĠؠӍǷҠԍؠčàǠĠؠӍǸҠԍؠčàͺؠӍŠؠӍDzҠԍؠĸĠà͠ԠؠӍdzҠԍؠčà͠ĠؠӍǴҠԍؠčàͺؠӍǵҠԍؠčàڍګҠԍŠҠDZЍààčؠЫàīҠԠӠӠ٠ӠҠؠһˠϠàȠՍDZҠԍؠĸčàŠРīҠԍҠǴؠ«ҠԍҠǵؠ«ҠԍҠǶؠčīҠԍҠǷؠЍЫҠԍҠǸؠčǠРĶŢŠӠҠԠԠԠҠҠРĠĢŠŠԠҠˬԠŠŠҠŠҠϠҠҠDzؠ «ҠԍҠdzؠčԠŠԠРՠ ՠ ՠ ՠĠՠĠРՠƍڠՠĠՠƍԠՠ±ՠĹԠՠIJŠՠõԠՠGGIE - THE FN VARIABLE : DF(BG2)(BG3)256:DFDF1Y FADRDF:"DEF FN ";:63330 FADRFADR1:(FADR)40āIFADRDF1:::((I));::::5:"= ";::63230 63210 DFDF1:(DF)58(DF)063350 :(DF)128ĺ((DF));::63230 TKN IVIV65536:IV;:63350: REAL VARIABLES - THIS IS WHERE WE PULL A SWITCHEROO BETWEEN "SWAP" AND A REAL VARIABLE, AND SWAP THEIR ATTRIBUTES. SNEAKY, HUH? 63330:5:"= ";:KBG:J26:LMJ,(KJ)::SWAP;:63350:  THIS IS THE BI(BG + 2):LE = STRG:STRG = PEEK (BG + 3) + PEEK (BG + 4) * 256:Y = 1y (34);:ISTRGSTRG(LE1):((I));::(34); 63350: INTEGER VARIABLES (NOT INTEGER BASIC!) 63330:"%";:::5:"= ";:IV(BG3)(BG2)256:IV32768ĺIV;:633500:X(BG):Y(BG1):X128Y12763090> JX128Y12863170O TY12763140] ^63190: x h STRINGS AND THINGS r63330:"$";:::5:"= ";:LE(BG2):STRG(BG3)(BG4)256:Y1E | GOSUB 63160: PRINT "$";::: HTAB 5: PRINT "= ";:STRG = PEEK DO INIT STUFF AND HIDE ORIGINAL VARIABLE TABLE | "D$"":0,(105):1,(106):2,(107):3,(108)::105,(107):106,(108) ,SWAP0:LM(105)(106)256:::BG(0)(1)256:FI((2)(3)256)2: 6 SORT OUT DIFFERENT TYPES OF VARIABLES ' @STRGgV VARIABLE TABLE DISPLAY BY VAL J GOLDING CALL -A.P.P.L.E. IN DEPTH 1 yd TEST VARIABLES FOR PROGRAM nAB145.77:CD%9:EF$"HELLO":GH$"GOODBYE":IJ$EF$" "GH$:KL%32767:MN.0057xPQ(RS)PQ((PQ256)256)TEST$: 1  D823G":I1(A$):511I,((A$,I,1))128:< 72,0:144B ,Ck INPUT MONITOR COMMANDS FROM BASIC BY S H LAM & VAL J GOLDING CALL -A.P.P.L.E. IN DEPTH 1 1:51,42:64874:I1255:CHR(511I):CHR14163704: Set prompt and read keyboard buffer; check for C/R A$A$(CHR128):, A$A$" NDD 20 52 E7 A6 50 A5 51 4C 41 F9 ND823G"_ nI1(A$):511I,((A$,I,1))128::72,0:144: x Enter &$ plus hex nbr or: Enter & plus decimal number or variable Z HEX/DEC - DEC/HEX CONVERTER BY VAL J GOLDING CALL -A.P.P.L.E. IN DEPTH 1 ( dA$"3F5:4C 00 03 N 300:C9 24 D0 28 A0 FF C8 20 B1 00 F0 03 18 69 80 99 00 02 D0 F2 20 C7 FF 20 A7 FF A6 3E A5 3F C0 03 B0 07 C0 01 D0 03 8A A2 00 4C 24 ED 20 7B   9$( i >?L$ { RPQLA, ؠĠԠԮرٍ؍ٍرٍЍٍرٍàԍԍٍرٍàԫԫЍ̠ɠٍرٍ٠̍ààررàԍàŠύРѠҍϠҠӍѠҍҠԍؠԫڍҶԍؠԫؠīŠύРčŠРӍϠرؠر٠رؠرҠРԠŠȠӿѠӍҠҠϬϠЍѠҠЍӠҶؠ«ԠԠƠŠӠرؠرҠؠ«ŠȠŠӠàčРĠԠԠˍàӍҠؠڠԠ͠Р΍ګҠؠЍЫҲ٠٠ԫčؠīЍؠЫԍؠԍӪ宍砍卪䠢Ӣ󍪍ǠʠŠЫϠŠĠϠŠԿÍՠǠՠ֠ՠҲՠÍԠՠԠՠرՠō ՠ ՠĠՠčРՠƍڠՠԠՠҶՠƍԠՠРՠӠՠӲՠΠ㩠㮠젭ЮЮ̮ŮԠŠѠՠԠŠӠڠՠȠ%#ңԠԠŠΠ堠ˮҮ򠳬     L / đ‘Ñ䑝⑽㑝֦đ^㑥_䑥Ñe^^__``đ8ođoppoÑ)JȽ㑅䑅opȑđL LA LA IAYA!!:JL5 ):I `../pp8m` stopmnU^_R ij^_lk 󅔆nmLJ^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^0ȱ^0L9ȱ^ȱ^oȱ^pͤhmnТ!ʥݣ   BG7:BGFIĽ:D$(13)(4):X::(37)18Ğ::9:"HIT ANY KEY TO RESUME"::756:f63040: B PRINTS THE NAMES FOR ALL VARIABLES l GRAND FINALE - THIS MODULE PRINTS THE ADDRESSES, THEN PUTS THE VARIABLE POINTERS BACK TO WHERE THEY BELONG v::(36)26ĺ28:"ADDR = ";:BG9999STRG9999Ė(36)STRGĺSTRG:63390BGBG(DF)128," ";:NDX0:CMD53456:I1398F&(CMD)127NDXNDX1j0CMDCMD1:NDXTKNI398:63300s:::D(CMD)127ĺ((CMD))" ";:63230N((CMD));:CMDCMD1:(CMD)12763300X63310: %b:((BG));((BG1));:::::: THIS GOSUMSNUM10 I1DT. """NUM" DATA "DT$(I)? ,NUMNUM10:R 6D$"CLOSE"::X @((A11(I1)20J)):JITMIN$IN$","3 IN$; AD$AD$IN$:J:DT$(I)AD$:AD$"":NUMNUM10:"":VV(37)1:VV20ė:VV6 I NM$NM$".T":D$"OPEN"NM$;D$"WRITE"NM$ ""SNUM"FORI=1TO"L1":READI%:POKE"A1"+I-1,I%:NEXT I:RESTORE:RETURN" NUDT) VV6::DT" DATA STMTS OF "ITM" ITEMS EACH":::"WRITING DATA STMT NBR , LINE NBR ";:" WRITING DATA ITEM NBR ":34,5:: I1DT:3:23:I;:35:NUM:J1ITM:4:28:" ":4:28:J) VV:NUM" DATA ";:15(AD$)1:IN$ERT SOURCE DISK. HIT ANY KEY"B K(16384):K128150:16368,0U D$"BLOAD";NM$ MEMSIZ(978):MEMSIZ(MEMSIZ13)256:MEMADMEMSIZ114:A1(MEMAD)(MEMAD1)256:MEMADMEMAD18:L1(MEMAD)(MEMAD1)256 DT(L1ITM)1(L1ITM(L1ITM)):DT$(Yl CONVERT BINARY FILE TO DATA STMTS BY JIM HILGER AND VAL J GOLDING CALL -A.P.P.L.E. IN DEPTH 1 d:ITM20:D$(13)(4)n:"ENTER STARTING LINE NBR FOR DATA STMT":NUMxSNUMNUM:NUMNUM10"ENTER BINARY FILE NAME":NM$ "INSӪԠӠӪЍ͍Fٍٍ͍ԭ؍ҲԬ؍ҲЍҲٍЫٍҲٍ؍؍̠ҍ ؠӲ Ӭ؍̬؍؍̠РҲ̠ӠӪӠӠàӬ؍ЍЫàЫ̭ؠԠԠōҲ̬؍ҲǠٍ٠ƍѠčҲٍЩٍàǍĠӭؠԠŠƠҍĠҍرàӍàرӠؠر٠Ӎ堍󠭭􍪍ΠӠϠŮӠؠӲҠӬ؍ٍѠ΍ÍЍȠ؍؍àӠϬϠҍؠ֍Ǎ̭؍ǫ̬؍ȍӬ؍رԭ؍رԬ؍Ҷӭ؍ӠҶÍàرϠύؠŠ͠ΠŠҠٍӠ̭؍̭؍̬؍̭ؠŠ΍Ӭ؍ӭ؍ӭ؍ӭ؍Ԭ؍ԭ؍ԭ؍ԭ؍ؠ֠ĠǠӠԠŠŠ͠РčǫàīàӍؠӲȠՠԠƠӍà؍ؠԠԍǍР̭؍ǫà̬؍àÍؠ֠ŠΠϠϠŠŠŠٍرٍǫàЫӠӠӠŧӠΠĠōǠӠԠΠҠŠР̠ŠϠԠŠΠԍǫà̫àӠϬנԬϠϠԠŠčӠر٠ӠԠǠҠɠӍٍرٍɠӠРӍٍҠر٠ȠѠӠӬΧԠ٠ԠԍȍٍرٍǍРРӠӠŠرԠؠرҠؠԫĠƠŠٍŠύРԍѠӠϠҠҍѠҍ󍪠"FERS TO KEYBOARD MODE."::"SPACE BAR KEY :=- SAVES CURRENT VALUES";20);"TO LOWER PORTION OF";21);"SCREEN.":"'CTRL' AND 'C' KEYS :=- EXITS PROGRAM."::21:" NOW BACK TO THE PROGRAM. "::1000:% M10:M24:M4(EP256):M3(EP256M4)256:EPEP' KEY :=- SETS BINARY MODE":12);"BASE TWO"::"'D' KEY :=- SETS DECIMAL MODE":12);"BASE TEN"::"'H' KEY :=- SETS HEXADECIMAL MODE":12);"BASE SIXTEEN":1000n::"'V' KEY :=- ALLOWS REAL VARIABLE 'RV' TO";12);"BE SET TO A VALUE AND TRANS-";12);TE."3:"'I' KEY :=- THESE INSTRUCTIONS.":1000::"'1' KEY :=- CHANGES TO BYTE #1"::"'2' KEY :=- CHANGES TO BYTE #2"::"'3' KEY :=- CHANGES TO BYTE #3"::"'4' KEY :=- CHANGES TO BYTE #4"::"'5' KEY :=- CHANGES TO BYTE #5":1000::"'B;"INDICATED BY ^^^."::"PADDLE BUTTON #1 :=- MAKES PADDLE #1";25);"ACTIVE."::"FORWARD ARROW KEY :=- TRANSFERS TO"22);"KEYBOARD MODE AND";23);"INCREMENTS BYTE."::"REVERSE ARROW KEY :=- TRANSFERS TO";28);"KEYBOARD MODE AND";23);"DECREMENTS BYOFT MACHINE LANGUAGE ROUTINES INTERPRETTHAT VALUE TO BE. ALSO IN REVERSE, WE""CAN STORE A REAL NUMBER VALUE SUCH AS RV=557.557 TO SEE WHAT VALUES ARE ACT- UALLY STORED IN MEMORY.":1000u34,3:::"PADDLE #1 :=- WHEN ACTIVE CHANGES BYTE";16) AN INTEGER NUMBER FROM 0 TO 255. BY USING A KNOWN VARIABLE 'RV' AND THE POKE STATEMENT WE CAN CHANGE ANY OF THE FIVE"N"BYTES TO ANY VALUE WE WISH, THEN BY PRINTING TO THE SCREEN THE VARIABLE 'RV', WE CAN FIND OUT WHAT VALUE THE APPLE- SS TO HELPTHE APPLE ]";(91);" USER TO BETTER UNDERSTAND HOW REAL NUMBERS ARE STORED AND EVALU- ATED BY APPLESOFT. FOR EACH REAL NUMBERFIVE BYTES ARE USED TO STORE THE VALUE ""(AND TWO BYTES TO STORE THE REAL VARI- ABLE NAME). EACH BYTE CAN STORE******** VALUE = ";RV$:4:"* LAST ENTERED":RV(RV$):BV(R2):340 XEP(175)1(176)256:M2(EP256):M1(EP256M2)256:M30:M44:M5247:M67:900 :18:"-=::=-":9:"I -+< INSTRUCTIONS >+- I":18:"-=::=-" " THE PURPOSE OF THIS PROGRAM IBV255' JCN21BVBV1:BV255BV0O TR2,BV:5:1:":=- KEYBOARD ACTIVE"p 8,(1):910:"= ";RV;:868 (16384)127200 (16286)127PDKA0:5:1:":=- PADDLE ACTIVE ":100 400C 5:1:":=- KEYBOARD ACTIVE":4:868:"******U8:BO7:BI$"^^^^^^^^":10:1:F2$:910:"= ";RV;:868:CS$(R2R11):210_ CS$"I"İ600 CS$" "İ11000::(1707)160Ģ14:1:868 CN(CS$):CN8CN21CS$"V"KA100 ,KA1:CS$"V"500 6CN8CN21400 @CN8BVBV1:BV0CS$"D"CS$"H"Ĺ9,10(CS$"H")6:BU4:BO2:BI$(32(CS$"D")62)"^^":10:1:F1$;:868 CS$"D"CS$"H":6,0:25,1(CS$"H")1:26,1(CS$"H")1:27,1:910:"= ";RV;:868::868:CS$(R2R11):210M CS$"B"Ĺ9,2:6,1:25,0:26,0:27,21:B I REAL VARIABLE STUDY BY ERIC E GOEZ CALL -APPLE IN DEPTH 1 U 20000`10000dBV(1):R2,BV:8,BV:910:"= ";RV;:868:(16384)128100CS$CN(CS$):CN0CN6HTBUCNBO:R2R1CN1:11:1:868:HT:BI$:KABV(R2)^       L(X$):I1L:511I,((X$,I,1))128::72,0:144 X$"340:CE 39 03 CE 3C 03 CA D0 EE A5 68 85 1A A4 67 84 19 A0 01 B1 19 F0 10 18 65 08 91 19 AA 88 B1 19 85 19 86 1A C8 D0 EC 4C 66 D5 N 300G":21(P3072:6,(P256):7,203(P9999)X$"300:A5 06 A8 38 E9 09 B0 03 4C 00 00 85 08 18 65 B0 C5 74 B0 F4 A6 B0 8E 39 03 8D 3C 03 A6 07 86 67 A6 AF 86 6B 86 6D 84 68 85 B0 85 6A 85 6C 85 6E 38 E5 06 AA E8 A0 00 B9 00 00 99 00 00 C8 D0 F7 N D823G"6  c1`H hLhDELBh0 H h8L80  & "---------------"< " ERIC E. GOEZ "R "---------------"h " SEPT. 1, 1980 "~ "---------------" 20( F"BASE 2 -- ":SS$::X(0):110? PB102PPP1:80V ZB102PPP1:90^ d20 n:"BASE 10 -- ":"";B10$:B10(B10$):B10$""ĉ: xB100SS$" 0":70 B100SS$"+":150 SS$"-":B10(B10) P1:B101SS$SS$".":20 W FLOATING POINT BINARY REALS BY ERIC E. GOEZ CALL -APPLE IN DEPTH 1  ::"DEFAULT WILL EXIT PROGRAM.":34,2::110B102PSS$SS$"0":50B10B102P:SS$SS$"1"((SS$)33702PP1:P1SS$SS$"." <(SS$)34٭󠠪ԠԠՠĠԠҠΠǍǠʠŠѠōàҠԍٍŠÍŠӍ ңԠԠ٠àڠ젭ЮЮ̮Ů蠠Ԡ1c  `  (222);" ON LINE #";(218)(219)256;" HAS OCCURED.":"CONSULT PAGE 81 OF THE APPLESOFT MANUAL AND PAGES 114 & 115 OF THE DOS MANUAL.":216,0:"---------------"" SEPT. 1, 1980 ""---------------"" ERIC E. GOEZ ""---------------" INSTRUCTIONS.BYTE VALUES OF THE REAL VARIABLE - (RV) "WB'R2R13:(16286)128PD1L'5:":=- PADDLE ACTIVE":":=- PADDLE VALUE =":CS$"B":220*34,13:24::829:"= ";RV;:868: N::"BY ERIC E. GOEZ":(222)255Ĺ216,0:*N:"ERROR #";ALUE":F2$" 1ST 2ND 3RD 4TH 5TH"\$'(4);"BLOAD RVS 6502 BDH DRIVER.O".'28,5:29,R12((R12)256)256:30,((R12)256):::17:"-=::=-":" RVS -+< REAL VARIABLE STUDY >+- RVS":17:"-=::=-"78'7:"DEPRESS THE LETTER 'I' FOR1015:M6(EP256):M5(EP256M6)256q71,0:66,M1:67,M2:60,M3:61,M4:62,M5:63,M6:58,44:59,254:65209:23:"DEPRESS ANY KEY TO PAGE.":16384,128:DC$:'(175)(176)25610174'RV1:R1(105)(106)256:F1$" 1ST 2ND 3RD 4TH 5TH = VϠōŲ٠ӍРԍԠǠӠΠԠōǍŠŠƠٍԠٍٍ٠ԍѠŲŠƠȠӠŠΠԬĠƠϬϠŲ٠ӍҠԍԠΠŠŠӍÍӠōϠΠŠРōѠԍ̍ǍŠҠϠԠΠҠ̠ҠōԠĩٍҠԍԠŠŠϠŠԠ΍ ϠŠΠōōѠԍ̍Ҡð̍ƍǍ̍ƍǍР̠Ԡ̠ō٠ӍҠԍԠǠӍԠΠˠҠƠӠԠϠҠϩŠٍ̠ҠƠӠԠϠҠ͠ˍԠŠՠ̠ՠӠՠӠՠӠՠԠՠÍĠՠčǠՠԠՠԠՠǠÍʠÍŠӍɠ󠪍󮠠ԮϠԮϠˠ MңԠȯР٠àڠ젭ЮЮ̮Ů蠠Ԡ!:H!V5:H10:SCREEN.POSITIONR!"S=STOP ^=BACK UP":"CR=KEEP B=BALANCE"\!4:34,4:SET.WINDOW.TO.SAVE.PROMPTSf!"RECORD #"Jp!I1C1~J3C1::I1R13::::(A$(I,3))06320X::::T(J)T(J)(A$(I,J)):TOTALa::I::DD(J):WT(J):20050:FORMAT.&.PRINTJ@ ******.INPUT.SUB.*************** JIN:C1=ARRAY.COLUMNS..R1=ARRAY.ROWS..K=1ST.OPEN.R:I3C1:::::DD(I):W(A$(J1,I)):W6160:JUMP.IF.0S::::20050:PRINT.IT\::Id::k$J.9960:PRINTER.OFF81000:MENUBOUT:NO.DATA.OUTL **.TOTAL.** V:"TOTAL";`K1C1j::T(J)0:ZERO.TOTAL.ARRAYt ;:36,8:A$(0,2);K3C1C::36,D(K)(A$(0,K))2:A$(0,K);M::j ***.PRINT.TABLE.*** vJ1R1J1B(J,1)::A$(J,1)""İ6230:6190:TOTAL.&.DONE::J1;:36,D(1):A$(J1,1);:36,D(2):A$(J1,2);:PRINT.TEXT.COLUMNS :UT.*************** LzIN:C1=ARRAY.COLUMNS..R1=ARRAY.ROWS..A$(R1,C1)=ARRAY\310:ORDERr9910:PRINTER.OND(1)4:D(2)7:D(3)27:D(4)37:D(5)47:D(6)57:D(7)67:D(8)77:COLUMN.POSITIONS ***.PRINT.HEADINGS.*** "#";:36,4:A$(0,1)IN:NONE1::5:" EDIT WHICH RECORD? ";K$AK$""1010cJ(K$):8510:ROW.INPUT.SUB" STOP? (S) ";:Q$:Q$Q$"S"4020ND1:1010: NEW.DATA.FLAG.THEN.MENUOUT:ND=NEW.DATA.FLAG..A$(J,1TOC1)=DATAp ******.PRINT OI))):A$(0,I);" ";I:< **.DISPLAY.FOUND.RECORD.SUB.** \ :V5:H10:SCREEN.POSITIONm "RECORD #"Jy* I1C14 ::8710: ?.DATA.SUB> IH R **.QUIT.** \ 1000:MENUf OUT:NONE  ******.EDIT.FILE.*************** "KEY TO CONTINUE, ^ FOR MENU. ";:Q$:Q$"^"ġ:3420:QUITA Z **.REVIEW.ALL.** f J1R1} ::A$(J,1)""1000 ::3350:DISPLAY.FOUND.RECORD ::3230:CONTINUE  3420:QUIT **.PRINT.FIELDS.SUB**  (VI):(H(A$(0,H? ";:Q;:(23):Q$:Q$:Q$(13)Q(Q$)^N ::"INPUT SEARCH WORD:";A$:A$"^"3420:QUITjX J1R1b ::R$A$(J,Q):R$""3210l ::210:SEARCHv ::S1S10:3340:3230:DISPLAY.&.CHOICE  3420:QUIT **.CONTINUE.SUB.** ; :17)"WHICH? ";:Q;:(25):Q$:Q$:Q$(13)Q(Q$)K Q$"^"3420:QUITe Q23260:REVIEW.ALL **.SEARCH.FIELDS.**  :3:10:"FIELDS:": V5:H22:SCREEN.POSITION& I1C10 ::3330:PRINT.FIELDS.SUB: *D Q2::15)"WHICD1:NEW.DATA.FLAG"1010:MENUN OUT:ND=NEW.DATA.FLAG..A$(J,1TOC1)=DATAx ******.REVIEW.FILE.*************  IN:A$(R1,C1)=DATA.ARRAY :7:10:"REVIEW FILE :":: 11:"SEARCH FIELDS 1" 6:"REVIEW ALL ENTRIES 2":4 Q1::::7:" THIS IS THE"::10)NA$::20)"PROGRAM."::::" BYE FOR NOW, BOB!":::1016: ******.INPUT.DATA.************** IN:R1=ARRAY.ROWS..A$(R1,C1)=ARRAYK1R1::A$(K,1)""2050K:K=NEXT.OPEN8010:INPUT N************ J9400:1000G ********.SET.UP.FILES.1ST.TIME.* :::"FILE SET UP WILL DESTROY ANY EXISTING":"FILE ON THIS DISK. TYPE 'YES' TO":"CONTINUE. ";A$:A$"YES"10009400:1000 ********.QUIT.****************** `LES 1ST TIME 7"0 j:" QUIT 8"p tQ1::15)"WHICH? ";:Q;:(23):Q$:Q$:Q$(13)Q(Q$) ~Q1410,2010,3010,4010,1610,6010,1810,1990 1000 x ********.READ.EXISTING.FILE.**** 9710:1000 @ ********.SAVE.FILE.*:"CHANGED ";:J$OS$:310:"TO ";:J$NS$:310:350: X IF OLD LINE NUMBER < NEW LINE NUMBER THEN OLD LINE IS DELETED; FETCH NEXT OLD LINE b(OS$)(NS$)ĺ:"DELETED ";:J$OS$:310:210:410: ,  IF NONE OF THE ABOVE, THEN THE NEW LINE IS A$"OPEN"N$ ^210:260: [  IF BOTH STATEMENT NUMBER AND CONTENTS AGREE, THEN IGNORE } (OS$)(NS$)OS$NS$350:  IF LINE NUMBERS ARE THE SAME BUT CONTENTS DIFFER, THEN PRINT "CHANGED" AND GET NEXT STATEMENT 6 (OS$)(NS$)OS$NS$ OS$S$:7 GETS STATEMENT FROM THE NEW FILE G D$"READ"N$f IN:S$(IN$,1):S$""270s NS$S$: , PRINTS A STATEMENT WITH A LINE LENGTH OF LL 6II0 @IOII1:IIIILL:36,9:(J$,IO,LL):II(J$)320 J TD$"OPEN"O$:D/ gd COMPARE PROGRAMS ROUTINE BY CHARLES G. BOODY ADAPTED BY DAVID W WALKER AND MYRNA TRAVER, MD n3000:D$(4):D$"NOMONCIO"x2000810340:  GETS STATEMENT FROM THE OLD FILE D$"READ"O$ IN:S$(IN$,1):S$""220     *************** F':uDAY,VENDOR,AMOUNT,HOUSE,AUTO,PERSONAL,FOOD,MISCNELSDONK":24060:24070:24070]&]CE$"":I20592066:CE$CE$((I))::24060:24070:24050&]9310::SCRN.PAUSE &]I139:"*";::::*LINE&]"*";:20(CE$)2:CE$;:39:"*"::CENTER&^"*";:39:"*":'0u ********.DATA.***:23120 %FZD$"LOCK "NA$",D"A/%PZA123030U%ZZD$"NOMON I,O,C":43624,1:1016:%dZ(222)6Ĺ216,0:" NOT THERE":23100%nZ:216,0:23090%] ********.TITLE.***************** %]:::24050:24070:CE$NA$:24060:24070&]CE$"BY BOB HU$"MON I,O,C")$Y"THE PROGRAM IS: "NA$:P$Y"DRIVE ";:A$:A$:A$(13)23130h$ZA(A$):A223080x$ Z9200:TIME$ZI15:I2058,((TI$,I,1)):$ZI711:I2061,((TI$,I,1))::1$(Z23140$2ZD$"DELETE "NA$",D"A%N>#HN ********.PRINT.SUB.************* K#RNWF(W)[#\N36,DT(W)n#fNW(W)ĺ"0";v#pNW;#zN(W(W.5)).001ĺ".00";:#N(10W(10W.5)).001ĺ"0";:#N: #Y ********.SAVE.****************** $YD$(4):D907::16/IN,8/IN+"&(27)(120)::8/INA"&39700::DURA.ONV"&960::BOTH.OFF" N ********.FORMAT.FUNCTIONS.****** "*NT(X)(X0)2(((X))9)(((X))99)(((X))999)(((X))9999)(((X))99999)(((X))999999)#4NF(X)(X)(( ********.FILE.READ.************* 8!%D$"OPEN "FI$K!%D$"READ "FI$]!&EF:READ.EOFi! &R1EFw!&::C1C1! &::::A$(R,C)!*&::C!4&R!>&D$"CLOSE "FI$:!& ***.PRINT.ROUTINES.*** !&770::PRINTER.ON!&903::12/IN,8/IN"&$ $D$"OPEN "FI$) $D$"WRITE "FI$5 %R1R1^ %::A$(R,1)""EFR1:9510:FIND.EOFd %l &%EFx 0%R1EF :%::C1C1 D%::::A$(R,C) N%::C X%R b%D$"CLOSE "FI$ l%D$"LOCK "FI$ v%IF DD = 2 THEN DD = 1: GOTO 9430 %%!%*T$ ********.SCREEN.PAUSE.********** H^$24:16:"ANY KEY";:A$:r$ ********.FILE.WRITE.************ $IN:R1=ARRAY.ROWS..ND=NEW.DATA.FLAG..A$(R1,C1)=DATA.ARRAY$DD1:ND0$D$"OPEN "FI$",D"DD$D$"UNLOCK "FI$ $D$"DELETE "FIFCTNS&TITLEn#1000:MENUx#OUT:D$=DOS.CMD..A$=ARRAY..R1=ARRAY.ROWS..C1=ARRAY.COLUMNS..NA$=PGRM.NAME..FI$=FILE.NAME..A$(0,1TO0,C1)=COLUMN.NAMES# ********.TIME.****************** #D$;"IN#3":D$"PR#3"$" ";TI$$D$"IN#0":D$"PR#0":I))):A$(0,I);:(H):":";:A$(J,I):N(# ********.INITIALIZE.************ {2#16298,0:::D$(4):HRES.OFF.CLR.SCRN<#R150:C18:ARRAY.SIZEF#2:FI$"NEWFILE"P#A$(R1,C1),B(R1,1),T(C1)Z#I1C1:A$(0,I)::FIELD.NAMES d#20000:24000:ٍŠԍ 卪 卪 卪ؠٍٍ̩ѠԱŠرԱٍٍ̩ŠԲ 䍪 ύرٍٍٍزٍٍ̩ŠزٍٍٍٍÍȍàȍȍȍ  퍪̍̍ȍȍ 捪 ፪٠Ԡٍ̩РѠ؍Բ؍ٍٍ̩̍ؠȍ٠Ԡٍٍ̩Šԍ 卪Šٍ̩àٍ̩̍à̍̍РƍŠōȍàȍàȍР̠ō 䍪 󍪍àՠȠՠ̠ՠȠՠ̠ՠȠՠȠՠȠՠÍ̠ՠƍȠՠ°ǠÍȍȍàȍ̍̍̍  捪 %Ԡ ЮЮ̮Ů Ԡ  0:END":CMD$":HOME:POKE33,33:LIST1-:":CH$"?CHR$(4)":PT$"?":C$":":Q$(34):ZERO$" 0 "CH$Q$OP$FILE$Q$C$CH$Q$WR$FILE$Q$CMD$CH$Q$CL$Q$C$CH$Q$DL$NAME$Q$TXT$ xZERO$:"RUN":D$"CLOSE" D$"EXECLIST."NAME$"+ COMPARE CAPTURER BY VAL J GOLDING dD$(13)(4):OP$"OPEN":WR$"WRITE":CL$"CLOSE":" PROGRAM NAME TO CREATE TEXTFILE FROM ?";NAME$:FILE$NAME$".T":D$;OP$"LIST."NAME$;D$;WR$"LIST."NAME$:"LOAD";NAME$ nDL$"DELETELIST.":TXT$":TEXT:DEL0,,200,169,0,145,105,200,169,2,145,105,76,57,213A$"**** COMPARISON OF ****"%p25009z:XX$O1$:2500O:XX$"and":2500c:XX$N1$:2500XX$"Prepared: "DT$:2500:150 36,(2020(PR0))(XX$)2:XX$: IN$"X":I745767:J:I,J::IN745:. 162,0,32,117,253,160,2,138,145,1051$".T"5:"What is the name of the NEW version?"J N1$:N$N1$".T"n%:"What is today's date? ";DT$|*::10004:9>PRĺD$"PR#0":"MAKE SURE THE PRINTER IS READY, THEN"H" HIT [RETURN] TO RUN ";XX$R:\1100fXXrogram will compare two ver- sions of a program and produce a list ofthe differences between them. ";"Both programs must be in textfiles; use the program "(34)"COMPARE CAPTURER."(34) :"What is the name of the OLD version?"O1$:O$OROUTINES N"ENTER PRINTER SLOT OR DRIVER CALL ['0' FOR VIDEO] ";PR_LPRLL30:VPR8ĺD$"PR#";PR:(9);(26):LL64:`PR:(26):LL64:: :::TI$" PROGRAM COMPARER "20(TI$)2::TI$::f" This p40 9(O$)(N$)İ260> >:"ADDED";:J$NS$:310:260:830v H(OS$)(NS$)ĺ:"DELETED";:J$OS$:310:210:840  ASSUME END OF DATA ERROR IN LAST FILE AND END PROGRAM :"END OF COMPARISONS":D$"CLOSE":D$"PR#0"::  PRINTER SUBDDED. PRINT "ADDED" AND FETCH NEXT NEW LINE U " ADDED ";:J$NS$:310:260:410:  WHEN ONE FILE IS EXHAUSTED, DETERMINE WHICH AND INDICATE REMAINDER OF OTHER "ADDED" OR "DELETED", AS CASE MAY BE *X(218)(219)256:216,0:910 4X2308Ԡՠ򠱍Ҡՠ ҠՠΠՠàԠՠ±Ԡՠ·Ҡՠ¸Ҡՠ̠ՠà̠ՠŠ̠ՠ͠ՠĠՠĠ͠ՠԠՠ ԠĠՠàՠԤ̠ՠԠՠàՠàĠՠĠҠՠƠàՠƠ%4Ԡ ЮЮ̮Ů            !!! ! ! ! ! !!=8m>mn?nL,ZNEF- ,00 *$,XǘP$,ȱ8# =ۥ % ,L;LL { lݥHH g hh  = 8 ߅HH hE0hE0$0$0Hh`Lv Bq