' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&" H@Ah@ALL$L峰  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`  `ȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINFILEDUMFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@ 0@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- (   ՠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 @A i /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d½ӠƠz# u*`ϠРŠΠﬠ宍ϽύàϠΠӠ宍 ō 卪 ͬ ͬ ƻ堲ҠϠϠРŠРﬠР̠̮  󮍪ϠàϠвԠ͠荠͠͠͠堲ύҠ٠󍪍ҠŠ͠嬠Рנ젿ѠԠԠà͠РŠвﬠ͍͍à͠ŠԠﬠ썠Ԡԍ͠͠͠͠Ԡ͠Р̠젿ŠԠﬠ썠РƍԠԽ占͍͍荠ύвҠŠƠ썠РԠԠӠ 卪 卪 󮍪 䍪 宍ӠҠҲ堲Ҡ٠ؠ٠ӣͽŠԠﬠ덠͍à͠͠占РŠԠﬠ덠Р̠嬠讍 Ӎ 썠ŠРĠҠϠҠŠ썠Ϡ̠䍠̠Ϡנ󠍠נĠà͠͠占РӠĠ덠Ϡ嬠썠Р̠쿍ŠԠ썠Ϡﬠ堿РנѠĠ嬠ԠҠϠ͠ϠԠ썠ϠϠРҠŠҠРƠ 卪 宍ӠҠ 占蠱젍͠͠報̠ՠנՠؠՠؠ٠ՠò٠Ԡՠ̠ՠƳ占Ǡ° Ӎ CO 54,2:55,193 1000:- 0:1002M *(4)"BLOAD MX100-2,A12000"X 412000e >1:1002o H1000| R0:1002 : J110:I09:I;:I,J::A(4)"BLOAD MX100-1"#768<1:1002:(9)"136N"H1000:UX0:1002gb54,2:55,193sl1000:0:1002:BYPASS49296:ESC27:Q81:CO15BY,ESC:I1100:BY,Q:I1100:BY,30:I1100:BY,13:I1100: BY, ҠՠķҠՠ ҠՠĠ͠ՠ͠ՠ ұՠà򠱍ҲՠŠ򠲍 󍪍͠ՠ͠ՠ͠ՠ ϠՠĠϠՠŠϠՠƠƠՠŠԠՠƠ썪썪堶󮍪ҽ򍪠 󍪍͠ՠϠՠ󠍪堠ؠ٠䍪󪸠󠮍Ү䮍ҽ嬠宍󮍪뱠䍪屠󍪠宠屠󍪠蠴󠱠卪䠸讠􍪠箠嬠蠲򍪠宍᠍ 宍捪 썪 󮍪젍 썪 卪 󮍪፪ 󮍪屠 䍪 宍 7 ɭӠàΠ î        -----------------------"( " ";C$ TCX(CL1000000)( hCLCLCX10000008 CHAHBHCXK C$(CH)(CL)_ U$A$:40:A$W$s U$B$:40:B$W$ U$C$:40:C$W$ Z(A$)25A$" "A$:602 \(B$)25B$" "B$:604 ^(C$)25C$" "C$:606 b" ";A$ l" +";B$ v" (U$,N,1)"."A0 CN1803 FA3W$","W$:A0: KNZ P((W$,2),1)"."W$W$"0"` Zr dAL((A$,9)) i(A$)9200 nAH((A$,((A$)9))) BL((B$,9)) (B$)9300 BH((B$,((B$)9))) ,CLALBL @CL999999.99390)? APPLEMASH by Mike Thyng Call -A.P.P.L.E. Mar. 1982 OEXHIBIT 2 h LARGE NUMBER ADDER A$"111222333666555.77"B$"444555666555111.33"'100($ FORMATTER -W$"":A02N(U$)117W$(U$,N,1)W$<AA1 A   ,16: MIMINUN FF COUNT *DOS3.3 ($16AF)6FFCNT,16: INIT $FF COUNTaMINFF,5: MIMINUN FF COUNTIOC12,4: INIT COMMANDEFLAG,0:RWTS LV,72:LV1,104:LV2,164: PHA, PLA, LDYFFCNT,50: INIT $FF COUNT MINFFRWTS((EFLAG))690XER1:(IOB12)1ĺ"READ ERROR IN SECTOR ";SEC:SEC12:690z"WRITE ERROR IN SECTOR ";SECSEC: INITIOB3,(IOB14): VOL READ((LV)72(LV1)104)CO1:LV,76:LV1,175:LV2,22: JMP "UPDATE ANOTHER DISK? (Y/N) ";:A$:A$"Y"ė:400? ::c XIOB12,1: READ COMMAND bIOB4,0: TRACK 0 lIOB3,LSTVOL vIOB8,0: BUFFER LOW SEC012:IOB5,SEC:IOB9,SEC80: SECTOR AND BUFFEREFLAG,0:ŷ¹³¹·ؠƳ¹Ƶؠƹ¹´ōؠƲ¶ŵķؠĹ²ŷؠƳƷؠŹ¹ƲƳƳؠƳŵؠ 󍪍 卪 ؠԠؠҠؠؠ·Ƴؠ·Ƴijؠµ·ƹÍؠƲķŷÍؠ·ƳƳŷĶƲؠ·Ƴƶؠ³¹¹ؠ²Ķ·Ƴؠ¹ŷčؠĹƵ³Ķōؠ·Ƴ¹ŷčؠؠ¶ùōؠ²ƍؠĶĶŶŶķؠ¹ùƲƳƍؠŷ²´ؠĹƵ´ĶؠŶķŶķƍؠijƳŶؠŶŶŷؠ··ƹōؠ·ƳŹŹƹčؠ´ŹčؠŹ¹ĹÍؠ²ƴ³čؠµŹŹŶµؠĶؠƳĹĹōؠĶčؠŹ¶ؠùùؠ·´´ŵؠ·ùƷؠ h ޢH  hQHhV++ 8O`   ɍHh`C$3P톸Eɍ$3p C L NOm eOJ`RS qP qQ T U `8mm`PJ TuVTvP`O 5  ki,2li-3 SR    H fL`;<̗˗ 0N ͑ +0A ё m ˗ [! ̗I]IƍI<$3p ;L ‘(ɬ ‘ɮ ɬ ɢ `ʨ`hh !N E$` L ɠiɺ>F=E헍$3pD  ANY DECIMAL PLACES ? :";DD":..ANGLE IN RAD"* FZC;"...ANGLE IN DEG"@ PY(((1X)21))^ U:" USING RELATIONAL FN"w ZY;"...ANGLE IN RAD" dYC;"...ANGLE IN DEG" xD TRIG DEMO by Raymond S Usher Call -A.P.P.L.E. * Mar. 1982 x PI3.14159265:C360(2PI):DEG TO RAD CONSTANT"INPUT ANGLE IN DEGREES ...";NX(NC)(X;"... COS OF N"-:" USING APPLES FN"2Z(X(XX1))1.5708 <Z;". :"HIT RETURN TO CONTINUE.":K$::12)"**TUTORIAL CONTINUED**":"THE PRINTOUT WILL GIVE YOU":"A HARD COPY OF YOUR DATA, AND THE FINAL SUM!!"0:D:14)"HAPPY ADDING"X:l"NOW HIT RETURN TO START THE PROGRAM":T$::10:1:"HOW M"g3)"THIS GIVES YOU THE CHANCE TO CHECK THE NUMBERS ENTERED EARLIER TO SEE IF THEY ARE CORRECT!!":"9. IF YOU HAVE A PRINTER,YOU CAN HAVE A PRINTOUT BY ANSWERING YES WHEN ASKED.":"THE PROGRAM ASSUMES THE PRINTER IS IN ";::"SLOT # 1.":AUE OR END."3:"6. HIT C TO CONTINUE; E TO END":"7. IF YOU HIT YOU WILL BE ABLE TO ENTER AN ADDITIONAL NUMBER.":"8. IF YOU HIT , THE PROGRAM WILL END AND THE SCREEN WILL CLEAR AND PRINT OUT ALL THE NUMBERS WITH THE FINAL SUM. NUMBER TO THE TOTAL SO FAR"lT:"4. TO SUBTRACT, ADD A NEGATIVE NUMBER. (EXAMPLE TO SUBTRACT 5, ADD -5)th:|"HIT RETURN TO CONTINUE WITH TUTORIAL":K$::10)"***TUTORIAL CONTINUED***" :"5.THE PROGRAM WILL THEN ASK IF YOU WANT TO CONTIN."W:"ANSWER, AND UNTIL CHANGED,YOUR NUMBERS WILL BE ROUNDED OFF TO YOUR CHOICE.",:"2. FOR CALCULATIONS INVOLVING MONEY,":"SELECT TWO DECIMAL PLACES."@:"3.NEXT, THE PROGRAM WILL ASK YOU TO":"ENTER A NUMBER.":"DO SO, AND IT WILL ADD NEWdx7:"SUM = ";ST$N(4);"PR#0":::15:15:"ALL DONE , BOSS!!!":f ***TUTORIAL***n:14)"***TUTORIAL***""1. WHEN THIS PROGRAM IS FIRST RUN,"5)"IT WILL ASK YOU FOR HOW MANY DECIMAL PLACE ACCURACY YOU DESIRE N1$" "+ N0Z$"+":12206 Z$"-"X N2((N).0000005):N2$(N2)d N3$"." N4$(((N)(10DD).5(10DD))) N4$(N4$,DD) NT$N1$Z$N2$N3$N4$ N4$(N4$,DD) (NT$(NT$,10) <"NUMBER (";I;")= ";NT$ PII  20)"SUM = ";ST$& B "WANT PRINTOUT...Y/N?"J P$ P$"N"ĺ:"THANK YOU. SEE YOU NEXT TIME. GOOD BYE.": $P$"Y"P$"N"Č198:1000 8 L:18:"PRINTING": `:(4);"PR#1" t(9);"80N"  I1C:NN(I) N0Z$"+":780 Z$"-"B N2((N).0000005):N2$(N2)N N3$"." 4N4((N)(10DD)1000000.5):N4$(N4):N4$(N4$,DD) HNT$N1$Z$N2$N3$N4$ \N4$(N4$,DD) pNT$N1$Z$N2$N3$N4$ zNT$(NT$,10) "NUMBER (";I;")= ";NT$ ST$S1$Z$S2$S3$S4$) ST$(ST$,10)3 CC1> 0N(C)NT D20)"SUM = ";ST$\ XC$m lC$"C"ī340~ C$"E"ī720 C$"C"C$"E"ī340  ::I1C:NN(I) KK1:K20ĺ"HIT RETURN TO CONTINUE":G$::K1 N1$" ") 34,6 ,: @S0:C07 T"ENTER NUMBER :";NA hSSN_ |S(S(10DD).5)(10DD) S1$" ":S3$"." S0Z$"+":460 Z$"-" S2((S).0000005):S2$(S2) S4((S)(10DD)1000000.5):S4$(S4):S4$(S4$,DD) # K APPLE ADDER BY RALPH SWERDLOW, MD CALL -A.P.P.L.E. : MAY, 1982 Qx[1440c:}14:"ADDING MACHINE"::"ENTER NUMBER...........HIT RETURN"Q$(34):"HIT ";Q$;"C";Q$;"TO CONT........";Q$;"E";Q$;"TO END " N(50    M'+180":AF$(2)"5D+M-20":AF$(3)"3M+2L"@ L35:MP22:D101:M3K I13] AF$(I):1000r 1000:FW,(768)y I zS STRING PARSER DEMO by Charles Kluepfel Call -A.P.P.L.E. Mar. 1982 _2D$(4)o<1000:2000FW(121)256(122)8:6,FW256(FW256):7,(FW256):1013,76:1014,4:1015,3:D$"BLOADPARSER":: Line to be clobbered ' AF$(1)"2L-3 RACK 0 NOW HAS 14 SECTORS":"ONE READABLE BY DOS 3.3":500h (IOB13)64ĺ(7)"WRITE PROTECTED":510 (7)"CAN NOT MAKE MODIFICATION":"DISK BEING RESTORED" RWTS: INITIALIZE TRACK 0 TO 13 SECTORS IOC12,2:610: WRITE BACK TO TRACK 051:64578:"PLACE DISK IN DRIVE"(13)"HIT ANY KEY TO BEGIN";:A$:N LSTVOL0 ER0:600:ERĺ"CAN NOT CONVERT"::: READ TRACK 0 AND CHECK FOR ERROR LSTVOL(IOB14) 700: INIT 14 SECTOR (EFLAG)470: "T? (RTN TO QUIT)";:A$:A$(13)520E SLOT(A$):SLOT1SLOT7170R SLOT" "e IOB1,SLOT16 "WHICH DRIVE? (RTN TO QUIT)";:A$:A$(13)520 DRIVE(A$):DRIVE1DRIVE2210 IOB2,DRIVE ,TRMAX,1: TRACK LIMITA 1:1FTER THE BOOT THE ORIGINAL DOS WILL BE IN MEMORY."V (5807)169ĺ(4)"BLOAD BOOT" LV8311:TRMAX8357:FFCNT8113:MINFF8346 EFLAG255: RWTS WILL PUT COMMAND VALUE HERE IF ERROR ENCOUNTERED IOB6259:RWTS6280# 11:"WHICH SLOTC Dual Boot by Bill Bush Call -A.P.P.L.E. : June, 1982 zd::"DUAL BOOT":4:"BILL BUSH MAY 1981":34,5n:"THIS PROGRAM WILL MODIFY A 13 SECTOR DISK SO THAT IT WILL BOOT WITH EITHER A DOS 3.2 OR 3.3 DISK CONTROLLER CARD."2 x"A٠Р֫ ؠƠ Ӎؠƍ 卪 䍪ƠؠĵؠƍؠĵؠĹ² ƧӍԠIJԠ ҍЍƬ٠ ӍҬؠ ӍĬؠ ˍЍٍŠIJԠijЍЍРةƲٍҬ؍Ĭ؍Ѝٍ٠àij ؠՠ ҠՠҠՠðčĠՠðÍǠƍӳƠ Í٠ ԍı΍ӍЍЍҬؠ ƧӍĬؠ ˍЍЍٍŠı ԠǠՠƍ Ӎ ٠ՠŰİ İԠՠ±± č֠ՠƷ ƷΠՠƹ ƹ ԬƬ̤Ÿ ά Ԯ ԬƬ̤  Z Ԡ ЮЮ̮Ů Ԡ    Ơ ōŠ ūҠΠ ٭ĮčӠ ٍ ԠƍL ߅ Gȱȱ '8A>04+v-v*v/v ѩ:ȑȑ`P܍LJȑM̎ʑŒ'80L{ВЎЊІ٠ ԍ٠ ӮϠ ˍؠɠŮҠ΍РΠ Ѝ٠ ōŠ ūҠΠ حĮčύīɍĠɭӍؠ ōҠ̍ ؠ ΍٠ҍҠԠ ΍ҠĠ ΍ؠ ˍҠ̍ΠҠ٠ ԍؠϠ ͍٠ɠ΍Ҡ΍Ҡ ЮЮ̮Ů ԠҠՠƳŲԠՠƴĠՠƳƶΠՠƴ̠ՠƶÍΠՠƵРРРϠ͠ԍРҠĠŠ΍ҠҠ vԠ Ǯ  SE ENTER THE FOLLOWING DATA:":"NAME OF RANDOM FILE: ";RF$:"LENGTH OF RANDOM FILE : ";L:"NAME OF SEQUENTIAL FILE : ";SF$:"NBR OF RANDOM FILE FIELDS: ";NF 110AREAD"RF$",R"I J1NF; IP$(J):A$(I)A$(I)IP$(J)C$D J,IS "D$"CLOSE"d ,D$"OPEN"SF$o 6I1R @D$"WRITE"SF$ JA$(I) T ^D$"CLOSE" D$"CATALOG":: :2:4::"RANDOM TO SEQUENTIAL FILE CONVERTER":34,3: :"PLEAc RANDOM->SEQUENTIAL FILE CONVERTER BY VAL J GOLDING CALL -A.P.P.L.E. : APR. 1982 ld500nD$(4):C$(13)xD$"OPEN"RF$",L"LD$"READ"RF$",R0"RD$"CLOSE"A$(R),IP$(NF)D$"OPEN"RF$",L"LI1R D$"čŠύӠҍŠύӠԍŠύŠčŠύѠ͍ˠ̍Ѡҍؠ̍ԍЩٍٍŠҍ͠٠ٍԍРѠЍ٠ЩٍРѠٍР̍ѠōÍàŠύŠϠƍ٠٠ٍРˍӠҠàЍŠ˳àЫ˳ٍàԍŠԍĠЩٍ΍ٍЩٍٍЩٍӍԠЍŠύ̍͠РōȠٍЩٍٍЩٍР͍ЩٍЫؠЍؠؠ̍ؠƍ٠ԠЬةРѠԍР̠ȍР̠͍РѠӍРѠӍРѠӍРѠōϠؠ̍ŠЩٍų 󍪍ΠՠĠՠҠՠԠՠĠՠǠƠӠ٠Ӡ̠ӠԠӠҠԍЍ٠Ы٠ЩٍѠčԍٍЩٍ؍ٍ YԠ ЮЮ̮Ů ԠРՠРՠԠՠ     ĭY91900Y91800YN(Y94)4ĭD928D91:M93:D0D01:z D9D91:D0D01:D9M9(M9)M9M91:D91:M912M91:Y9Y91  Q(1)0Q(2)12Q(2)1Q(3)1Q(3)31ĺBX$;BX$;"DATE ERROR ":Q14:Q(Q)""::::  "SIZE ERROR "::: 9) D9$(D9):(D9$)2ĺ" ";> D9;:W9W91:W97W91:H 1990 D91ĺ::"HIT RETURN FOR MORE OR ESC";:Q$:Q$(13)Q$(27)ĺ" PLEASE!"BX$;:1:1984 Q$(27)ĺ::1951 Q$(13)Q$" ":1:39)" ":1975 1980 : M92W71:(Y4)4YY1900Y1800W7W71. = M811964u M1M81:W7W7M9(M)28:(Y84)4Y8M2W7W71{  W7W7D8 W77W7W77:1965 W9W7:D9D8:Y9Y8:M9M8 :D00 5);"S M T W R F S "M9", "Y9 (4W1)31,2))::MM$"M" W71:Y71979:M71:D71:"ENTER STARTING":"YEAR, MONTH, DAY":Q(1),Q(2),Q(3):1997:Y8Q(1):M8Q(2):D8Q(3) Y8200Y8Y81900 Y8Y71959 Y7Y8Y7Y728:1955 Y71900W7W71:Y71800W7W71( YY7Y81:W7Ӽ斫ۦ秷ꮷޗϧӵܮ֮껳˛֮߻ݚ֮߻߻뚴ܭ󽭽󺺻ު`P`ةs `GHhHhꝍ$$Hh$sHhGL{ ժުժߝ靫鞖櫵֧ͮͽ͟˼ܚڷ嚷ޖ˧۝翲ݚI1(HEX$):511I,128((HEX$,I,1))::72,0:144; IOB4,TRACK!IOB5,SECT*768?RESULT(IOB13)QVOL(IOB14)W$ COPY MACH LANG SUBS INTO PAGE 3 HEX$"300:20 20 03 20 D9 03 B0 06 A9 00 A0 0D 91 00 60 N 320:20 E3 03 84 00 85 01 60 N 330:A5 01 25 00 85 00 60 N D9C6G"5   SR` ɍHh`C$3P톸Eɍ$3p C L NOm eOJ`RS qP qQ T U `8mm`PJ TuVTvP`L 5  W    :L   SRS L`;<̗˗ 0N ͑ +0A ё m ˗ [! ̗I]IƍI<$3p ;L ‘(ɬ ‘ɮ ɬ ɢ `ʨ`hh !N E$` L ɠiɺ>F=E헍$3pDNghȘeeȑ iiikmjlnLS tL`ɧCɨ+Q  { RPe0B >j `c Ƀ#i ` Ƀi ` 3  àȍĠàōРĢ ӍàčЫàčī««īРàšԠƍ ŧàҍàЍ٠ЩٍàЫٍЩٍȠ٠ čЩ٠ ͍Ѡč؍ٍЩٍЍؠЫà ũՠ ՠĠՠčĠՠƍàՠİǠ  ǍЍ«Ы٠ΠЩ čѠҠ ōٍŠ΍Ҡ٠ō Ԡ ЮЮ̮Ů ԠРՠ ՠ     ؍ҠҠٍӠ ԠƍԠƍŬؠ 占؍̠ЍҠӍ̠à ؠРŬؠ Ԭؠ 獠؍̠ЍҠӍؠҠӠ РԠҍؠРԫؠ ؍؍̠ЍҠ ӍԠӍ̠ƱŠàРԬؠ РݍѠōР÷ݍŠ؍ҠԠ ѠԠ Ҡ̠ ÍҠҠ ͍͍ƱÍàīɠҠԠ РݍŠؠ 占ؠ ͍΍ÍԍëԍëӍԠРݍѠ̍ ԠŠՠ͠ՠԠՠĠՠƍԠՠ±àՠƵՠĹ̠ՠķؠՠù٠ՠűҠՠŷǠưϠÍ ЮЮ̮Ů  ,Ԡ ʮ    ˍ٠נō ӠōҠԠŠƍ٠ ٍؠҠ΍Ӎ ԠƍŠՍIJàԍՠԍؠĠԠЍ٠īԠƍҠԠԍҍŠҠЍҫōѠԍàҫҠàҍàϭРϭӠΠŠЍԠؠҠ̠ҽϠūؠΠҠΠԠ͠ҍčàŠ٠΍àƍı٠͍IJ׍իīàƍıIJիıàԍŠƍؠŠōƲƫ؍؍̠ƲҠҍؠҽōҠ̍ҠĠŠ΍ҍĠϠӍҫŠԠРō ЮЮ̮Ů ԠҠՠƳĸԠՠƴΠՠƵ̠ՠƶÍԠؠƠԠ٭ĮƠƬؠŠΠٍ؍ Ԡ Ǯ      % 7  ^  ڭ0 %  L % LK % LK d0 ` % $ $ "$ ` XֿL x  ^  ޢ X% 0  7L  n o % w    % 0 ¢ L   % O M T A P E W R I T I N G T O T A P E W R I T I N G T O D I S K (B)ACK-UP OR (R)ESTORE - TRACK SECTOR TAPE FILE DISK ERROR: C O M P L E T E D `` `ة<>= ?`L6 BACKUP A DISK TO TAPRESTORE A DISK FROM TAPPUT SOURCE DISK IN DRIVE, START RECORDER AND HIT RETURPUT DISK TO BE RESTORED IN DRIVE, REWIND TAPE, START RECORDER ON PLAY AND HIT RETUR R E A D I N G F R O M D I S K R E A D I N G F R  00::(4)"CLOSE":: 0 I20480EN:((I)); I(EN255)2020:(I)141(I1)160(I2)141(I3)160(I4)141(I5)160ı :: (4)"CATALOG":3020 0:1002:110AA$"C"3000:3010. nEN(20449)(20450)2568 x2000Y "Correct? ";:Y$:Y$"Y"Ā "File name? ";N$::"Save as Binary or Text (B/T) ";:S$:S$ S$"T"170::(4)"BSAVE"N$",A20480,L"(EN20479): :(4)"OPEN";N$:(4)"WRITE";N$ 20 APPLEWRITER CONVERTER/ CATALOG FILE CREATOR UTILITY by Frank Kirschner & Val Golding Call -A.P.P.L.E. * Feb. 1982  d"Print Applewriter file, Catalog or List (A/C/L) ";:A$:A$:A$"A"110:(4)"BRUNDIVERTER"::54,224:55,79:1002:  630X EXITS 2b"ALL SECTORS READABLE":al"*** ERROR *** DISK IS WRITE-PROTECTED":v"*** ERROR *** UNABLE TO WRITE":"DONE":"TOO MANY BAD SECTORS!"::"*** ERROR *** CAN'T READ THE VTOC": READ/WRITE SUBROUTINE T127VTVT2569 rVT256VT(IOB8):(VT53)SX1660a |J256:I07:JJ2:MASK(I)255J:I I1BI:JSXBS(I):BMVT564BT(I)J8:J7JJ8 0,(BM):1,MASK(J):76848:BM,(0) I:IOB12,2:1000 RESULT0640 RESULT16620 :"TRACK ";BT(I);" SECTOR";:TRACKBT(I)? " ";BS(I);:I\ , UPDATE THE DIRECTORY 6::"MARK BAD SECTORS (Y/N)? ";:Y$ @(Y$)("N")640 J(Y$)("Y")300 TTRACK17:SECT0:1000: READ THE VTOC ^RESULT0660 hVT(IOB9):V( 1000:VOL;" ";TRACK,SECT,RESULT: RESULT0180Q BIBI1:BIBX650n BT(BI)TRACK:BS(BI)SECT SECT:TRACK DONE READING :BI0610: QUIT NOW IF NO BAD SECTORS "--BAD SECTORS--":TRACK1:I1BI TRACKBT(I)260,214:L2256(MEM9)179P F(L2)38SX12: SEE CALL -A.P.P.L.E * MAY 1981 P 53_ P(L2)100} Z(L1)240(L1)96SX12 d READ EACH SECTOR nBI0:936:"READING...": x"VOL TRACK SECTOR RESULT"::34,4 TRACK034:SECT0SX$DRIVE3(IOB2): USE EITHER PEEK(IOB+2) OR 3-PEEK(IOB+2)t (:"PUT DISK IN SLOT ";(IOB1)16;", DRIVE ";DRIVE *" AND PRESS ";:Y$ -IOB2,DRIVE 2 FIGURE MAX SECTOR 7SX15:MEM(978):MEM127MEMMEM256 <L1256(MEM34)=F Disk Verify by Roger Chaffee Call -A.P.P.L.E. : July, 1982 h BX100:BT(BX),BS(BX),MASK(7)936:" DISK VERIFY"2000:800:IOB(1):IOB127IOBIOB256IOB256IOB(0):IOB12,1: "READ"#IOB3,0:IOB8,0:IOB9,2<        RS W 8 ; W; :`ɍHh`C$3P톸Eɍ$3p C L NOm eOJ`RS qP qQ T U `8mm`PJ TuVTvP`  5`m   SRiSiΩ5L`;<̗˗ 0N ͑ +0A ё m ˗ [! ̗I]IƍI<$3p ;L ‘(ɬ ‘ɮ ɬ ɢ `ʨ`hh !N E$` L ɠiɺ>F=E헍$3pD α 􍪍Ԡ٠ ٠֠ ҠԱdz ҺؠdzҠԍҠ ҠōРα 忍ѠŠ 荠РŠ 󍪍Š٠ ٠֍ҠԱǴ ħؠǴҠԍҠ̱ Ҡ̱Ҡ̱Ҡ̱OPO`OOɖ``O`  占٠ ٠֍ҠԱǴ ŧؠǴҠԍҠԠ ҠԠ 卪βŠ Р Ԡ 􍪍 ҍàˠ ҫ РĠ 忍ŠԠ 􍪍Ǡ 忍ɠβŠ Ҡנ 占ӠԠ àҫ àҠ Ҡ РԠ 뿍ŠždzҠԍҠŠ Ҡԍ٠٠֍ҠԱҠĠ 占٠ ٠֍ҠԱǴ ˧ؠǴҠԍԠҠŠ ٠ ٠֍ҠԱǠ 忍ɠԲ 占dz ˧ؠdzҠԍРԍԲdz ŧؠ ؠDzҠԍҠ֠ 􍪍 ˍ ҍōŠōҫ ō ؠDZҠԍҠԱҠԱDzؠDzαҠԠ 䍠Ҡα 򮍪٠ ٠֍ҠԱDz ٠֍ҠԱǠ 忍ɠԱ 占DZ ؠDZҠԍҠԱҠԱDzؠDzРα α ԱDZР § 俍ѠԠ РҠҧ 俍Šα ؠ 䍠ؠǠ ؠ宍ؠčԠҠŠ ٠ Ю̮Ů 𮵳αҠԱҠ͠ DZ © ҩ ؠDZҠԍҠ٠ ؠ ؠǠ 獠ؠ 𮍠ؠč Š Рà Ѡα ˮ占Ԡ 덠Š Ġ Ю 덠Ҡō ȍҠ Ҡ؍ ȍŠ 占Ҡ؍Ӡ 򍪍Ԡ ͍ԠΠĠ 占ҠŠōӍŠàŲ 占Ų 占Р 䍠Ѡ΍ӍΠ Ԡ 占Ӎh ԠǠŰԠ àű Ѡ%Ԡ Į ЮЮ̮Ů  Šб ҠҠԱ Ӡ 򍪍ԠŠ٠ 占٠֠ ҠԱ ȍˠ ؠԫ ؍٠ бԩ٠ 獠ɠҠ ҠԱ ٠ ŠĸƍԠԠ ̠ 荠̠ Š 䍠̫ 󮍠č̫ӍԠԠԠ ԠԍҠ   Ġ  Ҡ  ̠ Ԡ  Š  Ԡ Ӡ  ٠  嬍ҠӠ 썠Ӎ  Ԡ  Š  ̠ ˠ  Ҡ  DZɠ©˭ ҩ Dzɠ dzɠ Һ Ǵɠ Ԡ Ӎנ  Ŭà Ŭ ٧ɠ Χdzɠ dzɠ Ǵɠ Ǵɠ Ġ Š 򍪍DZɠ ŧDZɠ ŧDzà Ŭ ԧɠ ΧDzà ՠĠ 卪ԠǠ 占РΠ ƍ ӍǠ  Š  Ԡ ؠՠų Աՠư ٠ՠİà αՠĶƠ ֠ՠŸ ͠ՠŸ ԠՠĠ ĠԠՠƹ 獪ӠՠĹŠՠĶ  Ӎ̱ՠĠ Šՠõ Աՠĸ  Šՠ Ԡ ӮŠՠ Ƞՠ ֠ՠ ̠ՠà ̠ՠŠ  Ԡ ˯ ů ЮЮ̮Ů              L`$767 7L`ɀ)?i IH,c$hH, hHI$, %X hH,0 ,$!8,hHI ,$h` HYXH Jhhj(`P8˫ˠ٠Ӎؠҍ٠ҫҠԠԠԍˠà٠ӬàϠԠԍӠŠӠŮŠˠϠ̠ŠӍԠƍҍŠвàҫԠԠύвàҠȠŮ٠ٍŠРϠӠӍÍҠŠӍàƠΠٍ˫٠͍˫׭ҫàƍ˫ˠ٠Š΍٠ҍҫРҠ͠ŠٍĠԠϠԠŠōɠҠԠԠàҠԠҠōŠٍàҫӠӠύŠ٠Ҡ̠حӮҠƠҠٮؠƲƫؠŠō؍̠ƲҠҠōؠҠ̠ŠӍҠĠŠҍؠԠΠō٠ҠԠԠԠԠР ЮЮ̮Ů ԠҠՠƳŲԠՠƴ̠ՠƶÍԠؠƠԠ٭ĮƠƬؠԠΠ̍ؠӠƍŠ Ԡ Ǯ ɍHh`C$3P톸Eɍ$3p C L NOm eOJ`RS qP qQ T U `8mm`PJ TuVTvP`LL`;<̗˗ 0N ͑ +0A ё m ˗ [! ̗I]IƍI<$3p ;L ‘(ɬ ‘ɮ ɬ ɢ `ʨ`hh !N E$` L ɠiɺ>F=E헍$3pD6ghL a8 ȱ8  ԠӠȍ ҍ ή ݍǠ Ϡ Ġ  ĺ ͺ č č č ݍĠ í Ǯ ҍ ͬ ύ Ϯ ݍ Ϻ ԍ ή ݍ ĺ ύ Ÿ ݍ ԍ č ύ ō ҮȠ  ō κ Ǻ ԠӠԍōà֍Ԡˍ֠čٱٲҍàٲàŠٱҍٍŠԍ٠ōЍӍŠӠȍ Ⱥ ȍ ōŠΠ ԍҠҠԠӬ ҍԠǠâ ο̠Π ԍӬ ӍȍΠӱӍҠ٠ōР Ӎ٠ ԍÍ Ϭ Χ ȍÍàȍӠҠ ΍ԠǠ Ŀ̠Π ԍàƷ ĿàΠ ԍ ҍҠ ɠĠ ԍҠԱ ΍ čĠԠӱ ҿѠĠΧ ҍàȠ čĠԠ ׍РƠ ȿѠΠȠ Ҭ ЍԠ Ҭ ԍȠ ōԠĠ Ŀ̠٠ ԍ ōҠԱ٠ҠԍȠԠϠ Ŀҍ ŮӠ̍ ̠Ԡӱ ҍѠԍàԍŠԍàԠΧ â ԠҠҍàԲ ȿҠĠ ҍŠԱ ύĠƠ ōà ҩҠԱԲԠײ ź ̠Բ ԮԠ ӍРȠ ōԍ٠̫ԍ̍ԍР̫ ſ ϬѠӠΧ ԍ̫٠ԱѠӍР΍ӠӍԠР ҿŠ ͍ Ҭ ҍ ì Ң ΍ ŮǠư ÍЍԍЫԍЫӍԠȠŴ٩Ƞ̠ΠРƵˠðŠðײðԠԠĸōԱư Ӭ ō ԪӬŠɯϠϠҠŠɯϠΠҠΠΰӠĩĩӠĩײвөײ   Ң        z# ůР"ҠҮӠ ˠ٠  ԮӠ "Ԡ̠Ԡ Ҡ ͠ҠΠ ԠԠ ԠԮӠ ˠŠˠŮӠ ҠҮӠ ŠͯѠ֠!͠ҠήӠ  ǠŠ ήӠ9ΠӠ  ̠Ա! ̠Բ" ŠҮӠ ŠҠ ˯ŠЮӠ ˯ŠР ŮӠ ر رӠЮӠ  رӠР̠±Ӡ ̠±̠²Ӡ ̠² ŠϠǠϠȮزرĠϠرӠر رӠ ҮӠ Ҡ Ԡ ӮӠ ӠҮӠҠ ̠̮Ӡ(̠̠̠Ϡ ΠЮӠ"ΠРҮӠҠ ՠԠŠϠԠԠŠϮӠԠŠϠˠҠŠΠҮӠŠΠҠ  -     .  -  1982  LjððƠ屽ƍððϠ占Ҳٍϫ占Ӡ卪  卪 뱬 썪 屬 䍪 󮍪 뱽嬠򠳿٠͠ұٍ͠占Ҳ٠占ͫӠϠϠҠǠ堣٠Ϡұٍ ύ  Ҡ͠占ҠǠРﬠ堍Ӡ嬠宍 Ҳ 󮍪Ҳð堲ðððύύ͍Ӎ٠Ӭ٠퍠ÍàƠƍƍͫ占Íà砱ͫϫÍàϫؠ堿Ҡύؠ썠ƠƍР٠ͩ͠٠٠ϠҠϩ٠٠占Ӡ嬠宍 ō 퍪 卪  ŠҠҠ٠􍪍ͫ占Íà䠱򠍠ͫϫ占Íà䠱򠍠ϫؠ져堿ŠР͍  Ϭ Ϭ ϮŠҠҠҠύؠР٠ͩ͠٠占٠Ϡϩ ̍Ա̫ҠŠ ӍĠ ̍č̫ōҠԍƧҠԍ ҍҠԍ ԍҠԍōҠԍѧҠԍ Ҡԍ ԠŠՠ ̠ՠĠՠñ 󫲍ԠՠčԱՠưŠՠƳƍŠՠƴǠҠŠ 占   `Ԡ ر ® î ЮЮ̮Ů Ԡ     卪 ٠ؠ Ҡؠ򠍠ؠ ҫ٠ Ҡ٠٠ ҫӍ נ堍콱뱠屍̍Ӡ卪 ٍ ؽ ٽ : J67 F   Q P 67 ?`TPUT CTRL-Q TWICE ABORTS OUTPUT p HEX$HEX$" N D9C6G":I1(HEX$):511I,((HEX$,I,1))128::72,0:144:A))128::72,0:144:A N ADB9:EA A9 0 85 40 85 41 20 69 BA":900 HEX$"BCDF:20 8E FD 20 A3 A2 20 8C A6 F0 12 20 ED FD AD 0 C0 10 F3 8D 10 C0 20 1B FD C9 91 D0 E9 20 FC A2 60 N A8E7:46 49 4C 45 44 55 4D D0 N 9D48:DE BC N A933:20 30":900: , CTRL-Q IN FILEDUMP PAUSES OUqE FREE SPACE AND FILEDUMP POKER PUMP/GOLDING/WELMAN/REYNOLDS dHEX$"BA69:A0 C8 18 B9 F2 B3 F0 E A 90 FB 48 E6 40 D0 2 E6 41 68 18 90 F0 88 D0 E9 A6 40 A5 41 AC 6 E0 D0 3 4C 24 ED 4C 1B E5":900* nHEX$"B3AF:BD C5 C3 C1 D0 D3 A0 C5 C5 D2 C6 A0  PROGRAM LIBRARY EXCHANGE 304 MAIN AV. SOUTH RENTON, WA. 98055 9E BIG MAC SOURCE FILES."u +"OTHERS REQUIRE DOCUMENTATION. CONSULT APPROPRIATE CALL -APPLE FOR INFORMATION"::: 2"Call -Apple Anthol- ogy, Vol VII, Jan-Jun 1982 Version 1 Release date 7.20.82"X " APPLE PUGETSOUND Yb2::" CALL -APPLE ANTHOLOGY VOL VII JAN - JUN 1982 "::l::'2::4:"CALL -APPLE ANTHOLOGY, VOL VII":::34,5 *8:"DUE TO LACK OF SPACE, THERE IS NO MENU ON THIS DISK. FILES WITH A [.S] SUFFIXAR  ͍͠Ҭة͍͠ҠҠ򍪍ҠŠ堲ҠϠϠР堿ŠРР 宍РҠҲ堲Ϡ堲Ҡ٠󍪍РؠҬةҠàҠؠŠà彰àҫﬠààҠ٠ŠΠﬠ宍àҫ嬠ΠӠ宍 Ѝ ٍ  󮍪٠ؠ͠Ҭةؠ͠Ҭة٪ Ա ̍Ա̫ҠŠ ӍǠ  獪 ɬ ά Ѭ л Ҡ ǠҠŠ 占Ġ̍č̫ؠҠҬؠ ҠԠ ؍ؠǠ 򿍠ŠҠ 덪 媍 Ԡ̠ՠĠՠñ ԠՠčԱՠưŠՠƳƍŠՠƴ -Ԡ ر Ӯ ® î ЮЮ̮Ů Ԡ (0) 24006)) (M$)1M$"0"M$D F$(F$,21)MO$"/"DA$" "H$":"M$b S$"*"S$" "S$"-"450| "I/O ERROR ";(S$): T$((FTYPE)) SIZE256(FSIZE1)(FSIZE) S$;T$;" "; SIZE100ĺ"0"; SIZE10ĺ"0"; SIZE;" ";F$ X"I029 ,F$F$((NAMEI))' 6IJ @ CHECK FOR POSSIBLE TIMESTAMPb J(NAME27)24430x TMO$((NAME29)) ^(MO$)1MO$"0"MO$ hDA$((NAME28)) r(DA$)1DA$"0"DA$ |H$((NAME27)) (H$)1H$"0"H$ M$((NAME2FILE9: OUTPUTS0 :"CATALOG INFORMATION":F "SLOT,DRIVE ? ";a C$:C$;:(C$)13240q SLOT,(C$) C$:C$;:(C$)13240 C$:C$ DRIVE,(C$) GFILE (FLOCKED)0Ā S$((FLOCKED)) S$"-"240 F$"" ?d GET FILE INFO TEST CALL -A.P.P.L.E. * JAN. 1982 Ji37000VnD$(4)vx:D$;"BLOAD GET FILE INFO"GFILE37000: GET FILE INFO SUBROUTINESLOTGFILE3:DRIVEGFILE4: INPUTS FLOCKEDGFILE5:FTYPEGFILE6:FSIZEGFILE7:NAMEG    ӠԠ٠Ҭ΍ñҠ ԠӠ ҍЫ٠Р٠ԠԍԍŠòЩٍҍҍҍҍԠōòٍōŠҍЩ٠ԠōōҠӠԠԠŠύŠӠΠϠǠ͠ōԠՠˠƠԯŠԠ٠ҍԠԠԠѠñƠԠӠŠԠōѠñƠԠӠРҠȠРΠŠŠΠ٠΍ԠԠϠÍˍӍԠŠŠύύҠӠ̠ӍϠ ɯ ҍŠŠԠƠҍԲҠǠ֍ŠԍРԲԠԠˠƠҠԠԠϠŠԱԠƠϬŠԠԍԍԱԠŠԯō٠֍̠ Ԫ ̍̍̍ԍ΍֠ ƠӠҠҍԍԠՠؠԠԠŠĿŠҠԠӬōԠˠƠԠҠ٠Š čРԠƠϬŭŠӠŠԠ٠ӠΠӠ ˠ ԠԠ Ӡԍƍ ԠӠӠΠӠΠӠŠàōԩԠՠ ƬĸԠ ՠŠōŠՠŠōàՠŠҠԍРՠƹٍǠàРԍ ԬōӠԍԯԠ̠ˍ© ՠ ԠŠōӠӍӠՠĹӠįŠ˯ҍ ՠųԠӠ ӍٍˠՠˠϠԠˍàՠˠϠԠҍŠՠ ҠϠԠōŠ٠ٍŠ č č č Ӎ ɯ ӍϠՠϫŠōϠՠϫŠŠ٠өϠՠϫàˠӠՠàҠԯԠӍ٠ՠàҠٍԠՠ٫ԠԠŠՠ٫ԠŠϠՠ٫ԠŠύϠՠϠ ǯӍ ԠӍàՠԠ΍Ԡՠ ɯ %Ԡ ЮЮ̮Ů           ٠ͩ͠٠占٠ٍϩ٠卪Íͫ占à䠱占ͫ􍪍àϠϠ占Ż ύύԠ ϫϫ蠱썠͠͠썠͍РҠҠؠвҲӍ̠נ 占ұ׍ұȠ 占ҲȍҲӠ卪 ԍ 卪 󮍪ԠԠұ 屍ҲұҲӍŲР岠Š̠ﬠ占נ 岍ұ׍ұҲҲ岍Ҳ̮ Ǎ 屬 岬 宍ǠР屠ŠŲﬠ岍׍ұ屍׍ұ- J67& %67 ?` 80NQPӠӠՠ٠  ō  ӍҠӠӺ̠ӍàӠĠήԠϠ ӍӠӠ΍ЫٍϫӠ΍ŠՠЫÍàŠҠƠŠōЍЫЫ٠РЩٍĠƠŠϬ٠٠̠ЍӠ΍̠Šՠ٠ŠЫ٠ԠŠōĠƠҠΠԍٍؠ̬٠ԠҠŠҍϠԠԠӠ΍Šՠ٠àԠŠҠԍЫٍύٍǠӍЫҠƠŠٍĠՠ٠ōؠЫ٠ԠŠō̠ԠˠΠԍؠŠčԠϠ Ӡ΍̠à¿ӿҧԍЫԠŠ٠ÍàРϠԠŠٍЫàЫЫàԠ ҍϠ čѠǠ ōŠӠ΍ԠٍРƠƠƬŠčŠԲԠĠǠϠύРԳԲҠĠԠĠǍԳҠŠԠŠōҠŠԠŠōҠŠԠŠōԴàҍƫŠ ٍЫƠ ٍЫؠԠРҠؠԠϠԱ٠Ԡ˯ҠԍЫ٠ ҍѠԴƠРӠŠԠԠŠΠàˠƠϠŠӍàˍŠ԰ƠŬҠԍԠ ΍Рō԰ҠӠ̠ӍϠ ɯ ҍŠŠԠƠ΍ԠǍԠ ǠՠԠԍύԠנŠҿŠԱƠԬϠϠˠƫˠԠԠҠˠˠŠΠƫàԠԠҠŪ ᮍԠԠ ͠ԍͫύϠύРҠϠؠנ 占ѠΠԠà͠썠͍РŠЍ͍à͍ŠЍΠӠ卪 ԍ 占Ԡﬠ占àϫ嬠卪ԠؠŠв嬠͠蠱썠Р̠ŠԠﬠ썠͠РҠĠ ҠӍҠōӍԠōҠԍҠԍ΢Ҡԍ٠ԫōð٠ Ӎ ȍР ȍҠٍàȍŠЍ 䩍ҠٍŲÍàŲРŠ֠ 占ÍҠٍ ɍҠٍҠ٠ àЍŠЍōҠ֠ 덠ҠٍŲ ŲàԍРԍŠԍàŵàȍŠȠ 占ٍ˧ҠٍҠٍҠٍȠ 占ԍԠ 占ЍР٠ŵ ٍ٠ԍРҍٍ̠Ѝ̠ōÍҠٍҠٍҠٍŲ֠ 占ȍؠ٠ŲҠΠ 덠ŲŲÍҠǠԠҠōɍҠƵ Ơ؍ˬ؍٠ٽȍ؍ˬؠ̍ÍàԭƫҍàҫÍٍɍԍ̍̍̍̍ԫŲՠÍŲՠčԠՠōŠՠԠՠ֠ՠÍȠՠčРՠōˠՠӠՠΠՠƴ٠ՠƵԠՠčĠՠŹԠՠŹŠՠƳƍŠՠƴ Ԡ ر ® î ЮЮ̮Ů Ԡàՠ٠ՠҠՠ  N-L Ԓ i#eN` *`TIA?B???S?R)ɒ`!ȱ`i)` `Ő ŐƐLŐŐƐ   O`LM  JJJJȭ`N-ȐɐmŐL @҅LǑǐ󮻻    ȍ 󍪍Ƞ            Ҳ 󍪍Ҳ      卪 岮נ     İİ İİ ұ 󍪍ұ             ׍ Ⲭ              𮍪Ӡ         ŠЍΠӠ宍 卪  󮍪  àͫԠؠŠв썪ϠР̠ŠԠ謠ϠРנѠΠ宍ԠҠϠ嬠в٠ͩ٠堍٠Ϡϩ٠卪Íϫ占à䠱占ϫà͠ﬠ͠占Šԍ Jx Xʽiƅ i L X> ? A  ( &<'= K   &j& ƎE ='<&择ŋƍȩ ƍ iЂ 2  ?` ?` NUE":C$:906 :6:"ENTER AMOUNT OF DEPOSIT: $";ADU :"OLD BALANCE WAS: $";PBw PBPBAD:PB(PB100.05)100 :"AND NEW BALANCE IS: $";PB 20:15:"HIT ANY KEY TO CONTINUE":C$:90P00 T$"D"2000H T$"C"T$"D"T$"Q"Č198:"TRY AGAIN":120N T z 5:"ENTER AMOUNT OF CHECK: $";AC :"OLD BALANCE WAS: $";PB PBPBAC:PB(PB100.05)100 :"AND NEW BALANCE IS: $";PB 20:15:"HIT ANY KEY TO CONTI"Y"Č198:"RE-ENTER":60' Z:8:4D _"NEXT TRANSACTION IS: "] d12:12:"[C] CHECK"x n14:12:"[D] DEPOSIT" s16:12:"[Q] QUIT" x18:20:"WHICH ?" T$ T$"Q"ė:12:"NEW BALANCE IS: $";PB:20:19:"SO LONG":: T$"C"10 CHECKBOOK BALANCER ":A10)"CHECK BOOK BALANCER"N(34,4:5l2"KNOWN BALANCE IS: $";PB7PB(PB1000.5)100<10:"YOUR KNOWN BALANCE IS: $";PBF12:"IF CORRECT, HIT [Y]...IF NOT, HIT [N]"PC$:C$"N"20 UC$"N"C$      Ӎ ʫ׬ɍҠԍǠ ǍҠ̍ɠ ʬɍ٠ʍҠԍʲàʠ ʫƠʠ׍Íà׍Рʍ̠в вɲàɠ ɫ Рɍ̠в ввʠǽΨʫ׬ɩÍà׍ٍɍҠ΍Ǎɠ Ψʬɩ Ψʫ׬ɩ٠ʍҠ΍РǍ̠ʲ ʲҠ̠ ΨʬɩàƠ ƫŠвàƫвʍÍà׍ٍɠ̽ ʫ ׍Íà׍Рʍ̠Р Ѝɠàɠ ɫ Рɍ̠Р Ѝ 󍪍ɽɍвʽʍ Ψɬʩ ΨɬʫשҠ΍РǍɠʠ ʍѠʍҠ̠ҽΨɬʩàƠ ƫŠбàƫбʠ ɬʫ׍Íà׍ҠԍǠҽǍҠ̍ʠ ɬʍҠԍʠàʠ נՠԠՠƸ̠ՠƸΠՠƸǠ 󍪍ɽɍРʽʍ РʠǽΨɬʫשÍà׍٠ɍҠ΍Ǎʠ  Ԡ ЮЮ̮Ů ԠƠՠǠՠɠՠʠՠ卪ı٠ ŠҍIJ٠ؠҫ؍ؠҫؠŠҍӍ򿍠ŠԠ 獠Ҡ ҩٍԠٍ٠ ῍Ѡı ٠Ƹ ῍ѠIJ ŠҠ ͠ ͩҍؠҍ 荠ƍؠƍҍؠҫ٠ٽ ҠҩٍРҠ ˠՠð͠ՠŷǠ 덠ÍˍӍ˫Ӎ˫ӍӠ΍Ҡˠ ΨҠ͠ 퍠ҠӠ ݬ ԠҠՠҠՠ͠ՠΠՠķҠՠōƠՠˠՠƵӠՠ¸ Ԡ ЮЮ̮Ů      Šԍ٠ƠԠϠԍؠӬ٠٠ԍŠàŬؠ١Š΍ؠӠȍàŬؠҠȠōΠҍŠҍҫѠԍàҫҠàҍàōӠР٠٠Šԍ٠ҍàԱѠԱàҍŠԍؠԠРԍԠ̬؍Р̭؍ŠԍƠҬӭؠԠԠŠϠ΍Ԡ؍ŠԍנРҠΠ͠ӍؠҍĠԠԍ̭ؠĠˠԍàҍŠЍԠРԍҍԠ٠Աٍ̬Рٍ̭Šԍٍٍٍ̭̬̭ԠΠūĠÍ Ԡ٠ҍàԍū٠͍ūϠԠԍàԠōàƠٍūūРҠԠР̠Ʈ̮Ů ԠҠؠŠƬؠӠ΍֭ؠϠōؠԠԍŠҫȠԍҠĠŠ΍ŠԠŠύ Ԡ Ǯ Юbcc``aabbcc``aabbcc ((((PPPP !!""## !!""## !!""##@@AABBCC@@AABBCC@@AABBCC``aab߅``  2i (˩` B i  `Qe΅Υi i `PRUW` `  ``dhlptx|`dhlptx|`멀…``     L:Dž` R ΰ#   (ƩкL:  ϩ ϰ ϥ(٩ѥ   ШL:(` 2 Bi i ` 2 BΤe q q0 de  d '8'e q q de  d '8'`  PL` F ޥPx렀`̧̠ԿŠԠϬ٠̠ԍҠŠĠԠȠɭӠōԠԠō̠ŠӠΠҍ̠РР׍ȠŠӠנҍנ٠ȠԠנҍ̩٠ҍд̩٠Ҡō٠ԠȠŠԠſѠĠӬȠԠō٠ϬԠΠ΍̠дĠ̩٠ҠԠŠύРΠŠǠ΍̠ԠōƠР٠РԠ׍٠РȠŠРנԿŠĠϬō٠РҠŠР׍̩٠̠ӠƍȠŠР׍Ҭ٠̍٠ԠӠ͠ԍҽˠҠӠ͠ԍг̩٠Š٠ԍ̩٠͠РϠ͍٠ԠȠŠԠſѠĠӬԠ׿٠ϬԠΠ΍̠гĠ̩٠ŠŠԠΠōٍ̩ȠŠ̠ӍҬ٠ƠŠԠ׍̠ĠŠԍ٠̠׍̩٠٠ӠƠōȠננԍҬٍ̍٠נō٠РŠԠٍ٠ԠԠԠŠύРΠō̠ΠōΠРħ̠οŠƠϬ٠̠ԍҠŠĠԠȠɭӠō٠ԠӠ͠͠׍Ġ٠נŠԍ̩٠ŠРҍҬٍ̍٠ԠǠ͠ԠϠԍԠҽˍв̩٠ҠŠō٠ԠԠŠԿѠՠӬϠȠԠō٠ϬԠΠ΍̠вՠ̩٠ҠŠԠԠ΍̠бՠ̩٠ŠԠŠύٍ̩٠РԠנҍ٠ԠȠŠͿŠՠϬϠҠ׍٠ԠӬҠ͠׍ٍ̩̍Ҭ٠̍٠Ы׍٠РŠԠٍ٠ԠӠ͠נԍб̩٠ԠǍ̩٠Ӡ͠ŠנϠӠō٠ԠȠŠԠſѠՠӬҠ׿٠Ϭՠ٠Ԡנ؍̩٠РŠҍȠŠ̠ӍҬ٠ƠŠԠō̠ΠΠɭӠ΍٠̠׍̩٠ԠŠӠύȠ٠ŠЍؠԠʬؠԠРРӍ֬؍؍̠ԍӍʠРР͠ӍРРէ̠пŠΠϬ٠̠΍ҠŠĠԠȠɭӠō٠РӠ͠РצҠРՠ٠ō̠ՠԠΠŠӍȠՠǠՠŶӠȠŠϠԠ֠ՠƵӠРҠՠĹŠҠϠĠƠԍؠՠùؠҍǠԠՠנ͠ŠԠՠנԠŠԠՠנԠŠ̠ՠӠŠԠӍȠՠҠŠԠŠŠ̠ՠԠŠӍȠՠҠĠӠ͠Π̠̰ 獪 ս Ľ  ̽ ҽ 􍪍РՠנРŠ 4&Ԡ ɭ î ЮЮ̮Ů Ԡ                ƍ ¬Ƭ¬ƍ ìÍ ìÍ Ĭč Ĭč Ŭō Ŭ ìÍ ìÍ Ĭč Ĭč Ŭō Ŭō ¬Ƭ¬ ìÍ Ĭč Ĭč Ŭō Ŭō ¬Ƭ¬ƍ ¬Ƭ¬ ō̍Ҡ ӍȍӠ΍ŲҲ ō̠ӍҲ ӍȍӠ΍Ҡ ìÍ荪  卪 卪 ̬ 󍪍ŠǠȠſРŠѠŲӬϠŲҠϬ ٠̍РҠĠԠ͠Р׍ҠРΠȠ̠ԍҠōҠРؠؠҍȬΠϠÍΠҠŠҠϠĠƠԍӠ٠ӠϠÍ ͠נԿѠҠӬԠο٠ϬԠנ΍٠ȠŠŠנҍРҍҠ٠̠ԠŠΠҠ٠ԠȠԠŠԿѠҠӬŠǍ٠ϬŠϠԠ΍ԠԠӠύҠŠӠĠύҠӠĠ΍ҍҍҠРĠϠЬ̠Ԡō٠ԠˠԠŠ؍Ҡ̩٠ŠԠϠ΍٠ȠԠנҍ٠ԠȠàŠƠҠԽϠ΍ҠŬԠԠˍŠРŠԠٍ٠ԠȠԠŠԿѠҠӬȠŠ׍٠ϬԠŠԠō̩٠ĠԠԠӠĠҠ̠ŠҠԠΠٍРŠԠΠˍ̩٠ԠŠŠ΍ĠƠˠԠҠԍ̠ԠԠŠӠŠӍ̠̠ԠӍĠƠˠԠŠȠԍРŠŠҠԠ͠ˍΠҍҠРР׍ȠŠӠנҍҠ٠ȠԠנҍ̩٠ԠŠӍȠĠŠԍҬ٠̍٠̠ԠΠҍ̩٠ԠŠԠō͠Ѝ٠̠ŠΠҍР̠̍РΠȠ̠ԍ̠ԠōԠРҧ̠ԿŠҠϬҍҠŠĠԠȠɭӠōԠԠō̠ŠӠҍ٠ԠȠŠ͠ԿѠ̠ӬԠο٠ϬԠנ΍٠ȠŠנҍР׍̠٠̠ԠΠҍ٠ԠȠԠŠԿѠ̠ӬŠǍ٠ϬԠ؍̩٠ԠōĠԠԠӠĠ̠ԠϠӠĠ΍̍̍̍̍ҠРĠϠŠԠĠō٠ԠˠԠΠ؍נ̩٠ŠΠ΍٠ȠԠנɠԠԠҠԠԠԠРŠҠԍàŠĠˠҠԠϠōҠŠˠҠԠŠРŠԠٍ٠ԠȠԠŠԿѠנӬϠ׍٠ϬԠΠԠŠӍȍҬ٠̍٠̠ԠΠҍ̩٠ԠŠԠō̠ԠҠԠϠٍРŠҠԠϠˍ̩٠ԠˠŠōĠƠˠԠҠԍҠɍàʠ ʫ Рʍ̠Ƞ ȍàɠ ɫРɠ ̠Ƞ ȍӍȠˠ ɬ˫׍Íà׍ٍɍҠԍӍȠ ȍҠ̠ ΨˬɩҠȠ ˫׬ɍàƠ ƫŠȍàƫȠàˠ˭׍ˍà׍ˍ̠Ƞ ȍȠǠ ǍҠ̍ҠȠ ˫׬ԍӍ 󍪍ɽɍȠנʽ׍ʍ Ƞɠ Ψʬɩ٠ʍҠ΍Ǎʠ ʭ׍Íà׍ˍȠɠ Ψˬɩ٠ˍҠ΍РǍӠ ЍǠǠ ǍҠ̍ҠԠ ɬ˫׍àʠ ʫ Рʍ̠Р Ѝàɠ ɫРɠ ̠Р ЍӍԠˠ ɬ˫׍Íà׍٠ɍҠÍà׍ˍРˠ Ψɬ˩٠ɍҠ΍РǍɠǠ ǍҠ̠ ƫҠԠ ɬ˫׍àƠ ƫŠˍàƫˠàˠ˭׍ˍà׍ˍ̠Р ǴˠՠנՠԠՠƸ̠ՠƸΠՠƸǠ 󍪍ɽɍРנʽ׍ʍ РʠǽΨɬʫש٠ɍҠ΍Ǎʠ ʭ Ԡ ЮЮ̮Ů ԠƠՠǠՠɠՠʠՠ¬ƍ ¬Ƭ¬ƍ¬ƍ ìÍ ìÍ Ĭč Ĭč Ŭō Ŭō ¬ƵÍ ìÍ Ĭč Ĭč Ŭō Ŭō ¬Ƭ¬ƍ ¬ƬÍ Ĭč Ĭč Ŭō Ŭō ¬Ƭ¬ƍ ¬Ƭ¬ƍ ìİİİİİİİİ  İİİİİİİİ  İİİİİİİİҲ ìÍ ì     İİİİİİİİ         ō ¬Ƭ¬ƍ ¬Ƭ¬ƍҠ      50CMP:CF1:(13)(4)"BSAVE ";A$;",A$8000,L";22960N8:50jp30:"DECOMPRESS PICTURE":CF6050z22:"NO COMPRESSED PICTURE IN MEMORY !!! ":50:DE:(KB),128:SB,0:100X16304,0:16302,0:16300,0:16297,0:50@16304,0:16D PICTURE":22:"FILENAME: ";A$:A$""50e(13)(4)"BLOAD ";A$;",A$8000":BP:CF1:AF0:SF0:5030:"SAVE COMPRESSED PICTURE":SF301040:N464505022:"THERE ARE MORE THAN 463 PIXELS, CAN'T SAVE":5022:"FILENAME: ";A$:A$""E:215,ME:AN:AF1:SF0:CF0:40i 22:"THERE ARE ";N;" PIXELS WITH MAX ERR= ";ME:(KB),128:SB,0:100 30:"SYNTHESIZE PICTURE":AF3050 22:"THERE IS NO PIXEL TABLE YET!!!":50 :SY:SF1:CF0:(KB),128:SB,0:100)30:"LOAD COMPRESSE1:958:"SELECT: ":ID1000,2000,3000,4000,5000,6000,7000,8000,9000,10000 20:12:958:"LOAD A PICTURE":16300,0:16303,0:22:"FILENAME: ";A$:A$""100 (13)(4)"BLOAD ";A$;",A$2000":50 30:"ANALYZE PICTURE":22:"MAX ERR/PIXEL: ";M":" 2 - DISPLAY PAGE 2":" D - ISSUE A DISK COMMAND"::" Q - QUIT"d 20:::"SELECT: ": (KB),128:KV(KB)128:SB,0:ID1(KV76)2(KV65)3(KV83)4(KV67)5(KV88)6(KV89)7(KV49)8(KV50)9(KV68)10(KV81):ID0200K 20: L - LOAD A PICTURE INTO PAGE 1":" A - ANALYZE THE PICTURE IN PAGE 1" n" S - SYNTHESIZE PICTURE TO PAGE 2"::" C - LOAD COMPRESSED PICTURE":" X - SAVE COMPRESSED PICTURE":" Y - DECOMPRESS PICTURE TO PAGE 2"J x:" 1 - DISPLAY PAGE 127:DE7353:AF0:SF0:CF0:KB16384:SB16368:100F 20:12:958:e (N40(32769)(32768)1: 2(7);:(KB),128:SB,0:100 Z16300,0:16303,0::12:16:::"E R R O R"::I15:(7);:J d16300,0:16303,0:936:17::"M E N U":::"i " ================================= HI-RES PIC COMPRESSION Copyright (c) Edward C. So, 1982 Call -A.P.P.L.E. : May, 1982 =================================  6911902 (13)(4)"BLOADCOMPRESSION":AN6912:SY7002:MP7450:BP75 q8 q0 d O8 d O'`e ` q8 q d 8 d '`e ` PPPPPPPP@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPȄL`ȄL`LraRY va'Nb&& &) )(I &)`JJJJJEȑ&ȄL!aLaLraL `@ a`c` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26` ``L`UP vaȱ'Nb&NbȄ&&Ҥ&Nb&&&LraDP va'Nb&ȱNb&&Ҥ'Nb&&&LraLW va'Nb&& &)JJ(I ȱ&) E&    Calendar display subroutine by Mike Firth Copyright (c) 1982 Commercial rights reserved Call -A.P.P.L.E. : June, 1982 CALENDAR (MM$,1,1)"M"MM$"31,29,31,30,31,30,31,31,30,31,30,31":M9(12):Q112:M9(Q)((MM$,(Q     卪 ̠ؠҠؠàؠƠҍؠ͠ؠҠؠ̠ؠ̠ؠҠؠ ؠĸӠ  ٠Ҡ٠ àʱ͍ƍʱӍ ЍԠؠ֭ؠŠԧӍƬؠϭŠ؍ŠԫӍӠؠӠؠؠ°čԠƍA$C$:HTHT1:HT40HT1:VTVT1,x#9020:#A$""50Q#(13)(4)A$:50g'0:0:1002::: 302,0:16299,0:16297,0:505(#30:"DISK COMMAND"J2#A$"":HT1:VT22<#VT:HT:868:(KB),128:KV(KB)128:SB,0:KV139090F#C$(KV)P#KV8HTHT1:HT1VT229010Z#KV8HT1VTVT1:HT40d#KV8A$(A$,(A$)1):9020"n#C$;:A$6: Transfer value of F from assembly language to BASIC? 23F FP 1000_ (7);(7)h 200s D1ij} DD1 WE(D) .l. variable F (lo)> 1,0: Initialize m.l. variable F (hi)| ,6,W: Transfer value of W from BASIC to assembly program @768: Assembly Language subroutine 2 (Column sweeps) E858: Assembly Language subroutine 2 (Row sweeps)7 JF(0)(1)25U Shell Sort 2 * Listing 2 by Luis A. Arana Call -A.P.P.L.E. : Mar. 1982 q<(4)"BLOAD SHELL SUB2"yFD3PE(2)9:E(1)1YZdI039nJ039xC((1)16)CI,JJI1000 0,0: Initialize m s ...... ":I12400:I::16302,0V I17:I:J15:0,24JI5279,24JI5:J,Ic P21:60 I12400:I:(7)::::15:"That's all folks, have fun!!!":3,39: RESET FULL WINDOW* xI15:L:9 I1800:J I110:R:g I1800:: DELAY 1 SECw I15:L: P21999 " That's the demo on HI-Res page 1":" Hit a key for page two demo" (16384)128158# 16368,0:" Here it i0,0:1,191:2,0:3,39: SET FULL WINDOW9 FI120:U:Z PI1800:: DELAY FOR 1 SECk UI120:D: WI1800:: DELAY 1 SEC ZI0382:2,I:3,I1:J120:U:: _I1800:: DELAY 1 SEC dI0382:2,I:3,I1:J120:D:: n2,0 ============================ Scroll Demo by Edward C. So Call -A.P.P.L.E. * Feb. 1982 ============================ (4)"BRUN FULL SCROLL"(P20::::"Hi-Res Full Scroll by Edward C. So":2I02