L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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- ( t Ϡ@跻~!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`(ZX$)42340". 5"8 "TO: (FROM,TO)?";ZZ$,ZX$:="B :Y"L CD$;"OPEN ";CB$;L$;DD$f"Q ZZ$,ZX$"V CD$;"READ ";CB$;",R0""` X"j A1"t N1X1"~ CD$;"READ ";CB$;",R";N" DT,CN$,AM,T0$,CE$" (YN$)2500,2520,2540,2560" 6# A$(A)N$)5422300!(YN$)2310,2330,2340,2360,2370:!2380! "DATE (FROM,TO)?";M1,D1,Y1,M2,D2,Y2:ZZ$(Y110000M1100D1):ZX$(Y210000M2100D2):(ZZ$)6(ZX$)62310! ! "CHECK (FROM,TO)?";ZZ$,ZX$:"$ "CODE (FROM,TO)?";ZZ$,ZX$:(ZZ$)4,0:YN$:YN$"C"1950 2  SORT&SEARCH P ::"SORT,SEARCH, TOTAL"i ZZ$" ":ZX$" ":TT0 "ENTER SECTION TO BE SORTED UNDER" "1. DATE":"2. CHECK NUMBER":"3. CODE":"4. TO:":"5. QUIT" 16368,0 !"->";:YN$:(YN$)49(Y- ::12::"IAC DISK VOLUME 26"::34,2w:"THIS DISK CONTAINS PROGRAMS SUBMITTED":"BY THE FOLLOWING CLUBS:" :5:"THE APPLE FRITTERS OF RHODE ISLAND":5:"THE BRASIL APPLE CLUBE":5:"THE MARYLAND APPLE CORPS":5:"THE ERIE APPLE CRUNCHERS !Ǡ-]ˠ].]ӠӠà']ͮ ]Š]ïϠŠܠ]ЮϮؠ!]ԬӠ],]ˠǠ]']ٺΠ(]6@r$Nd6?e_  NY_ AQ>BUVW$d.?Jr.?Kre=>r=>rY7Cq.?%roPa()GPa()o[Q]]Ġ٠Ӭ]ӬӬ]ҠӠϺ]dM6-q.?6@r`$d6?e`$ >PM6da()E@E(ǠˠԠçϠ)GM6*qUVWq8rI&q=>r`8 8@9()@9()rr8@9()r$D0\Ba@E@E@#D`.? T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `qO ɏ5OPLɏ Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃLh` L``F`$ ܪȱ Lܤ`Ś25 a0 LJLJKH۰hЅѠȱ0@ȱHШhh0J L赟0LՓ0ܤ } ɑL赟L0ܤ } ɑL ` ` [ S oP YVPL6 ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` ăL: i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕKʵ˕{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)OO0 >:"NAME OF NEW FILE ?";R$+HI1QFRCD$;"OPEN ";R$;L$;DD$b\CD$;"WRITE ";R$;",R";If(A$(I));XX$;B$(I);XX$;(E$(I));XX$;D$(I);XX$;C$(I)pIzC$;"WRITE ";R$;",R0"QCD$;"CLOSE" "(C) CONTINUE, (M) FOR MENU?";:16368EMENT ";:(X$)0ĞX$:,XCO:3790S:"TOTAL CHECKS/DEPOSITS OUT ";X$e XBBCO:3790::"CHECKBOOK BALANCE ";:(X$)0Ğ X$:%CD$;"PR#0"*XX$",":16368,04"DO YOU WANT TO SAVE ALL CHECKS NOT IN?";:YN$:YN$"N"221$:YN$"E"Ĺ34,0:::v"9 BANK VERIFY ]:"BANK STATMENT-VERIFICATION"jCO0:Q1FF5: SET FLAG AND GOTO BALANCE ROUTINE"PLEASE GIVE STATEMENT'S"1460XBB:3790"PRESS A KEY";:YN$::"TOTAL ON STATBAM&XBB:3790"0(BB)0Ğ5:36,(39(X$))?DX$:ENnX"?";:YN$:YN$" "XAM:3790:1810bX$"------":COCOAM:A$(Q)(DT):B$(Q)CN$:C$(Q)CE$:D$(Q)T0$:E$(Q)(AM):QQ1:AM0:1810l"(C) TO CONTINUE,(E) TO END?";:16368,0:YN0:1900RR1NYY(DT10000):MM(DT100)YY100:DDDTYY10000MM100Y(R3)MM;",";DD;",";YY;:36,10:CN$;:36,15:CE$;XAM:3790:(X$)0X$"# "X$36,(30(X$)):X$;FF5188036,(39(X$)):X$:"TO:";T0$;BBBFL1hCN$CC$CN$"A"1660(r1720/|T@CD$;"CLOSE"LFF5ı\CD$;"PR#0"::"END OF CHECKS":16368,0:"(M) FOR MENU,(C) TO CONTINUE?";:YN$:YN$"M"Ĺ34,0:YN$"C"14401690CD$;"CLOSE"PP1ī1740R6R5:"AMOUNT";:36,35:"TOTAL"&34,1BCD$;"OPEN ";CB$;L$;DD$]CD$;"READ ";CB$;",R0"dIuCD$;"CLOSE""T1I1,CD$;"OPEN ";CB$;L$;DD$6CD$;"READ ";CB$;",R";T@DT,CN$,AM,T0$,CE$JFL11640TCN$CA$CN$"A"1660^TARTING CHECK,(ENDING CHECK+1)?";CA$,CC$t(CA$,1,1)"A"(CC$,1,1)"A"ĺ"DO NOT USE DEPOSITS FOR INPUT":1480CC$""CC$"ZZZZZZZZ"PP0"PRINTER?";:YN$:YN$:YN$"Y"PP1:4070"DATE";:36,8:"CHECK";:36,15:"CODE";:36,21350 P'ZCD$;"OPEN ";CB$;L$;DD$3dXX$","PnCD$;"WRITE ";CB$;",R";TwxDT;XX$;CN$;XX$;AM;XX$;T0$;XX$;CE$CD$;"CLOSE" BALANCE BOOK :"BALANCE CHECKBOOK"FF0:Q0FL0:R0"BEGINNING BALANCE?";BB("S)?";M1,D1,Y1:M112D131M11D11Y199YY001270QDTY110000M1100D1:r "TO: ?";T0$:(T0$)271290(T0$,1,1)"#"AM(AM):1320AM((AM))(2"NEW AMOUNT ?";AM:(T0$,1,1)"#"AMAM<F"NEW CODE ?";CE$:(CE$)43. TO:"" 4. AMOUNT"5" 5. CODE"J" 6. END"X16368,0" ->";:YN$:(YN$)49(YN$)541210(YN$)1260,1270,1290,1330,1350,12501080:1370"NEW CHECK NUMBER ?";CN$:5"NEW DATE (MM,DD,YY100 BJL"DATE";:36,10:"CHECK ";:36,20:"CODE";:36,30:"AMOUNT"VMM;",";DD;",";YY;:36,10:CN$;:36,20:CE$;:36,30:AM`"TO: ";T0$j:t"ENTER SECTION TO CHANGE:"~" 1. CHECK NUMBER"" 2. DATE"" N$,AM,T0$,CE$CN$CA$1070&T7CD$;"CLOSE"E16368,0"CHECK NOT FOUND, ENTER (C) TO CONTINUE":"OR (M) FOR MENU ?";:YN$:YN$"C"900YN$"M"ı$1030.CD$;"CLOSE"8YY(DT10000):MM((DT100)YY100):DDDTYY10000MMN$"Y"ė:590p,z CHANGE CHECKS B:"CHANGE CHECK"b:"ENTER CHECK NUMBER";CA$~CD$;"OPEN ";CB$;L$;DD$CD$;"READ ";CB$;",R0"ICD$;"CLOSE"T1I1CD$;"OPEN ";CB$;L$;DD$CD$;"READ ";CB$;",R";T DT,CCD$;"OPEN ";CB$;L$;DD$5 CD$;"WRITE ";CB$;",R";I\*DT;XX$;CN$;XX$;AM;XX$;T0$;XX$;CE$f4II1>CD$;"WRITE ";CB$;",R0"HIRCD$;"CLOSE"W"WRITE CHECK TO PRINTER?";:YN$:YN$:YN$"Y"İ5000\16368,0 f"ANOTHER (Y/N)?";:YN$:Y710*"AMOUNT ?";AM:(T0$,1,1)"#"7405AMAMx:"CHECK NO. >";CN$:"DATE >";MM;",";DD;",";YY:"AMOUNT >";AM"CODE NAME >";CE$16368,0:"CORRECT (Y/N) ?";:YN$:YN$"N"CN$((CN$)1):600 XX$",":DT10000YY100MMDDERR-CAN'T AUTO NUMBER AFTER A DEPOSIT!!":((37)1):640ECN$C1${"FOUR DIGIT CODE ....";:(16):C1$:(C1$)4680C1$""C1$CE$CE$C1$"TO: ...........................";:4:T0$:(T0$)27(T0$)1ĺ"LENGTH ERROR":I12000:I:";:(4):D1$:D1$""D1$(DD)TlDD(D1$):"YEAR ..";:(5):Y1$:Y1$""Y1$(YY)vYY(Y1$):MM12MM1DD31DD1YY99YY1ĺ"DATE ERROR":I12000:I::600"CHECK NUMBER ?";C1$:C1$""CN$"A"C1$((CN$)1):670C1$""6709" "::" CD$;"OPEN ";CB$;L$;DD$= CD$;"READ ";CB$;",R0"M I:I1570k &CD$;"READ ";CB$;",R";I1 0DT,CN$,AM,T0$,CE$ :CD$;"CLOSE" D"LAST CHECK WAS ";CN$ N16368,0 X:"MONTH ..";:6:M1$:M1$""M1$(MM)bMM(M1$):"DAY ..CD$;"WRITE FULL FILE,R";I" + 380= (222)255ĦJ I0450f CD$;"DELETE FULL FILE" :12:"THERE ARE ";((I256)55);" FILES ON THE DATA DISK" "KEY?";:YN$:YN$ 3870 90  ADD ROUTINE  "ENTER CHECKS16287)128ĕ1LX,LY: DONT ERASE LAST POSITION IF BUTTON ON PDL 0 IS PRESSEDe <1X,Y:LXX:LYY:40BLE POINTERS ($E8,$E9)% :1:0:7> #110,10:LX10:LY10 (X(0):Y(1):X5(X5)260(X260)X(X5X260):Y5(Y5)150(Y150)Y(Y5Y150):XLXYLY40 ) USE PADDLES TO MOVE SHAPE, SKIP DRAW IF NO MOVEMENT TO PREVENT FLICKERL 2(f SHAPE MOVEMENT PROGRAMC LINES 10-20 LOAD TABLE AT $300I 1,0,4,0,18,63,32,100,45,21,54,30,7,0: DATA FOR SHAPE TABLE IN A.S. BOOK PAGE 94 I114:X:767I,X::232,0:233,3: LOAD SHAPE TABLE IN MEMORY ($300), SET A.S. SHAPE TAc d2e7$d6?ea(ϠŠ)Gd2e?a() )d2e2.q.?6@r`$.`$8d6?e_ 8d6?e BM6Q)ca(٠Π)3o a(Ӡ̠͠Š̠Ӡ)&a(ӠΠҠˠԠŠ)d2e?a() d2ec*a(ƠՠϠԠȠϠŠ)/a(͠Ӡ)Gd2e?a(à)-rڲq-r(d-re<()rd<eڱd=eڱd>eڲd?eڲ&dBe0dCe :M6Dd eSa@E(Š)E@Tq_Xa@E()Q KM6a(ˠ̱͠O-rq-rqO-rq ,M66]@]àJ]Ta@E()^]h]Ƞr] qڱq.?-rrڲq.?-rr`ڱ<()rڲ<()r%_q`%__XڱqWF-rq-rPYZ- rq'd- rqn- rq'x- rq- rq'-rq-rq'-rq-rqO-rq-rqO-rq-rq_]Ԡ ]]Π] N@"r!@p() #@p()$a@E(ΠɬϬ)(O4r-O4(r /N@"r#0@p()2-rq<UV     D$;"WRITE ";CB$;",R0" 1- "CD$;"CLOSE"B , DISK FREE TEST[ 6 BY DARRELL ALDRICHo @ IN CALL APPLE J16368,0: T"DO YOU WANT FILE SPACE CALCULATED ?";:YN$:YN$"Y"470 ^420 hI0 rCD$;"OPEN FULL FILE,L256";DD$ |II1 (YN$)500,900,1440,1950,2230,3480,3540,1804 90Q "CHECK II TERMINATED":o INITIALIZE PROGRAM u 16368,0 "ENTER FILE NAME ?";CB$ 16368,0 "NEW FILE (Y/N) ?";:YN$ YN$"N"300 CD$;"OPEN ";CB$;L$;DD$ Cn"CHECKBOOK PROGRAM FOR THE APPLE II" x"1. ENTER CHECKS":"2. CHANGE CHECKS":"3. BALANCE BOOK":"4. BANK STATEMENT":"5. SORT AND TOTAL":"6. DELETE FILE" "7. LIST ALL CHECKS":"8. END PROGRAM" "->";:YN$:(YN$)49(YN$)5690 , /*  3870:9JJ0: COUNTER FOR ERROR ROUTINEQ(L$",L55":DD$",D1"2N$(200),L(300),A$(200),B$(200),C$(200),D$(200),E$(200)<CD$(13)(4)FCD$;"NOMON I,O,C"K4040: LOAD IN PRINTER ROUTINEP190Zd CATALOG '  ] ]ŠЮɮŮ ]Ҡ٠ ]ŬƮ ] ]"] V]̠͠٠ `]٠Ġ j] t]Ġ٠ ~]ΠǠ ] ]Ġ٠̠ՠ ]٠"rC@"rC@"r5u@p(ư)7u[:u]ŠϠؠǠ ?uq DuȱqEuȲqȱNuȱqȱȲqȲXu@p@*ȱ#ȱr\u@Brp@*Ȳ#Ȳru[8] B] L]o a()Q]]ŠҠԠ@p()]̠Ġoa@E(Πìɬ)N@"2ro"M6a(ŠƠſ)M6|o PR@&_0u]ؠϠؤ2uN@"r 3uN@" r(4uN@"rC@q.?rq.?rq.?rq.?r\0uq\:u@p@q\:u@p@q\:u@p@q\:u@p@cc%oP;@ra()E@E@Ga(̤)E@E@%J`.?r$^]ԠҠӠ@Tqqrq`]ӠӠ^qhq`$|#rq6q(|q$qɿ)M6|N@"2ro PR@_ oP"M6a(ŠƠſ)M6|N@"2roPR@a@E(Ġ)E@ "M6#,oa()oPa@6q.?Mr(@qqqM6a(٠ŠǠӠ)cP a(ĠȠҠ)M6|cPa(Ԡ)>oPM6a(ϠՠԠϠŠŠǿ)M6|q.?6@r`$d6?e`$a@E()"M6a(ŠƠ! dJe.?LrdKe.?Mr  _n](]2_]Ԡ`<]ŠӠ٠ƠǠӠŠΠŠŠĠՠϠԬİǢϠРǮF]P]Z]d]n@p()]̠xa@E(Πìɬ) KM6\oP              !!""""""T$a(̠))']ŠӠ͠Π֠g]Π٠ć·ɇŇ̇ԇ̇هχ·ӇŠӠĠϠŠŠŠΠӽ2#a()G<#`%_ F#qP#γqZ#_ 3#ca(̠Π)#a(̠)-$a(٠)ccS$_Π٠ҠҠ٠Š)0ca(Ӡ̠Ʃ)Bca(Ӡ)P a()-cca(źƠ)1ca(ԠΠϠ)GR@_@(#]Ӡ] KM6Tca(Ӡ͠ӠΠԠ)ca(ϠŠ̠͠ƠŠ)1ca(̠ϠΠӠΠŠҬɮ)+ca(͠ƠǠ)Tcca(Ӡ٠ŠĠҠ)ca(_ : ]֠Ӡ̠ԠƠ֤ϧӠԩ `γ$# ca(̠)F\x a(̠)E@ a(٠)GWH UVW`-r%a()G`-r%a()G`-r%a()Gb--rrE()GYcc _1γq]ŠǠҠ1cca(ҠŠԠǠ)R@$ca(ŠԠǠ)ca@c` @p()@B;@rrp() `@9()$ q\ `γ$(#>( `6%a()G`%a()GbGqqN@"rC@" rC@"rD4rD4r@p()f>-rq-rq-rq -rq -rqd-rqe-rqn-rqo- rqPH- rq- rq- rq- rqL-rqM-rqV-rqW qUVWq 8r-rqqYqL`$UVWX6-rq-rYUVW-rqY"`$-rq-r.UVW@Brp@*-r#-rrY[]Ҡ̨֤T4`$qY]ԠҠӮIPqγq[]ԠǠϠԠҠŠҠӠ"x]Ԡ֠Ϡؠ+q`$q6qHq`$q` $q` $q1<@r`$Fq@p@*rY>]ӠҠӮנԠԠҠӠ(q<@r`%[(-@p@*r`?$2q[2`@$P<q[9F`6%[@p@*rҠƮ@p@*r`$qY`$&q6 Yhqγq]ӠŠŠҠԠԠŠĠ٠ҠӠҠӠY]٠DUVWqγq]ӠŠŠҠԠԠŠĠӠҠӡyY&~q6 Y]ؠ&UVWq<@r`$[W` $q` %[]ӠӠƇӇԠΠr_]̠8`@*#r:()$L@p@*r_]٠ L]&Qq<@r` %@p@*r@VUVWq<@r` %[@p@*r` %_~$`` $jq Yj`$~Xtq _Hq]Š̠ԠƠǠ֤ϧӠԩC`@*#r:()$@p@*r_]ŠǠӮ`@*#r9()%@p@*r,`@*#r:()$@p@*rq6=`@*#r:()$@p@*     "PLANT","TRUCK","TREE","CHRISTMAS","SUGAR","CANDLE","RECORD","TYPEWRITER","FRISBEE""PENNSYLVANIA","TEXAS","SNOW","PALM TREE","SHARK","APPLE II","JIMMY CARTER","DAVE PARKER","CLOCK" "CLOCK","TENNIS","OVEN","SPEAKER","WATERGATE","PASCAL","MONITO TREK","FACE""TELEVISION","TELEPHONE","SOCCER","HOCKEY","FARM","STEREO","FARRAH FAWCETT","STEELERS","JETS","LAKE ERIE","ABE LINCOLN""LEGS","PIRATES","YANKEES","COFFEE","PANCAKE","COAST GUARD","DRACULA","MONOPOLY","MONSTER","MONKEY","LION"SNE 790 & 820 MUST BE THE SAME AS DIM(A$) z "CHURCH","TABLE","MOVIE","GRAPEFRUIT","NEW YORK","GREEN","ORANGE","CASSETTE","SUPER BOWL","WORLD SERIES","AIRPLANE" "BASEBALL","FOOTBALL","GARBAGE","ARMY","APPLE COMPUTER","CHICAGO","ROCKET","STAR SUBROUTINE FOR COMPUTER SELECTED WORD. >I180I A$(I)O*b4Z((1)80)1o>VZ820|HA$A$(Z)RVZ\f COMPUTER SELECTED WORDS CAN BE INCREASED BY CHANGING DIM(A$) TO DESIRED NUMBER.0p LIOLOGIC. YOU CAN EITHER ENTER A WORD OR THE COMPUTER WILL SELECT ONE FOR YOU."}:"(MAXIMUM NUMBER OF LETTERS IS 15)":"THE COMPUTER WILL THEN SCRAMBLE THE WORDAND YOU MUST DECIPHER IT.":"DO YOU WANT TO ENTER A WORD? (Y/N)":Q$2 2āCH1SC1" W(CH)W(SC)6100 SC2ĂCH= LEW(SC)J S$(LE);R SCX  3:"************* CRYPTOLOGIC **************" " BY: RUDY A. GUY": "****************************************"P"THIS IS THE GAME OF CRYPT  20(A$)2( TA20(A$)27 I1(A$)E 13:"-";K Q ` I1(A$)t S$(I)(A$,I,1)| &: 0 ROUTINE TO SCRAMBLE WORD :WO(A$) D12 N8 XSC1(A$) bW(SC)(((1)WO)1) lW(2)W(1)610 vSCLSS+ |:"DO YOU WANT TO TRY AGAIN?":A$; A$"N"450i :"DO YOU WANT TO ENTER A NEW WORD?":A$o  A$"Y"110 A$"N"İ790 140 :12:"APPLE II SAYS BGDOO EY":I13000::"I MEAN GOOD BYE!":  FORMAT FOR UNDERLINING$) 12:(TA2)I:V$(I); V$(I)(A$,I,1)İ970:240U V$(I)(A$,I,1)İ980\ Ie "990u ,I14000:} 6: @12:"YOU DECIPHERED THE WORD WITH ONLY ";S JS1ĺ"MISTAKE." TS1ĺ"MISTAKES." ^TT1 hT1LSS rT1SLS++++++++++++++++":23:"+++++++++++++++++++++++++++++++++++++++"| X222:X:"+ +": 21:3:"LOW SCORE=";LS:3:11::"<<>>": 560 460 34,10:35,12:33,37:32,1: S0 I1(A 1010(S0:T072A$(80),S$(16),V$(15),W(18)?<:HF700YPQ$"N"İ790iZQ$"N"140odn"PLEASE ENTER A WORD TO BE SCRAMBLED.":A$x(A$)15ĺ"DO NOT EXCEED 15 LETTERS!":110530@ 1:"+++++++++++++++++++++++WHERE THE LETTER OCCURED TO FINAL RESULT;AAJ16(I1)C:I1ded ed ed ed ed ed ede de`UV8W de.?rMq.?rYLbE(ӠŠ)F0E(ĩ)F80r2E(̮)Q d:ed;e.?rM6D]Ġ(]ŠàϠ 2dBe <dCe Fd<ePd=e.?r Zd>edd?e.?r nM6xdede}dededede dede )FE()Fa@E()E@E()FE()FcP a(Ԡ٠)G2q.?6@r`$`%Qd6?ec_ X`%@p()`%@p()`%@p()`%@p()`$:Pa(ԠϠŠĠ)GM6q.?r.?rG`.?0r$PM6da(Ǡ)FGPa(Ƞ)FQNPM6da(ԠΠˠΠŠ)P a(ĠԠ٠)G>q.?6@r`$`%QPo.?%rM6d6?e_a(Š)E@E(r $/a(ӠҧƠ٠)GM6Sq.?6@r`$d6?e`$Z`$qq8r<`=>r$M6M6M6M6M6q_A\Ba@E()E@q.?r.?r@"(rC@"rC@"r@p()qhq.?Mrqqqqqq`$q6qq`.?r%q>q`=>r $qqDqq`=>r =>$TP^@p()`%@p()PM6dM6S(ԠǠκ)&@/co.?%ra@E()E@E()E@ha@E@E@E()E@Q3PM6dd0edJe.?LrdKe.?Mr UN@"rC@"rC@"(rC@"rC͠)GM6S6q.?6@r`$6d6?e`$Z`$6qq8r<@`=>r$JM6M6M6M6M6q_63J\BPM6da(ĠҠΠ̯ҩ)GM6>Tq.?6@r`$Td6?e`$Z`ź)FqZ@p(ܬ)d.?r.?r e@p@d.?r.?r e_#Wq.?6@r`$d6?e`%Q`$Z`$ q[_P+Q;,PM6da(ӠҧƠ٠$`$*`$M6d"e _@`$PM6da(Ԡ٠ҠנԠ)GM6S\`$qPa(Ժ)FE(Ԡ٠Ҡנ)GM65\`$P M6da(@E()E@`@:()$P a(ԠϠ)GM6:q.?6@r`$d6?ePM6dc`$ 6`@9()@9()@9()$a@E@E@_ a@E@E@Q7M6S(ҠנŠ)&@a@E@E@E()E@_ ``=>r@9()%@p()`=>r@9()%@p()P`=>r@9()%@p()\BPM6d`@:()@:()$d`7=>r@9()$`7=>r@9()$P a(Š)UVWM6Y_ @a¶$`%@p()`%@p()`%@p()`%@p()`%@p()kx`%@p()Pa(ӠҧՠȠϠ)GM6d`%d2ea@Gd2eM6_P`$,l`$q8rԠҠ̠ˠՠ).KPa(Π)E@*#rG@p()"Pq.?6@r`$Pd6?egZ`$d`;@r$Fq0?r`%q`;@r%q;@r_Fdq`%Qon`.?%rd e'd!eM6oa(ԠàϠ)d ed!e(oPfF@p(ՠĽ˽˽ŽٽŽįΠԽĽٽ)mH@B;@rrp(РƠǽŠԯŽ@oQ-Pa(ԠçϠ)oa@E()E@d"eqqq(2q`=>r $2qo<oPa(۠)qqf8rghf8rgh`=>r $<gA`$Fq:]ҠŠӠӠĠ Kd6?e.?6?rzhN@"rC@"rC@"(rC@"rC@"rC@"rC@"(r@p()qca@E(ìɬ)&#@p(̠Š ) (oM6Pa           줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wLh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_o$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` dq  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05  o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ džة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱhڙ=i?BC , LʩM˩I6bVcWdXeYfZg[h\i]j^k_L L3L`) #L $  `  v mL;ʅ˅LM  m              (J$):410 CHARACTER IS HEX LETTER. CONVERT TO EQUIVALENT DECIMAL BY SUBTRACTING 55 FROM THE ASCII VALUE OF THE LETTER. ASCII VALUE OF 'A'=65. 65-55=10 - DECIMAL EQUIV. OF 'A'J(J$)55( ADD VALUE TIMES 16 ^ OF THE PLACE F HEX STRING IS 4. TRUNCATE FROM THE RIGHT IF GREATER;{S|(A$)4A$(A$,4)Z  LOOP THROUGH HEX STRING TESTING EACH CHARACTER. IF CHARACTER < 'A' THEN MUST BE A NUMBER - USE DIRECTLY I1(A$):K(A$)I1:J$(A$,K,1):J$"A"J= 1, SO ROUTINE WILL RETURN TO ABOVE PAUSE LOOP WHEN DONEGhX$"S"ıMop SOME KEY WAS PRESSED AND WAS NOT = E,P OR S. SET FL=0, RETURN TO MAIN PRINT LOOPqrFL0:wx CONVERT HEX STRING TO DECIMAL INTEGERy5z MAX LENGTH OSTX(KBD):X128340"[x\ RESET STROBE, REDUCE X BY 128. TEST FOR = 'E'. IF EQUAL, GET NEXT START ADDRESS~]^STRO,0:X$(X128):X$"E"ġ:120e9f IF KEY WAS = 'S' THEN RETURN TO MAIN PRINT LOOP TO PRINT NEXT INSTRUCTION. FL PAUSE UNTIL ANOTHER KEY IS PRESSED(?=@X$"P"FL1340CGH IF KEY WAS = "S" THEN SINGLE STEP OPTION INVOKED. SET FL = 1 SO MAIN ROUTINE WILL RETURN HERE AFTER PRINTING ONE INSTRUCTIONIJX$"S"FL1:340QR PAUSE ROUTINE SSED ROUTINE3z4 RESET STROBE, REDUCE VALUE FROM KEYBOARD BY 128, TEST FOR = 'E'. IF EQUAL, GET NEXT START ADDRESS56STRO,0:X$(X128):X$"E"ġ:120= "> IF KEY WAS = 'P' THEN PAUSE. IF FL = 1, THEN SINGLE STEP OPTION IS ACTIVE, ASCII CHARACTER AT LOCATION 'A'.& IF 127 < C < 160 OR C < 32 THEN CHARACTER IS CONTROL CHARACTER. SUBTRACT OR ADD VALUE TO FORCE CHARACTER TO PRINTC(A):C127C160ĺ(C64);:"C32:(C64);:,(C);:1 2 KEY PREFL1İ340k TEST TO SEE IF KEY WAS PRESSED. IF SO, GOSUB TEST FOR EXIT, PAUSE OR SINGLE STEPqX(KBD):X127İ310   WHEN LOOP IS DONE, DEACTIVATE PRINTER, GET NEXT START ADDRESS :0:PF0:120  PRINT 0ĺMS);:230MS);:240#W 280 PRINTS ASCII VALUE OF MEMORY LOCATION 'A']l280:AA1{280:AA1280 FL IS USED BY SINGLE STEP ROUTINE TO CAUSE PROGRAM FLOW TO RETURN TO THE ROUTINE AFTER 1 LINE IS PRINTED(A256):LAH256:AL,L:AH,H:MN:PO(0):MS35PO9 PEEK(H3) DETERMINES IF INSTRUCTION USED 3 HEX DIGITS IE. LDA $3050 = A9 50 30 (H3)160ĺMS);:220 PEEK(H2) DETERMINES IF INSTRUCTION USED 2 HEX DIGITS (H2)16INCE PROGRAM WILL READ SCREEN 9 PF1ĊSL:(28);(24)? PRINT LOOP BEGINS HERE. POKES AND CALL EXECUTE MONITER DISASSEMBLE ROUTINE FOR LINE. PO IS CURSOR POSITION AFTER LINE IS PRINTED, MS IS FOR FORMATTING ASCII OUTPUT 3 ASAEA:HSA$"X"ĉ:8 SA$"P"PF1:24:20:"PRINTER ON":120R "END ADDRESS >";EA$X 380 CONVERTS HEX STRING TO DECIMAL INTEGER. SEND A$ RETURNS A A0:A$SA$:380:SAA:A0:A$EA$:380:EAA 22: POSITION CURSOR ON SCREEN. REQUIRED S u BRASIL APPLE CLUBE DR LUIZ E. PELLANDA RUA MAESTRO PENA,90 90000 PORTO ALEGRE BRAZIL PURSOR (USE -->)"- U:" AND PRESS "g Z:" AFTER THE ";A$;"IN USE";A$;" LIGHT GOES OFF"p _255 a22:3)"RUN MENU":21 d(4);"BRUN INTEGER BASIC" f i j n ANY COMMENTS p PLEASE SEND TO s 120:A$(34)936E5:(7)::" BRASIL APPLE CLUBE ":l(7:(6):"INTEGER BASIC DISKETTE "-" FOR APPLE II+ WITHOUT CARDS..."2::<I1500:IF:" TO USE THIS DISK, PLEASE COVER" P:" ";A$;"RUN MENU";A$;" WITH THE C  P Z ************************************************************************ dAL58:AH59:MN63696:QM1892:H21883:H31886:KBD16384:STRO16368:35,23 nSL2 u v INPUT START AND END ADDRESS IN HEX w x1:24:"START ADDRESS>";SA$:C  OPTIONAL PRINTER OUTPUT AVAILABLE - SLOT NUMBER AT LINE 110  PRINTER INITILIZATION AT LINE 170 - CURRENTLY SET FOR SLOT 2, MPI 88T PRINTER   REMOVE REMARKS BEFORE RUNNING PROGRAM TO INCREASE AVAILABLE MEMORY AND EXECUTION SPEED. JP ************************************************************************W  HEX, ASCII, AND DISASSEMBLED MEMORY DISPLAY PROGRAM BY ART BLUMBERG, MARYLAND APPLE CORPS REQUIRES APPLESOFT IN ROM OR LANGUAGE CARD              (A$)4A$(A$,4)P I1(A$):K(A$)I1:J$(A$,K,1):J$"A"J(J$):1010_ J(J$)55r AAJ16(I1)z : 70:PF0:20. C(A):C127C160ĺ(C64);:E C32:(C64);:R (C);:x ,STRO,0:X$(X128):X$"E"ġ:20 6X$"P"FL1400 @X$"S"FL1:400 X(KBD):X128400 STRO,0:X$(X128):X$"E"ġ:20 X$"S"ı FL0: 22 #PF1ĊSL:(28);(24)c (ASAEA:H(A256):LAH256:AL,L:AH,H:MN:PO(0):MS35PO~ F(H3)160ĺMS);:80 H(H2)160ĺMS);:90 JMS);:100 P200:AA1 Z200:AA1 d200 nFL1İ400 xX(KBD):X127İ300 :P AL58:AH59:MN63696:QM1892:H21883:H31886:KBD16384:STRO16368:35,23YSL21:24:"START ADDRESS>";SA$:SA$"X"ĉ:SA$"P"PF1:24:20:"PRINTER ON":20"END ADDRESS >";EA$A0:A$SA$:1000:SAA:A0:A$EA$:1000:EAA      TL$::TL$::Q$) Q$"X"ĺ:2304 :215? I1NW A$:B$:C$:D$::] u ,(15):(4)"PR# 0"{  CY LABELS DO YOU WISH TO PRINT?";Nu :"TEST PATTERN WILL PRINT NEXT"::"WHEN ALIGNED, TYPE 'X' ELSE PRESS RETURN"{ PRINTER SLOT LINE 200 PRINTER SETUP PARMETERS LINE 210 (4)"PR#1" I$;"40N";(26);(30);(14)} LABEL PRINTER PROGRAM = WITH LABEL SETUP ROUTINECO I$(9)fA$"LINE 1 - NAME"B$"LINE 2 - ADDRESS LINE 1" C$"LINE 3 - ADDRESS LINE 2"!D$"LINE 4 - CITY, STATE, ZIP"2TL$"* * * * * * * * * * * * * **"! "HOW MAN AM CREATES ITS OWN SHAPE HEADER"::"THE APPLESOFT REF MANUAL CALLS A SHAPE"::"HEADER AN INDEX. "; " SEE PAGE 95 FOR MORE"::"INFO"::"PRESS RETURN TO BEGIN";Q$:dBE INCLUDED IN TABLE >";:NS:NS0ĺ"THE TABLE MUST HAVE AT LEAST 1 ENTRY":20Z9:776,W:777,Z:778::= APPLESOFT SOUND ROUTINE 776,255:777,255:778,173:779,48:780,192:781,136:782,208:783,5:784,206:785,9:786,3:787,240788,9:789,202:790,208:791,245:792,174:793,8:794,3:795,76:796,10:797,3:798,  "  TIONS"::"THIS PROGRAM USES THE SHAPES SAVED BY"::"THE HIRES SHAPE COMPILER TO CREATE A"::"USABLE SHAPE TABLE"::"IF DID NOT USE THAT PROGRAM TO CREATE"d :"THE SHAPE, YOU MUST REMOVE THE SHAPE"::"HEADER FROM THE SHAPE TABLE, AS THIS"::"PROGRCAT"ĺD$"CATALOG":40 <200> FD$"BLOAD "FL$",A"20480DI~ PLL(L1):LH(L2):DIDILH256LL:DH(DI256):DLDIDH256 Z d:"*****"::"ENTER NAME OF NEW SHAPE TABLE >";TN$:D$"MON C":D$"BSAVE "TN$",A$5000,L"DI:D$"NOMON C" :"INSTRUC1  STARTS AT $5000, DI=DISPLACEMENT FROM $5000| 20480,NS:20481,0:DI42(NS1):DLDI:DH0: FIRST DISPLACEMENT KNOWN I1NS #ID204822(I1):ID,DL:ID1,DH (:"ENTER *CAT FOR A CATALOG LIST OR THE SHAPE FILE NAME >";FL$ 2FL$"*):"INSTRUCTIONS?";Q$:Q$"Y"İ1000 :"SHAPE TABLE CREATER":D$(4):L143616:L243617: L1,L2 = ADDRESS OF LENGTH OF BLOADED FILE:"ENTER NUMBER OF SHAPES TO BE INCLUDED IN TABLE >";:NS:NS0ĺ"THE TABLE MUST HAVE AT LEAST 1 ENTRY":20     400<2000.23FFM":800:144:2400#:7:0:1:35,22:23:1:"TYPE GOTO 9300 TO CONTINUE PROGRAM ":24::" DO NOT ENTER THE TEXT COMMAND ":::21:T$35,24:49238,0:2400X1:MO2:bYY1:MO3:lXX1:MO4:vYY1:MO1: F:CT:DD:I0CT:ST(I,1):ST(I,2):CM(I,1):CM(I,2)::D$"CLOSE "X$#RF1::CC0:I0CT:XST(I,1):YST(I,2):DFCM(I1,2):1400:PU:ST(I,1),ST(I,2)::RF0:CU:ST(CT,1),ST(CT,2):2400#"FILE "X$" DOES NOT EXIST"::I12000::9110 #:::H$"EEN TO ALLOW YOU TO UPDATE THE SHAPE"::"CATALOG TO CATALOG":"EXIT TO END"b#"FILE NAME >";X$#X$"CATALOG"ĺD$"CATALOG":"PRESS RETURN":X$:X$:9110#X$"EXIT"ī9190#9170#D$"UNLOCK "X$E#216,0:D$"OPEN "X$:D$"READ "X$:X:Y:D$"OPEN "X$:D$"WRITE "X$:X:Y:DF:CT:DD:I0CT:ST(I,1):ST(I,2):CM(I,1):CM(I,2):d#D$"CLOSE "X$::::H$"400<2000.23FFM":800:144:2400#H$"2000<400.7FFM":800:144::L#:"THIS ROUTINE LOADS THE INTERNAL ARRAYS AND RESTORES THE SCRYOU TO ALTER A SHAPE LATER ON":"FILE NAME (CATALOG TO CATALOG) >";X$<#X$"CATALOG"ĺD$"CATALOG":"PRESS RETURN":X$:X$:9010F#9050P#D$"UNLOCK "X$:"FILE ALREADY EXISTS. CONTINUE? >";Z$:Z$"Y"9010XZ#216,0:D$"OPEN "X$:D$"DELETE "X$:DPE BODY TO DISK ?";Q$:Q$"Y"Ą"FILE NAME ?";FL$:D$"BSAVE "FL$",A34308,L"I!34307I,00:232,00:233,134:"PRESS RETURN TO CONTINUE";X$:2400(#H$"2000<400.7FFM":800:144::F2#:"THIS ROUTINE WILL SAVE THE INTERNAL ARRAYS TO DISK TO ALLOW 500DD1DD2:2500'DD1:25002:3008[X:"PROCESSING":OP1:TP1:700 34304,01:34305,00:34306,04:34307,00:I1TP4!34307I,TB(I,1)16TB(I,2):!::"HR SHAPE TABLE BEGINS AT 34308 ($8604), LENGTH OF "IK!"SAVE SHA620:1100:DFSF:2500620/1100:2500CE15(CC15)2(CC2)15(CC9DF0)2(CC9DF0):CE:X,Y:CTCT1(CT0):XST(CT,1):YST(CT,2):DFCM(CT,2) CEX,Y):CC15(CE6)2(CE7)15(CE9DF0)2(CE9DF0):CU:X,Y:2500DFDF1:2250000630:1100:DF1:600:1100:DFSF:2500?600:5610wSFDF:DD1İ600:1100:DF1:610:1100:DFSF:2500$610:1100:DF1:600:1100:DFSF:2500610:5610SFDF:DD1İ620:1100:DF1:610:1100:DFSF:2500610:1100:DF1:4300,4600,4800,5100,5300,5600,5800,6100,6300,6600,6800,2300,7000,9000,9100,9200Y3200SFDF:DD1İ620:1100:DF1:630:1100:DFSF:2500<630:1100:DF1:620:1100:DFSF:2500630:5610SFDF:DD1İ600:1100:DF1:630:1100:DFSF::"NO PLOT";:5 24:22:CC0Ğ:" OVERLAP ";:U CC0ĺ"LEFT - "300CT;" ";nT 21:31:"DIAG (K)"; 23:35:DD2ĺ" #";:24:35:"##"; DD1ĺ"##";:24:35:"# "; 24:38:X$ I118:X$KE$(I)3500H :3200O I3800,4100, POINT":"T - MAKE SHAPE TBL V - VIEW X - END";:X$:X$:22:30 ` :"MOVEMENT KEYS":" U I O ":" J L ":" M , . ";:22:16:"X - Y - "; 22:20:2((X)))X;:22:27:2((Y)))Y;:24:14:DF0ĺ" PLOT";( DF0Ğ0I :"STARTING AT >";X,Y:X40Y40ĺ"ILLEGAL VALUES - REENTER":2000V 4CU:X,Y ST(0,1)X:ST(0,2)Y:CM(0,1)0:CM(0,2)1:CT0A :"COMMANDS: PRESS ANY KEY TO START":"C - CLEAR S - SAVE G - LOAD H - HELP":"P - PLOT/NO PLOT E - ERASE LASTr xPU15(DF0CC0)2(DF0CC0)6((DF0CC15)CC6)9((CC9)(DF0CC2)(DF0CC15))7((DF0CC2)CC7)~ RF1ı @PU:ST(CT,1),ST(CT,2):CCX,Y):CU:X,Y CTCT1:ST(CT,1)X:ST(CT,2)Y:CM(CT,1)MO:CM(CT,2)DF: l:CU9:DF1:DD1:CCB(TP,1)(Z2): TB(TP,2)TB(TP,2)8(((Z2)(Z2))0)@ _ ZCM(I,1):CM(I,2)0ZZ4r TB(TP,2)Z1: H$H$"N D823G":I1(H$):511I,((H$,I,1))128::72,0: LXX(X0X40)0(X0)39(X39) YY(Y0Y40)0(Y0)39(Y39)I1CT:OP750,720,7096 OPOP1:OP3OP1:TPTP1> :i CM(I,2)0CM(I,1)1OP1:TPTP1:750 TB(TP,1)TB(TP,1)(CM(I,1)1)4: CM(I,1)1CM(I,2)0(CM(I1,1)1CM(I1,2)0)OP1:TPTP1:750 ZCM(I,1):ZZ1:CM(I,2)0ZZ4 Td34304:16384`"U","I","O","L",".",",","M","J","E","P","K","C","X","H","T","S","G","V",ST(300,2),CM(300,2),TB(200,2),KE$(20)I118:KE$(I):D$(4)1900XXX1:MO2:bYY1:MO3:lXX1:MO4:vYY1:MO1:      "TYPE GOTO 9300 TO CONTINUE PROGRAM ":24::" DO NOT ENTER THE TEXT COMMAND ":::21:|%l35,24:49238,0:1000********************* # USES THE LORES SCREEN TO MAKE A SHAPE WHICH IS COMPILED INTO A HIRES SHAPE TABLE$p % T000: REDRAW LORES GR SCREEN WITH DATA FROM DISKd$:"FILE "X$" DOES NOT EXIST"::I12000::1770$D:::H$"400<2000.23FFM":730:144:1000: RESTORE GR PAGE FROM $2000 BECAUSE NO LOAD WAS DONE$N$X VIEW ROUTINEb%b:7:0:1:35,22:23:1:1850#D$"UNLOCK "X$#&216,0:D$"OPEN "X$:D$"READ "X$:X:Y:DF:CT:DD:I0CT:ST(I,1):ST(I,2):CM(I,1):CM(I,2)::D$"CLOSE "X$0$0RF1::CC0:I0CT:XST(I,1):YST(I,2):DFCM(I1,2):800:PU:ST(I,1),ST(I,2)::RF0:CU:ST(CT,1),ST(CT,2):1NT":"THIS ROUTINE LOADS THE INTERNAL ARRAYS AND RESTORES THE SCREEN TO ALLOW YOU TO UPDATE THE SHAPE"::"CATALOG TO CATALOG":"EXIT TO END"""FILE NAME >";X$"X$"CATALOG"ĺD$"CATALOG":"PRESS RETURN":X$:X$:1770"X$"EXIT"ī1860#VE ALL VARIABLES TO DISK!D$"CLOSE "X$::::H$"400<2000.23FFM":730:144:1000: WHEN DONE, TURN ON LORES GR, MOVE GR PAGE BACK FROM $2000!! GET ROUTINE"H$"2000<400.7FFM":730:144::: SAVE GR PAGE INCASE THIS WAS ENTERED BY ACCIDECATALOG":"PRESS RETURN":X$:X$:16801 1720y D$"UNLOCK "X$:"FILE ALREADY EXISTS. CONTINUE? >";Z$:Z$"Y"1680!216,0:D$"OPEN "X$:D$"DELETE "X$:D$"OPEN "X$:D$"WRITE "X$:X:Y:DF:CT:DD:I0CT:ST(I,1):ST(I,2):CM(I,1):CM(I,2):: SAE ROUTINEZH$"2000<400.7FFM":730:144::: SAVE LORES GR SCREEN AT $2000 (HIRES 1) :"THIS ROUTINE WILL SAVE THE INTERNAL ARRAYS TO DISK TO ALLOW YOU TO ALTER A SHAPE LATER ON":"FILE NAME (CATALOG TO CATALOG) >";X$& X$"CATALOG"ĺD$"T34307I,TB(I,1)16TB(I,2):^::"HR SHAPE TABLE BEGINS AT 34308 ($8604), LENGTH OF "I:"SAVE TO DISK ?";Q$:Q$"Y"Ą"FILE NAME ?";FL$:D$"BSAVE "FL$",A34308,L"Ih34307I,00:232,00:233,134:"PRESS RETURN TO CONTINUE";X$:1000r | SAV" DIAG MOVE DIRECTION (K)7DD1DD2:1010FDD1:1010L] CLEAR (C)h:410n~ EXIT (X)",6 SHAPE TBL MAKER (T)@:"PROCESSING":OP1:TP1:590J34304,01:34305,00:34306,04:34307,00:I1TP ERASE (E)~CE15(CC15)2(CC2)15(CC9DF0)2(CC9DF0):CE:X,Y:CTCT1(CT0):XST(CT,1):YST(CT,2):DFCM(CT,2)CEX,Y):CC15(CE6)2(CE7)15(CE9DF0)2(CE9DF0):CU:X,Y:1010 PLOT/NOPLOT (P)DFDF1:10100:770:DF1:530:770:DFSF:1010(8 DOWN (,)G(540:1400M2g< DIAG DOWN/LEFT (M)FSFDF:DD1İ550:770:DF1:540:770:DFSF:1010P540:770:DF1:550:770:DFSF:1010Zd LEFT (J)n550x770:1010 400 DIAG UP/RIGHT (O)QSFDF:DD1İ530:770:DF1:560:770:DFSF:1010{560:770:DF1:530:770:DFSF:1010 RIGHT (L)530:1400 DIAG DOWN/RIGHT (.)SFDF:DD1İ530:770:DF1:540:770:DFSF:1010" 54I1150,1190,1210,1250,1280,1320,1350,1390,1430,1470,1500,1540,1570,990,1600,1670,1760,1890d`1080jjt DIAG UP/LEFT (U)~SFDF:DD1İ550:770:DF1:560:770:DFSF:1010560:770:DF1:550:770:DFSF:1010 UP (I)560:1DF0Ğ:"NO PLOT";:A24:22:CC0Ğ:" OVERLAP ";:aCC0ĺ"LEFT - "300CT;" ";z21:31:"DIAG (K)";$23:35:DD2ĺ" #";:24:35:"##";.DD1ĺ"##";:24:35:"# ";824:38:X$BI118:X$KE$(I)1110L:1080ZV- ERASE LAST POINT":"T - MAKE SHAPE TBL V - VIEW X - END";:X$:X$:22:30:"MOVEMENT KEYS":" U I O ":" J L ":" M , . ";:22:16:"X - Y - ";22:20:2((X)))X;:22:27:2((Y)))Y;:24:14:DF0ĺ" PLOT";X:ST(0,2)Y:CM(0,1)0:CM(0,2)1:CT0: ARRAY POSITION CM(0,2) IS FOR INTERNAL USE ONLY. SKIP WHEN REWRITING SCREEN ON GET 'HELP SCREEN'M:"COMMANDS: PRESS ANY KEY TO START":"C - CLEAR S - SAVE G - LOAD H - HELP":"P - PLOT/NO PLOT E Y:CM(CT,1)MO:CM(CT,2)DF:!\=f**********************Cp]z MAIN PROGRAM STARTSc**********************:CU9:DF1:DD1:CC0:"STARTING AT >";X,Y:X40Y40ĺ"ILLEGAL VALUES - REENTER":940CU:X,YyST(0,1)RR POINT{ PU15(DF0CC0)2(DF0CC0)6((DF0CC15)CC6)9((CC9)(DF0CC2)(DF0CC15))7((DF0CC2)CC7)*RF1ı4 UPDATE GR SCRN>PU:ST(CT,1),ST(CT,2):CCX,Y):CU:X,YH SAVE CURR POINTRCTCT1:ST(CT,1)X:ST(CT,2)TB(TP,2)Z1:9 APPLESOFT TO MONITER INTERFACEzH$H$"N D823G":I1(H$):511I,((H$,I,1))128::72,0: CHECK OUT OF RANGEXX(X0X40)0(X0)39(X39) YY(Y0Y40)0(Y0)39(Y39)DET COLOR OF CU,1)(CM(I,1)1)4:YCM(I,1)1CM(I,2)0(CM(I1,1)1CM(I1,2)0)OP1:TPTP1:690~ZCM(I,1):ZZ1:CM(I,2)0ZZ4TB(TP,1)(Z2)TB(TP,2)TB(TP,2)8(((Z2)(Z2))0): RESULT = 8 ON ODD #'SZCM(I,1):CM(I,2)0ZZ4ODE NUMBER ROUTINE#XX1:MO2:4YY1:MO3:E&XX1:MO4:V0YY1:MO1:\:D SHAPE TABLE MAKER SUBROUTINENI1CT:OP690,640,620XOPOP1:OP3OP1:TPTP1b:lCM(I,2)0CM(I,1)1OP1:TPTP1:690vTB(TP,1)TB(TP,"G","V": KEY COMMAND TABLEGST(300,2),CM(300,2),TB(200,2),KE$(20)]I118:KE$(I):iD$(4)r930x*********************** SUBROUTINES START HERE*********************** CURSOR MOVEMENT AND KEYCION"Z - TEMP STORAGE VARIABLE(34304:16384:SAVES SPACE FOR HR SHAPE TABLE AND LORES GR SCREEN IN MEMORY, GR SCREEN PLACED 2000 - 23FF, SHAPE TABLE BEGINS AT 34308 ($8604)"U","I","O","L",".",",","M","J","E","P","K","C","X","H","T","S"ONAL MOVEMENTSR ST - SCREEN TABLE; ST(I,1) = X POSITION; ST(I,2) = Y POSITIONTB - ARRAY STORAGE OF HIRES SHAPE TABLE PRIOR TO POKING IN TO MEMORY TP - HIRES TABLE COUNTER X - SCREEN X CURSOR POSITIONY - SCREEN Y CURSOR POSITR C POINTER - USED IN PROCESS HIRES TABLE ROUTINE }PU - THE COLOR THAT THE CURRENT CURSOR POSITION WILL BE AFTER THE CURSOR IS MOVED RF - RETURN FLAG; USED BY GET ROUTINE ACCESS MAIN DRAW ROUTINES AS GOSUBSSF - HOLDS VALUE OF DD DURING DIAGIE ITEM COUNTER% _CU - CURSOR COLORo dDD - DIAGIONAL DIRECTION: DD=1 - PLOT X THEN Y; DD=2 - PLOT Y THEN X iDF - PLOT/NOPLOT FLAG: PLOT > 0; NOPLOT < 0 nI - LOOP COUNTER sMO - TEMPORARY HOLDER OF MOVEMENT DIRECTION1 xOP - COLUMN A, B, OBEFORE CURSOR WAS MOVED TO IT PCE - THE COLOR THE CURRENT CURSOR POSITON WILL BE WHEN THE CURSOR IS MOVED DURING THE ERASE ROUTINE U CM - COMMAND SEQUENCE TABLE: CM(I,1) = MOVEMENT DIRECTION; CM(I,2) = VALUE OF PLOT/NOPLOT FLAG ZCT - LORES TABL - VARIABLE DEF.: 2D$ - CHR$(4) - CONTROL D FOR DOSw 7H$ - VARIABLE USED IN APPLESOFT TO MONITER LINK ROUTINE <KE$ - AN ARRAY CONTAINING THE KEY COMMANDS A X$ - INPUT CHARACTER F Z$ - INPUT CHARACTER K CC - COLOR OF SCREEN POINT HE ADDRESSES GIVEN FOR THE COMPILED TABLE DOES NOT INCLUDE THE NUMBER OF SHAPES OR THE INDEX TO THE FIRST SHAPE. & THIS ALLOWS THE 'GUTS' OF THE TABLE TO BE USED WITH MY TABLE FORMER PROGRAM WHICH WILL COMBINE MULTIPLE SHAPES INTO A SINGLE TABLE. (} **********************6 HIRES SHAPE TABLE H COMPILER - ^ BY ART BLUMBERGy MARYLAND APPLE CORPS********************** # USES THE LORES SCREEN TO MAKE A SHAPE WHICH IS COMPILED INTO A HIRES SHAPE TABLE$p % T            ,,.>><$%%-..677?<<,$%-,-.55.67>>7?'?<$9XH256232,L:233,H: CHARACTER SHAPE TABLE CAN BE FOUND BY LOOKING AT THE VALUE OF X IN THE ABOVE LINE. THE LENGTH IS 1530 ($5FA)  MUST HAVE AT LEAST 36K OF MEMORY FOR PROGRAM TO RUN. ELSE DEFALTS 76 eo?666D6 56/I66;666  )66v?66!$|6&66D-6&-6?$-"$6m ?R36&R-r-?-7v(6v-$$6 $6v !!$m666Lv-$?----Iv= 66v/  Lqc b $7< 6l'i766.?66M 666--. 666$$$.>66LN$$)66?$$-?$6&)6$$-7#d9'$)ܛv-?m66&66v- $$466 $$66v a$$4vn  4v 6&--.-==666= 566> --R-? -66v- ?-:$I166>?d--?l= b----o2?%6v$?' m6-6? I.?$--6)?d- )67D8$5*>)>56;I--9?/b-7)~.?$$ 66#l=$ -?/$l?$26v- @?-66?$$$-3v=76---3v=76)/?$$666M$-$4i766+ -766? 67.5>--766$$$--76$--.-%6%-= .6$$<62- 666)-265'%$#--366-??U9: 661n$1~5nd?%,%4 n%.'>5.lM,>6$  6I6q6- Ƕ.5 6.6*>5--5'I)56?, $$g66v? !*5<FNV_s|(--666??$$$666%$$,666%$$,666b $7< m6662. -f2md;)$d=' m6>$J=7.6?$vv>?' $2--1-6> =$26D-6666D-$ 6vd$c66D%$66e $--:--m.z"#Xð à۠ҠǠ!ҠǠҮ֠ "   !       :   à۠"ǠҠǮˠɠ, ӠŠҠ ӠŠҠ ̠͠ ٠Р ٠РӠϠԠΠŠҠ  ҠҠҠҠ Ҡ͠ҠàϠԠΩϮĠӠҠàϠԠ  Šˠ͠Ҡ            " Ϯ̠ Ҡà ՠӲԠ   ˭Ԡ˭Š ˭Ġ Π      :               ˠ˭͠Xð]        26:  Ϡ by ART BLUMBERG for the Maryland Apple Corps .7@H)R]fpy2';AFSblw{ ")1:GOWcq} $i6?IS^fpv}X85:Y61:LM(M$):I1LM:C(I)((M$,I,1))::ILM11:C(I)X,Y:J1I:KJ1:C(I)X(8K),Y:C(I)X(8J),Y:::~:1:60:2:100:3:120:5:140:1:60:7:100:120:1:140200I11000:I:::(4)"CATALOG". written:300(M$" >>>> PRESENTS >>>> ":400WM$"DISK #1":2:X120:Y80:310:X121:3101:X100:Y110:M$"CONTRIBUTED PROGRAMS":300",XD0:I1(M$):((M$,I,1))XXD,Y:XDXD8::67:XD0:I1(M$):((M$,I,1))XXD,Y:XDXD13::x56,82,20,42,58,81,22,40,60,79,24,38,63,76,26,35,66,75,24,31,70,73u I100105:X1,Y1,X2,Y2:X1,IY1,I:X2,IY2,I:{ 0 M$"Maryland":X10:Y50:300 M$"Apple":X15:Y60:300 M$"Corps":X20:Y70:300M$"Disk Library":X100:Y5070:5,I72,I: 5,73,5,73,5,73,5,74,5,74,6,75,6,75,6,76,6,77,6,77,7,79,7,79,7,80,7,81,8,82,8,83,9,85,9,86,10,87,10,87,11,88,11,88,12,88,12,87,13,87,14,86,15,85,16,84,17,83 I7186:X,Y:X,IY,I: I8799:X,Y:X,IY,I:A 18,44,COMPUTER WILL TELL YOU HOW MANY NUMBERS ARE CORRECT AND"c"HOW MANY ARE IN THE CORRECT ORDER."y:"FOR EXAMPLE:"15:A$"5 2 9 4 0 3 2":810:A$"- - - - - = =":810"THE FIRST DOUBLE UNDERLINED NUMBER IN- DICATES THAT 3 NUMBERS ARE COR THE GAME OF APPLOGIC. THE COMPUTER WILL SELECT A SERIES OF RANDOM NUMBERS, AND YOU MUST FIGURE OUT""WHAT THEY ARE AND WHERE THEY BELONG.":"YOU MAY CHOOSE HOW MANY NUMBERS YOU WISHTO UNSCRAMBLE.(3 THROUGH 8)"9:"AFTER EACH TURN THE TO TRY AGAIN ?";:YN$:YN$"N"650hv::"DO YOU WISH TO STAY AT THE SAME LEVEL ?";:YN$:YN$"Y"120|32768,0::100::12:"TOO BAD, YOU WERE JUST GETTING THE HANG OF IT!!!":I12000::(4);"RUN HELLO" INSTRUCTIONS j"THIS ISTR1"I110:C(I)0:C$(I)"":S&A$B$NU0:PO0:SC0:B$"":C$"":800:250_0TRTR1v:X0XTR:32768,XDX0TRXXTR:32768,XN780X::"THE CORRECT NUMBER WAS ";A$bTR1:C$"":B$"":PO0:SC0:NU0:A$"""l:"DO YOU WISH  C(5)C(5)1:% C(6)C(6)1:7 C(7)C(7)1:I C(8)C(8)1:[ C(9)C(9)1:o C(10)C(10)1:{ I110 C(I)1SCSC1:C$(SC)(I1)  I1SC J1SK (C$(I))A(J)NUNU1  14:30:NU;" ";PO::TR ":TRTR1:2507 ,I1SKX 6(B$,I,1)(A$,I,1)POPO1^ @ JI1SK:C$(I)(B$,I,1):(C$(I))1350,360,370,380,390,400,410,420,430,440 T:450 ^C(1)C(1)1: hC(2)C(2)1: rC(3)C(3)1: |C(4)C(4)1:*********" TR1W :21:12:" ":X(32768):21:"LOW SCORE :";X:34,8:35,15:q *** ENTER GUESS *** 10:"TURN NUMBER ";TR:34,10 14:20:J1SK:(95);: 14:30:(95);" ";(95) 14:20:"";B$+ "(B$)SKĢ14:" SK8ė:100 xI1SK, A(I)((1)10)? A(2)A(1)130Q I2āJ1I1d A(J)A(I)130o I2Ă{ :A$"" I1SK:A$A$(A(I)): : 8:"************** APPLOGIC ]";(91);" *************":16:"******************************* (C) COPYRIGHT 1980" <:" C.I.A.C. SOFTWARE CO."::"****************************************" FI13500::23:"DO YOU NEED INSTRUCTIONS ?";:A$: PA$"Y"İ660:100 Z12 d"SKILL LEVEL (3-8) ?";SK nSK3 & 1010,233:1011,242:1169:8508830:32768,0@:(3:"**************************************** APPLOGIC ]";(91):, 2" BY:RUDY A. GUY         ,47,53,84; ZI3038:X1,Y1,X2,Y2:X1,IY1,I:X2,IY2,I:X _I3942:X,Y:X,IY,I:^ ` d13,84,13,84,12,83,11,82,10,82,10,81,9,81,8,80,8,79,8,79,7,78,7,77,7,76,6,76,6,75,6,75,6,74,6,73,6,73,6,73,5,73 nI4359:X,Y:X,IY,I: o xI60,66,56,65,55,65,54,64,53,64,53,63,53,63,52,62,52,62,51,61,51,60,50,60,50,59,50,58,50,57,50,56,49,55,49,54,49,53,49,52,49,50 FI734:X,Y:X,IY,I: P28,36,64,73,24,37,62,74,22,38,60,77,21,39,59,78,19,40,58,79,18,41,57,81,16,42,56,82,15,44,54,83,14 TO TEXT HELLO.x Y(115)(116)256:Y22016ė:10:"MARYLAND APPLE CORPS":15:"----- PROUDLY PRESENTS >>>>>":1030 :1:0 X(40),C(40) 1000:PROGRAM CONTROL IS AT 1000 ; 'APPLE' DATA| <65,67,64,67,64,67,61,67,60,67,59,67,58,66,57-7X(175)(176)256:XX1530:H(X256):LXH256232,L:233,H: CHARACTER SHAPE TABLE CAN BE FOUND BY LOOKING AT THE VALUE OF X IN THE ABOVE LINE. THE LENGTH IS 1530 ($5FA)  MUST HAVE AT LEAST 36K OF MEMORY FOR PROGRAM TO RUN. ELSE DEFALTS     L2' L0L2:L2L(L0)&' L2L03120>' N$(L1)N$(L2)3030K' L(L0)L1U' L0L1b' L1L(L0)s' L1L03010' L(L0)L2'& 3130'0 L(L0)L1': M1M11'D M103000'N M102750'X M11M1'b 2960'l R0:TT0'v L0A1' L0L(L0)=(3T42920&J M1M1&T 2960.&^ T3T42950:&h M1M11D&r II1\&| L(I)I:L(J)I:JJ1h& M1M11r& II1& L1I:L(I)I:L(J)I& L0J:JJ1:II1:L2I:L(I)I:L(J)I& 3010& JJ1:L0J1:L1L(L0):L2L(J)& N$(L1)N$(L2)3070' L(L0) % 2650%% INITIAL CALCULATIONS2% T4K2T4>% B2K22U% NEXT INPUT VALUEe% K1K23180w% K1K11:T1K1% B1B2:T3T2% % T1T12% (T1)T12850% M1M11% T2T2B1:B1B12% 2790%" %, T2T2B1%6 S122910 &@ T$ N$(A)T0$:2470#$ CD$;"CLOSE"G$ SORT(CREATIVE COMPUTING) c$( K10:M10:T20:T40:I0m$2 JA1$< L(1)1:L(J)1:K21$F A13190$P S1A$Z ENTER THE ALGORITHM$d S142720$n K2K22$x B2S12$ S1(B2)% T4T4(B2S1)K2(DT):B$(A)CN$:C$(A)(AM):D$(A)T0$:E$(A)CE$:AA1=# NJ# N$(A)""T# 2580r# DT(ZZ$)DT(ZX$)2480# N$(A)(DT):2470# CN$ZZ$CN$ZX$2480# N$(A)CN$:2470# CE$ZZ$CE$ZX$2480# N$(A)CE$:2470# T0$ZZ$T0$ZX$248096:. 98*********************TB* CRYPTOLOGIC *oL* BY:RUDY A. GUY *V* P.O. BOX 1733 *`* ERIE, PA. 16507 *j* PH:(814) 455-1505 *t*********************S++ALL RIGHTS RESERVED+7+ +R$+ DEVELOPED BY: +m.+ RUDY A. GUY +8+ P.O. BOX 1733 +B+ ERIE, PA. 16507 +L+ PH(814) 455-1505 +V++++++++++++++++++++++++++++NE \ERR(222)'fERR56Č43089Rp::12:"DO YOU WANT TO QUIT ?";:YN$azYN$"N"Ĭy:(4);"RUN HELLO" ++++++++++++++++++++++ APPLOGIC ++(C) COPYRIGHT 1980 ++ C.I.A.C. SOFTWARE :A$:$4 FP SOUND ROUTINE >776,255:777,255:778,173:779,48:780,192:781,136:782,208:783,5:784,206:785,9:786,3:787,240H788,9:789,202:790,208:791,245:792,174:793,8:794,3:795,76:796,10:797,3:798,96:R ERROR ROUTIRECT."f"THE SECOND UNDERLINED NUMBER INDICATES THAT 2 NUMBERS ARE IN THE CORRECT POSITION"lr W10100:Z9:776,W:777,Z:778:W100102:Z9:776,W:777,Z:778:: V100110:X9:776,V:777,X:778:V:*20(A$)2"INSERT DISK TO BE CATALOGUED."a 8:"TYPE 4 CHARACTER DISK I.D. >> ";ID$:::(ID$)42010n XSCOUNT| K03000 K4ĺ"INSERT NEW DISK IN SLOT:";S;",DRIVE:";D:"AND PRESS RETURN.";:R$:3010 "CURRENT SLOT IS ";S:"PRESS RETURN OR ENTEMES 1=SPECIAL DISK" M3$"2=PAGE AHEAD 3=PAGE BACK":M4$"4=NEW DISK 5=RESET DRIVE 6=QUIT":S(18455)16:D(18454):K0:CS,S16:CD,D $TRK,17:F496:P1:C0  MAIN HEADING ::9:"MASTER CATALOG RUNNING": 6:> COUNT0:BL$"":I140:BL$BL$(160):I:FI$(700):10000q D$(4):B$(7):IOB777:T64:PL15:RB27136: CSIOB1:CDIOB2:TRKIOB4:SECIOB5:VOLIOB14:OSIOB15:ODIOB16:F1RB11:F7RB221:M1$"SELECT NUMBER OF YOUR CHOICE":M2$"0=WRITE NAPPLE CRUNCHERS JULY 1982 & ]  RWTS ROUTINE (PAGE 95 IN DOS MANUAL) INP$"1":VS(106)256(105):VS2,240:VS3,14:VS4,150: 169,3,160,9,32,217,3,96,0,1,96,1,0,17,15,251,183,0,150,0,0,1,0,254,96,1 :I768793:X:I,X:Idd nUx THIS PROGRAM IS PUBLIC DOMAIN AND MAY BE USED BY ANYBODY FOR ANY  PURPOSE. THIS PROGRAM CONTAINS CONCEPTS PRESENTED BY MANY AUTHORS. NO ONE PERSON CAN TAKE CREDIT FOR IT. EDITED BY STEVE BROWN ERIE A           "PDL","POS","SQR","RND","LOG","EXP","COS","SIN","TAN","ATN".c"PEEK","LEN","STR$","VAL","ASC","CHR$","LEFT$","RIGHT$","MID$" W:VLVAVH256: FINDS END OF APPENDED PROGRAM, UPDATES ASSEMBLY LANGUAGE ROUTINE ]V1(768)(769):V185ĺ(4);"BLOAD STORE","&","GOSUB","RETURN","REM","STOP","ON","WAIT","LOAD","SAVE","DEF","POKE","PRINTS.b"CONT","LIST","CLEAR","GET","NEW","TAB(","TO","FN","SPC(","THEN","AT","NOT","STEP","+","-","*","/","^","AND","OR",">","=","<","SGN","INT","ABS","USR","FRE","SCRN(",N","VLIN","HGR2","HGR","HCOLOR=","HPLOT","DRAW","XDRAW","HTAB","HOME","ROT=","SCALE=","SHLOAD","TRACE","NOTRACE"n-a"NORMAL","INVERSE","FLASH","COLOR=","POP","VTAB","HIMEM:","LOMEM:","ONERR","RESUME",",RECALL","STORE","SPEED=","LET","GOTO","RUN","IF","RE ROUTINE.+881:4070: RETURN TO ASM ROUTINE TO CONTINUE SEARCH PROGRAM UNTIL NEXT LINE ADDRESS = 00+(#+2# APPLESOFT KEYWORD TABLE FOLLOWS+<#,`"END","FOR","NEXT","DATA","INPUT","DEL","DIM","READ","GR","TEXT","PR#","IN#","CALL","PLOT","HLI THE FIRST CHARACTER WAS FOUND BY THE ASM ROUTINE. CHECK THE REST OF THE STRING VIA PEEKS TO SEE IF IT ALSO MATCHES.!+:(886)(887)256", ";:IF ALL CHARACTERS MATCH, PRINT LINE NUMBER WHERE FOUND ON SCREEN. CURRENT LINE NUMBER PLACED IN CORE BY ASMER FROM MEMORY. THE ONE JUST FOUND WAS < THE LINE REQUESTED.)CA(6)(7)256:CA0ĺ"DONE":11:770:: GET THE CURRENT ADDRESS RETURNED FROM THE ASM ROUTINE. IF = 0 THEN THE ENTIRE PROGRAM HAS BEEN SEARCHED.*SPCA1:I1FL:(SPI)FH(I)ī5020:ALLS THE ASM ROUTINE, AND BRANCHES TO THE CHECK RESULTS SECTION WHEN THE ROUTINE RETURNS.(CANX:NX0ĺ"LINE NOT FOUND":770:: THE LINE REQUESTED WAS LARGER THAN THE LAST LINE OF THE PROGRAM. THE FIND ROUTINE TERMINATEST)4020: GET NEXT LINE NUMBNUMBER, CHECKS IT AGAINST THE REQUESTED LINE NUMBER, AND IF FOUND, PLACES THE MEMORY ADDRESS OF THE LINE IN THE ASM. ROUTINE'S BEGIN SEARCH POINTER.q( IT ALSO PLACES THE FIRST CHARACTER OF THE STRING TO BE FOUND IN MEMORY FOR THE ASM ROUTINE. IT THEN CA)(CA1)256:THIS LINE FINDS THE BEGINNING OF THE PROGRAM, AND DETERMINES THE MEMORY POSITION OF THE NEXT LINE.&AL(CA2)(CA3)256:ALXCH(CA256):CL(CACH256):6,CL:7,CH:791,FH(1):802:2:1:4070' THE PREVIOUS LINE GETS THE LINE RTING THE SEARCH AT A LINE OTHER THAN THE FIRST LINE IN THE PROGRAM. THE SEARCH WILL CONTINUE UPWARD FROM THERE%::"FIND>";:I135:IS$(I);::34,10:10:1:I140:"-";:: THIS LINE FORMATS THE OUTPUT SCREEN&X(X$):CA(771)(775)256:NX(C$R VL(X$):60:SXPSXP1:3210: LITERAL STRINGS ENCLOSED IN QUOTES ARE PLACED IN 'TO FIND ARRAY' AS EACH CHARACTER IS TAKEN FROM SCREEN$<$F SEARCH ROUTINE FOLLOWS$P %X0:SF1:"STARTING FROM >";X$:X$""X(X$): THIS LINE ALLOWS STA CHARACTER SET. ADD TO STRING TO BE TOKENIZEDK# g# KEYWORD TABLE SEARCHm# $ THE KEYWORD TABLE IS SEARCHED FOR THE STRING BUILT IN LINE 3270 (TS$). IF NOT FOUND IN TABLE, HANDLE STRING AS LITERAL, AND PLACE EACH CHARACTER IN 'TO FIND ARRAY'" (X$)32İ40:3210: CHECK FOR A SPACE. A SPACE IS USED TO SEPERATE KEYWORDS FROM EACH OTHER TO SPEED UP THE PROCESSING OF THE PARSE ROUTINE. SEE ARTICLE FOR DETAILS.E# COCO1:FC$(CO)X$:TS$TS$X$:SXPSXP1:3210: CHARACTER INPUT NOT IN SPECIALXP1:LSLS1:3210: CHECK FOR SINGLE QUOTE. FOUND - CHANGE STATE OF LITERAL SWITCH (THIS ALLOWS PARTS OF LITERALS TO BE FOUND. SEE TEXT" LS03410:IF LITERAL SWITCH < 0, THEN ROUTINE IS CURRENTLY PARSING A LITERAL AND WILL NOT SEARCH KEYWORD TABLE, HORZ=6.(IE VTAB 5:HTAB 6) X$(93)İ40::4000: CHECK FOR ]. FOUND, END INPUT/PARSE ROUTINE.! X$(34)LSLS1:3410: CHECK FOR DOUBLE QUOTE. FOUND - CHANGE STATE OF LITERAL SWITCH, PLACE ASC VALUE 34 IN 'TO FIND ARRAY'! X$"'"SXPSb SCREEN LOAD AND PARSE ROUTINE@l  CO0:ST$"":LS1:FL0:SYP5:SXP6:IS0: INITILIZE PARSE AND SCREEN POSITION VARIABLES3 X$(SXP1,2(SYP1))16SXP1,2(SYP1)1)):X$((X$)128):ISIS1:IS$(IS)X$:FF1: READ SCREEN STARTING @ VERT=5X$(8)İ30:2025: BACKWARD ARROW <-, BACKSPACE ONE CHARACTER HP35Ģ8::1:"MAX CHARACTERS":2025: ONLY 35 CHARACTERS ALLOWED 8:30):5:HP5:X$:HPHP1:2025: PLACES INPUT CHARACTER ON SCREEN, ADVANCES HORIZ. (X) POSITIONX :5:X$BX$(3)ĉ:770:: CTRL-C INPUTX$(13)Ĺ34,8::"PARSING STRING":3200:RETURN INPUT - PROCESS SCREENX$(5)ER35HP:ER):2025: CTRL-E - ERASE TO END OF LINE X$(21)İ20:2025: FORWARD ARROW ->, ADVANCE CURSOR POSITION[ENTING YOUR STRING":20:1:"FROM BEING FOUND. PRESS RETURN TO BEGIN":"CTRL-C TO CANCEL":34,2034,20 INPUT ROUTINE GETS A CHARACTER AND PRINTS IT ON THE SCREEN. NO PROCESSING IS DONE UNTIL RETURN IS PRESSED 5:HP,8:5:"FIND>";:40:"]":7:40:"^":I913:I:40:"!";:14:1:"PLACE ] (SHIFT-M) AFTER STRING ";40);"!":13:40:"!":14:1:"OR COMPUTER WILL DEFAULT TO THIS ONE --!"x16:1:"CAUSING THE PROCEDURE TO RUN SLOWER,":18:1:"AND POSSIBLY PREVLINES 40,3300, AND 3410 INTO THE 'TO FIND ARRAY'N T*n4 PROGRAM STARTS HEREt>:FC$(40),FH(40),KE$(110),IS$(35):I1106:KE$(I):: LOAD KEYWORD TABLE FOR PARSE SECTION THE FIND INPUT SCREEN SETUP FOLLOWSS::HP1:34OF THE STRING (TS$) INTO THE 'TO FIND ARRAY', BECAUSE THE STRING WAS NOT AN APPLESOFT KEYWORD.2CO0:ST$"":SXPSXP1:: RESET VALUES OF PARSING STRING, AND GET NEXT ONE FROM THE SCREENH<FLFL1:FH(FL)VL:: THIS LINE PLACES THE VALUE SENT BY FOUND IN TOKEN ARRAY, TREAT STRING AS LITERAL, AND PLACE EACH LETTER IN 'TO FIND ARRAY'.I1CO:(FC$(I))0I1ĺ"NOTHING TO FIND"::770:: NO STRING INPUT BEFORE FIRST ]. END FIND ROUTINEv0VL(FC$(I)):60:: THIS LINE PLACES EACH CHARACTER PACE HORIZ. POSITION(CO0SXPSXP1:: PREVENTS SPACES OUTSIDE OF QUOTES FROM GETTING IN 'TO FIND ARRAY' *I1106:TS$KE$(I)VLI127:60:50: SEARCHES KEYWORD TABLE FOR STRING (TS$). FOUND, PLACE TOKEN VALUE IN 'TO FIND ARRAY'p,: IF NOTNING.# , 9002 J SUBROUTINES NEXTP HP35ġ:3070: PREVENTS -> FROM PASSING 35 CHARACTERSHPHP1:: -> INPUT. ADVANCE HORIZ. POSITIONHP1ı: PREVENTS <- FROM PASSING 0 CHARACTERS,#HPHP1:: <- INPUT. BACKS ADDRESS OF THE APPENDED PROGRAM IN THE ASSEMBLY ROUTINE.Y  THE VANISHING ROUTINE (LINES 1-4) WILL NOT WORK IF THE REMARKS SHOWN ARE INCLUDED. THE FINDER ROUTINE FOLLOWS. 'CALL 780' WILL MAKE THE ROUTINE REAPPEAR AND BEGIN RUNFINDER ASM": LOADS THE ASSEMBLY ROUTINE IF IT IS NOT ALREADY LOADEDX(978)256:(1014)(1015)2561520XĹ1014,116:1015,3: SETS UP & FOR ACTIVATING APPENDED PROGRAM. IF PLE IS UP THIS IS BYPASSED Q771,VL:775,VH:770:: PLACES THE ENDINGt THE VANISHER AND FINDER ROUTINES BY ART BLUMBERG. REMOVE ALL REMARKS BEFORE RUNNING.VA(175)(176)2563:VH(VA256):VLVAVH256: FINDS END OF APPENDED PROGRAM, UPDATES ASSEMBLY LANGUAGE ROUTINE ]V1(768)(769):V185ĺ(4);"BLOAD           xCgh`DžghLfձȱ`ȱvȱwȱLH bL$ b`ee`LG&ASC","CHR$","LEFT$","RIGHT$","MID$"):VLVAVH256V1(768)(769):V185ĺ(4);"BLOAD FINDER ASM"X(978)256:(1014)(1015)2561520XĹ1014,116:1015,3771,VL:775,VH:770: 900HP35ġ:3070 HPHP1:HP1ı/ONT","LIST","CLEAR","GET","NEW","TAB(","TO","FN","SPC(","THEN","AT","NOT","STEP","+","-","*","/","^","AND","OR",">","=","<","SGN","INT","ABS","USR","FRE","SCRN(","PDL","POS","SQR","RND","LOG","EXP","COS","SIN","TAN","ATN"Oc "PEEK","LEN","STR$","VAL","","NOTRACE"Na "NORMAL","INVERSE","FLASH","COLOR=","POP","VTAB","HIMEM:","LOMEM:","ONERR","RESUME",",RECALL","STORE","SPEED=","LET","GOTO","RUN","IF","RESTORE","&","GOSUB","RETURN","REM","STOP","ON","WAIT","LOAD","SAVE","DEF","POKE","PRINTOb "Cī5020L:(886)(887)256", ";L881:4070M` "END","FOR","NEXT","DATA","INPUT","DEL","DIM","READ","GR","TEXT","PR#","IN#","CALL","PLOT","HLIN","VLIN","HGR2","HGR","HCOLOR=","HPLOT","DRAW","XDRAW","HTAB","HOME","ROT=","SCALE=","SHLOAD","TRACE34,0:"LINE NOT FOUND":770:HLAL(CA2)(CA3)256:ALXCH(CA256):CL(CACH256):6,CL:7,CH:791,FH(1):802:2:1:4070XLCANX:4020lL791,FH(1):792LCA(6)(7)256:CA0ĺ"DONE":34,0:11:770:LSPCA1:I1FL:(SPI)FH(I)1:3210J> VL(X$):60:SXPSXP1:3210 KR VL(X$):60:SXPSXP1:3210@KX0:SF1:"STARTING FROM >";X$:X$""X(X$)K::"FIND>";:I135:IS$(I);::34,10:10:1:I140:"-";:KX(X$):CA(771)(775)256KNX(CA)(CA1)256:NX01,2(SYP1))16SXP1,2(SYP1)1)):X$((X$)128):ISIS1:IS$(IS)X$#J X$(93)İ40:4000NJ X$(34)İ46:SXPSXP1:LSLS1:3390mJ X$"'"İ46:LSLS1:3210|J LS03390J (X$)32CO0İ40:3210J COCO1:FC$(CO)X$:TS$TS$X$:SXPSXPȺ"PARSING STRING":3200HX$(5)ER35HP:ER):2025I X$(21)İ20:2025,IX$(8)İ30:2025XI HP35Ģ8::1:"MAX CHARACTERS":2025I 8:30):5:HP5:X$:HPHP1:2025I 2025I CO0:TS$"":LS1:FL0:SYP5:SXP6:IS0 J X$(SXPCAUSING THE PROCEDURE TO RUN SLOWER,":18:1:"AND POSSIBLY PREVENTING YOUR STRING":20:1:"FROM BEING FOUND. ENTER THE STRING AND"H22:1:"PRESS RETURN TO BEGIN, CTRL-C TO CANCEL":34,20H5:HP5:X$HX$(3)ĉ:770:HX$(13)Ĺ34,8::(40),FH(40),KE$(110),IS$(35):I1106:KE$(I):?G::HP1:34,8:5:"FIND>";:40:"]":7:40:"^":I913:I:40:"!";:G12:1:"PLACE ] (SHIFT-M) AFTER STRING ";40);"!":13:40:"!":14:1:"OR COMPUTER WILL DEFAULT TO THIS ONE --!"IH16:1:"HPHP1:8:1:40):E(CO0SXPSXP1:F*I1106:TS$KE$(I)VLI127:60:50F,5F.CO0SXPSXP1:nF/I1CO:(FC$(I))0I1ĺ"NOTHING TO FIND"::770:F0VL(FC$(I)):60:F2CO0:TS$"":SXPSXP1:F<FLFL1:FH(FL)VL:F:FC$% DVA(175)(176)2563:VH(VA256):VLVAVH2560EV1(768)(769):V185ĺ(4);"BLOAD FINDER ASM"pEX(978)256:(1014)(1015)2561520XĹ1014,116:1015,3E771,VL:775,VH:770E 900EHP35ġ:3070EHPHP1:EHP1ıE#      REMINDER INPUT DM$"CALREMFILE":I$(252)DB$(14):NR$(15):L6$(25):L8$(24): PRINTER CONTROL CHARACTERS DB - DOUBLE WIDTH, NR - NORMAL WIDTH, L6 - 6 LPI, L8 - 8 LPI (LINES PER INCH) SEE 500-580 FOR PRINT CODE WN$(7),MN$(12),AR$(MC2 3310ZH 18MC:2:Z116:(95);::10);:2::"";ZZ$:(ZZ$)16ĺ(7):3400}R (ZZ$)0MS$(MM,VL,MC)ZZ$: MS$(MM,VL,MC)""::I131:I" ";:J12:(MS$(MM,I,J))03690MS$(MM,I,J);17(MS$(MM,I,J)));j:::Z$: 19:1:I12:868:" "MS$(MM,VL,I)::j MC1:23:1:958:"C)HANGE D)ELETE E)XIT I,M"| 18MC:1:Z$ Z$"C"İ3400: Z$"D"MS$(MM,VL,MC)"":3200:3300 Z$"E"ı Z$"M"MCMC1:MC2MC1 Z$"I"MCMC1:MC1"A"İ3300:2005" CO$"D"3060R 50:23:1:958:"ENTER DAY:";VL:60:2005z CO$"I"İ50:VLVL7:VL0VLVL7 CO$"M"İ50:VLVL7:VLNDVLVL7 CO$"J"İ50:VLVL1:VL1VL1 CO$"K"İ50:VLVL1:VLNDVLVL1 60:2006)5)7:BA(A):DAY(7B.0001)%LDV1:HPMS62:VP6:VL1:55:320023:1:"A)LTER D)AY S)HOW N)EW P)RINT E)ND IJKM":"ENTER COMMAND:";24:15:CO$CO$"N"ė:10CO$"P"ī500CO$"E"İ90: CO$"S"İ3600:100 CO$I16NDĺ" "I16" ";:J12:MS$(MM,I16,J)18(MS$(MM,I16,J)));:x@::L6$: L6= 6 LINES PER INCH CONTROL CHARD(12):0:100MM2MOMM1:YRYY:1020MM1MM2MOMM13:YRYY1JUL(365.25YR)(30.6001MO)01A(JUL16:L17:I$;10);:L:I$:M18:(11);:M:K>!P43560^&AR$(P)"1"AR$(P)"99"560g+526}0N178:"-";:::DB$"NOTES:"NR$;L8$: LP=8 LINES PER INCH CONTROL CHAR<I116:I10)I" ";:J12:MS$(MM,I,J)18(MS$(MM,I,J)));:G>(MN$(MM))2);DB$;MN$(MM);" ";YY;NR$::DB$=DOUBLE WIDTH, IF NOT AVAILABLE, CHANGE '* 2)' TO '* 1)' I17:4);WN$(I);4):I:::P1J178:"-";:J:J17J1ĺI$;8(AR$(P)));AR$(P);" ";I$;:PP1:J::M18:(11);:M0KP1 JI(3200:2000.:"ACTIVATE PRINTER, AND PREPARE IT TO ACCEPT OUTPUT":"PRESS RETURN WHEN READY";Q$1: PRINTER SLOT 1, PARALLEL CARD, 80 CHRS PER LINE, SET TOP OF FORM - SHOWN FOR MPI 88T570b38(MS$(I,J,K))0ĺI:J:K:MS$(I,J,K).^::C`D$"CLOSE "RM$:IaSb:30gdLS(MN$(MM)):i18LS2);MN$(MM);" ";YY:n:I17pI1ĺ3);vWN$(I);:::xP1I16J17LS(AR$(P))3LS);AR$(P);3);:P BE LOST"::"3 - RETURN TO CALENDER":N[::"SELECT >";Q:Q91,97,98\::"SAVING DATA":::"PLEASE WAIT - DRIVE MAY STOP AND START"::"THIS IS NORMAL":D$"OPEN "RM$:D$"DELETE "RM$:D$"OPEN "RM$:D$"WRITE "RM$$]I112:J131:K12:OSE "RM$:RT6Ģ20::" NO FILE "::9G NRT5Ģ20:" DATA LOADED":9 P:"DISK ERROR - "RT:"SEE PAGE 114-115 OF DOS MANUAL"::,Z:"YOU MAY:"::"1 - SAVE UPDATES TO DISK"::"2 - NOT SAVE UPDATES TO DISK":" UPDATES MADE IN THIS SESSION WILL2);VL;::0 <VL$(VL):I142:VL$AR$(I)Ă APO(I7):HP((I7PO)1)62:VP(PO1(HP0))24:HPHP42(HP4):VL(VL$):55:3200: F76 HD$"UNLOCK "RM$:D$"OPEN "RM$:D$"READ "RM$ JI:J:K:MS$(I,J,K):74& LRT(222):216,0:D$"CL$)O 1000:MSTARTDAY:MM2MJULJUL:CMMM:MMMM1:1000:NDAYSJULMJUL:MMCMd #MM2NDMD(MM) (I1MS:AR$(I)" "::J1:IMS1NDMS:AR$(I)(J):JJ1::INDMS142:AR$(I)" ": )100 2VP:HP:((VL))2);VL;: 7VP:HP::((VL)):I112:MD(I): 70* MM1:YY1983 :"REMINDER CALENDAR"::::"TO ACCEPT DATE WITHOUT CHANGING, PRESS"::"RETURN":: "ENTER MONTH >"MM;:14:"";VA$ (VA$)0MM(VA$) ::"ENTER YEAR >"YY;:13:"";VA$ (VA$)0YY(VA42),MD(12),MS$(12,31,2)  "SUN","MON","TUE","WED","THU","FRI","SAT","JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER",31,28,31,30,31,30,31,31,30,31,30,31 I17:WN$(I)::I112:MN$(I): :0D$(4):RM$"CALREMFILE":I$(252)DB$(14):NR$(15):L6$(25):L8$(24): PRINTER CONTROL CHARACTERS DB - DOUBLE WIDTH, NR - NORMAL WIDTH, L6 - 6 LPI, L8 - 8 LPI (LINES PER INCH) SEE 500-580 FOR PRINT CODE WN$(7),MN$(12),AR$(     MM1MM2MOMM13:YRYY1CJUL(365.25YR)(30.6001MO)01mA(JUL5)7:BA(A):DAY(7B.0001)sX135:YA$(X)" ":: 9LUMBERG, MARYLAND APPLE CORPS, BALTIMORE, MD.:I$(252) WN$(7),MN$(12),AR$(42),MD(12),YA$(P3PE:LS((I)):FL$(" ",3LS):YA$(PC)FL$(I):PCPC1:IP3PE1g P1N1P2N2P3N3700$YA$(1)" ":YA$(9)" ":YA$(17)YA$(9)%I135:YA$(I);::*MUMU3:MU126104(12):0:190MM2MOMM1:YRYY:10202:IP1PE:LS((I)):FL$(" ",3LS):YA$(PC)FL$(I):PCPC1:MP1PE1fPEP26:PEN2PEN2uP2N2770PC10:IP2PE:LS((I)):FL$(" ",3LS):YA$(PC)FL$(I):PCPC1:P2PE1PEP36:PEN3PEN3 P3N3800=PC18:IYA$(I2)" "(P1):P1P11:MP21:IM26:YA$(I10)" "(P2):P2P21:}P31:IM36:YA$(I18)" "(P3):P3P31:YA$(1)" ":YA$(9)" ":YA$(17)YA$(9)I135:YA$(I);::1050PEP16:PEN1PEN1P1N1ī750APCMU7ĺ:(14);5);"JULY";8);"AUGUST";6);"SEPTEMBER";(15)::660:(14);4);"OCTOBER";5);"NOVEMBER";5);"DECEMBER";(15):6);"S M T W R F S";7);"S M T W T F S";7);"S M T W T F S":1050P11:IM16:LS((P1)):;" <---";(15)::sbMMMU:1000:M1DA:N1MD(MM):MMMU1:1000:M2DA:JLJU:MMMU2:1000:M3DA:N3MD(MM):N2JUJLlMU1ĺ(14);4);"JANUARY";6);"FEBUARY";7);"MARCH";(15)::660vMU4ĺ:(14);5);"APRIL";9);"MAY";9);"JUNE";(15)::660B(12):0:190!W YEAR ROUTINE?X:"ENTER YEAR >";YY:MU1]:"ACTIVATE PRINTER, AND PREPARE IT TO ACCEPT OUTPUT":"PRESS RETURN WHEN READY";Q$^1:(9);"80N";(28);(24);(27);"6": SEE LINE 510 FOR EXPLAINATION_26);(14);"---> ";YY J17J1ĺI$;V8(AR$(P)));AR$(P);" ";I$;:PP1:J:M18:(11);:MK16:L17:I$;10);:L:I$;:M18:(11);:M:K!P43555&AR$(P)"1"AR$(P)"99"560+I0M16:N178:"-";:::(14);"NOTES:";(15)D"PRESS RETURN WHEN READY";Q$ 1:(9);"80N";(26);(28);(27);"6": SLOT 1, PARALLEL CARD, UNIDIRECTIONAL, 80CPL, SET TOP OF FORM 38(MN$(MM))2);(14);MN$(MM);" ";YY;(15): I17 4);WN$(I);4)::: P1:I16:J178:"-";:: n:I17 pI1ĺ3);1 vWN$(I);:::9 xP1D I16O J17` LS(AR$(P))~ 3LS);AR$(P);3);:PP1 J I :"ENTER E TO END ";Q$:Q$"E"Ā 1 :"ACTIVATE PRINTER, AND PREPARE IT TO ACCEPT OUTPUT":WEEN 03/1/1900 AND 02/28/2100 >";MM,YY~ 1000:MSTARTDAY:MM2MJULJUL:CMMM:MMMM1:1000:NDAYSJULMJUL:MMCM #MM2NDMD(MM) (J1:IMS1NDMS:AR$(I)(J):JJ1: 2FL%1ī500 dLS(MN$(MM)): i18LS2);MN$(MM);" ";YY: "CALENDER PROGRAM": b "MONTH OR YEAR (YEAR TO PRINTER ONLY) ENTER MO OR YR >";Q$t Q$"YR"ī600z  Q$"MO"12 :"OUTPUT TO CRT OR PRINTER? (C/P) >";Q$:Q$"C"Q$"P"18 Q$"P"FL%11 :"ENTER MONTH AND YEAR BET35)  "SUN","MON","TUE","WED","THU","FRI","SAT","JANUARY","FEBUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER",31,28,31,30,31,30,31,31,30,31,30,31 I17:WN$(I)::I112:MN$(I)::I112:MD(I): ~ LINES 510 AND 606 ARE PRINTER ACTIVATE LINES. SEE LINE 510 FOR EXPLAINATION OF CHR$ CODES - CURRENTLY SET FOR MPI 88T WRITTEN BY ART BLUMBERG, MARYLAND APPLE CORPS, BALTIMORE, MD.:I$(252) WN$(7),MN$(12),AR$(42),MD(12),YA$(      膢 ȱ " <67 L  8ij v vo>#Z(I$)[F#A1Z12lP#P$(I$,A,2)}Z#H((P$,1))d#L((P$,1))n#HH48:H9HH7x#LL48:L9LL7#P,H16L#PP1#P160009110#P10089110#"DAT1XX,YY:9300I115'AXX4I5BYY.5IAA,B:0OJ12:J[A,B:7e9300lI2:32:XXA:YYB:21XX,YY:9300 I120*93004I'#9999(# SUBROUTINE MACHINE LANGUAGE LOAD"*# DATA STATEMENT MUI122AXX1.5I'BYY1.5I3A,B:0AJ12:JMA,B:5W 9300^Is6:64:XXA:YYB&1XX,YY:9300DI113NAXX2.25IXBYY3IbA,B:0gJ12:JlA,B:6q9300vI7:16:XXA:YYB2.8I ,BYY1.5I! 6A,B:0/ ;J12:J; @A,B:6E E9300L JIa T7:32:XXA:YYBt ^1XX,YY:9300 |I116 AXX1.5I BYY1.5I A,B:0 J12:J A,B:7 9300 I 5:48:XXA:YYB 1XX,YY:9300  A,B:0 J12:J% A,B:7, I6 9300D I12:IU 5:XXA:YYBb 1XX,YYn I115} AXX2.8I BYY1.5I A,B:0 J12:J A,B:5 9300 I 6:16:XXA:YYB 1XX,YY:9300 I120 "AXXXX:90,56XX140,56XX:20,64XX90,64XX:90,72XX140,72XX:20,80XX90,80XX:90,88XX140,88XX $XXXX1:XX9XX0:6:40 %35 (20XX,4020XX,64:XXXX1:XX31XX0:7:100 )40 d7:1:0 nI150 sA1501.5I xB1592.8I,40:QQQQ1:QQ11QQ0:5:30& 25 50,40XX90,40XX:90,48XX140,48XX:50,56XX90,56XX:90,64XX140,64XX:20,72XX90,72XX:90,80XX140,80XX 20,88XX90,88XX:90,96XX140,96XX:XXXX1:XX9XX0:7:35 30e #50,48XX90,480400" & "394461200CDCDBDB7389"C "BAE3DF969F4D4A445669"` "11B6F3D71CE41B160700"l "END"x SUB768 9000 :21:17:"WINNER" :1:QQ0 10QQ,4010QQ,159:QQQQ1:QQ11QQ0:25 20 2:10QQ,1610QQ RUBIK-END1 "A9C88501850285038504" ^ "AD30C088D004C601F00ECAD0F6A6004C0A03" "AD30C088D004C602F00ECAD0F6A6004C1C03" "AD30C088D004C603F00ECAD0F6A6004C2E03" "AD30C088D004C604F008CAD0F6A6004C400360" "END"  "0100      B(36)A(34):B(33)A(35):B(30)A(36)1? I3745B@ B(I36)A(I)IA IVD I4654jE B(2746I)A(I)qF IwG (A(I) - I4 0 B(12)A(10):B(15)A(11):B(18)A(12)\ 1 B(11)A(13):B(14)A(14):B(17)A(15) 2 B(10)A(16):B(13)A(17):B(16)A(18) 5 I1927 6 B(4519I)A(I) 7 I : B(34)A(28):B(31)A(29):B(28)A(30) ; B(35)A(31):B(32)A(32):B(29)A(33)$ B 7:2900H L 2050a ` (J)127I1:2340u j (K)1272750 ~ C$"D":2140 24:38:C$ C$"+"C$"-"2570 C$"R"C$"L"C$"U"C$"D"2560 C$"!"2560 2500 C0: C(K)1272160 %I110:I& *20509 4(J)1272085M >(K)1272600X RC$"L"b \C0:s pC$"!":2140 (J)1272085 (K)1272650 C$"R":2140 (J)127I1:2340  (K)1272700  C$"U":2140 $ 0:2900 . Q(1)QX13016I16J:Y497I6J:) 1500M X1116I16J:Y1187I6J:_ I13:J02p N3IJKız J:I  J16287:K16286 I(0):I502100 I2002200 I110:I I(1):I502300 I2002400 !(J)127ͭN37Z2:K25:1180- BN46Z3:K34:1200F LN55Z3:K43:1220L VV `1500v eX13016J:Y13121I6J: t1500 yX23716J:Y11121I7J: 1500 X4216J:Y10421I6J: 1500 X8116J:Y11221I7J: 1500 1::Z$;"BLOAD CHAIN, A520":520"RUBIK-ROTATE": 3000B 65_ ::1:"ENTER NAME ";C$ Z$;"OPEN ";C$:Z$;"WRITE ";C$ I154:B(I):I Z$;"CLOSE ";C$  N10Z1:K2:1120 $N19Z2:K7:1140 .N28Z1:K16:1160 8  0:1AL154*FB(L)A(L)1508KNL:1000NU0:ZX,Y:ICB(L)jdB(L)3ICB(L)3:ZZ3{jIC4:ZX,YLL154:A(L)B(L):LS5İ7000P422020002302500C$"+"C$"-"250C$"!"5000          314157,1615141,9$V!23:" ""23::"PRESS ANY KEY TO CONTINUE";:C$:_"44):B(34)A(45):B(12)A(46):B(15)A(47):B(18)A(48)Kv M1:K24:L16:3600Q| cI13:J02$B(KMI3MJ)A(L3IJ).J:I877138,1148154,1089170,10210181,8411181,6312181,4213173,2h k B(42)A(11):B(41)A(14):B(40)A(17):B(51)A(29):B(50)A(32):B(49)A(35):B(29)A(40):B(32)A(41):B(35)A(42):B(11)A(49):B(14)A(50):B(17)A(51)o 3u B(45)A(12):B(44)A(15):B(43)A(18):B(48)A(28):B(47)A(31):B(46)A(34):B(28)A(43):B(31)A()A(26):B(36)A(27):B(7)A(34):B(8)A(35):B(9)A(36)M[ M1:K40:L34:3600S^ ka M1:K4:L2:3600d B(39)A(10):B(38)A(13):B(37)A(16):B(54)A(30):B(53)A(33):B(52)A(36):B(30)A(37):B(33)A(38):B(36)A(39):B(10)A(52):B(13)A(53):B(16)A(54)1:L43:3600J M B(13)A(4):B(14)A(5):B(15)A(6):B(22)A(13):B(23)A(14):B(24)A(15):B(31)A(22):B(32)A(23):B(33)A(24):B(4)A(31):B(5)A(32):B(6)A(33)Q 4W B(16)A(7):B(17)A(8):B(18)A(9):B(25)A(16):B(26)A(17):B(27)A(18):B(34)A(25):B(3525):B(25)A(39):B(22)A(42):B(19)A(45):B(3)A(48):B(6)A(51):B(9)A(54)_: M1:K15:L7:3600e@ C B(10)A(1):B(11)A(2):B(12)A(3):B(19)A(10):B(20)A(11):B(21)A(12):B(28)A(19):B(29)A(20):B(30)A(21):B(1)A(28):B(2)A(29):B(3)A(30): G M1:K5)A(52) ' M1:K31:L25:3600&, / B(38)A(2):B(41)A(5):B(44)A(8):B(53)A(20):B(50)A(23):B(47)A(26):B(26)A(38):B(23)A(41):B(20)A(44):B(2)A(47):B(5)A(50):B(8)A(53)3 H9 B(39)A(3):B(42)A(6):B(45)A(9):B(54)A(19):B(51)A(22):B(48)A(5):B(34)A(46):B(31)A(47):B(28)A(48)? M1:K22:L16:3600E y C3365,3375,3385,3395,3405,3415,3425,3435,3445% B(37)A(1):B(40)A(4):B(43)A(7):B(52)A(21):B(49)A(24):B(46)A(27):B(27)A(37):B(24)A(40):B(21)A(43):B(1)A(46):B(4)A(49):B(79)A(11):B(50)A(14):B(51)A(17):B(40)A(29):B(41)A(32):B(42)A(35):B(17)A(40):B(14)A(41):B(11)A(42):B(35)A(49):B(32)A(50):B(29)A(51) & B(46)A(12):B(47)A(15):B(48)A(18):B(43)A(28):B(44)A(31):B(45)A(34):B(18)A(43):B(15)A(44):B(12)A(4A(27):B(25)A(34):B(26)A(35):B(27)A(36)A M1:K42:L34:3600G ^ M1:K6:L2:3600 B(52)A(10):B(53)A(13):B(54)A(16):B(37)A(30):B(38)A(33):B(39)A(36):B(16)A(37):B(13)A(38):B(10)A(39):B(36)A(52):B(33)A(53):B(30)A(54)  B(40  B(31)A(4):B(32)A(5):B(33)A(6):B(4)A(13):B(5)A(14):B(6)A(15):B(13)A(22):B(14)A(23):B(15)A(24):B(22)A(31):B(23)A(32):B(24)A(33) ) B(34)A(7):B(35)A(8):B(36)A(9):B(7)A(16):B(8)A(17):B(9)A(18):B(16)A(25):B(17)A(26):B(18)9):B(6)A(42):B(9)A(45):B(25)A(48):B(22)A(51):B(19)A(54)T r M1:K13:L7:3600Z x { B(28)A(1):B(29)A(2):B(30)A(3):B(1)A(10):B(2)A(11):B(3)A(12):B(10)A(19):B(11)A(20):B(12)A(21):B(19)A(28):B(20)A(29):B(21)A(30) M1:K49:L43:360 M1:K33:L25:3600 d g B(47)A(2):B(50)A(5):B(53)A(8):B(44)A(20):B(41)A(23):B(38)A(26):B(2)A(38):B(5)A(41):B(8)A(44):B(26)A(47):B(23)A(50):B(20)A(53) k < q B(48)A(3):B(51)A(6):B(54)A(9):B(45)A(19):B(42)A(22):B(39)A(25):B(3)A(3Q(2),Q(3) h 0:# C$"+"31504 C$"-"3350: n N C3165,3175,3185,3195,3205,3215,3225,3235,3245 ] B(46)A(1):B(49)A(4):B(52)A(7):B(43)A(21):B(40)A(24):B(37)A(27):B(1)A(37):B(4)A(40):B(7)A(43):B(27)A(46):B(24)A(49):B(21)A(52) _APPROPRIATELY"> "QUIT/SAVE: PRESS BUTTON#1 AND BUTTON#2";I 1::{ 21:"ROTATE: R=RIGHT L=LEFT U=UP D=DOWN" "SPIN: + CLOCKWIZE - COUNTERCLOCKWIZE" 6:"FOLLOW BY PLANE NUMBER" "QUIT/SAVE: TYPE !"; 1:: T 0 ^ 165:Q(2)182:Q(3)63 7:2900* 20303 160= 4000G 2500M k :Z$;"BLOAD CHAIN, A520" 520"RUBIK-PLOT" 21:"SPIN PLANE: MOVE STICK APPROPRIATELY" "MOVE ARROW: BUTTON#1 AND MOVE UP/DOWN" "ROTATE: BUTTON#2 AND MOVE  RUBIK-RANDOM9 I((78)256(79))65535:C(I)ER110dC(1):C$"+":C.5C$"-"(C(19(1)):C1C940-J154.A(J)B(J)/J23000<RF8700ZI154[A(I)0\Id::1:0nP4150 xQ(1)      $"0C2D06000C0C3C3FB752"6$"360700ADF63F1C641C64"R$"2D153600E7642D153677"e$ "1E1E3F0400"$ "64240C6C49494911BF3F" % "173F17BF3F172E15AD0500"%"END"I" $"3BE736273C361C24373E":$"241C3627E436273C3627"V$"3C3627BC36273C360600"r$"C00C36366E3A3F270035"$"913F3F64C4602D153600"$"9B722D0CE4670C3C3F37"$"003A270C0C0C3636F53E"$"0038272C2DF5AA361E3F"$"1C0400ADF63F1C24E50C"C"$"360E242D3E2E25353636":$"36363636363636272424"V$"24242424242437363636"r$"363636363E241C36273C"$"361C24373E241C36272400"$"75243576246436362524"$"2C36362E24357624352E"$"241536252C3625643625"$ "2C360C2C2E2C2D2C2DE5435" $"2E240C2D353F372D3536">$ "36363636363636272424" Z$"24242424243C36363636"v$"3636363627BC36273C36"$"1E24373E241736272400"$"2424242424242424242C"$"36363636363636363676"$"2424242424242424242C"$"360E24352E241536252|$I4654:B(I)6:I/$I819216383:I,0:I?$C1ī9390[$Z$;"BLOAD CHAIN, A520"r$520"RUBIK-RANDOM"$I154:A(I)0:I$$"2424242424242424242C" $"36363636363636363666" $"2424242424242424242C"$"36256436252C360C2*#P$(I$,I,2):H((P$,1)):L((P$,1))@#HH48:H9HH7V#LL48:L9LL7m#P,H16L:PP1:Iw$9120"$ SET RUBIK ARRAY,$I19:B(I)1:I;$I1018:B(I)2:IJ$I1927:B(I)4:I^$I2836:B(I)5:Im$I3745:B(I)3:I"q#"76242424643636363625"9r#"2424242C363636362E24"Us#"2424242C363636362E24"qt#"242424AC3636362E2424"u#"24AC3636360C24242C36"v#"362E2424353625241536"w# "0C2C2E2D00"#P16384:232,0:233,64#I$:I$"END"ı#I1(I$)12c#"2424242424242424242C"7d#"3636363636363636362E"Ve# "24242424242424242405" rf#"3636363636363636362E"g#"24242424242424242474"h#"3636363636363636362E"i# "2424242424242424242400"o#"AD243576246436362524"p#"2C36362E242424353636 "2424242424242424242400"6[#"2424242424242424242C"R\#"36363636363636363676"n]#"2424242424242424242C"^#"3636363636363636362E"_# "24242424242424242405" `#"3636363636363636362E"a#"24242424242424242474"b# "3636363636363636360E"L#"3636363636363636362E"7M#"2424242424242424242C"SN#"36363636363636363666"oO#"2424242424242424242C"P#"3636363636363636362E"Q#"24242424242424242464"R#"3636363636363636362E"S#"2424242424242424242C"T#"3636363636363636362E"U#ALIZATION ROUTINES%2# SHAPE TABLESs<#"10002200B9005001A501FF015A02A002A902B402BF02C902D502E002E902F402FF02" G#"2424242424242424242C"H#"36363636363636363666"I#"2424242424242424242C"J#"3636363636363636362E"K#"24242424242424242464"E THE CUBE BY MAKING"D#"EACH FACE OF THE CUBE A SOLID COLOR. AN"s#"OPTIONAL LEARNING FEATURE BEGINS WITH A"#"COMPLETED CUBE SO THAT A PLAYER MAY"#"LEARN HOW SQUARES MOVE."#23:"PLEASE WAIT WHILE LOADING SHAPE TABLE"'#(# INITIUBE. THE"8""PLAYER IS ALLOWED TO EITHER ROTATE THE"c""CUBE RIGHT, LEFT, UP, OR DOWN OR TO"""SPIN ANY OF NINE PLANES IN A CLOCKWIZE"""OR COUNTERCLOCKWIZE DIRECTION. THUS,"""BY APPROPRIATE ROTATES AND SPINS THE"""PLAYER CAN SOLV IS INITIALIZED":1:"1"15:"RUBIK CUBE"?"19:"BY"T"15:"RON SANTA"\":""THIS PROGRAM REQUIRES A COLOR TV OR """COLOR MONITOR. THE PROGRAM WILL NOT"""SOLVE A RUBIK'S CUBE BUT INSTEAD WILL" ""DISPLAY ALL SIDES OF A COR ROTATE RIGHT":10:"L FOR ROTATE LEFT":10:"U FOR ROTATE UP""10:"D FOR ROTATE DOWN"::::"TO SPIN A PLANE TYPE + OR -""10:"WHERE + = CLOCKWIZE":10:"AND - = COUNTERCLOCKWIZE"::"THEN TYPE PLANE NUMBER""23:"PLEASE WAIT WHILE CUBE0^ ~"5:"TO ROTATE CUBE, HOLD BUTTON#2 AND MOVE"::"TO SPIN PLANE INDICATED BY ARROW, MOVE" ""STICK APPROPRIATELY"::"TO MOVE INDICATOR ARROW, HOLD BUTTON#1":"AND MOVE STICK UP OR DOWN":8898 "5:"TO ROTATE CUBE TYPE AS FOLLOWS:"@"10:"R F "2 "23::"PRESS ANY KEY TO CONTINUE";:C$:8 _"B `"8700 j":"TYPE 0 FOR A PREVIOUS CUBE":"TYPE 1 FOR A RANDOM CUBE":"TYPE 2 FOR A COMPLETED CUBE" v"C::4 y""TYPE 3 IF USING JOYSTICK":"TYPE 4 IF USING KEYBOARD":P: |"P28830,886VE: TYPE !"; 2050 T 00 ^ 16Q(2),Q(3)9 h 0:@ 7O 7138,114^ 8154,108m 9170,102| 10181,84 11181,63 12181,42 13173,23 14157,16 15141,9  @ !23:" P/DOWN"6 "ROTATE: BUTTON#2 AND MOVE APPROPRIATELY"f "QUIT/SAVE: PRESS BUTTON#1 AND BUTTON#2";q 1:: 21:"ROTATE: R=RIGHT L=LEFT U=UP D=DOWN" "SPIN: + CLOCKWIZE - COUNTERCLOCKWIZE" 6:"FOLLOW BY PLANE NUMBER" "QUIT/SA";C$:9355 F8700" d::1:0/ nP4150T xQ(1)5:Q(2)182:Q(3)63:7:2900^ 2030g 160q 4000{ 2500 Z$;"BLOAD CHAIN, A520":520"RUBIK-PLOT" 21:"SPIN PLANE: MOVE STICK APPROPRIATELY" "MOVE ARROW: BUTTON#1 AND MOVE U  RUBIK8162;Q(3),A(54),B(54):Z$(4):8900E 9000O8800^C2S10jC040t9250~8700100(1::"ENTER NAME ";C$:)1:" "-Z$;"OPEN ";C$:Z$;"READ ";C$7I154:B(I):I <Z$;"CLOSE      (K):KK176:K0K64050)K080007K17000IK2K36180[K4K51060jK6ĉ::t4010$K2PP1:PL%P1.K3PP1:P1PL%84010X SPECIAL FUNCTION FOR 'UN' NORMAL DISKS b:"SPECIAL FUNCTIO6,1);" ";(FI$(JPLIXS),7,3);" ";(FI$(JPLIXS),10,30)AIk19:1:958:20:M1$;:34::COUNT:A$""::M2$:M3$:M4$; CHECK KEYBOARD STROBE, THEN BRANCH ACCORDINGLYK(16384):K128501016368,0:19:1:958:K$"SL:";S;" DR:";D;" VOL:";V$;" FREE:";F$;" PAGE ";P" OF ";L%:JP1:I1PL:(JPLIXS)COUNT4050(FI$(JPLIXS),10,30)"1"ĺ(TI);" ";::"DELETED FILE"::(FI$(JPLIXS),10,30)"1"ĺ(TI);" ";(FI$(JPLIXS),5,1);(FI$(JPLIXS),(VOL)):(V$)1V$"00"V$1D (V$)2V$"0"V$QN F$(F):(F$)1F$"00"F$hX (F$)2F$"0"F$}b F11F10:3190l COUNTCOUNT1v FI$(COUNT)ID$" "F$(95)"FREE SECTORS AVAILABLE " DISPLAY DATA FROM VTOC c:Z4LCK$"*":ZZ128' Z0TYPE$"T": Z1TYPE$"I"M Z2TYPE$"A"` Z4TYPE$"B"~ (Y)255NAME$"1":3110 NAME$(INP$,ZZ,30)& FI$(COUNT)ID$LCK$TYPE$SIZE$NAME$:Y:X0 L%(COUNTXS)PL:(COUNTXS)L%PLL%L%1: V$( READ THE VTOC UNTIL EMPTY 0 10000{ X1511:SEC,X:768:ZZ34:YF1F735:ZZZZ35:Z(Y33):Z03120 COUNTCOUNT1:FFZ:SIZE$(Z):(SIZE$)1SIZE$"00"SIZE$ F0F0 (SIZE$)2SIZE$"0"SIZE$ Z(Y2):LCK$" ":R SLOT #";:I$:I$(13)ĺ:2070? I$"0"I$"7"Ģ3:1:2020l I$:S(I$):OS,(CS):OD,(CD):CS,S16 "CURRENT DRIVE IS ";D:"PRESS RETURN OR ENTER DRIVE #";:I$:I$(13)3010 I$"1"I$"2"Ģ5:1:958:2070 *I$:D(I$):CD,D$ N$:YN$"N"3450=** "FILE NAME?";Z$:L0A1:L0L(L0):XX$","Q*4 I1A:L0L(L0)l*> CD$;"OPEN ";Z$;L$;DD$*H CD$;"WRITE ";Z$;",R";I*R A$(L0);XX$;B$(L0);XX$;C$(L0);XX$;D$(L0);XX$;E$(L0)*\ I*f CD$;"WRITE ";Z$;",R0":A*p CD$;"CLOSE"+z 223010000):MM(DT100)YY100:DDDTYY10000MM100;) (R2)w) MM;",";DD;",";YY;:36,10:CN$;:36,20:CE$;:XAM:3790) 36,(39(X$)):X$) TTTTAM) "TO:";T0$) G) XTT:3790) ::"TOTAL OF CHECKS LISTED=$";X$* "SAVE FILE(Y/N)?";Y :"DATE";:36,10:"CHECK";:36,20:"CODE";:36,33:"AMOUNT"I( 34,1:V( G1A1( R10R1::"(C) TO CONTINUE,(M) FOR MENU?";:YN$::YN$"M"2230( RR1( L0L(L0)( DT(A$(L0)):CN$B$(L0):AM(C$(L0)):T0$D$(L0):CE$E$(L0)0) YY(DT" (:"THE PROGRAM FROM RHODE ISLAND IS SELF- DOCUMENTING."::"THE UTILITY FROM BRASIL TURNS A 48K APPLE II PLUS INTO A MACHINE CAPABLE OF RUNNING INTEGER BASIC PROGRAMS. SEVERALINTEGER PROGRAMS ARE INCLUDED."m 2:"YOU WILL WANT TO LIST THE (DECD4ĺP$;"ERROR ";ECD;" LINE ";LOCW)'20:"PRESS RETURN TO GO TO MAIN SCREEN ";YN$c.':4000I000 (#2#D$"CLOSE"<#%F#6P#"MAKE SURE THE MASTER CATALOG PROGRAM DISK IS IN DRIVE #1 THEN PRESS RETURN ";YN$Z#D$"RUN MASTER CATALOG PRINTER,D1"' 'D$"CLOSE":ECD(222):LOC(218)(219)256':10'ECD810025%$'1)8220 8265. D$"WRITE"F$(J)",R"NR1:! FI$(I)F& NRNR1MI IuJ D$"WRITE"F$(J)",R0":NR:D$"CLOSE"K JJ1:J68201L D$"NOMONIOC"N V$"0":F$"0":P1:L%1:COUNT0:4000X b (222)5NR0:D$"OPEN"F$(J)",L40":8215l 10 D":F$(2)"NAMES E - H":F$(3)"NAMES I - M":F$(4)"NAMES N - R":F$(5)"NAMES S - Z+"\J1l D$"MONIOC" D$"OPEN"F$(J)",L40" D$"READ"F$(J)",R0" NR I1COUNT (FI$(I),10,1)"1"8265 (FI$(I),10,1)C$(J)(FI$(I),10,1)C$(J(6):"PRESS RETURN WHEN THIS IS DONE. ";YN$^(12):"PRESS RETURN AGAIN TO CONFIRM THAT COR- RECT DATA DISK IS IN THE DRIVE. ";YN$hD$(4)r8290TC$(0)(32):C$(1)(197):C$(2)(201):C$(3)(206):C$(4)(211):C$(5)(255):F$(1)"NAMES A -  216,07000=$(222)5ĺD$"CLOSE":J0:7290H.10000@ WRITE NAMES TO FILES THAT COVER JUST PART OF THE ALPHABET J:"TAKE OUT DISK THAT WAS CATALOGUED AND PUT IN DATA DISK THAT WILL STORE PRO- GRAM NAME DATA."-T09FF$"NAMES S - Z+" >J03HD$"MON I,O,C"JRD$"OPEN"FF$",L40"`\D$"READ"FF$",R0"gfJqp7310zD$"MON ,I,O,C"D$"OPEN"FF$",L40"JJ1D$"WRITE"FF$",R"JID$L$T$S$N$D$"WRITE"FF$",R0"JD$"CLOSE"ETURN AGAIN TO CONFIRM THAT COR- RECT DATA DISK IS IN THE DRIVE. ";YN$R*D$(4)]474605(N$,1)"E"FF$"NAMES A - D":72306(N$,1)"I"FF$"NAMES E - H":72307(N$,1)"N"FF$"NAMES I - M":72308(N$,1)"S"FF$"NAMES N - R":723SS RETURN IF CORRECT, ANYTHING ELSE TO START ENTRY OVER. ";:YN$:YN$(13)7080 :"TAKE OUT DISK THAT WAS CATALOGUED AND PUT IN DATA DISK THAT WILL STORE PRO- GRAM NAME DATA."(6):"PRESS RETURN WHEN THIS IS DONE. ";YN$F (12):"PRESS R, TRY AGAIN"-"ADD RECORD TO DATABASE"h4:"FOUR DIGIT ID ";ID$:(ID$)4ĺER$:7110sL$" "~T$" "S$" "8:"30 DIGIT NAME CODE ";N$:(N$)30ĺER$:7150L(N$):L30N$N$(BL$,30L)958R22:"PREN MENU",l4:"1. ADD RECORD TO DATABASE"Wv6:"2. READ, SORT, & PRINT DATABASE"y{8:"3. RETURN TO MAIN MENU"20:"YOUR CHOICE ";:YN$:YN$"1"7080YN$"2"9000YN$"3"40007010 ADD RECORD:ER$"WRONG SIZE YN$"Y"İ4070R, :"DATE";:36,10:"CHECK #";:36,20:"CODE";:36,30:"AMOUNT"b, CD$;"PR#0"l, 34,1, CD$;"OPEN ";CB$;L$;DD$,CD$;"READ ";CB$;",R0",I,K1I1,$CD$;"OPEN ";CB$;L$;DD$,.CD$;"READ ";CB$;",R";K-8DT,CN$,AM,T+ M DELETE ROUTINE 0+ DELETE ROUTINE6+ p+ "HIT '*' TO DELETE FILE PERMANENTLY";:16368,0:YN$+ YN$"*"3530+ CD$;"DELETE ";CB$+ :"FILE IS NOW GONE"::+ + LIST FILE + T0::"LISTINGS"+ "PRINTER";YN$,OC) FILES FROM THE MARYLAND APPLE CORPS, AS WELL AS SOME OF THE PROGRAMS FROM THE ERIE APPLE CRUNCHERS." <24:"HIT THE ";::"SPACE BAR";::" TO CATALOG THE DISK *";(8);:A$: F::(4);"CATALOG"::A0OL CHARATERS SECOND COLUMN,L(A$(J50))7IBEBILıb((A$(J50),I,1))321230x(A$(J50),I,1);I:4JK21040L10601VA$(2)A$(1)įA$(1),A$(2)T` SORT DONE, NOW PRINT IT OUT]j490t CHECK FOR CONTROL CHARATERS FIRST COLUMN~L(A$(J))IBEILı((A$(J),I,1))321180(A$(J),I,1);I: CHECK FOR CONTR5"SORTING"@:10:"TAKES ABOUT "(.05NR(NR))" SEC."` ACTUAL SORT ROUTINE BELOWiNNRtK1N1K1(K12):K101110K2NK1:J1$IJ.K3IK1:(A$(I),10)(A$(K3),10)10908A$(I),A$(K3):IIK1:I11070 BJJ1:TH AMPER SWITCH~HEX$"3B0: 20 E3 DF 85 85 84 86 20 BE DE 20 E3 DF A0 02 B1 85 48 B1 83 91 85 68 91 83 88 10 F3 60 N D823G"I1(HEX$):511I,((HEX$,I,1))128::72,0:144 SET UP "&" JUMP VECTOR1013,76:1014,176:1015,3:12:11200 36,45!*B6:E6:1200,436,47>>B7:E9:1200IH36,51_RB10:E35:1200:f\Z{fJJ50:JNR540pD$"PR#0"z:10"TYPE 'C' TO CONTINUE, ANYTHING ELSE TO QUIT ";:YN$:YN$"C"Ĭ SHELL METZGER SORT WI-----------"6  IF NR<51 THEN JUST PRINT ONE COLUMNB Z150V JJ1:JNR880` 36,0r B1:E4:1150| 36,5 B6:E6:1150 36,7 B7:E9:1150 36,11 B10:E35:1150 " "; J50NRĺ:860 36,40B1:E4:L LINES9 :36,15:"MASTER CATALOG";:36,60:"PAGE "PGJ D36,15:DAY$P Nm X"DISK T SIZ FILE NAME"; bNR51ĺ:630 l36,40:"DISK T SIZ FILE NAME" v"---- - --- ---------------------"; NR51ĺ:660 36,40:"---- - --- ----------LOSE"  930! PG0:J0+ :10K  TURN ON AND READY PRINTER "READY THE PRINTER AND POSITION THE PRINTHEAD AT THE TOP OF THE FORM. PRESS RE- TURN TO START THE PRINT OUT. ";YN$ D$"PR#1":550 (12) &PGPG1 0 PRINT DETAIC) T ASK FOR TODAY'S DATEY ^::"WHAT IS TODAY'S DATE, NO COMMAS PLEASE ";DAY$s h READ DATA FROM FILE rD$"MONIOC" |D$"OPEN"F$",L40" D$"READ"F$",R0" NR A$(NR1) I1NR D$"READ"F$",R"I A$(I)  D$"C4 AS$"***************************************"R AS$:"*";:39:"*":"*";| 10:"FILES TO SELECT FROM";:39:"*" "*";:39:"*" AS$ I15 (I26) "I". "F$(I) ,I 620:15:"YOUR CHOICE ";C @C1C5Ĭ JF$F$( d:,n FILE NAMES WITH CATALOG DATAPx COULD BE EXPANDED IF YOU HAVEg A LARGE LIBRARY.F$(1)"NAMES A - D"F$(2)"NAMES E - H"F$(3)"NAMES I - M"F$(4)"NAMES N - R"F$(5)"NAMES S - Z+"D$(4) MAIN MENU ! ! ! ! ! !!!!!!R","DARTH VADER","DESK","LONDON","PITTSBURGH","CLEVELAND","NIBBLE","DISKETTE","TAMPA BAY","CIRCUS","STAR WARS","BUCK ROGERS","STAR TREK","MR. SPOCK"SS1:V100110:X9:776,V:777,X:778:V:12:(17(I1))(A$)2:V$(I);:W10100::36,40:X$2::NT$(2CD$;"PR#0".2PY TTY-43" 1+1 PRINTER ACTIVATE <1775:769,95B1Y1 WRITE CHECK 1"ENTER NOTES: ....................";:13::NT$1XAM:37901"PRINTING..."140701:36,70:CN$1::36,501MM;",";DD;",";YY1 2T0$;ED":33.0ZY69ĺ"CALCULATION OVERFLOW":`0d:"NOTE THIS INFORMATION AND THESE NUMBERS:"t0nX,Y:3980,40000x"PLEASE RERUN PROGRAM":CD$;"CLOSE":0 END OF LISTING 0 REFER TO DOS MANUAL0 PRINTER ON 1? CD$;"BLOAD / I!/X$(X)".00":3810:/ ERROR ROUTINE Q/(JJJJ1:JJ53940i/2X(218)(219)256/<Y(222):Y107ĺ"TOO MANY CHECKS TO BE SORTED AT ONCE":3960/FY176Y163Y53ĺ"TYPING ERROR":0PY9Y10ĺ"DISK IS FULL OR FILE IS LOCK((DT100)G3100):G2DTG310000G1100o.G1;",";G2;",";G3;:36,10:CN$;:36,20:CE$;:36,30:XAM:3800:X$~."TO:";T0$.CD$;"PR#0".. ROUND AND DECIMAL .X$(X)"00".I1(X$).(X$,I,1)"."ī3850.X$(X$,I2)/0$,CE$-BCD$;"CLOSE"!-L3700(-VK?-`CD$;"CLOSE":(24)r-j"PRESS A KEY TO RETURN TO MENU";:YN$:34,0:-tYN$"Y"İ4060-~TT1-T6YN$"N"T1:"(C) TO CONTINUE ,(E) TO END";:YH$::YH$"E"Ĺ34,0::-(T3)(.G3(DT10000):G1ING!":-SK":34,23 B1I+ (4);"OPEN"A$(B)B (4);"WRITE"A$(B)X (4)"CLOSE"A$(B)^ u ::(4)"CATALOG"{  J117:A$(I)A$(I)" ":(A$(I))17ı : * SHOULD NEVER GET THIS FAR * "::12:"ERROR ENCOUNTERED, PLEASE CHECK LIST6 n"LINE "I1: xJ118:(95);::"":(37):1Y A$(I):(A$(I))17ė:110 A$(I)""A$(I)"B"(B$,2,8)A$:190 (A$(I))17İ270 A$(I)B$"= "A$(I)" =" : A$(7)"B"(B$,2,8)A$ ::"WRITING CATALOG HEADER TO DIM NUMBER OF CHARACTERS IS 17, MAXIMUM NUMBER OF LINES IS 5." F:"========================================":17:"========================================" P19:"PRESS TO WRITE HEADER OF LESS THAN 5 LINES." Z34,13:35,16: dI2<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>< CATALOG HEADER FORMAT PROGRAM >< BY: RUDY A. GUY >< 2-SEPT-80 ><<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>@ <9:"ENTER HEADER MESSAGE FOR DISK CATALOG. MAXIMU*********************7* CATALOG HEADER *R* PROGRAM *m* BY: RUDY A. GUY ** CALL -APPLE ********************** B$"A"I18:B$B$(8):A$"=====================":A$(1)B$A$(: 2"" " " " " "