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`:1450J&AI:"IS THIS THE TEAM - ";N$(A);" ?";:"";R$:(R$,1)"N"1450&8:958:"GIVE ME THE SECOND TEAM'S NAME";:T$:T(T$):I128:T$(N$(I),T)1500&I::"I COULDN'T FIND A MATCH,TRY AGAIN...":DD11600:DD:1480,'BI:"IS THIS THE T"B%:G:D$;"PR#0"::"PRESS TO CONTINUE";:"";R$:250i%::8:"PREDICT INDIVIDUAL TEAMS"%8:958:"GIVE ME THE FIRST TEAM'S NAME";:T$:T(T$):I128:T$(N$(I),T)1470&I::"I COULDN'T FIND A MATCH,TRY AGAIN...":DD11600:DD" - "DT$$$Z36,(LL(T$))2:T$:D$dG114:AMA(G,0):BMA(G,1)l$nNA$N$(A)" (HOME)":NB$N$(B):1200$xSASBĺNA$;" OVER ";NB$;" BY ";DTA;" POINTS."$(SBSA)ĺNB$;" OVER ";NA$;" BY ";DTA;" POINTS."%SASBĺNA$;" AND ";NB$;" WILL BE TIED. OVER ";NA$:25:"BY ";DTA;" POINTS."V#SASBĺNA$;" AND ";NB$:25:"WILL BE TIED."#(:G5G10ĺ:"PRESS TO CONTINUE";:"";R$:3:958#2G:"PRESS TO CONTINUE";:"";R$:250#F450 $PT$"NFL GAME PREDICTIONS":DT$""T$T$10:"PREDICT ALL MATCHUPS"d"12:"DO YOU WANT A PRINTOUT?";:"";R$:R$(R$,1):R$"Y"R$"Y"1350"3:958:G114:AMA(G,0):BMA(G,1)"NA$N$(A)" (HOME)":NB$N$(B):1200" SASBĺNA$;" OVER ";NB$:25:"BY ";DTA;" POINTS."%#(SBSA)ĺNB$;"):R(I,2):R(I,3):IA!D$;"CLOSE NFL.DATA":D$;"LOCK NFL.DATA"R!WRIT1:1050! * * *** PREDICTIONS *** * * !SA(R(A,1)R(B,2))221!SB(R(B,1)R(A,2))221!DTA(SASB)!"::MATCHUPS"* `I114:MA(I,0):MA(I,1):I_ jD$;"CLOSE NFL.MATCHUPS":D$;"LOCK NFL.MATCHUPS"i t1050 ~ PRINT D$;"UNLOCK NFL.DATA": PRINT D$;"OPEN NFL.DATA": PRINT D$;"DELETE NFL.DATA" D$;"OPEN NFL.DATA":D$;"WRITE NFL.DATA"!I128:R(I,1B.21:"WHICH OPTION (1-2,=NONE) : ";:"";R$:R$""250_8CH(R$):CH1CH21050qBCH1100,1150L PRINT D$;"UNLOCK NFL.MATCHUPS": PRINT D$;"OPEN NFL.MATCHUPS": PRINT D$;"DELETE NFL.MATCHUPS" VD$;"OPEN NFL.MATCHUPS":D$;"WRITE NFL.D$;"PR#0"1:"PRESS TO SEE MENU ";R$II128:R(I,0)I:IR250 * * **** SAVE FILES **** * * ::12:"SAVE FILES MENU"$10:" 1 - MATCHUPS FILE.":15:" 2 - RANKINGS FILE."R:"(OFF-DEF)":PRĹ34,3+I12836,122PR:(" "(I),2);:36,722PR:(" "(R(I,3)),3);:36,1222PR:N$(I);:36,2822PR:"(";R(I,1);" - ";R(I,2);")"PRI18ĺ:"PRESS TO SEE REST OF TEAMS.";R$:I PRĺ(12):TURN> TO SEE MENU ";R$.I128:R(I,0)I:I7250BPRėgT$"NFL ALPHABETIC RANKING LIST"36,(LL(T$))2:T$:PRĺ:(DT$)0Ĺ36,(LL(DT$))2:DT$:36,122PR:"RANK";:36,622PR:"TOTAL";:36,1222PR:"TEAM NAME";:36,2822PR(J,0)999f36,122PR:(" "(I),2);:36,722PR:(" "(R(J,3)),3);:36,1222PR:N$(J);:36,2822PR:"(";R(J,1);" - ";R(J,2);")"pPRI18ĺ:"PRESS TO SEE REST OF TEAMS.";R$:zL10:IPRĺ(12):D$;"PR#0":"PRESS LR(H,KEY):R(H,0)999850HLL1JH:L1LRH \::12:"DISPLAY RANKINGS"yLL40:PR0:10:"DO YOU WANT A PRINTOUT? ";:"";R$:R$(R$,1):R$"Y"R$"Y"PR1:450KEY940 T1$" OFFENSIVE ":KEY1T1$" DEFENSIVE ":KEY2T1$" TOTAL "T$"NFL"T1$"RANKING LIST"PRė936,(4:HT520(MA(Z,0)14)6VT:HT:" "lVTMA(Z,1)14(MA(Z,1)14)4:HT520(MA(Z,1)14)VT:HT:" "::R114:MA(R,2)0:R:250 * * *** RANK DISPLAY *** * * R)0MA(Z,1)R:Y(R)1:660T23:"INVALID TEAM # - TRY AGAIN!!":DD1500::62022:3:958:N$(MA(Z,1));" AT ";N$(MA(Z,0))23:10:"CORRECT (Y/N) ";:"";R$:R$(R$,1)R$"N"Y(MA(Z,0))0:Y(MA(Z,1))0:580VTMA(Z,0)14(MA(Z,0)14);DT$(I)(I"2:(4);"PR# 0",<10202oKX **MENU OF TOP** ^b34,0:35,24:l1:"A)DD D)ELETE P)RINT Q)UIT SPACEBAR-STOP"v4:"GAME HIGH SCORE DATE "5:"PUBLISHER";:20:"PLAYER"7:"_________________" GAME PUBLISHER SCORE PLAYER DATE" "_____________________________________________________________________________"I1RT1:GM$(I);:20:PB$(I);:40:SC$(I);10((SC$(I))));PL$(I);20((PL$(I))))T":63:"IF THE PRINTER IS READY THEN HIT RETURN"P4:"OTHERWISE HIT Q"4:16384,128:G$:(13):G$(13)G$"Q"5070G$"Q"1020:(4);"PR# 1":(9)"80N""SUPERSCORES PROGRAM BY BRAD GREEN TODAY'S DATE ";TD$MhXIRTrGM$(X)GM$(X1)3|PB$(X)PB$(X1)HSC$(X)SC$(X1)]PL$(X)PL$(X1)rDT$(X)DT$(X1)yX1020 **PRINT-OUT** 34,0:35,6(16128)0ė:3:7::"PRINTER NOT INSTALLED":::10201::"PRINTOU$(I)4130I$5:"NOT FOUND"3G$:(13)=1020l"3:868:GM$(I);:20:SC$(I);:31:DT$(I),4:1:PB$(I);:20:PL$(I)66:"DO YOU WISH TO DELETE THIS?(Y/N)";@G$:(13)JG$"Y"G$"N"4150TG$"N"1020^RTRT1  * CONTRIBUTED BY *4 * THE KEYSTONE *O * APPLE CORE *j *4644 CARLISLE PIKE* *MECHANICSBURG, PA* * 17055 * * * ********************Y.""21:" PRESS 'ESC' TO END"S$22:"< PRESS THE SPACE BAR TO CONTINUE...>"k.(16384)15511008(16384)1601060B16368,0::L16368,0::10:10:"* * * THE END * * *": ******************** * *<*><*><*><*><*><*><*>> < BUT DID NOT HAVE > < ANY CAPABILITY TO >/ENTER OR SAVE THE > < WEEKS MATCHUPS OF > < GAMES. THIS AND AN > < EXTENDED MENU OF > < FEATURES HAVE BEEN > < INCORPORATED INTO > < THE PROGRAM. > ! ! RANKER ALGORITHM ! ! BY ! ! JOSEPH M. FEEHAN ! ! ! ====================9.<*><*><*><*><*><*> < THIS PROGRAM WAS > < ORIGINALLY PRINTED > < IN "NIBBLE" VOL2#7 TCH,TRY AGAIN...":DD11600:DD:1740j,BI:"IS THIS THE TEAM - ";N$(B);" ?";:"";R$:(R$,1)"N"1740t,1600,UPD1:250,================== ! NFL RANKER PROGRAM ! ! BY ! ! DALE E. SALYER !- +I::"I COULDN'T FIND A MATCH,TRY AGAIN...":DD11600:DD:1710+AI:"IS THIS THE TEAM - ";N$(A);" ?";:"";R$:(R$,1)"N"1710+8:958:"GIVE ME THE SECOND TEAM'S NAME";:T$:T(T$):I128:T$(N$(I),T)1760&,I::"I COULDN'T FIND A MA*r::14:"UPDATE RATINGS">*|G114:AMA(G,0):BMA(G,1)b*5:15:958:"GAME # ";G:1600i*Gx*UPD1:250*::4:"UPDATE INDIVIDUAL TEAM'S RATINGS"*8:958:"GIVE ME THE FIRST TEAM'S NAME";:T$:T(T$):I128:T$(N$(I),T)1730D$)P)Y12:958:N$(B);"'S SCORE IS ";S2;" CORRECT? ";:"";R$:(R$,1)"N"1610)^R(A,1)I(R(A,1)((S1SA)4)):R(B,2)I(R(B,2)((S1SA)4)))hR(B,1)I(R(B,1)((S2SB)4)):R(A,2)I(R(A,2)((S2SB)4))*mR(A,3)R(A,1)R(A,2):R(B,3)R(B,1)R(B,2): TO CONTINUE";:"";R$:250,(@1200p(J8:958:"PLEASE ENTER ";N$(A);"'S":" SCORE : ";SI$:S1(SI$)(O8:958:N$(A);"'S SCORE IS ";S1;" CORRECT? ";:"";R$:(R$,1)"N"1610)T12:958:"PLEASE ENTER ";N$(B);"'S":" SCORE : ";SI$:S2(SIEAM - ";N$(B);" ?";:"";R$:(R$,1)"N"1480N'NA$N$(A):NB$N$(B):1200::'SASBĺNA$;" OVER ";NB$:25:"BY ";DTA;" POINTS."'(SBSA)ĺNB$;" OVER ";NA$:25:"BY ";DTA;" POINTS."'SASBĺNA$;" AND ";NB$:25:"WILL BE TIED.""(::"PRESS  " <""@ "@> @ """" < <""<">>>> <"@ `@"><6@ @@pp""< $@ @""*""""2@ "" @"6"""""$"@  "@Ns@ @pp"<6< "" @ "|@""" @ "66"<""<"*"$""0""< $@ @A |"*@ @xpp ""@ @2<*>""""">@ >@  *&""">"@  &@Ns@ PP""*""<"@ >@""  @  **"""<"<*"">>0 ""@ @ @cq """>*@ @  ""@ @ *""*""""@ >"@A **""""". HOWEVER; IN ORDER TO CHANGE AN OLD SCORE, YOU HAVE TO SPELL IT RIGHT. DEAR OLE APPLE WONT READ PAST THE COMMAS.<# WHEN ALL THE HIGH SCORES FINISH LISTING, THEY START OVER. THE ======== MARKS THE BEGINNING. TO STOP THE LISTING JUST HIT THE SPACE BARO F# A)DD IS THE SAME AS CHANGE AN OLD RECORD : : NOTES ON : : : : SUPERSCORES : : : : : +--------------------+ 12# WHEN ENTERING DATA, PLEASE DONT USE COMMAS OR COLONS BECAUSE"OPEN SUPERSCORES.FILE":(4);"WRITE SUPERSCORES.FILE"BRTNI1RTZGM$(I)fPB$(I)rSC$(I)~PL$(I)DT$(I)I(4);"CLOSE SUPERSCORES.FILE"(4);"LOCK SUPERSCORES.FILE"(#+--------------------+ : ______________________"$8:34,8*A@ **QUIT-SAVE** GEXJ34,0:35,24fT16368,0u^SFLAG1Ā`8037c(4);"UNLOCK SUPERSCORES.FILE"e216,0h(4);"OPEN SUPERSCORES.FILE"r(4);"DELETE SUPERSCORES.FILE"|(4); 22:958:"UNLOCK CLASS FILE."3 I110::I9 \4!::12)"*** FILE DATA ***":5!:"IF A FILE DOES NOT EXIST THEN IT MUST BECREATED."6!:"TO CREATE A FILE CHOOSE #5":8!8510:!8575>!5)"1 - RATED-G"H!5)"2 - RATED-GP" 22:958:"REMOVE PROTECTION. TYPE 'RETURN' KEY."L K$:(K$)13ĺ:800Z& 60:8210p: "FILE NOT FOUND"}v 64:800 "DISK FULL" 22:958:"CHANGE DISKETTES. TYPE 'RETURN' KEY." K$:(K$)13ĺ:800 60:8360 "FILE LOCKED""9);"40N"06,? * ERROR ROUTINESC@E(222):20:958\J"ERROR = <";E;"> ";iT222,0:^E8100,8150,8150,8200,8250,8300,8100,8100,8350,8400"CONSULT MANUAL"64:800"RANGE ERROR"64:800 "WRITE PROTECTED"3FOR ";F$;" FILE." " "\*11)"#";:36,18:"TAPE # MOVIE NAME LOC. HR/MIN"410)"---";:36,18:"---- ----- ---- ---- ------">" "HI1RR10)I;:36,13:"-";\36,20:CL$(I)fIp(12)zSP2ĺ(SL0SL87100!60:7070/14:958D"PRINTER TYPE:"X5)"1- SERIAL"n5)"2- PARALLEL":55:SP(N)SP1SP2716060:7100SLSP2ĺ(9);"80N" 18)"*** MOVIE LIST REPORT ***":" "10)"MOVIE LIST ``` ਴ͳˠٶ@ @, @ @@  @!@ @@ @ @  @ 02@ }@ `@@PP <"@ @8<<"<"<,<@ """@""""<<@  @!@ @?`x::: (7)S"25. OPERATING COST/YR/FOOTCANDLE =";T4?T5T2LM:T5A(T5)i"26. OWNING COST/YR/FOOTCANDLE =";T5u 50,63T6T4T5:T6A(T6)"27. TOTAL COST/YR/FOOTCANDLE =";T6 50,255:::"TO START OVER, HIT ANY KEY...";: A$ 5T1C6C7C8C9:T1A(T1)G"22. TOTAL OPERATING COST/YEAR =";T1mT2((C1C2C3)LI)1.15:T2A(T2)"23. TOTAL OWNING COST/YEAR =";T2T3T1T2:T3A(T3) 50,63"24. TOTAL COST/YEAR =";T3 50,255T4T1LM:T4A(T4)(T =";C54 50,255.>C6BUTLRP:C6A(C6)OH"18. ENERGY COST/YEAR =";C6fRC7LRNC:C7A(C7)\"19. LAMP COST/YEAR =";C7fC8RLLR:C8A(C8)p"20. RELAMPING COST/YEAR =";C8zC9CONL:C9A(C9)"21. CLEANING LABOR COST/YEAR =";C9C2WCTL:C2A(C2)?"14. WIRING AND DISTRIBUTION COST =";C2VC3CLNL:C3A(C3)~"15. INSTALLATION LABOR COST =";C3C4NCNU:C4A(C4) "16. NET INITIAL LAMP COST =";C4C5C1C2C3C4:C5A(C5)  50,63*"17. TOTAL INITIAL COSLR(BUNU)A2:LRA(LR)G"12. NO. OF LAMPS REPLACED/YEAR =";LRe::::::::::::"HIT ANY KEY TO CONTINUE...";: A$ " *** COST DATA ***"C1CLNL:C1A(C1)"13. NET LUMINAIRE COST =";C1A(SH) 7"9. SPACING TO MT. HEIGHT RATIO =";SHa&:"HIT ANY KEY TO CONTINUE...";: A$g0m:s?D " *** OPERATING DATA ***"N:X"10. BURNING HOURS/YEARS =";BUbl"11. REPLACEMENT METHOD---SPOT OR GROUP"v "5. AREA/LUMINAIRE =";AL# < LS(ANL):LSA(LS)e "6. AVERAGE LUMINAIRE SPACING =";LSk  TLKLNL:TLA(TL) "7. TOTAL LIGHTING LOAD =";TL  SF(TL1000)A:SFA(SF) "8. TOTAL WATTS/SQUARE FOOT =";SFSHLSCD:SH: 6NL(ALM)(LLCUMFLU), @NLA(NL)P J"1. NUMBER OF LUMINAIRES =";NLV Tc ^NULLNLq hNUA(NU) r"2. NUMBER OF LAMPS =";NU | "3. MAINTAINED FOOTCANDLES =";LM  "4. TOTAL AREA LIGHTED =";A  ALANL:ALA(AL)5 1000:"KW/LUMINAIRE INCLUDING BALLAST LOSS";KLc 1000:"COST OF WIRING AND DISTRIBUTION" "PER KW LIGHTING LOAD";WC  1000:"ELECTRICAL RATE/KW-HOUR";RP  1000:"RELAMP COST/LAMP";RL   ":10:"*** SYSTEM DATA ***" ,000:"FOOTCANDLE LEVEL MAINTAINED";LMP 1000:"AVERAGE LAMP LIFE (HOURS)";A2e 1000:"AREA";A 1000:"CAVITY DEPTH";CD 1000:"CLEANING COST/LUMINAIRE";CO 1000:"LIFE OF INSTALLATION (YEARS)";LI 1000:"BURNING HOURS/YEARS";BU;LL# Z 1000:"COST/LUMINAIRE";CLG d 1000:"MAINTENANCE FACTOR";MFs n 1000:"COEFFICIENT OF UTILIZATION";CU x 1000:"MAXIMUM SPACING-TO-MOUNTING-HEIGHT":"RATIO";MH 1000:"NET COST PER LAMP";NC 1000:"INITIAL LAMP LUMENS";LU% 1  A(X)(X100.5)100#) W:::" *** SYLVIA SIMULATION ***"::3:"SYLVANIA ECONOMIC ANALYSIS PROGRAM"(:::10:"*** DATA ENTRY ***"2 34,11: 35,23< I1 400: IF 1000 P"NUMBER OF LAMPS/LUMINAIRE"    ""(#F$"X-RATED"2#'#800 pR!5)"3 - RATED-R")\!5)"4 - RATED-X"Gf!5)"5 - CHOOSE YOUR OWN"Op!:Wz!55]{!k!N5ī801}!N0N68600!60:8500!N8700,8800,8900,9000,9100,900!815!900!F$"G-RATED""`"F$"GP-RATED"j""F$"R-RATED***":b"DO THE FOLLOWING:"?l5)"1- LOAD PRINTER PAPER"\v5)"2- TURN ON PRINTER"y5)"3- SET TOP-OF-FORM"5)"4- PRINTER ON-LINE":"TYPE 'RETURN' KEY TO CONTINUE...";A$12:958"ENTER PRINTER SLOT(1-7) = ";SL:SL(SL)zI1R104:958N"TAPE":"# MOVIE NAME LOC. HR/MIN"W" "dJII9(CL$(J),1)""(CL$(J),1)" "60601:CL$(J)J20:"TYPE 'RETURN' KEY TO CONTINUE...";A$IX::10)"*** PRINTS MOVIES CL$(R)" "nRR1:IXR(xR055001100@SW15000J3280W|4:958|"THERE ARE ZERO MOVIES STORED.""RECREATING THE FILE TO REFLECT THIS!":"PLEASE WAIT A MOMENT."3280op::10)"*** REVIEW MOVIES ***": #? = ";RN#8:"MOVIE #";" ";RN_10:"TAPE":"# MOVIE NAME LOC. HR/MIN"p13:CL$(RN)17:"DELETE MOVIE ":"? (Y/N) ";A$((A$,1)"Y"52002(A$,1)"N"5250<60:5150PIRN1RZCL$(I1)CL$(I)dI i"MOVIE #";RN;" = "#10:CL$(RN)?12:"CHANGE TO WHAT ?"14:"TAPE":15:"# MOVIE NAME LOC. HR/MIN""=";CL$(RN)100SW140003280::10)"*** DELETE MOVIES ***":706:958  "WHICH MOVIE13000 D$;"OPEN ";F$. D$;"DELETE";F$A D$;"OPEN ";F$U D$;"WRITE ";F$] IXi I1IXu CL$(I)| I D$;"CLOSE ";F$* RIX::10)"*** CHANGE MOVIES ***":706:958"WHICH MOVIE #? = ";RN8:A$"N"299960:201004D$;"DELETE ";F$6 ] ::10)"*** ENTERS MOVIES ***":e 70n IXR IXIX1:RIX "ENTER MOVIE #";IX; " ":"TAPE":"# MOVIE NAME LOC. HR/MIN" " " "=";CL$(IX) 100 SW";F$jD$;"WRITE ";F$tN/~D$;"CLOSE":216,0@d::9)"*** DELETE FILE ***":o8:13:"W A R N I N G":12:"THIS WILL REMOVE THIS ENTIRE FILE FROM THE CATALOG."15:"DELETE FILE ? (Y/N) ";A$A$"Y"2100  ":80008510*N1N510008N51030SN8700,8800,8900,9000]1040z"ENTER FILE NAME = ";F$L(F$):L21999L20F$(F$,20)$F$"MOVIE."F$:N0.D$(4)LD$;"OPEN ";F$VD$;"DELETE ";F$`D$;"OPEN :10)"8- CHOOSE NEW FILE"7 :10)"0- EXIT PROGRAM"R (20):958:55:N(N)_ N0990p N0N9950} 60:930 N1000,2000,3000,4000,5000,6000,7000,10 900 :958:10:"GOODBYE FOR NOW...." ::9)"*** CREAT FILE ***T PROG ***":, "MAIN MENU:":"---- ----"L 10)"1- CREATE MOVIE FILE"n 10)"2- DELETE MOVIE FILE": 10)"3- ENTERS NAMES" 10)"4- CHANGE NAMES" 10)"5- DELETE NAMES": 10)"6- REVIEW NAMES" 10)"7- PRINTS NAMES" " "/L(F$):L2900( 4L20F$(F$,20); 9F$"MOVIE."F$G :D$(4)R >8000k CD$;"OPEN ";F$;",D1"~ HD$;"READ ";F$ MR RR1870 WI1R \CL$(I) aI fD$;"CLOSE" k216,0 n  * MAIN DRIVER ::9)"*** MOVIE LIS;R;" MOVIES IN ";F$: dSW0E i20:"ANOTHER MOVIE ?(Y/N) = ";A$] n(A$,1)"Y"SW1:u s(A$,1)"N"SW0: x60:100 8500 !: ""TYPE 'RETURN' KEY IF FILE NOT CREATED!" #805 $899 %6:958 *"ENTER FILE NAME =";F$ ** ::222,0:A(0)% CL$(50)1 -D$(4); 28500R 3 ****************i 4 * GEN'L SUBR * 5 **************** 7"WHICH ONE? ==> ";N: <(22):958:13::"ILLEGAL ENTRY!";(7): @L11000:: F4:958:IXR K"THERE ARE ") *** MOVIE LIST ***" *A * WRITTEN BY*JL CAMPBELL] * DATED:07/16/81e * * MOD. BY*SM MOREHOUSE * DATED:03/17/82 * * LANGUAGE:APPLESOFT * COMPUTER:APPLE II * **********************     ɍԍύ 鍍 ٍ Ӎԍ ҍፍ 鍍Ǎƍ  Ǎ ōč  ̍č ˍč  ύ ō   ύ ˍԍ č  ō Ӎ ٍ͍ō ō  ōōčō    ȍ          :"ENTER INGREDIENTS AND INSTRUCTIONS ONE LINE (60 CHARACTERS MAXIMUM) AT A TIME. INGREDEINTS AND INSTRUCTIONS MAY BE ENTERED IN ANY FORM THAT IS CONVENIENT FOR YOU. ENTER RECIPE EXACTLY AS YOU WANT IT TO PRINT OUT.":"DO NOT USE COMMA:"RECIPE TYPE IS - ":3);::TY$:S b:"IS THIS CORRECT (Y OR N)? ";:A$:A$:f lA$"N"ĺ:530 vA$"Y"İ3000:5500:1000 :"PLEASE ANSWER 'Y' OR 'N'."::610  ENTER RECIPE ::TY$::3);::FI$::13);::"ENTER RECIPE":ACTERS."::::530 & 0"ENTER TYPE OF RECIPE (DESSERT MISC., CAKE, CANDY, PIE, MAIN DISH, SALAD AND DRESSING, SAUCE, VEGETABLE, DRINK, SOUP,BREAD, APPETIZER, MISC.)." ::"TYPE IS - ";TY$ D: N"RECIPE NAME IS - ":3);::FI$:$ X.5): EIGHT  FOR BONE SIZE 2 CR6CR7ıR CR7WTWT((WT10).5):r CR6WTWT((WT10).5):x   ADJUST WOMAN'S WEIGHT  FOR BONE SIZE  CR6CR6.5ı CR6WTWT((WT10).5): CR6.5WTWT((WT10)IST IN INCHES"; CR. MF$"M"İ500:2807 750b :"ACCORDING TO DR.KENNETH H. COOPER" "",AUTHOR OF 'AEROBICS', YOUR IDEAL" 6"WEIGHT ";::WT;" POUNDS.": @7:"ANOTHER (Y/N)" JCH$:(CH$,1)"Y"Ĭ T   ADJUST MAN'S W4:210 SB108:ML3.5B 14:"WHAT IS YOUR HEIGHT IN INCHES" HT:HT86HT55Ģ14:"REAL FUNNY ":X11500::210 CALCULATE WEIGHT WT(HTML)SB 18:"WHAT IS THE CIRCUMFRENCE OF YOUR DOMINATE WR d::*n:12:"WEIGHT CALCULATOR"8x19:"BY"R14:"DOUG COLLINS":y10:"ARE YOU MALE OR FEMALE (M/F)MF$:MF$""140MF$(MF$,1)MF$"M"MF$"F"190140 SET VARIABLES FOR SEX MF$"M"SB128:MLATTERN 1(I0158870,I279,I=P0,159279,159_1,11,159nI92799|$I91080.I,0I,1598B24:7);::"Q U I L T P R O G R A M":LI11000:V` ACROSS LENGTH6zRO(NOA):FLROAW:FL(FL36).75g"TOTAL FABRIC NEEDED IS - ":5)FL" YARDS."m"DO YOU WANT TO FIGURE MORE YARDAGES? ";:X$:X$X$"Y"ė:810X$"N"50:"PLEASE ANSWER 'YES' OR 'NO'."::920 COVER PT BLOCK ";BL:04"WIDTH OF QUILT BLOCK ";BW:U>"NUMBER OF BLOCKS NEEDED ";NO:rH"WIDTH OF FABRIC ";FW:RA(FWBL)::A1(FWBW):\AR(FW(ABL)):AR1(FW(A1BW)):AR1ARAA1:AWBW:890fAWBLp A=# BLOCKS ACROSS WIDTH D=# BLOCKS);:A$::49232,0:49237,0:49239,0:49234,0:A$:J 49236,0:49233,0:TPRINTER WITH A GRAPHICS ROUTINE." :"SEE ALSO THE INFORMATION ON THE GAME I/OCONNECTOR ON PAGES 23 AND 100 OF THE 'APPLE ][ REFERENCE MANUAL'."2 23:"HIT ";::"SPACE BAR";::" ONCE TO SEE THE DIAGRAM, AND THEN ONCE AGAIN TO QUIT. *";(8AN APPLEWRITER TEXT FILE ENTITLED TEXT.JOYSTICK.INFO' CONTAINS INSTRUCTIONS FOR THE ASSEMBLY OF A JOYSTICK."$ :"IN ADDITION, A HI-RES PICTURE BEARS THE NECESSARY WIRING DIAGRAM. YOU CAN COPY THIS FROM THE HI-RES SCREEN BY HAND, OR DUMP IT TO A K`d(4)"BLOAD JOYSTICK WIRING DIAGRAM":::T$"JOYSTICK INFORMATION":21(T$)2::T$:::n"THIS DISK BEARS SEVERAL FILES WHICH WILLASSIST IN THE CONSTRUCTION OF A JOYSTICKFOR THE APPLE COMPUTER."r x:"A TEXT FILE ENTITLED 'JOYSTICK.INFO',AND  鍠􍠠îƮ®䮠宠ɠ련󩺍Ԡ󍠠򠴷󩠱􍠠㺍嬠򬍠塍堨󩍨󮠠ᠱ砨¨¨Ƣ΢Ƣ䠲䬠ح󩮠뮠련婠獨栫멮䠲宠󠲵ﬠ٭󩮠̨堰ﮠ󮠠Π°±󠰠䠱堢Ƣ䮠̨報ﮠɯϠ宍⩠宠堢᩠堨積Ů殠򮠠ɯϠ򮠠堍Ҳ堵󮠠䬠ɠ䩠󮠠堠РήԺұ宠Š۠뺍箠젨⮠װױ          @ *@@ pp"*"" "@ "@ @ *@x?*""" " *""""0 ""@ @>@"Q@ """""@ |B@  "< <"@`@6"*<"@ "" <@"@cq"2<:@ |2@@ <pp"""""< <" @ @"@" @ @ ""@ " : " :6:"""0 "< <"@ @" ~g6[yx " "@ B@  @!@ "6 @ "@" @"Q""""@  "@@  x"""@ `@@" " @? @ "" @  ""$""0 @ "@"">, @"@ B@  @!@`<" @ "@xg6[y"@  x@@  "@ `|@8>@pp@ "@ @ ">>> @ "@8>"@ b@                  NS MADE (Y OR N)? ";:A$:A$:9T A$"Y"ZN:4500:110J^ A$"N"2740Zh 7000:2890s CREATE RECIPE FILE :12:"PLEASE WAIT WHILE I CREATE A FILE FOR THIS RECIPE." OP$;FI$", L60" WR$;FI$", R0":1 WR$;FI$", R1":TY$ CL$  IZ1N IN$(I)& I$(I)< (I$(I))12830 (I$(I))60ĺ:"LENGTH IS LIMITED TO 60 CHARACTERS. PLEASE RE-ENTER."::2790 IN$(I)I$(I)  ::FI$:::" 150, I1N:IN$(I):6 @ 255J "ARE ALL CORRECTIOLEASE RE-ENTER.":2700 / ::FI$::: "THIS ALLOWS YOU TO CHECK YOUR TYPING. IFA LINE IS CORRECT, PRESS 'RETURN' AND THE NEXT LINE WILL BE DISPLAYED. MAKE ANY CORRECTIONS AFTER THE PROMPT APPEARSTHEN PRESS 'RETURN' FOR THE NEXT LINE."OF 50 LINES MAY APPEAR IN THE RECIPE. PRESS 'RETURN' TO STOP ENTERING.":YP I11000:bZ 150wd I1Z:IN$(I):n Z1Z1x 255 IZ150 IN$(I) (IN$(I))1NI1:2740 (IN$(I))60ĺ:"LENGTH IS LIMITED TO 60 CHARACTERS. P$"HELP"İ5000:::2530" 40001 Z502620 Z50ĺ:"FILE IS FULL. DO YOU WANT TO EDIT THIS FILE (Y OR N)? ";:A$:A$: A$"Y"1500( A$"N"1102 7000:2580< ::FI$:::IF "ENTER ADDITIONAL LINES ONE AT A TIME. A MAXIMUM E- :9);::"ADD TO EXISTING RECIPE"::N I150:IN$(I)"":I$(I)"": "ENTERING 'HELP' WILL PRINT OUT A LIST OFRECIPES ON FILE. PRESSING 'RETURN' WILL RETURN YOU TO THE MAIN MENU.": "ENTER RECIPE NAME - ":FI$ (FI$)1110 FI J159:"*";::*I2Z*4IN$(I)0>FHJ159:"*";::YRD$;"PR#0"::\"DO YOU WANT TO PRINT OUR ANOTHER RECIPE?";:A$:A$fA$"N"ī110pA$"Y"ī2000z::"PLEASE ANSWER 'Y' OR 'N'.":::2140 ADD TO EXISTING RECIP":14);::"PRINT RECIPE"::d"ENTERING 'HELP'WILL PRINT OUT A LIST OF RECIPES ON FILE.":"ENTER RECIPE NAME - ":FI$FI$"HELP"İ5000:::20204000:D$;"PR#1": "RECIPE TYPE - ";IN$(1):"RECIPE NAME - ";FI$:NGTH IF LIMITED TO 60 CHARACTERS. PLEASE RE-ENTER LINE.":1590QJIN$(I)I$(I)WT]^h"ARE ALL CORRECTIONS NOW MADE(Y OR N)? ";:A$:A$:rA$"N"1550|A$"Y"İ4500:110:"PLEASE ANSWER 'Y' OR 'N'.":::1640 PRINT ROUTINE::15204000C:10);::"EDIT A RECIPE":::::FI$::"IF ITEM IS CORRECT, PRESS 'RETURN' FOR THE NEXT LINE. THIS WILL STEP THROUGH ALL ITEMS IN THE RECIPE.""I1Z,IN$(I)6I$(I):(I$(I))11620@@(IN$(I))60ĺ:"LEİ3500:110B:"PLEASE ANSWER 'Y' OR 'N':NORMAL:PRINT:GOTO 990X EDITING ROUTINE:8);::"EDIT EXISTING RECIPE"::"ENTERING 'HELP' WILL PRINT OUT A LIST OFRECIPES ON FILE.":"ENTER NAME OF RECIPE - ":FI$FI$"HELP"İ5000::"LENGTH IS LIMITED TO 60 CHARACTERS. PLEASE RE-ENTER LINE.":1140YIN$(I)I$(I)_}::TY$::3);::FI$:150I2N:IN$(I):255"IS THE RECIPE CORRECT (Y OR N)? ";:A$:A$:A$"N"1100 A$"Y"F THE LINE IS CORRECT, PRESS 'RETURN' FOR THE NEXT LINE. IF THE LINE IS WRONG, RE-ENTER LINE AFTER PROMPT THEN PRESS 'RETURN'. RECIPE CAN BE PRINTED OUT 60 COLUMNS WIDE."`I2NjIN$(I)tI$(I)~(I$(I))11180H(I$(I))60S OR COLONS!!!"::I250+$IN$(I)I.(IN$(I))1NI1:11008(IN$(I))60ĺ:"LENGTH IS LIMITED TO 60 CHARACTERS. PLEASE RE-ENTER LINE.":1060BL::TY$::3);::FI$::V"RECIPE WILL PRINT OUT ONE LINE AT A TIME. IӍ͍  SC$(I1)T$(3)% PL$(I1)T$(4)9 DT$(I1)T$(5)A F1HIWF1ī3400fG$:(13)p$1020 **DELETE** 34,0:35,6SFLAG11::"DELETE RECORD":3:"GAME? ";IG$IG$""3050I1RT IG$GM(I)GM$(I1)3590$f T$(1)GM$(I)6p T$(2)PB$(I)Hz T$(3)SC$(I)Z T$(4)PL$(I)l T$(5)DT$(I) GM$(I)GM$(I1) PB$(I)PB$(I1) SC$(I)SC$(I1) PL$(I)PL$(I1) DT$(I)DT$(I1) GM$(I1)T$(1) PB$(I1)T$(2)$ PB$(I)IP$! SC$(I)IH$1 DT$(I)TD$A PL$(I)IW$K 3390_ **APPEND** k RTRT1| GM$(RT)IG$ PB$(RT)IP$ SC$(RT)IH$ DT$(RT)TD$* PL$(RT)IW$4 RT11020> **SORT** H F0R I1RT1\ GM$8)D (IH$)8IH$(IH$,8):N (IW$)18IW$(IW$,18)QX **UPDATE** ]b I1RTrl IG$GM$(I)3210yv I 3320  "THE CURRENT RECORD IS: " 3:GM$(I);:20:SC$(I);:31:DT$(I) 4:1:PB$(I);:20:PL$(I) GM$(I)IG:3:6:IG$ IG$"Q"1020. IG$""3050L 3:20:"PUBLISHER? ";IP$g 4:"HIGH SCORE? ";IH$x IH$""3090& 5:"PLAYER NAME? ";IW$+ 6:"CORRECT? (Y/N)";:G$:(13);:G$"N"30300 (IG$)18ĪIG$(IG$,18): (IP$)18IP$(IP$,1085000KEY2098000#1040)B **SINGLE STEP** P16368,0h(16384)1282020v16368,01040 **ADD**  SFLAG1 34,0:35,6  1::"ADD RECORD":  3:"GAME (Q ESCAPES)" A TO ADD A FILE")XRTX1:"======"2$200[.1:GM$(X);:20:SC$(X);:31:DT$(X)w81:PB$(X);:20:PL$(X)B255LV(16384)1281040`KEY(16384)j16368,0tKEY1602000~KEY1933000KEY1964000KEY2 SUPERSCORES.FILE"4(4);"READ SUPERSCORES.FILE":BRTNI1RTZGM$(I)fPB$(I)rSC$(I)~PL$(I)DT$(I)I(4);"CLOSE SUPERSCORE.FILE" **SCREEN** 216,0700014XX1RT0ĺ"PRESS:"YEAR ";Y$(Y$)24001(Y$)824009 STD$M$"-"D$"-"Y$17:"CORRECT?(Y/N) ";::"Y"::16384,128:G$:(13)G$"N"200X **LOAD FILE** b1000l(4);"VERIFY SUPERSCORES.FILE"v216,0(4);"OPEN*ENTER DATE** < "6:"PLEASE ENTER TODAY'S NUMERIC DATE."Q ,10:"MONTH ";M$k 6(M$)1(M$)12300 @(M$)1ĪM$"0"M$ J10:7:M$ T ^12:"DAY ";D$ h(D$)1(D$)31350 r(D$)1ĪD$"0"D$ |12:7:D$  14RNEXT LOOP PGM$(100)& RPB$(100)4 TSC$(100)B VPL$(100)P XDT$(100)d **HEADER** | 34,0:35,24:255: A13 A:Z120:"V^";: A: Q$" SUPERSCORES PROGRAM BY BRAD GREEN " 2:20(((Q$)2)):Q$  *R > KE-KEY DEPRESSED' ? M$-MONTH; @ PB$-PUBLISHERL A PL$-PLAYERd B Q$-ANY OL' STRINGz C RT-RECORD TOTAL D SC$-SCORE E SF$-SAVE FLAG F TD$-TODAY'S DATE G T$-TEMP PIDGEON HOLE H X-ARRAY VARIABLE I Y$-YEAR J Z-FOONS**  3 A-FORNEXT LOOPS1 4 D$-DAY STRINGI 5 DT$()-RECORD DATE[ 6 F-SORT FLAGn 7 G$-GET SRING 8 GM$-GAME STRING 9 ID$-INPUT DATE : IG$-IMPUT GAME ; IH$-INPUT HIGH SCORE < IP$-INPUT PUBLISHER = IW$-INPUT RECORD WINNE---- : : : COPYRIGHT 1982 : : : : WRITTEN 05-22-1982 : : : : * * * * * * * : +----------------------+  LAST UPDATE- 06-04-1982   2 **PIDGEP+----------------------+ : SUPERSCORES PROGRAM : : : : ^ ^ BY : : ' ' : : O BRAD GREEN : : : +----------------------+ +-------------------        ADDITIONS TO FILE[$L12:"PLEASE WAIT WHILE I PRINT THESE ADDITIONS TO THE DISK."p$VOP$;FI$;", L60"$`WR$;FI$;", R0":N$jIZN$tWR$;FI$;",R";I:IN$(I)$~$CL$$I!#c CREATE RECIPE RECORD FILEW#d:12:"PARDON ME WHILE I INITILIZE THIS PROGRAM"u#nOP$;"RECIPE RECORD, L30"#xWR$;"RECIPE RECORD, R0":0#CL$##W NOT 'Y' OR 'N' ROUTINE #X:::"PLEASE ANSWER 'Y' OR 'N'."::::$K PRINT WR$;"RECIPE RECORD, R";Z:FI$@"WR$;"RECIPE RECORD, R0":ZI"CL$O"x"o READ RECIPE RECORD FILE FROM DISK"pOP$;"RECIPE RECORD, L30""zRD$;"RECIPE RECORD, R0":Z"I1Z"RD$;"RECIPE RECORD, R";Z"RR$(I)""CL$#!I1Zb!C22Ģ24::"PRESS 'RETURN' TO CONTINUE.";:A$::8);::"RECIPES ON FILE":::C2n!RR$(I)x!CC1~!!!{ PRINTS RECIPE NAMES TO RECIPE RECORD FILE!|OP$;"RECIPE RECORD, L30"!RD$;"RECIPE RECORD, R0":Z!ZZ1 "M NOW WRITING THE CORRECTED RECIPE BACK TO THE DISK. PLEASE WAIT."Y OP$;FI$;", L60"d I1Zy WR$;FI$;", R";I IN$(I)  WR$;FI$;", R0":Z CL$   'HELP' ROUTINE 6000 :8);::"RECIPES ON FILE":: C2 DISK IS AVAILABLE BY TYPING 'HELP'."::Y12:"PLEASE WAIT WHILE I LOAD THE RECIPE."nOP$;FI$;", L60"RD$;FI$;",R0":ZI1ZRD$;FI$;", R";IIN$(I)CL$" PRINT CORRECTED RECIPE BACK TO DISKD :12:"I AZ CL$$2. LOAD RECIPE FILE FROM DISKT LOAD RECIPE FILE FROM DISK^6000|I1Z:FI$RR$(I)4050:12::FI$;" WAS NOT FOUND ON RECORD."::::"PLEASE CHECK YOUR SPELLING.":::):"A LIST OF RECIPES CURRENTLY ON  6 ADD INGREDIENTS AND INSTRUCTIONS TO FILEq :12:"PLEASE WAIT WHILE I STORE THE RECIPE ON DISK." OP$;FI$;", L60" RD$;FI$;",R0" Z ZZ1 IZN WR$;FI$;", R";I IN$(I) IZ(NZ)2WR$;FI$;" ,R0":$ NO MORE THAN 13 CHARS ?JIM GANZ,10/81 & 6/82S82 SPRING LANEnW.HARTFORD, CT. 06107tCAUTION: THE ONLY WAYTO GET OUT OF THISONCE IT HAS BEEN RUNIS TO TURN OFF THECOMPUTER!MPUTER!15,28,21,39,28,21,39,29,1,19,30,21,24,30,1,4,31,9,11,31,16,19,31,1,4,32,9,11,32,16,19,32,1,4,33,16,19,33,1,19,35,1,1,36,10,10,36 12,14,36,1,1,37,7,10,37,14,16,37,1,7,38,16,19,38 0,0,0  TWN$"WEST HARTFORD": ^ YOUR CITY OR TOWN ^6,19,18,21,24,18,29,31,18,36,39,18,21,24,19,29,31,19,36,39,19,1,19,20,21,24,20,36,39,20,16,19,21,16,19,22,21,39,22 r1,19,23,21,21,23,30,30,23,32,34,23,21,21,24,27,30,24,34,36,24,1,19,25,21,27,25,36,39,25,2,4,26,16,18,26,3,7,27,14,17,27,21,24,27 |5,,1,19,1,1,19,2,1,4,3,16,19,3,1,19,5,4,12,6,7,16,7,21,39,7,1,19,8,21,24,8,31,32,8,21,24,9,31,32,9,1,4,10,21,39,10 ^1,19,11,1,19,12,21,39,12,1,4,13,36,39,13,36,39,14,1,19,15,36,39,15,1,1,16,10,10,16,12,14,16,1,1,17,7,10,17,14,16,17,21,39,17r h1,7,18,1ND ";::"FIRE DEPARTMENT";::"HAVE BEEN NOTIFIED AND ARE ENROUTE...";m CO(16(1)1):COOCOCOBC280| "CO:OCOCO ,Y1,Y2,X:Y1320 6Y1,Y2X:300 @:TT1:T5280 JT0:BC(15(1))1:BC:Y039:0,39Y::230p T1,4,0,16,19,0ESET" BY BOB CLARDY & KEVIN; KILLION,PAGES 133-135W 'ALL ABOUT APPLESOFT')] f 420x :(7)::21 BC(15(1))1:BC Y039:0,39Y: "AN INTRUDER HAS PENETRATED ";::"SECSYS-342"::G TWN$" ";::"POLICE";::" A d410snA$"300: 20 EA 03 20 66 D5 N 3F2:00 03 A6 N D7D2G":I1(A$):511I,((A$,I,1))128::72,0:144yxABOVE SETS UP A ROUTINEWHICH MAKES THE PROGRAMRESTART WHENEVER THERESET KEY IS PRESSED. (FROM "RESETTING R     HAT YOU CAN'TEXIT THE PROGRAM WITHOUT TURNING THE COMPUTER OFF AND ON."M "PRESS ";::"RETURN";::" TO RUN, ";::"ESC";::" TO QUIT "; 16368,0:A$ (A$)13ĺ(4)"RUNINT.ALERT.PROG" (A$)27Ā 27Ā ALY BOASTS THAT IT HAS DETECTED AN INTRUDER IN THE HOUSE."@ d n"IF A BURGLAR COMES ACROSS THIS DISPLAY HE MAY THINK TWICE BEFORE CONTINUING TO GO ABOUT HIS 'BUSINESS.'" xG "CHANGE TWN$ IN LINE 420 TO THE NAME OF YOUR CITY OR TOWN... NOTE T 10!20(A$)21:A$:) :I:A$" INTRUDER ALERT! ":5Q:i(A$"BY JIM GANZ":5o2<"JUST HOW SMART ARE BURGLARS ANYWAY?"F"HOPEFULLY, NOT VERY."P: Z"THE FOLLOWING PROGRAM IS A BOGUS WARNINGSYSTEM THAT GRAPHICAL  z#?????Xγ  ҮӠ ӮŠ ԮˮϠԮҠ  ٮŠǮΠ Ҡ Ԯ͠ŮǠĮҠŠ ˮӠ ǠŠŠͮ٠ŠԠ ̮̮Ӡ̮Ҡ) ƠŮҠԮԮǠҮԠˠ ˠǠ͠" ˮϠΠˠΰ͠ ٠ҠΧӠ!Š"ήҠ"WHEN GIVING SIZE OF BLOCK, ADD SEAM ALLOWANCES AND ROUND UP TO THE NEXT HIGHER INCH. A 4 INCH SQUARE BLOCK WITH .25 INCH SEAMS WOULD BE 5 INCHES WIDE AND 5 INCHES LONG. THIS WILL ALLOW EXTRAFABRIC FOR RAGGED EDGES." *"LENGTH OF QUIL2))10)C;17)E;22)CE;29)J" "K0IY24:"PRESS RETURN TO CONTINUE";:A$a50 FIGURE MATERIAL REQUIREMENTS "I WILL FIGURE THE AMOUNT OF FRABIC REQUIRED TO MAKE A QUILT IF YOU WILL GIVE ME SOME INFORMATION.": WILL TAKE THE FOLLOWING NUMBER OF BLOCKSLEAVING A BORDER ON EACH SIDE AS SHOWN:":"SIZE";7)"# LONG";15)"# WIDE";22)"TOTAL";31)"BORDER"29)"LGTH WIDTH"I112I" IN";C(LI):E(WI):J(L(IC)):J(J2):K(W(IC)):K(KN TELL YOU IF YOU WILL HAVE A BORDER LEFT OVER ON EITHER LENGTH OR WIDTH."ql:"LENGTH OF FINISHED QUILT ";L:v"WIDTH OF FINISHED QUILT ";W:"PARDON ME WHILE I FIGURE THIS OUT.":I11000:T"QUILT "L" INCHES LONG BY "W" INCHES WIDE ON "QW" INCH SIDE - 0 INCHES":580X:3)"BORDER ON "QW" INCH SIDE - "(K2)" INCHES"D24:"PRESS RETURN TO CONTINUE";:A$:50N FIGURE # OF BLOCKS NEEDEDXJb"I WILL FIGURE THE SIZE OF BLOCKS NEEDED TO MAKE A GIVEN SIZE QUILT. I WILL EVE3)CE" QUILT BLOCKS WILL BE NEEDED"D6)C" QUILT BLOCKS LONG"b6)E" QUILT BLOCKS WIDE"J(QL(BC)):J1ĺ3)"BORDER ON "QL" INCH SIDE - 0 INCHES":560&3)"BORDER ON "QL" INCH SIDE - "(J2)" INCHES"#0K(QW(BE)):K1ĺ3)"BORDERED ";W:FQLL17:QWW34: ADDITIONAL INCHES FOR OVERHANG OF QUILTC(QLB):E(QWB): # OF FULL BLOCKS LONG AND WIDE"A BED "L" INCHES LONG AND "W" INCHES WIDE WILL NEED A QUILT:":3)QL" INCHES LONG"3)QW" INCHES WIDE"&SS RETURN TO CONTINUE";:A$# 50>  FIGURE SIZE OF QUILTD  "I WILL FIGURE THE SIZE OF QUILT GIVEN THE QUILT BLOCK SIZE AND BED SIZE. MAKE ALL ENTERIES IN INCHES.": "SIZE OF QUILT BLOCK ";B: "LENGTH OF BED ";L:"WIDTH OF BBC)):J1ĺ3)"BORDER ON "L" INCH SIDE - 0 INCHES":350p T3)"BORDER ON ";L;" INCH SIDE - "(J2);" INCHES." ^K(W(BE)):K1ĺ3)"BORDER ON "W" INCH SIDE - 0 INCHES":380 h3)"BORDER ON ";W;" INCH SIDE - "(K2);" INCHES." r |24:"PRE # OF FULL BLOCKS LONG; E(WB): # OF FULL BLOCKS WIDEA  "A QUILT ";L;" INCHES LONG BY ";W;" INCHES WIDE WILL BE:" 3)C" BLOCKS LONG" "3)E" BLOCKS WIDE" , 6:3)"A TOTAL OF "CE" BLOCKS WILL BE NEEDED." @8 JJ(L( "I WILL FIGURE THE NUMBER OF BLOCKS YOU WILL NEED TO COMPLETE A GIVEN SIZE QUILT. MAKE ALL ENTERIES IN INCHES." : "SIZE OF QUILT BLOCK ";B: "LENGTH OF FINISHED QUILT ";L: "WIDTH OF FINISHED QUILT ";W: C(LB):5)"4 FIGURE MATERIAL REQUIRED":? x5)"5 QUIT PROGRAM":r :"ENTER SELECTION NUMBER:";::A$:A(A$):A A1A5ĺ"NUMBER NOT ACCEPTABLE. TRY AGAIN."::130 A170,400,600,770,160 FIGURE NUMBER OF BLOCKS FOR QIVEN SIZE QUILT( FIGURE BLOCKS NEEDED FOR A QUILTJ970: DRAW PATTERN FOR COVERP[( MENU2:14);::"QUILT PROGRAM":::<F5)"1 FIGURE NUMBER OF BLOCKS":P5)"2 FIGURE SIZE OF QUILT":Z5)"3 FIGURE SIZE OF BLOCK"d# n     Z ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8)  WARNING!L h if you have lower case it is ok to change anything you wish.f rX770790:Y:X,Y:X |173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96,POB 42831,LAS VEGAS NV,89116       X 255 Z1500:ZB X102005:768,X:769,20:770:X_ 23:17::"THIS SIZE": "X15:768,10:769,10:770:Z150:Z:X ,Z15000:Z 61:1: @ J WARNING! T DO NOT CHANGE ANY INFORMATION BEYOND THIS LINE! ^69,40:770:JN 1:1:"X":X239:1:768,X5:769,10:X:"-";:770:X:"X" X221:X:40:768,X5:769,5:"!":770:X:22:40:"X" X3911:22:X:768,X5:769,10:"-";:770:X:22:1:"X";: X2121:X:1:768,X5:769,5:"!";:770:d SCREEN SIZERn5x AN ORIGINAL CONCEPT J BY PAUL RAYMER PAUL'S ELECTRIC COMPUTER POB 42831 LAS VEGAS NV 89116  II/I/MCMLXXXII370100 I$"YOUR SCREEN IS:":J1(I$):11:13J:(I$,J,1):768,20:7 THE WORD AND ADD 'AY'=:(X$(I),4)(X$(I),3)"AY ";:350uDTHE WORD TYPED STARTS WITH MORE THAN 3 CONSONANTSN::(7);"YOU MUST BE TRYING TO TRICK ME!"::"LET'S START ALL OVER!":I1500:I:190IE END OF THE WORD AND ADD 'AY'E(X$(I),2)(X$(I),1)"AY ";:350THE WORD STARTS WITH 2 CONSONANTS, MOVE THEM TO THEEND OF THE WORD AND ADD 'AY'&(X$(I),3)(X$(I),2)"AY ";:3500THE WORD STARTS WITH 3 CONSONANTS, MOVE THEM TO THEEND OFCE? ";A$ (A$,1)"Y"ė:1906(A$,1)"N"390U:"EESAY OUYAY ATERLAY!!"[ THE WORD STARTS WITH A VOWEL, ADD 'WAY' TO THE END OF THE WORDX$(I)"WAY ";:350THE WORD STARTS WITH A SINGLE CONSONANT, MOVE THE CONSONANT TO TH)"U"(X$(I),4,1)"Y"5708JWORD MUST BE TYPED WRONGAT590H^Ih CHECK CURSOR POSITION, MOVE IT BACK ONE SPACE AND PRINT PUNCTUATIONrCH(36):36,CH1:P$|:"THERE! WASN'T THAT CLEVER OF ME!":"DO YOU WANT TO DO ANOTHER SENTEN2,1)"Y"530< ,IS THE THIRD LETTER OF THIS WORD A VOWEL? 6(X$(I),3,1)"A"(X$(I),3,1)"E"(X$(I),3,1)"I"(X$(I),3,1)"O"(X$(I),3,1)"U"(X$(I),3,1)"Y"550@(X$(I),4,1)"A"(X$(I),4,1)"E"(X$(I),4,1)"I"(X$(I),4,1)"O"(X$(I),4,1ER OF THIS WORD A VOWEL?m (X$(I),1)"A"(X$(I),1)"E"(X$(I),1)"I"(X$(I),1)"O"(X$(I),1)"U"510 IS THE SECOND LETTER OF THIS WORD A VOWEL? "(X$(I),2,1)"A"(X$(I),2,1)"E"(X$(I),2,1)"I"(X$(I),2,1)"O"(X$(I),2,1)"U"(X$(I),5:"TYPE ONE WORD AT A TIME AND":5:"THEN PRESS THE 'RETURN' KEY.":Q X$(N)z I1N:5:"WORD ";I;:": ";X$(I):I :5:"WHAT PUNCTUATION DO YOU WANT":5:"AT THE END? ";P$:: P$"."P$"!"P$"?"230 I1N IS THE FIRST LETTE."X :"THEN YOU WILL TYPE THE WORDS AND I,":"BEFORE YOUR VERY EYES, WILL SHOW YOU" "YOUR SENTENCE IN PIG LATIN.":::"<> <> <> <> <> <> <> <> <> <> <> <> <>" :5:"HOW MANY WORDS WILL BE IN YOUR":5:"SENTENCE? ";N$:N(N$):N0190F :ORIGINAL PROGRAM)"U 15:11:"YBAY ANDYSAY ITHSMAY":17:12:"(BY SANDY SMITH)"f I13000:I ::"I, THE MARVELOUS APPLE II WILL WRITE":"SENTENCES IN PIG LATIN FOR YOU!!" :"FIRST YOU'LL NEED TO TELL ME HOW LONG":"YOUR SENTENCE WILL B  ** PIG LATIN **5** AN ORIGINAL PROGRAM **P ** CONTRIBUTED BY **k( ** SANDY SMITH **2 ** FEBRUARY 1982 **d:n5:12:"** IGPAY ATINLAY **":7:16:"(PIG LATIN)" x10:8:"ANWAY ORIGINALWAY OGRAMPRAY":12:10:"(AN           AT UPON,GIVEN LAST RITES, EXAMINED,MADE FUN OF,ADMIRED,OGLED,YELLED AT, DRAFTED,FONDLED,SENT ON A DANGEROUS MISSION,CUDDLED6 XORT,HAULED INTO COURT,TIED TO A TREE,LOCKED UP,SENT TO THE BUG HOUSE,PLACED IN ISOLATION" SENTENCED TO DEATH,INVITED TO THE WHITE HOUSE,INVITED TO SING AT THE MET,IRRADIATED,MASHED FLATTER THAN A PANCAKE,PLAYED FOR A FOOL,TOTALLY IGNORED,RUBBED OUT,SPUFACTURER,TRADED FOR BEADS,HELD FOR RANSOM,IDOLIZED,TESTED FOR RABIES,SWALLOWED WHOLE,SUSPECTED OF INDECENCY ASKED FOR IDENTIFICATION,EXAMINED THOROUGHLY,SUSPECTED OF IMMORAL BEHAVIOR,FRIED IN CHICKEN FATX TESTED FOR INTELLIGENCE,DENIED A PASSPA TASTY SNACK. DISSOLVED IN BUTTER,ADORED HELD PRISONER,IMPRISONED,EATEN ALIVE,BOILED IN OIL,FED TO THE ALLIGATORS,ARRESTED,BETRAYED,NOMINATED FOR PRESIDENTl INVOLVED IN A DOMESTIC QUARREL,EXCHANGED FOR SOMETHING BETTER,RETURNED TO THE MAN,MADE LOVE TO,SOMEWHAT PUZZLED FLOWN TO MIAMI,TREATED TO LUNCH,THROWN OFF THE ROOF,AWAKENED SUDDENLY,OPERATED UPON,QUESTIONED MERCILESSLY,ABUSED,BADLY BURNED FIRED,HIRED,EMPLOYED,CONSULTED,ENDOWED,EMBALMED  LAUGHED AT,TICKLED,MISTAKEN FOR ESS,LOVED,FUSSED OVER,GREETED WITH A PARADE SPIED UPON,SHOVED,CHOPPED INTO LITTLE PIECES,CARED FOR,MARRIED,APPRECIATED,CALLED,HELD UP,STUCK UP PHOTOGRAPHED IN THE NUDE,GUARDED,PRAISED,TARRED AND FEATHERED USED,AIDED,FRUSTRATED,REMEMBEREDIP,CABBAGGE,BEET7 FORTUNE TELLER,FARMER,BASSOONIST CANNIBAL,MUGGER,SALESMAN,STORE CLERK,BARBER,TRAVEL AGENT,CLAM,NOODLE,APPLE X EATEN,STOLEN,HURT,RUN OVER,SHOT,STOMPED,KISSED+ KIDNAPPED,STABBED REPEATEDLY,REWARDED FOR YOUR KINDNTICKY,WET,HOT,FINICKY,ROTTEN,WILY,SNEAKY,FEARLESS,AGED,WEARYD Xr HORSE,PIG,BUNNY RABBIT,OX,ELEPHANT,FISH OCTOPUS,POTATO,TOMATO,BROCCOLI,SPONGE,PLATYPUS STUDENT,PENCIL,FROG,DOG,CAT SUBMARINE,WHALE,CAMEL,ORANGE,RADISH,BANANA,TURNLEASANT,BIG,RIPE,INJURED,AMAZED\  NAGGING,BRUTAL,LOVELY,BRILLIANT,SHINY,PICKLED,OBSESSED  DEAF,CROSS-EYED,FEAR-CRAZED,DEVIL-MAY-CARE,DYING,RICH,POOR,ELDERLY,FATHERLY,MOTHERLY,CUTE  LUMBERING,DODDERING,SELF-CENTERED<  YELLOW,HARD,SOFT,S  IN THIS ORDER:)  ADJ, N, V. USE@  X AS END-OF-LISTP  INDICATOR  UGLY,STUPID,MEATY,LUMPY,MEAN,DUMB,ENTHUSIASTIC,BOLD,SLY,BRAVE  TALL,WIDE,SHORT,HANDSOME,BLUE-COLORED,GREEN,SICK,DRIPPING,DROOLING,SALIVATING  EAGER,OLD,YOUNG,PHOLD$"A"HOLD$"E"HOLD$"I"HOLD$"O"HOLD$"U"ĺ"AN ";:560L &"A ";l 0TEST$;1);N$((NP(3)1))u :255 D23:"ANY KEY = AGAIN E = END":Q$ N ALTERNATE 610:FOR TW=1 TO 1250:NEXT TW:GOTO 460 XQ$"E"Ā b430  DATA MUST BE|V$(I) V$(I)"X"410$ 370C VPI1: SAVE VERB POINTERI n :6:12:"YOUR FORTUNE:":10:7v 75 "YOU WILL BE"  7); V$((VP(1)1)) : 7); "BY "; TEST$A$((AP(2)1)) HOLD$(TEST$,1)A I0 II1 A$(I), A$(I)"X"2705 220|  NOW SAVE I-1 IN POINTER TO ADJ ARRAY...SUBTRACT 1 TO LEAVE OUT X API1  "I0 ,II1 6N$(I) @N$(I)"X"340 J300 TNPI1: SAVE NOUN POINTER ^ hI0 rII1 d -----------------n FORTUNE TELLER>x ERIC MARKSL 5/27/81c ----------------iA$(300): ADJ. ARRAYN$(300): NOUN ARRAYV$(300): VERB ARRAY:12:15);"FORTUNE TELLER..."       "SO LONG.":&  ENTER NEW RECIPEG I150:IN$(I)"":I$(I)"":n :10);::"ENTER NEW RECIPE":: "NAME OF RECIPE SHOULD BE LIMITED TO 30 CHARACTERS.": "ENTER NAME OF RECIPE -":FI$ (FI$)30ĺ::"PLEASE LIMIT NAME TO 30 CHAR5)"3 PRINT RECIPE ON PRINTER":G 5)"4 ADD TO EXISTING RECIPE.":c 5)"5 EXIT PROGRAM": "ENTER SELECTION NUMBER: ";:A$:A(A$):A: A1A5ĺ::"NUMBER NOT IN ACCEPTABLE RANGE.":"TRY AGAIN":::180 A500,1500,2000,2500,210 XISTING FILES. ANSWER 'N' TO GO DIRECTLY TO MENU.":A$:A4:G F255^ PA$"Y"İ6500:110o ZA$"N"ī110} d7000:50 n:10);::"RECIPE FILE":: x"OPTIONS ARE:": 5)"1 ENTER NEW RECIPE": 5)"2 EDIT EXISTING RECIPE":   D$(4)OOP$D$"OPEN ":RD$D$"READ ":WR$D$"WRITE ":CL$D$"CLOSE "cIN$(52),I$(52)n(:150212:"IS THIS THE FIRST TIME YOU HAVE USED THIS PROGRAM (Y OR N)?";:A$:A$> <A$"Y"ĺ:"ARE YOU SURE? ANSWERING 'Y' WILL WRITE OVER E           "-" ";M$(MM);" ";DD;", ";YY5:ASET1:I"Y"1430::2004 DETERMINE CURRENTI DATE IF DATE -_ KEEPER HELLO ISt HELLO PROGRAM.(1017)1(1017)12(1018)0(1018)31SET0:MM(1017):DD(1018):YY(1016)5:1YYYY1900"CURRENT DATE IS:TOTAL, MONTH= ";M$(M);" ";Y!J5:0,P(1):K231:9(K1),P(K):Ks6:0,I(1):K231:9(K1),I(K):K(1:0,E(1):K231:9(K1),E(K):K22:0,TC(1):K231:9(K1),TC(K):K<x"DO YOU WANT ANOTHER MONTH";:R$ (R$,1)Y)D(23):I(DAY)D(28):E(DAY)D(33):TC(DAY)(P(DAY)I(DAY)E(DAY))3ODAYYBNBQo:3:0,80279,80~0,00,160BNBQ130021"1 4 7 11 15 19 23 27 31""RED=PHYS, BLUE=EMOT, GREEN=MENTAL""VIOLET=ATE NUMBER OF DAYS UNTIL M/D/Y, M31050< M1M3:Y1YF 1070X M1M9:Y1Y1v .C(Y1100):D1Y1(C100) 8BD((146097C)4)D((1461D1)4)1721119((153M12)5) B  DRAW A GRAPH BQBN:BNBN1 DAY131FBNBN1:P(DA BNBND(M):MM1:M134200 M1:YY1:500? D1::240S (Y4)Y4520\ 530t (Y400)Y400540z  D(2)29 & X"DO YOU WANT ANOTHER MONTH ";:R$ ]:(21) _"WAIT JUST A MINUTE..." bR$"Y"ı l300  CALCUL1:MMM:YYY:2237 " YEAR (YY) : ";Y$:Y(Y$):D1L YY1900(Y100) 15:1:958:"FORECAST DATE:"::" ";M$(M);" 1, ";Y: 1000 BNBDBN "THIS WILL TAKE A WHILE..." 1200 600 400 ,::"GOOD-BYE!!!" 6;:D:" YEAR (YY): ";:Y/ YY1900(Y100)= 10:958s "BIRTHDATE IS:"::" ";M$(M);" ";D;", ";Y} 1000 BNBD 15:1 :"FORECAST DATE":SETĺ" ( IF CURRENT MONTH AND YEAR)" " MONTH (MM) : ";M$:M(M$):M0DR,NOVEMBER,DECEMBER Z:; dB(X)(6.283185307C(X))S nC(X)BNX(BNX)m sD(X)79(B(X)80) xA(X)(X1000.5)100 "**** BIORHYTHM CURVES ****"::: 2000 10:1 "BIRTHDAY :":" MONTH (MM): ";:M:" DAY (DD): "B 2D(12),B$(3),P(31),I(31),E(31),TC(31),M$(12)bB$(1)" ":B$(2)" DOUBLE ":B$(3)" TRIPLE "w2I112:D(I):I< 31,28,31,30,31,30,31,31,30,31,30,31FI112:M$(I):I P JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBE      (B) A POOR PROGRAMMER (C) DEMENTED"c 15:"YOUR PERSONALITY TEST RESULTS:"m :F$s y  ------------------- PERSONALITY PROFILE BY JIM GANZ * 3/82 -------------------SCALL-936"F$"YOU ARE OBSESSED WITH ORGANIZATION AND/OR NEATNESS."r S$"TRACE"F$"YOU ARE A PROGRAMMER." S$"CATALOG"F$"RESULTS ARE INCONCLUSIVE."9 (F$)F$"YOU ARE EITHER: (A) A POOR TYPIST AMMER."Y S$"RUN"F$"YOU ARE PERSISTENT, PERSEVERING, AND A BIT UNREALISTIC." S$"FP"S$"NEW"(S$,3)"PR#"S$"RUNPERSONALITY.PROFILE"F$"YOU ARE UNINQUISITIVE, APATHETIC, ADIAPHOROUS AND INSOUCIANT."G S$"TEXT"S$"HOME"S$"d PERSONALITY PROFILE&n270gx::3:11:"PERSONALITY PROFILE":11:"----------- -------"o11"?SYNTAX ERROR "(7)"IN 140""]";S$(S$)ĺ:150 (S$,4)"LIST"F$"YOU ARE INQUISITIVE AND RESOURCEFUL; YOUMUST BE A PROGR   ^18:E$;! h24J:J6:F$;0 r30J:G$;= |18:H$; X125:X:CHANGE THE 25 TO ANOTHER NUMBER TO MAKE THE WORDS DANCE FASTER OR SLOWER  T12:6:" ";A$! 12:29:" ";B$4 23:6:" ";F$H 23:19:" ";H$\ 23:29:" ";G$b m I14y J122 300 J J2311 300 J I : , 612:J6:A$; @30J:B$; JJ1:J6:C$; T30J:D$; ** DANCIN' WORDS **7 ** CONTRIBUTED BY **R ** SANDY SMITH **m( ** FEBRUARY 1982 **ud:n12:"** DANCIN' WORDS **"x:"ENTER WORDS AT EACH CURSOR POSITION."5:6:" ";C$5:19:" ";E$5:29:" ";D$   INE III-- ( S(((S7)(S7))7.05). G --SUBROUTINE IV-- V$J130:J\8tL --SUBROUTINE V-- `P$(P$,3)tM113:P$M$(M)ıMM13ġ:2200K A10J(2)29:3400, A2Y100(Y100)< A20ī3400N A3Y4(Y4)`4 A30J(2)29H W((YG)365.25)((N30.6).01)\ SW621048p WWD621049 D10D1W E(((W7)(W7))7.01) W0W146070X1  --SUBROUT"! " WHICH ";K0 K1ī2920? K1ī2120M K2ī760a K3Q1:21200 ::" GOOD BYE"X l --SUBROUTINE I--  M3NM13:G1 M2NM1:G0  --SUBROUTINE II--  A1Y1000(Y1000) OUT OF THE RANGE OF THIS PROGRAM !!!"L, ::"PRESS ANY KEY TO CONTINUE";Z@ A$:::oT --MAIN MENU-- |h Q0:D10| 936:4:" <1>--ANOTHER CALENDAR" :" <2>--FIND DAYS OF THE WEEK" :" <3>--DAYS BETWEEN DATES :" <4>--QUIT3280:35608( " SUN MON TUE WED THU FRI SAT":F< K1J(M)TP K9D10id 4(5S)LD1);tx KDĞ~ K;: LL5 S5L30L0 L0ĺ" " L0S0 K L0& :X1ĺ:"DATE MAY NOT BE CORRECT, YOU AREDING-- 8 *L "THAT DAY FALLS ON A ";?` :"<<"B$(E)">>"Et ^ Q1Q2:::2200s Q2D1(D1W) Q2ĺ:"THERE ARE ";D1" DAYS BETWEEN DATES"::1540 :: --PRINT A CALENDAR--  15);M$(M);" ";Y: D11:3200  R INPUT-- J(2)28A"TYPE IN THE DATE, USING THIS FORM":d" 25,JAN,1981 ";D,P$,Yn3660x32003280DJ(M)ĺ::" TOO MANY DAYS ":::2200 D1ĺ:"THERE MUST BE SOME DAYS IN THIS MONTH"::2200$ --CALENDAR HEAFLAG0Q1 XY19961801Q5lQ4Y19002040?3320JU8ĺWU8U0nEKĞ:Y;::" ";zJ(2)28EKUU1Y 22:4:"HIT RETURN TO CONTINUE";:A$ 29204-- BLANK SCREEN-- H936\:: p --CALENDA3200,"TYPE IN THE"9@" DAY OF THE WEEK";20);ETW$::ThW$(W$,2)_|K06tZ$(K)(B$(K),2){KK06W$Z$(K)1840K"TYPE THE FIRST 2 LETTERS"" OF THE DAY OF THE WEEK":15800FLAG1Q4 Dī1440& dFLAG1Y100(Y100)1420B xFLAG1Y4(Y4)1440v :"PLEASE ENTER A ";::" LEAPYEAR ":::1300~ : 3280 3);P$;" ";D","Y;" IS A "; :" "B$(E)" ": X1ī2840 24:4:"HIT RETURN TO CONTINUE";:A$:2920FEB"1180 `D11160) tJ(M)D1240[ "REALISTIC NUMERIC INPUT IS REQUIRED.":1040w :" SPECIAL CASE ":}  FLAG1 A$(A$,1) A$"Y"1560 3200 "ENTER THE YEAR";20);:Y (P$"FEB"1440 <D291440 PY2000"ENTER THE MONTH";20);# HP$:2 \P$(P$,3)> pM112P P$M$(M)960W M` 820w "DO YOU WANT THE" " YEAR CALCULATED" " (Y/N) ?";A$  :"ENTER THE DAY" $" OF THE MONTH";20); 8D: LD29P$"19:"*<";:3620:K4 D"DATE";:K19:">*";:3620; XKX lK140:" ";:3620:K:l K120::3620 "JAN 1982 MARK 4.1" K116::3620 K 10:" <1>--A CALENDAR" 2960 : FLAG0:U0 : 4,"NOV",30,"DEC",31. , SUNDAY,MONDAY,TUESDAYG @ WEDNESDAY,THURSDAY] T FRIDAY,SATURDAYu h --READ SECTION-- |K112 M$(K),J(K) K K06 B$(K) K  --MAIN PROGRAM-- 936::24 K140:" ";:3620:K 0KлZCALENDAR PROGRAM/dLIMITS OF CALENDARFxFROM 2-MARCH-1700[TO 31-JAN-2100 e::wM$(12),J(12) --DATA SECTION--  "JAN",31,"FEB",28,"MAR",31"APR",30,"MAY",31,"JUN",30 "JUL",31,"AUG",31,"SEP",30  "OCT",31     "TO THE PROGRAM AUTHORS":11)"AND CONTRIBUTORS."b (::6)"";:A$: 2"ANY OF OUR PUBLIC DOMAIN PROGRAM DISKS FROM OUR LARGE LIBRARY CAN BE COPIED ONTO YOUR BLANK DISKS SENT TO US FOR A"Y <"COPY FEE OF ONLY 75 CENTSELECTRIC DUET' SOFTWARE."# ::T :" ** PLEASE WAIT: PROGRAM LOADING. ** "Z k W13000:W (4);"RUN BIRTHDAY" R GREETING ELF, APPLE II PLUS 48KD D CARSE 31 MAY 82J(Q28X<7^FP" ** APPLE BIRTHDAY CARD ** "Zd::12n"BY DAVID CARSE"x15:"MAY 31 1982" ::"MUSIC SEQUENCE WRITTEN WITH THE AID OF PAUL LUTUS' ' REYOU CAN BUY USED APPLE SOFTWARE AT" d"ANAZING PRICES OR SELL YOUR OWN UNNEEDEDUSED SOFTWARE. WE HOPE THAT YOU WILL ENJOY OUR PRODUCTS AND SERVICES.":23 ANDEXCHANGED."::"WE ALSO SELL MAPS/CLUES/SOLUTION/TRIVIA BOOKS TO MANY POPULAR COMPUTER ADVENTUREGAMES FOR ONLY $2.65 PER TITLE POSTPAID.OUR HINT BOOKS ARE THE BEST!"% Z:"WRITE US FOR INFORMATION ABOUT THIS OR ALSO ABOUT OUR USED SOFTWARE LISTS WHE PER DISK WHICHINCLUDES RETURN POSTAGE. OR WE CAN SELLYOU THE BLANK DISKS NEEDED FOR AN" F"ADDITIONAL FEE OF $1.10 EACH. WE CAN COPY SINGLE-SIDED OR DOUBLE-SIDED. ALL OUR THOUSANDS OF PROGRAMS ARE IN THE" P"PUBLIC DOMAIN AND CAN BE FREELY USED30 Y20:100:TA530# 510; W11000:W:::8A _ 10:" "} &10:" HAVE A NICE DAY! " (10:" " + 0::::10:"- FROM ";YN$:10:" AND YOUR FRIENDLY APPLE":  7 Y4,X4:Y4,X43 Y4,X1:Y4,X1L SOUND(S)(S)(S)\ W1100:Wc 0y "Y4,X4:Y4,X4 $Y4,X1:Y4,X1 'TT1::" ";T;" "::(37) ,  Y8:100:TA530 Y29:100:TA530 Y15:100:TA5Y2,X2 Y2,X1:Y2,X16 SOUND(S)(S)(S)F W1100:WM 0c Y2,X2:Y2,X2y Y2,X1:Y2,X1 3 Y3,X3:Y3,X3 Y3,X:Y3,X SOUND(S)(S)(S) W1100:W 0 Y3,X3:Y3,X3 Y3,X:Y3,X F39,00 P500$ dX38101+ n94 xY,XC }W130:WJ 0S Y,XZ Xa 9w Y1,X1:Y1,X1 Y1,X2:Y1,X2 SOUND(S)(S)(S) W1100:W 0 Y1,X1:Y1,X1 Y1,X2:Y1,X2 13 Y2,X2::"PRESS ANY KEY TO BEGIN.":Z$T :8::" HAPPY BIRTHDAY ";N$;" !! ":e W11000:Wo 30,0z 31,96 768 ::S16336:T0 " #" HAPPY BIRTHDAY ";N$;" !! " - 615 70,390 <0,3939 A39,039T APPLE BIRTHDAY CARD DAVID CARSE MAY 82 *******************bD$(132)~D$;"BLOAD PLAYER,A768"D$;"BLOAD M.BIRTHDAY,A24576":"YOUR NAME? ";YN$::"FIRST NAME OF PERSON HAVING BIRTHDAY?":N$::"WHAT AGE? ";A      (N9090 6+ 90 9$@6&6060 6+ 60 6 @9$H0H0 9 H 9$ 6&@6+@@ H 9$ L @H$ HHHȱ ȱi hhhIȱ` - J| -Jhhh,00,0N,0(I@$NPp 0 00O P,0HHHLɀpP L9LD I 6 "HIT RETURN TO RE-RUN PROGRAM";F$? 100q >>> SELECT NEW TIME BETWEEN SELECTIONS <<<y : "TIME BETWEEN SELECTIONS = ";D T <868:3I 3I:C:" ";S(I)2 S(I)592030I 4MT(I)MT(I1)M(I)` >ST(I)ST(I1)S(I)k HJ12 RST(I)59ST(I)ST(I)60:MT(I)MT(I)1 \J 6I:A::"TOTAL";::B1::MT(I);::C1: ST(I)10ĺ" "; ST(I): T ST(I)ST(I) D(ANS$,1)"Y"İ3000<  >>> CALCULATE/PRINT VALUES <<<B P A:"NO";_ B:"MIN";m C:"SEC"{ LA:"--"; VB:"---"; `C:"---" j I1N 3I:A:I; B:" ";M$(I) M$(I)"END"Ĭ100 M(I)(M$(I)) 5I:1:IONS.":: 5"WHEN YOU WISH TO CLEAR THE SCREEN AND BEGIN AGAIN, TYPE IN 'END' WHEN ASKED FOR THE NUMBER OF MINUTES."::: :" DO YOU WISH TO CHANGE THE 5 SECOND VALUE? (DEFAULT = NO) ";ANS$D SELECT TIMING GAP <<< D " RECORD ==> TAPE TIMING GUIDE"o " ----------------------------":: "THIS PROGRAM WILL ADD TOGETHER THE TIME OF UP TO 18 SELECTIONS." &: 0"THE PROGRAM ASSUMES 5 SECONDS BETWEEN SELECT& * RECORD ==> TAPE TIMING GUIDE,O * VERSION OF 30 JANUARY 1982U(}2 * PROGRAMMED BY: RALPH W. KIEFER<d >>> START-UP STUFF <<<nN18:A10:B18:C26:D5xM(N),M$(N),MT(N),S(N),ST(N)  >>> DISPLAY INSTRUCTIONS AN     $$$$$$$$$$$$$$$$$$::::"I" $$$$$$$$$$$$$:::::"n" $$$$$$$$$$$::::"" $$$$$$$::::"" $$$$$$":$$$$$$$$$$:::::::::::"E" ::::::::::$$$$$$:::::::::::$::"s" $$:::::::::::::::::::::$$:::"" $$$:::::::::::::::::$$$:::"" $$$$$:::::::::::$$$$$$:::"" $$$$$$$$$$$$$$$$$$$$::::""" 0 ^" ::::::::::::$$$$::::::::::::::::::::$"_ h" :::::::::::::::::::::::::::::::::::" r" ::::::::::::$$$:$$$:::::::::::::::" |" ::::::::$$$$$$$$$$$::$::::::::::" " ::::::::$::::::::::$:::::::::::"" ::::::::"5 ," $$:$$::::::::::::$:::::::::::::::::::::::$$"h 6" $:$$::::::::::::$:::::::::::::::::::::$::$" @" $:$$::::::::::::$:::::::::::::::::::::$$:$" J" $::::::::::::$$:::::$$:::::::::::::::$$$" T" $::::::::::::$$$$$$$$::::::::::::::::$$""4 " $$:::::::::::::::::::::::::::::::::$$$$$:"g " $$::::::::::::::::::::$$$$::::::::$$$$$$:" " $:::::::$$::$$$$:::::$$::::$$$$::::$$$$$$" " $:$:::::$$:$$$::$$::::$$::$$$$$$:::::$$:$$" "" $:$:::::::$$$$::$::::::::$$$$:::::::::$::$$$$$$"8 ":::::::$$$$$$$$$$$$::::::::::::::::$$$$$$$$"j "::::::$:::::::::::::::::::::::::::::$$$$$$" " :::$$:::::::::::::::::::::::::::::$$$$$$$" " ::$$$:::::::::::::::::::::::::::::$$$$$$$$" " $$$$:::::::::::::::::::::::::::::$$$$$$$$$$$$$$$$$$$= " :::$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"n " :::$$::$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" " ::::$::$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" " ::::::$$$$$$$$$$$$$$$$$$$$$$$$$$$:::::$$$" ":::::$::$$$$$$$$$$$$$$$$$$$$$$::::::::: 4"TURN ON YOUR PRINTER AND PRESS RETURN"<A$C(1cd12);"::::$$$$$$$$$$$$$$$"n9);":::::$$$$$$$$$$$$$$$$$$$$$"x7);"::::$$$$$$$$$$$$$::$$:::$$$$$$"5)":::$$:$$$$$$$$$$$$$$::$$$$$$$$$$" " :::$:$$$$$$$$$$$$$$$$$$:     1:Z114:20:20:ZHD22:1:958:" HOME TEAM # =>";R$:R(R$)ZNR1R28610|XY(R)0MA(Z,0)R:Y(R)1:620b23:"INVALID TEAM # - TRY AGAIN!!":DD1500::580l22:1:958:" AWAY TEAM # =>";R$:R(R$)vR1R28650Y(MATCHES *** * * a::1:13:"INPUT MATCHUPS":2:(40(DT$))2:DT$wR128:Y(R)0:R3:14:"TEAM NUMBERS"I114:4I:1:I10ĺ" ";I;"- ";N$(I);:21:I14;"- ";N$(I14)&I:20:13:"GAME #"034,2CH(R$):CH1CH4400*KEYCH1:750 * * *** PRINTER INIT. *** * * SLOT1: PRINTER SLOTD$;"PR#";SLOTCHRS$(9);"80N"LL80) * * *** INPUT CH1650,17002::9:"DISPLAY RANKINGS MENU"6:" 1 - ALPHABETIC ORDER.":10:" 2 - OFFENSIVE RANK ORDER.":14:" 3 - DEFENSIVE RANK ORDER.":18:" 4 - TOTAL TEAM RANK ORDER."21:"WHICH OPTION (1-4, RETURN>=NONE) : ";:"";R$:R$""25050JCH(R$):CH1CH23000TCH1250,1440T^::10:"UPDATE RANKINGS MENU"h10:" 1 - UPDATE ALL MATCHUPS.":15:" 2 - UPDATE INDIVIDUAL TEAMS."r21:"WHICH OPTION (1-2, RETURN>=NONE) : ";:"";R$:R$""250|CH(R$):CH1CH2350EM BEFORE QUITTING?";:"";R$:(R$,1)"N"ī250M'::12:16:"GOOD-BYE":t,::8:"DISPLAY PREDICTIONS MENU"610:" 1 - PREDICT ALL MATCHUPS.":15:" 2 - PREDICT INDIVIDUAL TEAMS."@21:"WHICH OPTION (1-2, RETURN>=NONE) : ";:"";R$:R$""2VE FILES TO DISK.":15:" 6 - END PROGRAM."l21:"WHICH OPTION (1-6) : ";:"";R$:CH(R$):CH1CH6250CH500,300,350,400,1050,290/"UPDWRITė:12:"YOU HAVE CHANGED SOME RANKINGS AND HAVE NOT SAVED THEM TO DISK."::"DO YOU WANT TO SAVE TH MAIN MENU * * * ************************ r::10:"NFL RANKING PROGRAM"+5:" 1 - INPUT WEEK'S MATCHUPS.":7:" 2 - DISPLAY PREDICTIONS.":9:" 3 - UPDATE RANKINGS.":11:" 4 - DISPLAY RANKINGS.":13:" 5 - SA * >(1016)99(1017)12(1018)31DT$"":250YR$(1900(1016)):M$MO$((1017)):DN$((1018)):WD$"":(1019)6WD$DA$((1019))DT$WD$" "M$" "DN$", "YR$:O********************* * * * TCHUPS":D$;"READ NFL.MATCHUPS":I114Y MA(I,0):MA(I,1):I:D$;"CLOSE NFL.MATCHUPS"p I112:MO$(I):I I06:DA$(I):I I128:N$(I):I I128:R(I,0)I:I  * * **** DATE ROUTINE **** * A BAY,WASHINGTON, Z ONERR STMT GOES HERE.^ dR(28,3),N$(28),MO$(12),DA$(6),MA(14,2),Y(28)q nI(Z)(Z.5) xD$(4):LL40 D$;"OPEN NFL.DATA":D$;"READ NFL.DATA":I128 R(I,1):R(I,2):R(I,3):I:D$;"CLOSE NFL.DATA"' D$;"OPEN NFL.MAE,BUFFALO,CHICAGO,CINCINNATI,CLEVELAND,DALLAS,DENVER,DETROIT,GREEN BAY,HOUSTON,KANSAS CITY,LOS ANGELES,MIAMI PMINNESOTA,NEW ENGLAND,NEW ORLEANS,NEW YORK GIANTS,NEW YORK JETS,OAKLAND,PHILADELPHIA,PITTSBURGH,ST. LOUIS,SAN DIEGO,SAN FRANCISCO,SEATTLE,TAMP* * *** DATA STATEMENTS*** * * 2JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER <SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAYl FATLANTA,BALTIMOR* A WHOLE WEEK'S * * GAMES, IMPROVED THE * * PRINTER OUTPUT, AND * ADDED NESTED MENU * * FEATURES. * * BY: * * DALE E. SALYER * * * ************************* Q -' ********************** * * * NFL RANKING SYSTEM * * ORIGINAL CONCEPT * * BY JOSEPH M. FEEHAN * * *Q  * * RE-ORGANIZED AND * * EXPANDED TO HANDLE *