' +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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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`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- (   ՠ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 E7D B. /. /. 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*`č·Ŵ·Ÿ·ō·ưԳĸԴč³¶č·Űõƍ¸İøƍ͍ӾӠҠҠƠύРŲРϠӠōҠРŶIJ٠ŠҍԠؠԱİԲĵĵĵĶĶĶÍķķķÍķōĸÍ·ԭԭԭԭ͠ӍͯӠōѠͽԭ¶РŸˠϠĠōƠРРƷ ЫƲ¶ҠƷ ҭ±°ƲĠč٠ƍҠƷح±°Ʋؠư٠ԭٍҠƱ ³ƲԠԠĠȍ٠ƠĠōҍà؍ҠĠŠ΍РƱ²ƲԠӍĵƍŠʠӍ²٠ĵÍĵčŠʍ³٠ĵĵŠʍ´٠ĶĶŠʍµ٠РƴŠΫƲʱʠ٠ƷƠƲƸƲŶŶŶųŸĴıčŵðİčŲΠİÍčŸŹΠư±ƲƱ²ƲƲ´ƲƲĠ¶Ʋ±٠ĵŠŴŶƍŷŶÍĶŴčõčŵÍŵƹčİİƳĹŵŵŵŵŵÍŵōŶŶÍĵƲƠƲг°µ±ŵƲŵƫƭͭƲà°¶±µİƲƳƲ ƴƲ°·±ĠŴÍŵƷϫ³±Í°´±ƍǍ͍͍͍ӱӲӳбвŵ²ƲͱгİгijгĶгĹÍŶƲƠƲ΍ԠՠðРƠРūԠŠΠŠٍԠ΍ӠՠƷӠԠĠ·ƳՠԭƲՠƳč°ՠŵӭƲƴՠƳàՠŠѪƲ¸°°Šϫ²±̫ƲͱðŰŠԠӍгİҠƶРƠŠЧӬҧӍгijҠƶРĸгĶҠƶҠčРƹгĹҠƶҠƷµРƹгҠƶҠŸРƹɶРðРԠРҍӱðԯ˯ɠӍРӲðРéӳðРũбҠƶɯϠӍҠŸ̠ðӍвҠƶҠčРƹύƠðӠԍҠƵĠгƲРƶгРǠðӠԍҠƶƠгƲԠЍԠðԯŠŠ͍ԠðЍӠгР͠ðРŰȠȠōРƴðҠŸҠŸРƶ¶ðҠŹРƶ·ðҠĶҠàōҠƶРŴƍ¸ðРķIJàðРŸΠҠƷĠ°ʱ±ƲРƶҠԠĠӍҠŸРгijԠĠӍӠàϢנؠôàŠ٠Рō±ðҠİàҠҠӍРƶ²ðҠčРƶ³ðҠРƶӠƷŸ٠Π͍Ƴٍٍ̠ŲҠŰҠҍؠӬؠŠϠΠҍ؍׬ؠĠŠԍŸؠĠ٠č؍̠ðԠ͠ˍҠŹ$;"UNLOCK D.EXEC":D$;"DELETE D.EXEC"?&D$;"OPEN D.EXEC, L4"j&I0380:D$;"WRITE D.EXEC, R";I:0:I&:::D$;"CLOSE D.EXEC":D$;"LOCK D.EXEC":I0400:Z(I)0:I&B9707080&&@ ENTER DOS COMMAND 'J:2:11:"DOS COMMAND ENTRY":8:32,5:5::"WARNING!!";::" INITIALIZING D.EXEC":"WILL DESTROY THE PRESENT FILE"%v"(IF ANY), AND WIPE OUT THE KEY":"TO THE DIARY!!! USE THIS ONLY":"TO BEGIN A NEW DIARY!!!"%:"PROCEED (Y OR N) ? ";%A$:A$"Y"Ĺ32,0:%32,0:%&::DIS(M)E(M):D$;"WRITE D.EXEC, R";I:0:IB$D$;"CLOSE D.EXEC"X$D$;"LOCK D.EXEC"}$MNTH(M)0:IS(M)E(M):Z(I)0:I$B9606080$$X INITIALIZE D.EXEC $b:2:9:"INITIALIZE MASTER FILE":3:6:"----------------------------"R%l:::"PROCEED (Y/N) ? ";0#A$:A$"Y"Ĺ32,0:H#32,0::F$MNTH$(M)n#D$;"UNLOCK ";F$:D$;"DELETE ";F$#D$;"OPEN ";F$;", L40"#D$;"WRITE ";F$;", R0":0:D$;"CLOSE ";F$#D$;"LOCK ";F$#D$;"UNLOCK D.EXEC"#D$;"OPEN D.EXEC, L4"+$LES O"z:2:11:"INITIALIZE A MONTH":3:8:"------------------------":1330"6:958:6:9:"THE MONTH SELECTED IS:":8:(40(MNTH$(M)))2:::MNTH$(M):32,8::#10:"WARNING:INITIALIZING THE":"FILE WILL DESTROY ANY":"PREVIOUSLY STORED DATA!"ROUTINE ?!23::"CTRL-Z TO EXIT, ANY OTHER KEY TO RESUME":X!(16384)1275020r!D$:A$:16368,0:R$!A$(26)ġ:!!:23:9::"HIT ANY KEY TO CONTINUE";:!(16384)1275110!D$:A$:16368,0:R$:"p INITIALIZE FIP$A$:(P$)20ĺG$;:2070$ 2030A P$""P1:SC1:B(1)0:h I1(P$):B(I)((P$,I,1))64:I P(P$):SC1:14:15:"VERIFY-> "; *A$:A$(29)2120 4P$:16:15:"CONTINUE ? ";:A$:A$"Y"2120 >32767 HP$"":! PAUSE SUB*"I1MT(M)K:J63Z(S(M)I)01480PI:KK1:K20K7:JJ5WIc5100:t SECURITY :10:6:"<< APPLE DIARY VERSION 1.0 >>":12:15:"PASSWORD-> ";P$"":A$:A$(13)2065(A$)65(A$)902030 P$:"CORRECT MONTH &":"HIT [RETURN]"::::"CTRL-Z TO ABORT":32,0FFSPM1:VT6pZVT:7:SE$:SE$(13)ıdSE$(26)ġ:nSE$(27)VTVT1:MM1xM1313601370F$MNTH$(M):J15((F$)2):K75:958:J:"*** ";F$;" **MNTH$(I);::25:MNTH(I):JJ1:I.5100:H MONTHLY DIRECTORY :2:12:"MONTHLY DIRECTORY":3:9:"-----------------------"(1330:1420232,8:6:I112:MNTH$(I):I@<32,24:8:"USE THE [ESC]":"KEY TO MOVE THE":"CURSOR TO THE"D)N1~D$;"CLOSE D.EXEC"9::::D$;"LOCK D.EXEC":R YEARLY DIRECTORY :2:12:"YEARLY DIRECTORY":4::9:"ACTIVE MONTHS IN WHITE"6:11:"MONTH ENTRIES":7:11:"----- -------"J9:I112J:11:MNTH(I)0Ğ"I)K):KK1:JI1$:::D$;"CLOSE D.EXEC":PL WRITE INFO INTO MASTER hVD$;"UNLOCK D.EXEC"`D$;"OPEN D.EXEC, L4"jD$;"READ D.EXEC, R";S(M):N1:D$;"WRITE D.EXEC, R";S(M):N11:MNTH(M)N11tD$;"WRITE D.EXEC, R";S(M)D:N1:Z(S(M)IES":8804f:11:8:"- NO ENTRY FOR THAT DATE -"@p5100:^ MASTER INITIALIZATION ::::11:15::"INITIALIZING":D$;"OPEN D.EXEC, L4"I112D$;"READ D.EXEC, R";S(I):MNTH(I):K1:JS(I)1E(I):D$;"READ D.EXEC, R";J:Z(S(S0:500:)  READ SELECTED ENTRY i*:S1:2:13:"LIST AN ENTRY":3:10:"-------------------"41330:605: GET MONTH,DATE>F$MNTH$(M):MNTH(M)0860HZ(S(M)D)0870R:STZ(S(M)D):500: \:11:(26(F$))2:F$;" HAS NO ENTR CONTINUE""(16384)127720@A$:16368,0:A$(26)ı_F$MNTH$(M):MNTH(M)0860}R$;D$;"OPEN ";F$;", L40":D$;"READ ";F$;", R0":EDD$;"CLOSE ";F$:ST1:EMNTH(M):11:(25(F$))2:F$;" HAS ";E;" ENTRIES.":I13000:I )635DD1:VTVT1:6401 READ A MONTH j:2:11:"LIST A MONTH":3:8:"------------------"1330: SELECT MONTH :8:9:"THE MONTH SELECTED IS:":10:(40(MNTH$(M)))2:MNTH$(M):12:10:"HIT CTRL-Z TO ABORT":7:"ANY OTHER KEY TOҬұҲҳ͠Ҳ ҳ ұˣұҲҠˣ ұ ҲůұҲӠ ұҲՠ箍Ơנ󠰱䍠􍍠ҠӠŠӠӺǠҬ 򍠠ʠˍ򬍠箍򬍠蠠䍠䍠ύ䍠䍠ðƍ͍􍠠占ˍ占썠ðƍ占ԍ̠ӍİǠ占ƠԠ嬠󺍠ưƍ͍͍͠ؠٍôԠ򍠠ƠĠ፠򻍠ɠ򍠠İԠ占·ĠЏР̠占õ  ðԱóԠ򠭠卍 ҠԠƠӍƹŠŠƹ·ؠƹĶàÍٍµĠԸ占¶ԴƸҠҠ󍍠Ҡ٠ӺưӠ󠭠򍠠ƴˠ󠭠덠ؠ占򠭠򍍠ðʹ󍠠ð͸󍠠ðҠ報ðҠ堲ðԠ占ðӠF$:D$;"LOCK ";F$&+bJ13500:J:80M+0u:7:"CREATE D.EXEC (Y OR N) ? ";i+:u::A$:A$"Y"İ7000:80t+Du32767+}"PROGRAM TERMINATED DUE TO ERROR ";A9:"LINE # ";B9+"NOT A VALID DOS COMMAND."C*>b::A912Ė10:"NO BUFFERS AVAILABLE"k*Hb::A913Ė10:"FILE TYPE MISMATCH."*Rb::A915Ė11:"NOT DIRECT COMMAND"*\bA9925220*fb8:"DISK FULL, USE ANOTHER."+pbB9400B9500ĺD$;"WRITE ";F$;", R0":N:D$;"CLOSE ";30)Ė6:"THAT MONTH IS NOT INITIALIZED":5::"OR HAS BEEN IMPROPERLY ACCESSED") bA96B98030Ė10:"THAT FILE IS NOT ON DISK")b::A97Ė12:"VOLUME MISMATCH.") b::A98Ė13:"I/O ERROR....")*b::A910Ė10:"THAT FILE IS LOCKED."*4b::A911Ė8:06070(aB970707080&(a:G$:10(a(A95(B91040B91130))(A96(B91110B96100))Ė7:"NO MASTER FILE ON THIS DISK.":30000(aA94Ė8:"DISK IS WRITE PROTECTED.":8:"REMOVE TAB AND TRY AGAIN."N)b(A95(B9420B9520B9740))(A96B980"-----------------------"M'T5:8:"COMMAND > ";COMM$:COMM$"CATALOG"8040]'^D$;COMM$:q'h:D$;"CATALOG"'r(16384)1278050'|16368,0:'a ERROR HANDLING 'aA9(222):B9(218)(219)256'aA925580'aA91532000(aB9606 OF SLICES CANNOT BE LESS THAN 1. PLEASE TRY AGAIN.":270UKI1SL:SE(KI)01020tSE(KI)SE(KI1):SE(KI1)0KI:SLSL1:QUESTED CHANGE STILL TOO LARGE. PROGRAM TERMINATED. PLEASE START OVER.":1030h790:Q6Q61:Q62950"CANNOT MAKE THAT LARGE A CHANGE. PLEASE TRY AGAIN.":560790:"SLICE NUMBER CANNOT BE LESS THAN 1. PLEASE TRY AGAIN.":5409790:"NUMBERҠŠōӲȍӍàԠРӠŠčǫϠҠԠōӍԠؠ ˬ Ӳ 獪 卪à̍Ӳ̍ȍĠԠϠ̍̍ĠÍīύĠƸīύӠϠЍԍĠðǠҠӲٍ̩àīԠ͠ōÍӲȍàĠϠҠҍӲȍ 卪 򮍪 獪٠ҠàԠҠӍ̩٠ԠҍРӠԠ̠ҿ̠֠ōàǫЬŠōĠԠϠҠō֠àٍ̩̍̍Ҡ٠ԠΠӠ΍٠ҠȠҍ̠вԠРԍÍààŠԍРЍ̠бРŠԠӠ΍ ̩  獪 ŠҠ ԠҠӍ٠ȠĠ؍̩٠ŠƠ̠α̠ӠˍԠΠĮÍààŠԍбϠؠԠЍҠڍ٠ȍٍвٍ̩ĠƠƠȠϠԍ占ݠ򍍍ۍ 퍠ݠˠݠ􍠠ݠԠݠ􍠠ݠРݠݠΠݠݠ占󠱶󍍠ݠ̠占ݠР占ݠӠݠݠҲұ Ҳ ɠ􍠠ݠ󠸠󍠠䠭占؍Һ ҍҺ堧 򍠠Һ堢 􍠠ұ蠤ƸұҲҳ֠Ҳ ҳ ұˤұҲנˣ 퍠ұ Ҳؠ򍠠̠ ӠōΠՠĶԠՠĸō͠ՠŠՠ÷Π ԍԍҠΠ ōҠŠ ԍҠ͠ ƍҠԠ ïҍ ̮ Ԡ̠ՠōԠՠŠՠðΠԠŠ ō٠ԠĠ Ӎ̠٠Ϭ ԍĠӬ ÍԠŠ ԍҠԠ ԍӠōԠ κ κ ԠĠՠð 宬 ԠԠ ӍȠԠˠΠˍР ӍĠԠԠΠŠˍӠנŠנŠŧŠǍԠ ֬ àЫ ōĠЩ٠ ǍѠӠ ҽ Ǎ ԍҠԠ ҍРР ҍӠЫ ٳРՠԠՠčԠ̠ϠŠƠӠƠˍР ԍ̠ɠōЫ ύ٠ ǍРàР ҍŠĠ ԧ  Ԡ% Ԡ ЮЮ̮Ů      C(I)((1)200100) I" 1 6XL,C(1)SIN @I2N8 JXLI(PON),C(I)SIN? TIM ^Y10:700[ hY1H:700i rY1L:700o | L(L10.5)10:H(H101)10 S159(HL):IN(H159)(HL)  Y2SY1IN Y2(Y2.5) XL,Y2XR,Y2  I1N #Y RANDOM GRAPH DEMO BY DAVID B. GARSON CALL -A.P.P.L.E. * OCT. 1981 sdXL25:XR255:POXRXLnN50: FIFTY POINTSxC(N)1000L99999:H99999I1NC(I)HHC(I)C(I)LLC(I)I500,:3  30:470z790:830:500Y790:"NO SLICE NUMBER THAT LARGE. PLEASE TRY AGAIN.":540l790:830:730790:"AREA TOO LARGE. PLEASE TRY AGAIN.":560790:Q62950"CANNOT MAKE CHANGE THAT LARGE. PLEASE TRY AGAIN.":Q6Q61:560M"REE SCREEN.PLEASE INPUT NEW DATA":790:130l*790:"WRONG ANSWER. SHOULD BE Y OR N. PLEASE TRY AGAIN.":1104790:830:240>"WRONG ANSWER. PLEASE TRY AGAIN.":H790:830:250R790:830:390\790:830:410f790:830:460p790:8E AREAS OF THE SLICES ARE NOW:"::10);"SLICE";30);"AREA":J1SL:13);J;32);SE(J):J: "SLICES TOTAL MORE THAN 100%. PLEASE TRY AGAIN."::790:BE1100:SO(16336):SO(16336):SO(16336)::BE:) "CIRCLE WILL PRINT OFF THE EDGE OF TH350:710340:710%770u"WANT TO MAKE MORE CHANGES?(Y/N)";:Y$:Y$:16304,0:16297,0:Y$"Y"540{1030Z((A2)(R2)((YB)2)):P4Z:PQ(V2)P:RQ(PQ):TQPQRQ:UQ(TQ):QV(TUQRQ):QQ2:X(Q.5):[:::"THlSE(1)SE(SL)SE(1)NA:SE(1)((SE(1)1000).5)1000:SE(1)0İ1000`vXYNASE(SC):SE(SC)NATA0:ZC1SC:TATASE(ZC):ZC:SMTAXY:XY0:650:Q60:720SM1.0670SMSM1.0:700SM.75İ370:710SM.50İ360:710SM.25İ";SC:NA:NA1920\:TA0:ZC1SC:TATASE(ZC):ZC:SMTA:0:650:7:A,B:X,Y:SCSL610zDNA(SE(SC)SE(SC1))930NSE(SC1)SE(SC)SE(SC1)NA:SE(SC1)((SE(SC1)1000).5)1000:SE(SC1)0İ1000XSE(SC)NA:640bNA(SE(SC)SE(1))960EILE NAME TO BE USED TO SAVE SCREEN ";F$:D$(4):D$;"BSAVE ";F$;",A8192,L8192":1030p0:A,(B1):SL1ēA,BA,(BR):7:"ENTER THE NUMBER OF THE SLICE TO BE CHANGED ";SC:SCSL900&SC19800"ENTER THE NEW AREA FOR SLICE NUMBER 770["WANT TO DRAW MORE PIE CHARTS?(Y/N)";:Y$:Y$:16304,0:16297,0:Y$"Y"130"WANT TO DRAW CIRCLES?(Y/N)";:Y$:Y$:Y$"N"500Y$"Y"N$"N":130880"WANT TO SAVE SCREEN TO DISK?(Y/N)";:Y$:Y$:Y$"N"1030U"ENTER FE ANY SLICES?(Y/N)";:Y$:Y$:16304,0:16297,0:Y$"N"410LY$"Y"540"WANT TO ERASE ORIGINAL RADIUS?(Y/N)";:Y$::::Y$:Y$"N"460Y$"Y"520:Y$"Y"Y$"N"860SL1450SE(SL)SE(SL)SE(1):SLSL1:PQ1SL:SE(PQ)SE(PQ1):PQP hAN(SM360)180:T1:F1:Y((B(R(AN57.3))F).5):760:X,Y:::A,B: rT1:F1:AN(SM360)270:Y((B(R(AN57.3))F).5):760:X,Y:A,B: |I:SE(SL)(1000(1ST).5)1000:"SLICE NUMBER ";SL;" EQUALS ";SE(SL):770<"WANT TO CHANG";ST:SMST:ST1İ780:2701 ,ST.75İ370:380H 6ST.50İ360:380_ @ST.25İ350:380m J340:380 TT1:F1:ANSM360:Y((B(R(AN57.3))F).5):760:X,Y:A,B::: ^AN(SM360)90:T1:F1:YB(R(AN57.3)F):Y(Y.5):760:X,Y:A,B:Y/N)";:N$:N$:N$"Y"130* N$"N"500V "HOW MANY SLICES OF PIE?";SL:SL1990p SL1SE(1)1.00:410 "ST0:I1(SL1):"WHAT DECIMAL FRACTION FOR THE AREA OF SLICE NUMBER ";I;:"?";P1:STSTP1:SE(I)P1:"TOTAL SLICES TO THIS POINT EQUAL X" Y = "Y:I:K1T1:F15 K1D11:D2R:S11H K2T1:F1c K2D1R1:D20:S11u K3T1:F1 K3D11:D2R:S11 K:::N$"Y"270 "WANT TO PLOT MORE CIRCLES?(Y/N)";:G$:G$:G$"Y"130 "WANT TO DRAW PIE CHARTS?(US OF CIRCLE IN SCREEN DOTS ";R:(AR)279(BR)159(AR)0(BR)0İ790:800n V2A:T1:F1:N$"Y"160 D1R:A,(BR):CTCT1:CT,A,(BR)::170 A,B:D1R S11:D20:K14:ID1D2S1:YB(IF):760::X,Y:CTCT1::"CIRC = "CT" X = "@ PIE CHARTER BY B L WEBB CALL -A.P.P.L.E. * OCT 1981 ^d:7:D$(4):Q60:SE(50)n"WANT TO DO PIE CHARTS?(Y/N)";:N$:N$::N$"Y"N$"N"810xO "X COORDINATE OF CIRCLE CENTER ";A:CT0:"Y COORDINATE OF CIRCLE CENTER ";B:"RADI          @ J&%0Ȋ98` ɀ(IժU*?  ΍ˠЍàԍҠ ԍӠԠ ΍ŠŠˠ ΍ҠؠĵƵύӠ٠ čԠؠ΍٠ƍР٠٠ ĠҬ٠ ҍŠР čԠ٠̍Ӎ٠̍ЍР ׍̠Š̠Ӡ ҍĮήҮŮΠؠ̠ č٠Ƞ ө č٠ čҠΠ ҍ؍ҍ̩٠ ΍Ġˠ٬ ̠ՠ ԍȠՠɭ ōˠՠ ˍؠՠŵ ΍Πՠƴ ΍Ǡ̠Ӡ ÍȠӠ Í٠Ӡ Í%Ԡ Ů ЮЮ̮Ů Ԭ Ԡ  0,I279,I:; jI07:I:J20191:35I,J35I34,J:J,IC t: (771) 130: ,  INITIALIZATION P (4);"BLOAD HIRES SCREEN READ" HR16297:MX16301:GG16304: SCREEN SWITCHES L PAINT BACKGROUND WITH ALL 8 COLORS FOR TESTING VMD(A)((A256(A256))256.05)(A256) `:0:I020:D_ HIRES SCREEN READ DEMO BY RANDALL E. HALVERSON CALL -A.P.P.L.E. * OCT., 1981 id1000nHR,0:MX,0:GG,0: SET GRAPHICS MODE WITHOUT CLEARING BACKGROUND x:21"X?";X"Y?";Y768,MD(X):769,X256770,Y:772  ?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP `E`aȹE`a֤ȹE`a` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37; ؠؠİİİİİİİİؠİİİİİİİİؠİİİİİİİİؠİİİİİİİİҠؠؠؠؠؠؠؠijIJijčؠųŲųōؠ²Ƴ³Ʋ²Ƴ³ƍؠóòóÍؠijIJijčؠųŲųōؠ²Ƴ³Ʋ²Ƴ³ƍŠбŭϠΠӠӭΠҠؠóòÍؠÍؠijIJijčؠųŲųōؠ²Ƴ³Ʋ²Ƴ³ƍؠóòóÍؠԠȠӠƠԠŠŠԠҬ٠ԠנӠƠԠŠŠԠ٠Ġ٠ȠԠŠƠΠĠȠˠб٠ҠŠ٠ԠӠ٠ſ ԠӠΠΠ٠ӠŠҿŠРϭϠΠ٠Ԡˠ̠Š٠ԠԠҠנŠ٠ӠΠĿŠԠϭϠ̠ҠΠ٠ԠԠŠ٠Ҭ٠ŠԠҬ٠ĠנӠƠԠŠŠԠ٠Ԡ̠ŠĠ٠ŠԠ٠ԠԠŠƠΠР٠ĠҠȠΠ٠ŠԠΠŠԠנǠΠ٠Ġ͠ŭԠҬ٠ȠӠƠŠŠԠҬ٠ĠנӠƠŠŠԠ٠ԠŠҠҬ٠ĠȠӠƠԠŠ%Ԡ ɭ î ЮЮ̮Ů Ԯ Ԡ     :1,190:2,0:3,40' 2I120:24576:R <I039:2,I:3,I1:J120:24576::| FI039:2,I:3,I1:J1I:24576:: PI3901:2,I:3,I1:J139I:24576:: ZC WINDOW DEMO BY C KENNY FAN CALL -A.P.P.L.E. * OCT. 1981 OD$(4) (24576)(24580)260ĺD$"BLOAD HISCROLL":::"HI-RES SCROLL BY C. KENNY FAN"I0279:I401:I,0I,30:#SET WINDOW TO FULL SCREEN (0,255 z#???  ӠΠĠ ŠҠ ȠϠǮӠ  !ӠϮӠ"ӠϠנϠ̮Ӡ ̠ ΠϠ ӠΠĮӠ ˠϠԠΠŠͮӠ!Š͠ԠΠ ŠϠ ՠ ӠҮӠ ӠҠŠ٠%͠ˠϠˮӠ   -        - 1981  Ljpple Anthol- ogy, Vol V, Jan-Jun 1981 Version 1 Release date 7.20.81"" APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE 304 MAIN AV. SOUTH RENTON, WA. 98055 RUGETSOUND PROGRAM LIBRARY EXCHANGE 304 MAIN AV. SOUTH RENTON, WA. 98055 INEED ADDITIONAL SUPPORT. CONSULT APPROPRIATE CALL -APPLE FOR INFO.": + *+::"HIT ANY KEY FOR MENU"::32,0:.756:4:958:N2"Call -AIONAL SUPPORT. CONSULT APPROPRIATE CALL -APPLE FOR INFO.":B + l*+::"HIT ANY KEY FOR MENU"::32,0:.756:4:958:2"Call -Apple Anthol- ogy, Vol VI, Jul-Dec 1981 Version 1 Release date 2.20.82"c" APPLE PAVAILABLE":216,0:110)b(222)255Ħ3l::t'2::4:"CALL -APPLE ANTHOLOGY, VOL VI ":::34,5:11000:*8:"NOT ALL PROGRAMS ON THIS DISKETTE APPEAR IN THE MENU, THOSE WITH A [.S] SUFFIXARE BIG MAC SOURCE FILES.";+"OTHERS NEED ADDIT A R N"M>15:"O M Y G":16:"U";:40:"E";cH17:"N":18:"D"R:::10:" ":10:" P R E S E N T S ":10:" "\:34,23:I11200::::10000X(222)1ĺ"LANGUAGE NOT ";:33:" ";:39:" "":s "A P P L E":2:"P U R I X"*3:"P G O B C":4:"L E G R H"45:"E T R A A":14:"S 13:" ";:17:" ";:21:" ";:25:" ";:33:" "k " ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" "; 23:" ";:25:" ";:31:" CALL -APPLE ANTHOLOGY VOL VI JUL - DEC 1981 ":: I16:(I64)" "MENU$(I);:20:(I70)" "MENU$(I6):  :: 1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "/ " ";:5:" ";:9:" ";:"CHARSET GEN":MENU$(07)"KEYCODE DEMO":MENU$(08)"WINDOW DEMO":MENU$(09)"SCREEN DEMO":MENU$(10)"HIRES SCREEN READ" :MENU$(11)"PIE CHARTER":MENU$(12)"GRAPH DEMO": 0USE SUFFIX .L FOR BLOAD PROGRAMS; USE .R FOR BRUN PROGRAMS :T 2::" OADING "FILE$:BL260' D$"RUN"FILE$C BL0:I11000:::110 A$" CTRL-C_EXITS SELECT_BY_LETTER":MENU$(24) :MENU$(01)"APPLE DIARY":MENU$(02)"CRYPTOGRAM":MENU$(03)"TALK DEMO":MENU$(04)"SO WHAT":MENU$(05)"HUFFIN"u :MENU$(06)L(A$)120 190:1502 X(16384):X127ı^ :16368,0:KEYX192:KEY24KEY1180s FILE$MENU$(KEY) (FILE$,(FILE$)1,1)"."(FILE$,1)"L"ĺD$"BLOAD"FILE$:BL1:240 (FILE$,(FILE$)1,1)"."ĺD$"BRUN"FILE$:240 :10:10:"Ld =d " M E N U " BY VAL J GOLDING - 2.80 Pi2000:::500on1000:D$(13)(4):7000xL1:A$(A$,2,(A$)1)(A$,1):22(A$,1)" "Ğ(A$,1);LL1:(A$,L)" "ĝ:170(A$,L,1)" "Ğ (A$,L,1);::     ٠ƍ٠àԭͭŠͬ٠̠ͯӍŵƬ٠Ӎٍ̠ō٠ ͭ±ű±٠̠ȠҍƷ٠ԠӍٍ̠ű٠ŲƵ¬٠̠ ōƴ٠ĠՠĬ؍àĠƲٍ؍ŠӍҠà̠̠ЧӍŴÍŸĹĠҧӍŲ٠àĭ±Р±ٍư٠Ʋ±ٍ٠̠ŠƍŠЍؠˠȠŠōѠҠ٠ƠӠŽ٠ٍРàԠпŠҠȠƠԍÍ٠ŠŠȠЍҠٍÍ؍Ĭ؍à ƲŠȍٍ؍ٍӍȠӍ ҠԠԯŠŠ͍٠РĬٍŵ²ٍ٠ŠРƠӍ̠ЍؠԠحҍĬ؍ԠȠӍ؍Ĭ؍ĠŠΠĬƠٍРԠ̮ԠԠƠҮƠƍ٠ƍ٠ٍ٠ŠӠύ٠ŠčٍŠàԠԡѠ ȠƠٍààŠϠԍϠԠ΍àؠ³ÍРԴ؍ӠҠРРȠƠԠٍŠҍРԴ؍àҠȠƠԠٍҠÍàؽث؍ؠÍӠƠȠ٠έ؍٠Šȍٍά؍ŠӳӍԠ؍ŠŠȠƠԠٍѠӲӍӠÍ٠٠ŠՍàĠԍӳٍӲÍƍàԠſàӲȠƠԍİŠȠōٍٍ٠ŠנŠΠٍؠέ΍Š؍İԠȠŠ΍Рά؍ŠԠȠƠϠȍԠנŠΠՍРέ؍ŠԠȠƠϠȍϠӠŠӠȠƠԍ٠ԠנōàĠˠԍàӍРčӠӍàƴԠӠƮϠӠ ٠ԠůƮٍэŠӳӍΠРưҠàƠӍРðӠԠƠōӠ΍ٍР· ŠſŠؠȠƠԍ٠ԠנōàŸĠˠԍàӍРӠӍàƳԠӠΠ ōà ӍؠРµţàϠԠōؠԠؠ³ÍԳؠԳ؍РؠةҠƸŠŠŠ΍٠ƍ٠ŠӲȠƠȠٍРčàӲϠԠٍàԠōٍٍŠà٠Ԡ٠ōŠàРԲ؍àϠȠƠԠٍРԲ؍àϠȠƠԠٍÍàؽث؍ؠٍ̠ҍӠˠϠÍ͠àƠĠάŢؠčӠðԠ͠ĠðŠŠ͍ԠԠҍؠؠԱ؍٠Ա؍ŠӍϠÍǠѠՠƍŠӍźŠҍIJӠԿРčѠӠȠƠӍ٠Ҡͬ٠ԠҠōҠư ңӠҠ٠îҠ̠ЮЮ̮Ů̯Ǡ          lpx|~𷄝]V߼ȿBhzBB5zaM|wQTWZ\^`cegkޔ6G݀ $-H^ݭ_%H\ݭ]HZݭ[H`ݭa rsLNHhL{ K @ jLrs`au`hhHHL9DLQL#VXZdfLf Lf Lf Lf e fL䍁L׍L6 -Lf ]Lfl8 o,,(`l6LfLlll f ލ` f Lи fL fL f L f L f QLB'Byyyy-Bz9BEBWBWBWBfBlBrBxBBhBBBBBBimBXmB z5hDLw@@DiLj@AC@B@BCAC KB C@ CAB"@lL@ʽBi@ȽBi}@ΩL6 ݍ̹A_COkhC濹տ AuA LBPADL Lf @1ɝ @ `ƠĠάō#C@CCA @i@@AAACCi$΢D@DA@ /k@ɝe*ɷ@MIiՐɵA@餐;-7iϑ@ȩ53@ʭXCWC _C@Ƚ`C @i@@8/e@@eAA    qIv32,22:8:"USE THE [ESC]":"KEY TO SELECT":"THE DATE AND":"HIT [RETURN]":"WHEN READY"::"CTRL-Z TO ABORT":32,0{D1:VT5:HT9VT:HT:SE$SE$(26)ġ::::SE$(13)ıSE$(27)640VT20VT4:HT15DMT(M(A$)B(X)):XX1:XPX1&&T$;A$;:+A$(17)ĺ"?";C0520m5JJ1:STST1:KK1:K21İ5000::K1v:515?R$;D$;"CLOSE ";F$D5100:X INPUT DATE ]4:958:VT5:HT11bI1MT(M)gVT:HT:VT20VT4:HT17lI:VTVT1E ";F$D$;"LOCK ";F$%1100:7 READ FILE T:J1:K1:X1:SC32767rR$;D$;"OPEN ";F$;", L40"D$;"READ ";F$;", R";STA$:SA$(6)575 A$(6)520SSTED575A$(19)X1:520A$(13)ĺ::565!A$(;F$D$;"OPEN ";F$;", L40"<D$;"READ ";F$;", R0"::NeD$;"WRITE ";F$;", R";N1:(19):K1vJN2NI1D$;"WRITE ";F$;", R";JA$(K):KK1JD$;"WRITE ";F$;", R";NI2:(6)D$;"WRITE ";F$;", R0":NI2D$;"CLOS "225'LF1ĺG$;:225O,(LINE$)1ĺA$;:868:LF1:LINE$"":J1:310~1A$;:868:LINE$(LINE$,(LINE$)1):JJ16XX1:X1XP8225; WRITE ENTRY INTO FILE :::::11:17::"WRITING":::SC32767R$;D$;"UNLOCK "ġ:A$(13)275'A$(8)2959(A$)32225OJ39ĺG$;:::225XA$;mA$"?"A$(17) LINE$LINE$((A$)B(X)):JJ1:LF0:XX1:XPX1225A$(I)LINE$:LINE$"":II1:KK1:J1:LF1:K22ĺG$;G$;K23K1:NE INPUT SUBROUTINE -I1100:A$(I)"":I:9:8::"HIT A KEY TO BEGIN ENTRY"::11:9:"CTRL-F TO FINISH ENTRY":9:"CTRL-Z TO ABORT ENTRY"5110:A$(26)ġ::I1:J1:K1:X1:LF1:LINE$"":SC32767A$:A$(6)315A$(26)S:":10:(38(MNTH$(M)))2:MNTH$(M);" ";Ds12:7:"HIT CTRL-Z TO ABORT ENTRY":7:"ANY OTHER KEY TO CONTINUE"(16384)127180A$:16368,0:A$(26)ı:15:11::"CLEARING WORKSPACE"::F$MNTH$(M):D$;"LOCK";F$:200:400: LI":8:"---------------------------":1330t:2:11:"PLEASE SELECT A DATE":8:"--------------------------":600:Z(S(M)D)0ė:G$:10:::8:"SORRY, YOU ALREADY HAVE":8:"AN ENTRY FOR THAT DATE.":I13000:I:+:8:9:"THE DATE SELECTED I ":"HIT [RETURN]":32,02 sSE1:VT11:SC32767V xVT:2:SE$:SE$(13)Ģ20:135 }SE$(27)VTVT1:SESE1:SE10115 120 SE1200,1300,800,700,150,6000,7000,8000,32767 85 WRITE AN ENTRY ):2:11:"PLEASE SELECT A MONTHRY BY YEAR":"DIRECTORY BY MONTH":"LIST AN ENTRY":"LIST A MONTH":"WRITE AN ENTRY" i:"INITIALIZE A MONTH"::"INITIALIZE MASTER":"ENTER DOS COMMAND"::"EXIT PROGRAM" n32,24:11:"USE THE [ESC]":"KEY TO MOVE THE":"CURSOR TO YOUR":"SELECTION ANDA,CTRL-D,BELL,RETURN$ K2000:10006 P MAIN MENU U34,0:::I140:"@";::7:I140:::"@";::I26:I:1:"@";:40:"@";: Z:3:9:"APPLE DIARY VERSION 1.0":5:9:"WRITTEN BY DAVID MILLER" _32,3:11:SCĹ32,0:32767T d::"DIRECTO,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERv 7 1,33,63,95,126,158,189,221,253,284,316,347 < 32,62,94,125,157,188,220,252,283,315,346,378 A 31,28,31,30,31,30,31,31,30,31,30,31 FT$(1):D$(4):G$(7):R$(13): CTRL-SG #MNTH$(12),MNTH(12):I112:MNTH$(I):::I: ARRAY OF MONTH NAMES (S(12),E(12):I112:S(I):I:I112:E(I):I: ARRAYS FOR START AND END OF MONTH RECORDS -B(20),MT(12):I112:MT(I):I: MT HOLDS # OF DAYS IN MONTHE 2 JANUARY,FEBRUARY# ******************************** * APPLE DIARY 1.0 BY * * DAVID C. MILLER * * CALL -A.P.P.L.E. * JUL-AUG 81* ******************************** 25000 ARRAY INITIALIZATION  A$(100),Z(400): MAIN ARRAY             5030Y$"35B:8D 86 03 A9 07 8D 87 03 20 67 03 60 A2 00 BD 80 04 C9 C1 30 18 C9 DB 10 14 38 E9 C0 A8 B9 40 03 18 69 B0 C9 BA 30 03 18 69 07 9D 00 04 E8 E0 28 30 DC 60 N D823G"I1(Y$)511I,((Y$,I,1))128:72,0:X511I,((Y$,I,1))128:%72,0:Y$"300:20 67 03 A9 00 8D 6A 03 A9 07 8D 6B 03 A9 80 8D 86 03 A9 06 8D 87 03 20 67 03 A9 A8 8D 6A 03 A9 05 8D 6B 03 A9 28 8D 86 03 A9 05 8D 87 03 20 67 03 A9 50 8D 6A 03 A9 04 8D 6B 03 A9 A8 4C 5B 03 N D823G"9 50 8D 5E 03 A9 04 8D 5F 03 20 5B 03 60 N D823G";4030Y$"341:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 A0 00 B9 80 04 38 E9 80 C9 41 30 08 C9 5B 10 04 AA FE 00 03 C8 C0 28 D0 E9 60 N D823G"I1(Y$)(X):"*":X:620 (3NQ)1 Y(1P)(40P)C Y(C$)3050j (C$,Y,1)(S$,N1,1)Ė(YP):V$;q Yw 1Y$"300:A2 41 A9 00 9D 00 03 E8 E0 5B D0 F8 20 5B 03 A9 00 8D 5E 03 A9 07 8D 5F 03 20 5B 03 A9 A8 8D 5E 03 A9 05 8D 5F 03 20 5B 03 A)P(N$)):34,20:Rt22:"OPTIONS: OK, REDO":32,25:33,14:34,21:35,22::O$q~O$"OK"ĉ:34,19::1110C$(C$,1,P)N$(C$,P(N$)1,(C$)P(N$)):34,19:::X1(N$):(Z$,X,1)(N$,X,1)ĂX:620(Q2):(X):(N$,X,1):(Q1):10808(C$)P1ī6209B(C$)P40Z$(C$,(C$)P)ZL(C$)P40Z$(C$,1P,40)V:Z$:23:"TYPE ";(34);": USE RIGHTARROW TO POSITION: CORRECT: PRESS 'RETURN'";:20:39:N$`(N$)(Z$)N$(N$,(Z$))j:N$;:(C$,P(N$)1,(C$640X139:(NX),160:3(N)170ĹN,1709::6:4:"GOODBYE":X11000::9:4:"SEE YOU AGAIN SOON":X13000:::::22:14:"PLEASE STAND BY"$400/P0:Q0:10800P40:Q5:10801P80:Q10:10802P120:Q15:$,5,1))4620C (S$,4)"CORR"Ĵ((S$,5,1))1071,1072,1073,1074K N9b (S$,2,1)"="N0 (S$,3,1)"="(S$,1,1)"2"N1 N9690 *V$(S$,3N,1) 4 >P0:Q0:3000 HP40:Q5:3000 RP80:Q10:3000 \P120:Q15:3000fF S$"ERAS1"N1280:900:N1920:900:N1576:900:N1232:900::690 S$"ERAS2"N1408:900:N1064:900:N1704:900:N1360:900:690 (S$,4)"ERAS"690 S$"END"ī1000 S$"NEW"ī1050 (S$,4)"CORR"ĉ:34,19::((S$,5,1))1((S144:5020:144:7683 bS0:X126:SS(832X):w l21:"LETTER COUNT = ";S:22:14:" ":X11000: v23:"OPTIONS: ERAS1, ERAS2,":24:"END, NEW, CORR1,2,3, OR 4"; 32,33 33,7 34,20 35,22  (7);(7);:S$ 2:(C$,1,40)' 7:(C$,41,40)< 12:(C$,81,40)R 17:(C$,121,40)^ 3:"*"j 4:"*"v 8:"*" 9:"*" 13:"*" 14:"*" 18:"*" &19:"*" 050 :22:14::"PLEASE STAND BY": D255 N768 X5000:JZ" 212:19:"BY":100A <15:14:"RONALD MINTZ":100:100:o F22:7:"COMMERCIAL RIGHTS RESERVED":255x P400 dX11000:: 4000:144:4020:144: 4:"TYPE ";(34);" AND INPUT CRYPTOGRAM" 10:C$: (C$)160C$(C$,160) J CRYPTOGRAM BY RONALD MINTZ, MD CALL -A.P.P.L.E. * JUL-AUG 1981 u::9:15:"CRYPTOGRAM":50:100:1005:7:"ETAONISRHLDCUPFMWYBGVKQXJZ"150X014:Y63327:(5X):Y:"*":Y:X#50 (19:7:"ETAONISRHLDCUPFMWYBGVKQX     CT$"EXIT"ġ:'NCT%100CT%120030CN10,CT%:11,LS%:12,MS%qN3:958:"PAGES = ";CT%,"ADDRESS = ";AD$wN0u:38400:"$"HX$(AD$,(AD$)1):10030:ADDE? zNADDF%AD1280020030] NMS%AD256:LS%AD256MS% N10:"ENTER NUMBER OF PAGES (256 BYTES/PAGE)" N"1-100 VALID, OR 'EXIT' FOR MENU: ";CT$:CT%(CT$):(256CT%AD)38399ĺ"TOO MUCH MEM REQ'D!!":20030N65TM70TMTM55:DEDETM16((HX$)I)2 B'I: >N3:"ENTER START ADDRESS OF SAVE AREA ":"'D' FOR DEFAULT TO ";DF$:"'EXIT' TO QUIT":"USE $ PREFIX IF IN HEX" HN"ADDRESS: ";AD$ RNAD$"EXIT"ġ: \NAD$"D"AD$DF$ fNAD(AD$)$ pN(AD$,1))102050 PN1(PN$)6 10,CT%:11,LS%:12,MS%? *850G 4PNs >10:958:"MORE PLAYBACK? (Y/N): ";RE$ HPN$"Y"2030:PN$"N"20170:2110 .'DE0:I1(HX$):TM((HX$,I,1)):TM48TM57TMTM48:DEDETM16((HX$)I):10050) 8'TMEN READY, HIT ANY KEY AND START AUDIO":G$::"RECORDING":D $768^ .:"STOP RECORDING": 8:"HIT ANY KEY WHEN READY TO PLAYBACK":G$ ::15::"PLAYBACK": 20030 5:958:"PLAYBACK LOOP COUNT (1-10)? ";PN$ (PN$)12050:(PN$"::3:16:"OPTIONS":5:"1 RECORD (INCLUDES PLAYBACK OPTIONS)":9:"3 END SESSION"y 11:5:958:"SELECT ONE: ";SE$ SE$"1"1030:SE$"2"2030:SE$"3"30000:(SE$)1240:(SE$)3240:200 ::17::"RECORD": 20030; 5:958:"WH TALK DEMO * BY B C DETTERICH CALL -A.P.P.L.E.* SEPT,1981 Demo of infinitely clipped speech Uses cassette and speaker I/O 4096:DF%4096:DF$"$1000":D$(13)(4):::255:D$"NOMONCIO"D$"PR#0"D$"BLOADMAXTALK"T :15::"LONG TALK     ҠŠӠŠԠŠв̠ŠӠԠӠϠŠӠϠՠ čҠԠ ōؠŠбŠӠԠϠР٠ԠŠԠҠŠԠŠвԠӠϠ٠ΠŠàҫԠŠԠàԠŠΠΠԠ̠ԠϠŠŠϠϠΠԠŠŠϠŠŠԠԠĠҠϠԠŠˠРԠŭנԧӠŠĠŠ̠ŠԠԠԠϠԠΠϠŠנ̠ӠŭԠŠҠέŠ٠ˠҿвؠȠȠҩ٠ ōŠԠΠԠŠбŠԠ٠ҠԠҠŭԠԠĠҠàԠŠӠŠŠРŠӠԠӠϠŠӠϠŠӠ Ԡ 卪àנҠŠˍɠԠРŠҩ֠ĠΠϠԠŠŠРԠӠԠɠŠӠϠҩ٠ ٠Ԡ٠ҠԠŠĠŠРԠˠϠϠԠàҫӠϠРɠҠԠĻ ٍ̠ŠנŠԠϠԠŠРР٠ϠРŠ̠РϠԠРӠР ͍ҠԠԠ٠ҠΠ͠ؠ ҍԠ 卪àŠҠٍɠ֠Ġ٠ŠӠԭؠРؠŠӭҭŠԠРΠĠŠΠ̠ՠð ōԠՠð ōԠՠ ҍҠՠ  ԍŠՠ ӍԠՠ ōԠՠ %X Ԡ ® î ЮЮ̮Ů Ю ԠǠ ͍Πՠð ƍԠ     Xؠ`*&  `Xة E 0   Xة E 0   `SEPT. 1981  YI0H J0V( J,I)JW,I)4706 GJ1,I)A J,I)K FF1V J1,I] Gf J,Im Jt I~ 1000 F0ij 23 F (7);(7) 200  SO WHAT DID YOU EXPECT DEPT BY TOM CRAWFORD CALL -A.P.P.L.E. *  PW1YZ!dI039-nJ039>xC((1)16)ECNI,JUJ\If1000nF0wV38H39,I0H1J0V6I,J)I,JW)370EGI,J1)JI,J)OFF1TI,J1^GhI,JrJ|I   CLOSE"P#4703' MINOR MODS BY VAL J GOLDING OLDING B:J:" "L$:L$"":Y(0):LNLN1_LN20INFĺ:"HIT [C/R] TO CONTINUE ":I$::V$": ";:LN1hI:~(# ERROR HANDLER 2#D$(4)ĺD$"PR#0":D$"NOMONO"<#::GS$"ERROR ";(222);" AT LINE ";(218)(219)256F#216,0:(DR2PA0)D$(4)ĺD$"1:4000:BFBF1:SE\V$"":NLBUFF6:I1(NL):V$V$((NLI)):I:V$":":L$"":Y(0)LN1:NF(BUFF16):NFĺG$;::"[NO FILES]":::"HIT [C/R] TO CONTINUE ":I$:::I1NF:STBUFFI266:NL(ST):NL5060J1NL:L$L$((STJ))S10 TMP7S215 6 *** CALL RWTS *** [TK,TR:SC,SE:HB,BF:ER,0:RWTSi(ER)ıD$(4)ĺD$"PR#0":D$"NOMONO"::G$"RWTS DISK ERROR ";(ER):::9020 *** PASCAL DIRECTORY *** ::BF(BUFF256):TR0:SE114B1:SES1:4000$BFB2:SES2:40006BLBK1:3000LBFB3:SES1:4000b BFB4:SES2:4000DR1ĺ(7)"INSERT DOS DISK AND HIT RETURN ":I$::  *** BLK -> TR/SE ***  TR(BL8):TMP(BL8TR)8 S22(7TMP):S1S21 TMP(N$)(PT)LN1110%J1LNE(PTJ)((N$,J,1))1110L$Jg.TP(PT6)(PT5)2568BT(PT4)(PT3)256BTY(PT2)LVPTPT26:NUNU1:NU01030`TY1: *** READ 2 PASCAL BLOCKS *** BLBK:3000BF:I$::2000:330:CD$(4)ĺD$"CLOSE":D$"NOMONO"t:4:"ANOTHER FILE ? ";:I$:I1:I$"Y"200HI2100::  *** FIND PASCAL FILE *** BF(BUFF256):TR0:SE1141:4000:BFBF1:SENU(BUFF16):PTBUFF32:LN!^C(I):C16A$A$(C):410AhC13ĺA$:A$"":Y(0):410PrC16400m|II1:SP(I):SP33410S1SP32:A$A$" ":S:410C0IBUFF1023IBKBK2:BKBT450DR1ĺD$"PR#0"::(7)"INSERT PASCAL DISK AND HIT RETURN";:J1:N$:N$""470:200h,1000:TY3BTTP4ĺ::G$"FILE EMPTY, NOT TEXT OR NOT FOUND"::J0:2906:B1(BUFF256):B2B11:B3B21:B4B31:BKTP2:2000@A$"":(4)"OPEN"N$",S"TS",D"TD:D$(4):D$"MONO"JD$"WRITE"N$TIBUFFBUFF1023):"INSERT WRITE PROTECTED PASCAL DISK":290 J300::"WRITE PROTECT PASCAL SOURCE DISK AND INSERT IN SOURCE DRIVE":"INSERT DOS 3.3 TARGET DISK IN TARGET DR""J300::"(HIT [C/R] FOR DIRECTORY)":"FILE NAME: ";:N$:(N$)İ5000:"FILENAME: "(I$):8:"DRIVE: ";:I$:I$:SD(I$){ :"TARGET DISK: ":8:"SLOT: ";:I$:I$:TS(I$):8:"DRIVE: ";:I$:I$:TD(I$) SS1SS7240:TS1TS7240:SD1SD2240:TD1TD2240 SSSS16:SSTS16SDTDDR1, IOB1,SS:IOB2,SD:DR1ĺ(7:2:16:"HUFFIN":5:" PASCAL TO DOS TEXT FILE CONVERSION" 7:10:"BY DANA J. SCHWARTZ":10:"WASHINGTON APPLE PI":10: I140:" ";::23:I140:" ";:: :11:34,10:35,22:DR0270% I250:"SOURCE DISK: ":8:"SLOT: ";:I$:I$:SSRWTS13,141:RWTS14,MOD(ER):RWTS15,(ER256):RWTS16,96 IOB,1:IOB3,0:IOB6,MOD(DCT):IOB7,(DCT256):IOB8,MOD(BUFF) IOB10,0:IOB11,0:IOB12,1:IOB13,0:IOB14,0:IOB15,96:IOB16,1: DCT,0:DCT1,1:DCT2,239:DCT3,216< 36:BUFFHI40? TKIOB4:SCIOB5:HBIOB9:G$(7):PA0:DR0 RWTS,169:RWTS1,(IOB256):RWTS2,160:RWTS3,MOD(IOB):RWTS4,32:RWTS5,217:RWTS6,3:RWTS7,176:RWTS8,1:RWTS9,96< RWTS10,173:RWTS11,MOD(IOB13):RWTS12,(IOB13)256:4 HUFFIN PASCAL/DOS CONVERTER BY DANA J. SCHWARTZ WASHINGTON APPLE PI CALL -A.P.P.L.E. * OCT., 1981 dHI(115)(116)2562100:HIn9000xMOD(X)(X256(X256))256 RWTSHI:ERHI17:IOBHI18:DCTHI     䍠䍠䍍ð 占ðҠ򍠠ðР⠠䍠䍠占䍠䬠嬠⬠䍍ӍɯϠӺðĠ፠ðǠ󠭠򍠠䍠􍠠䍠占ԍ򍠠򍠠䍠򍠠Ġ򍠠Π䍠 Ơ堳󠲠䠴ˠ򍠠Ԡ򍠠̠򍠠ȍč䍠򍠠ƠȍҠ򍍠 Ӻԍ󠱠䠲󠳠䠴΍󠱠򍠠Ƞ̠ᠱȠ̠ᠲȠ̠ᠳȠ̠ᠴ ȠàŠĠ֠Š̠ԍĠǠ٠ԍŠ̠占ƠȠ̠占Ƞ̠Ġ󍠠Ơ󍠠Р󍠠Ԡ䍠 ԠƍàǠؠ썠ư󍠠͠獠썠占獠󍠠󍠠ĠӲ̸堲󍠠Ӳȸı報򍠠占썠IJ堲򍠠占àȠĠ֠Š̠報󍠠Ơȍ̸堲󍠠ȸӲ̠報󍠠Ӳȍɠ򺍍ϠŠӺԠԠۍР ͠Ӡ¬󮍍ɠ占č󮠠ɠ嬍ɠ%wŠϠŠӍӠ¬ĠŠҠ٠Ӎ٠Ӎ堯ۍɠ荠            1:HP6HP6# A$"P"Ġ15:HP,VP= $A$"E"Ġ0:HP,VP:15Q )A$"Q"ĉ:::c .A$"D"1000{ SAVE CHAR IN TABLE OF:AD81921024(8OF) I07:X0 J06:XX2(6J,I)0) J:ADI,X I :VP0:HP0 10001K HIRES CHARSET GEN BY WAYNE THROOP CALL -A.P.P.L.E. * OCT., 1981 gVP0:HP0:HOR&VERT POSo:~(15:WHITE28192A$A$"W"VPVP1:VP0VP0A$"Z"VPVP1:VP7VP7A$"A"HPHP1: