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`.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:ML YOU WANT TO CONTINUE? ";:B$:B$"N"ıB)1P1500:A$(P)""::_)6***********************X**-( " CTRL I-CURSOR=1ST.CHAR.OF INSERT."Z(" 1ST.CHAR.AFTER INSERT"`(}(***********************( ---CLEAR MEMORY---(":"YOU ARE ABOUT TO LOSE ALL OF YOUR TEXT"(':"THAT IS CURRENTLY STORED IN MEMORY!"(),::"DOS FORMAT CONTROLS":" CTRL U = UP CTRL W = DELETE":" CTRL N = DOWN CTRL I = INSERT ST.":" CTRL H = LEFT CTRL O = INSERT END":" CTRL J = RIGHT CTRL X = EXIT"'"--------------------------------------"'(*********************5&A10İ1225&A24625.&A231320O&A9CH(36):CV(37):1345^&A321440h&1290&***********************&--EDIT MODE FORMAT--&34,11::34,0&12:1&"--------------------------------------"'"CURSOR CONTROL)(B2$)231A$(P)B1$:A$(P1)B3$B2$:625M%N499P11:A$(N1)A$(N):x%A$(P)B1$:A$(P1)B3$:A$(P2)B2$:625%***********************%--EDITOR ROUTINE--%B$:A(B$)%B$","B$(95)%A21İ1245%A14İ1265&A8İ120$"":1400+$s(B4$)2B3$(B3$,(0)):TA$x(B4$)15ī1375$}((B1$)(B2$)(B3$)231)(((B3$,1))31)A$(P)B1$B3$B2$:625$N499P11:A$(N1)A$(N):N$((B1$)(B3$)231)(((B3$,1))31)A$(P)B1$B3$:A$(P1)B2$:625+%(B3$B3$"":36,CH:CV1F#PCA1B1$"":B2$A$(P)::(A$(P),1);::1370#UB1$(A$(P),CA1):B2$(A$(P),(A$(P))CA1)::(A$(P),CA,1);:#Z10:1#_B4$:B4$","B4$(95)#d(B4$)31ĺB4$;:B3$B3$B4$:1375#i(B4$)24ī625 $nT(0):T0B3/"-CA1A$(P)(A$(P),(A$(P))1):"*";:1440f"2CA(A$(P))A$(P)(A$(P),(A$(P))1):"*";:1440"7A$(P)(A$(P),CA1)(A$(P),(A$(P))CA):"*";:1440"<***********************"A---INSERT ROUTINE---"F34,11::34,0:15:1:1520:1545#K**********#! ---OVERTYPE SUB----R!(CA1)A$(P)B$(A$(P),(A$(P))1):1310!(CA(A$(P)))A$(P)(A$(P),(A$(P))1)B$:1315!A$(P)(A$(P),CA1)B$(A$(P),(A$(P))CA)!B$;:CHCH1:CACA1:1440!#B$;:625!(---DELETE CHAR SUB--ACA1:CH39:! 36,CH:CV1:<  --CURSOR UPSPACE---I CV(37)w CVCV1:CACA40:CA1CACA40:CVCV1: CV1:  --CURSOR DOWNSPACE-- CV(37) CVCV1:CACA40:CA(A$(P))CACA40:CVCV1: CV1: !*************$B$D$ ************************F --CURSOR BACKSPACE--\CH(36):CV(37)CHCH1:CACA1:(CA1)(CH0)CH0:CACA1:36,CH:CV1: ---CURSOR ADVANCE---CH(36):CV(37) CHCH1:CACA1:(CA(A$(P)))(CH39)CP)""ı~A((A$(P),1))1A16ĺ5)A$(P):>A$(P):[***********************w--GET FILE NAME, SUB--:4:"INPUT NAME OF TEXT FILE IF SPECIAL.":"USE SPACE IF NO NAME WAS ASSIGNED.":B$:B$" "D$X1$:B$;:"";D$:D**L--PRT,LAST LINE---NQ(CL$)(CW$)LL1CL$CL$CW$:CW$"":C(CL$)qVCL$""Ė(LM):CL$:CL$"":C0[(DS$,1)"Y"ĺ`CW$""Ė(LM):CW$:CW$""e(DS$,1)"Y"ĺjo***********************t--REVIEW/EDIT PRINT---yA$(,"CC$" "ī1055+CW$CW$CC$:1085a(CL$)(CW$)LL1CL$CL$CW$:CW$"":CC(CW$)$(CLL)(CW$"")CL$CL$" ":CC1)CW$""ī1085.CW$CW$" "3(LM):CL$:CL$"":C08(DS$,1)"Y"ĺ=NBG*********************5LA(A$(A1)):A$(A1)A$(A1)(A$(P),230A):A$(P)(A$(P),(A$(P))A230)eA1A11:A$(A1)A$(P)lPPA11500:A$(P)"":************************--PRINTOUT SUB----NN1(A$(P)) CC$(A$(P),N,1)(CC$)95CC$"WRITE ";D$ P1500:A$(P):4X$;"CLOSE ";D$:X************************q----COMPACT SUB----zA11P2500A$(P)""ī1005(A$(A1))230ī1000(A$(P))32ī1000(A$(A1))(A$(P))231A$(A1)A$(A1)A$(P):100T FILE----k1170/p12:16::"READING":BuX$;"OPEN ";D$UzX$;"READ ";D$kP1500:A$(P):X$;"CLOSE ";D$************************---WRITE TEXT FILE---117012:16::"WRITING":X$;"OPEN ";D$ X$;"DS$-4X$;"PR#1"::1785,LL5LM:-PRTR.ON-C9C0:CL$"":CW$""P>P1500xC(A$(P)"")(A$(P1)"")P500:845H315: (DSPLY)MR1100:(PRT.LAST LINE)WX$;"PR#0": -PRTR. OFF-\a************************ f----READ TEX)16Ė5E A1$A$(P):CH1:CV4:CB0:CA1:((A$(P),1))32CA2:CB1O1440X625v************************ ----MAKE HARD COPY----%:4:"ENTER LINE LENGTH ";LL*:"ENTER LEFT MARGIN ";LM/DS$"N"::"DOUBLE SPACED? Y OR N ";9:"X:EXIT"419:11::"CHOICE?";:9:B$:DB$"X"375\B$"F"P500PP1rB$"B"P1PP1B$"D"A$(P)""B$"F"B$"B"B$"D"625B$"E"770A0$"D"A$(P)"":6256851505::1545:4((A$(P),1)K120:685#4:1:958-11403>12:1m"---------------------------------------"9:"F:FORWARD - TO NEXT BLOCK"9:"B:BACKWARD - TO PREVIOUS BLOCK"9:"D:DELETE ENTIRE BLOCK"9:"E:EDIT--MINI EDITOR--" ************************7]--REVIEW/EDIT DISPLAY--=b_g4:"INPUT BLOCK # & RTN ;";PrlP1P500615q1:1:868vC0:CL$"":CW$""{:"BLOCK #";P;:30:150A$(P)""6704:1:9586:15::"EMPTY BLOCK": R/LF/LF"""RTN,RTN=GO TO MENU">N14:"----'----!";:L24:34,4h!N14:"----'----!";:w&22:35,22+PF5000CH(36)5:P;::3:22:150::33:"BLK.";P::22:1?36,CHD175I(A$(P))""P500NSXB$"7"İ1565<B$"Q"ė:10:15::"YOU'RE CLEAR"::M375:(MENU)k************************ ----WRITE----G1500A$(G)""FG:G500:A0 " CTRL P=PARAGRAPH CTRL R=CR/LF":" CTRL B=BACKSPACE CTRL S=CRINT HARD COPY"-53)"6. COMPACT STORAGE"P53)"7. CLEAR MEMORY OF TEXT"p53)"Q. QUIT THIS PROGRAM"56::"SELECT 1 > Q";::13B$B$"1"İ500B$"2"605B$"3"İ870B$"4"İ915B$"5"İ800B$"6"İ965*********************+w ----MENU---->|34,0:35,24:\150:26)"TEXT WRITER B"o2:17:"MENU"14:"=========="53)"1. WRITE TEXT"53)"2. REVIEW/EDIT"53)"3. READ FROM DISK"53)"4. WRITE TO DISK"53)"5. P******************;----DISPLAY SUB----:@A$(P)""ıCEN12WJA((A$(P),1))OA16A18A19İ1100:(PRT.LAST LINE)TA16CL$" ":C4:365YA19ĺ:365^A18ī365c(A$(P))2ıhN11m1025:: (PRINTOUT)r***2290#(13=RTN. , 16=CTRL P)?(18=CTRL R, 19=CTRL S)[( 2=CTRL B )oT(0):T0T1v T(A$(P))2A$(P)"":280A$(P)(A$(P),(A$(P))1)N1NN1200"B$;'A$(P)A$(P)B$,16*******CH(36):CV(37)* A1A(B$):220: B$:A(B$)_ (A8)(A21)Ĺ36,CH:37,CV:200t B$","B$(95) (A16A18A19)N1N230:A1:300 A13N230:300: (NEXT) A16ĺ:5:295 A19ĺ::295 A18ĺ:295A(13)(4)' ( X$ IS RTN + CTRL D ): 375:( MENU )X ************************u --AVAILABLE MEM. SUB--- M(0):M0MM65536 :"MEM: ";M;: ************************ ----DATA ENTRY SUB---- A$(P)"" N1230 TS-- -A$=B1$+B3$+B2$--? _*************************Z d----TEXT WRITER B----w i-MOD.BY HAMELINK TO ADD n-A DECENT EDITOR, ETC-- s------6/13/81-------- x************************ } ----PRESETS---- A$(500):X1$"TEXT":X$RARY- --A1$,CA,CB=MISC.-5 --DS$=DOUBLE SPACE=  V (-POKE34=WINDOW TOP-r )-POKE36=CURSOR HORIZ.- *-POKE37=CURSOR VERT.- +-POKE1785=PTR.LINE LGTH- 1 2-CALL-868=CLR > LINE END 3-CALL-958=CLR > SCRN END <-ARRAY SEGMEN)-  --X1$="TEXT"-( --A=ASC( )-C --N,N1=LOOP COUNTERS-X --LL=LINE LGTH-q --LM=LINE L.MARGIN- --CC$=CHAR.- --CW$=WORD- --CL$=LINE- --CH=CURSOR HORIZ.- --CV=CURSOR VERT- --C=ARRAY OR LINE POS- --T=TEMPO`!  -----TEXT WRITER B1------n -THIS HAS EDITING REMARKS, USE TEXTWRITER B FOR DE-REMARKED PROGRAM.-- --A$(P)=TEXT ARRAY- --B$=TEXT INPUT CHAR.---C$,D$=COPIES OF B$---B1$,B2$,B3$,B4$=PARTS OF THE STRING- --X$=(RTN+CTRL D                     Ӎ͍ . 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);;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  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 : : : +----------------------+ +-------------------           YV ADDITIONS OR *V DELETIONS FROMDV THE CATAGORY TOTALSJV0_V1 APPLE T.A.R.T.sV2 SOFTWARE BANKzV3 V4 ENTERED BYV5 WILLIAM DAVISV6 ANDV7 ELUISE MARVINV8V9 AUGUST 19,1979 S "YOU SEARCH IN VAIN FOR A BEDSIDE LAMP"RU "A CENTURY LATER THE NIGHT IS PAST"jU MORE OR DIFFERENTU DATA STATEMENTSU MAY EASILY BEU ENTEREDU U THE DIMENSIONSU IN LINES 135-139U MUST BE CHANGEDV TO REFLECT ANTHROUGH SACRIFICE INTENSE"IT "MY ATTENTION HAS RECENTLY BEEN FOCUSED"sT "GIRL LOCUSTS DON'T MAKE ANY NOISE"T "WHOSE FLAVOR REEKS OF RANCID BUTTER"T "FIVE STORIES TALL THIS MANTRAP STANDS"T "THEY PASS UNWARY THROUGH ITS PORTALS"(UUS BECAUSE YOU THINK"@S "THEIR TOES AND YOURS ARE FAR APART"jS "YOUR WOOLLEN SOCKS CANNOT BE WORN"S "AND WHILE HIS SOCKS ARE HUNG TO DRY"S "AND YET THE IDIOTS KEEP ON LIVING"S "IN WOE AND PAIN THROUGH LIFE THEY GO"T "TO CONFIRM OF MEDIUM LENGTH"@R "LUCKY ARE THEY WHO RETAIN SOME FRIENDS"lR "THIS IS THE DAY THAT WON'T GET DARK"R "NEVER AGAIN SHALL WE GET TO BED"R "DUSK IS AN EXILE, NIGHT HAS FLED"R "MIDNIGHT LIES WITH THE BURIED CZARS"S "YOU BUY THEM TH DO NOT NEED IT!"GT "RISE IN YOUR GOWN OF SHINING BLACK"`GY "AND IT ALSO BAGGED BEHIND"G^ "HOW FAST HE GOES - HOW MANY WHEELS"Gc "HARK TO THE WHIMPER OF THE SEAGULL"Gh "OR ELSE THE OTHER WAY AROUND"Hm "I HOPE THAT IN MY ELDERING AG- I DON'T KNOW"9F6 "THIS WAS MADE POSSIBLE BY A GRANT"hF; "THAT HAS BEEN MANKIND'S MAJOR QUESTION"F@ "HE OPENED THE DOOR AND LED THE WAY"FE "THE STRANGE CASE OF THE MISSING DOVE"FJ "WITHDRAW, MY DEAR, WHILE YOU CAN"GO "GET UP, I TELL CAN IT LAST UNSPOILED?" "I DIDN'T GET THE RIGHT CHANGE"\> "WHICH ISLAND WILL YOU VISIT?"> "WHEN WILL IT STOP RAINING?"> "SOME BIRDS MIGRATE EACH YEAR"> "SHE HAD LOTS OF SHOPPING TO DO"> "STARS COME OUT AT NIGHT" ? "THE WATERS ARE WATER IS TOO COLD FOR ME":= "CAN YOU FIND MY WATCH?"]= "SHE WAS A POOR HOUSEKEEPER"= "LIONS ARE VERY LAZY ANIMALS"= "THE LABEL FELL OFF THE CAN"= "CAN SHE FIND MY WATCH?"= "THEY GOT A BAD SUNBURN TODAY"> "THE MUSEUM WAS R "MY TV IS NOT WORKING RIGHT"H "WE HAVE 2 CATS AND 5 FISH"g;C "THIS SET OF BOOKS IS FOR SALE";H "LET'S ROW ACROSS THE RIVER";M "DO YOU THINK IT'S A GOOD IDEA?";R "HE HAS TRAVELED AROUND THE WORLD";W "I THINK A STORM IS COMING"<\SOMEDAY WE MAY BE ABLE TO GO"@: "HIS VACATION WAS CUT SHORT"f: "HE'S BEEN A TEACHER FOR YEARS":% "THIS TAPE SEEMS DEFECTIVE":* "WHAT GAME WOULD YOU LIKE TO PLAY?":/ "SHE'S A GOOD CARD PLAYER":4 "THE QUEEN'S GOWN WAS GREEN";9 "WHH"&9 "THE NEIGHBORS ARE VERY NICE"F9 "THIS NOVEL IS VERY GOOD"h9 "HE HAS TWO DOGS AND A CAT"9 "YOUR DINNER WAS DELICIOUS"9 "PLEASE COME AGAIN SOON"9 "PLEASE TRIM THE FAT FROM THE MEAT"9 "HER HAT LOOKED OLD FASHIONED": " "FIRECRACKERS ARE FUN TO WATCH"F8 "DO YOU THINK THIS IS CORRECT?"h8 "HOW MANY MORE MUST WE DO?"8 "WE WILL SEE THE BEST OF THEM"8 "THE HAT WAS TRIMMED WITH FEATHERS"8 "I'LL MAKE SANDWICHES FOR LUNCH"9 "I THINK THAT IS GOOD ENOUG "LOOK IT UP IN THE DICTIONERY"D7 "PIGS OFTEN MAKE GOOD PETS"i7 "LET'S GO TO THE SHOW TONIGHT"7 "THE LIBRARY HAS MANY NEW BOOKS"7 "THE CLOSET IS TOO FULL"7 "PACK EXTRA CLOTHES FOR THE TRIP"7 "JOHN GRADUATES THIS SPRING" 8 TV"'6 "WHEN DO YOU THINK WE'LL GO?"I6 "THE PLAY WAS WELL WRITTEN"k6 "HOW DO YOU GET THIS OPEN?"6 "WHICH ARE THE BEST BUYS?"6 "WHAT WOULD YOU LIKE IN YOUR SOUP?"6 "I THOUGHT OUR GUESTS WERE FUN"6 "I'M GOING SHOPPING LATER""7IGHT AT THE THEATRE"35g "HE DOESN'T LIKE TO FLY"S5l "THEY HAVE TOO MANY PETS"t5q "WHY DON'T YOU WAIT HERE?"5v "LONG DISTANCE PHONE CALLS"5{ "HOW MANY OF THESE DO YOU HAVE?"5 "ISN'T THIS SEASONING TOO HOT?"6 "MY FAVORITE SHOWS ON z #Xα    ĮǠP ҮӠ ӮŠ ԠҠ±# ԮҠ  ŠŠˠ ԮԮǠҮԠ ŠԠǮΠ  ŮǠ̠Ϡ ̠Ϯà!̮Ҡ) ̮ ̮Ӡ͠ Ҡ@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp 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)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 **** * 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 :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)::1730 " COGNITIVE 0":F6F61: F62 1760L F62 1760:"CAREFUL, TODAY ";F6" CYCLES CROSS ZERO ***":F60:: 3100&1840: THIS IS JULIAN DATE SUB. CONVERSION0C9.001:M9(1)(((14M)12)C9)DJ1D2447095((1PHYSICAL 0":1670," PHYSICAL 0"?F6F61: 1590dD$(W);9);M$(M1);",";D1;",";Y2;D110ĺ" EMOTIONAL 0":1700" EMOTIONAL 0"F6F61: 1620D$(W);9);M$(M1);",";D1;",";Y2;D110ĺ" COGNITIVE 0"9):E(28EC9)!  E19 1520, E28EU C(D933)((D933)C9):C(33CC9)g  C19 1560r C33C  P0 P11 1660 6 E0 E14 1690 T C0 C16 1720 r 1740 |D$(W);9);M$(M1);",";D1;",";Y2;D110ĺ" - F:"THIS IS A LIST OF YOUR CRITCAL DAYS"W P10)"BEGINNING";M$(M);" ";D;",";Y1:{ d"DAY";14)"DATE";31)"CYCLE": xXJ5(J5J7):J2X:1960:D9XJ4 P(D923)((D923)C9):P(23PC9)  P19 1480 P23P E(D928)((D928)C5::::< :"IF YOU WOULD LIKE TO PLOT YOUR BIORHYTHM";n "TYPE 'PLOT'. IF YOU ONLY WANT A LIST OF"; "YOUR CRITICAL DAYS, TYPE 'LIST'.";Z$  (Z$,1)"L" 1310  (Z$,1)"P" 2200 X56: 3300: 1210  - LIST OF CRITICAL DAYS::"YOU WERE BORN ON A ";D$(W1)::i L" STARTING DATE OF YOUR":" BIORHYTHM (MM,DD,YYYY):";M,D,Y1 XM0M13D0D32Y101120 ZX54: 3300: 1100 `:1830:J5J2:W1W "HOW MANY DAYS DO YOU WANT TO COVER ";J7: J71 1170 J6J7JUN","JULY"," AUG"P " SEP"," OCT"," NOV"," DEC","SUN","MON","TUE","WED","THU"a "FRI","SAT" "ENTER YOUR:"::" NAME:";N$ " BIRTHDATE(MM,DD,YYYY):";M,D,Y1 M0M13D0D32Y10ī1020 X53: 3300: 1010  1830$ J4J2:W1W :100#2 APPLE II VERSIONBd4000:16)"BIORHYTHM"::n3)"A SCIENTIFIC LIFESTYLE PREDICTION"::15)"TECHNIQUE" x::::M$(12),D$(7),P$(30) I1 12: M$(I): I1 7: D$(I): " JAN"," FEB"," MAR"," APR"," MAY"," J          <*><*><*><*><*><*><*>> < 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 I18:(7);::: BELL ALERTFWAA1215.5:BB1215.5:CC1215.5'$& :(Z$,1)"Y"1100*D ::::::Z :"***************** BYE ****************"`  37,(37)X5::868:" ";:50,63 "AGAIN PLEASE"::958:6000:10:: CENTER TEXT ON SCREENI15000::: DELAY SEVEN SECONDSpX9127:P$(X9);:0 " ";M$(M1);" ";D1:2420Bd A14 2550V 3080:: 3100 :7)"-";14)"CRITICAL";29)"+":15)"PERIOD" Y9Y2:: " ..!....!....!....!....!..";  ::"WOULD YOU LIKE ANOTHER BIORHYTHM":"(Y OR N): ";ZJ:J2X: 1960:W1W: XI 2970>~ Y9Y2 :35)Y2:Y9Y2} D$(W1);" ";:D92(XJ4)(3.1415927):A(D923):B(D928) C(D933) AA1215.5:BB1215.5:CC1215.5 X9127:P$(X9)" ": P$(15)"!":P$(A)"P":P$(B)"E":P$(C)"C" 7((J27)C9)1:W(WC9):C2210:REM THIS IS THE PLOTING SUB.A17:HJ5:IJ6:E11:F11:J1:D1:E0:F1:G(F1E1)26:G1G2 :::7)"THIS IS A BIORHYTHM CHART"8 12);"FOR ";N$:"DAY";35);"DATE": 3020: 3080 ` :XHJt L10:XX<LL(((146097N3)4)C9):Y2((4000(L1)1461001)C9)oLL(1461(Y24)C9)31:M1(80(L2447)C9)  D1L((2447M180)C9): M10 2090 D1D11*L((M111)C9):D8(10D8.9):D1D1(D810):M1M1212LRY2100(N49)Y2L:WJ2461(Y14800M9)4)C9)<NJ2J1((367(M212M9)12)C9)aXJ1J2((3(Y14900M9)400)C9)bJ2J1:WJ27((J17)C9)1:W(WC9):1970: THIS IS THE CALENDER SUB. CONVERSIONJ3(J2C9):D8J2J3:J2J3:LJ22483589:N((4L146097)C9)DING-- 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    ",46,46,54,55,55,46,46,46,54,63,55,46,45,5,0 144,1,148,1,178,14,200,40,204,40,208,74,212,74,216,74,216,74,200,110,146,148,98,136,102,136,74,110,78,110,82,110,60,73,100,13L 204,110,178,136,132,148,84,136,60,110,64,74,70,40,86,14,130,2,138,16,17 36,36,00$p 54,54,54,54,54,14,00]z 118,118,118,118,118,05,100,100,100,100,100,12,0  14,14,14,14,14,14,14,14,14,14,222,219,219,27,96,12,12,12,12,12,12,12,12,12,12,00 53,39,00 44,62,00+ 63,63,54,45,53,62,62,62,54,53,53,62,620 E4:! SETSET1:E1:R1- AE87Q (16384)127ZD$"N":R0:820l 768,255:769,255:770s *A 416368,0 > H 100,150,100,250,100,150,50,150 R 08,00,18,00,22,00,25,00,32,00,44,00,70,00,73,00,77,00 \ 36,36,36,00 fF1400:F A47:E:610/ A11000:AG HHOUR:HOUR0H12i E1H:768,250:769,100:770y F1800:F E E500(H133)  MIN60ALARM(HOUR1)100:740 ALARMHOUR100MIN PM1ALARMALARM1200 ALARMSET7730 768,100:769,03:770> 780,180:B1:7168,180:550W 768,70:769,03:770t 7168,180:780,180:B2 &G1:A 0B1ĕ780,180 :B2ĕ7168,180 DE1:200 N XA03:E b768,E:769,50:770:F1200:F:A lA8650 vPM%XPH%PH%PM%1ĘPM%:4407 PH%XPH%ĘXPH%:440b OPM%PM%:XPH%PH%:B1:E1:FLAG1İ590v FLAG0:R0100 200 1140,80: 2140,80: 7:780,180:G19 AE486267:Q1 FG60 (16384)1275200 F B15270 12( PM%MIN6460:PM%:430K "PH%(HOUR64PM%)12:PH%:440c ,PH%XPH%ĘPH%:440z 6PM%PH%ĘPH%:440 @B0400 JOPM%:430 TXPH%:440 ^OPM%PH%ĘPH%:440 hHOUR6MIN34ĘPH%:440 rXPH%PM%XPH%PH%ĘPM%:440 |]  162775000,d(ZC$,1)"Y"450:nAE4862]x(16384)127Ĺ16368,0:5200dAMINMIN1:(ZD$,1)"Y"İ720MIN60270MIN0:HOURHOUR1(ZB$,1)"Y"FLAG1HOUR12270HOUR0:PM1PM0:270 PM0PM1:     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 ARE 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 NO MORE THAN 13 CHARS :JIM GANZ,10/81 & 6/82N82 SPRING LANEiW.HARTFORD, CT. 06107oCAUTION: THE ONLY WAYTO GET OUT OF THISONCE IT HAS BEEN RUNIS TO TURN OFF THECOMPUTER!R!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$"SAN JOSE": ^ 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 PLAYING WITH THE APPLE !!!!":"GO AND TELL DAD TO WIND UP THE CLOCK":"AND START IT AGAIN."E 24-HOUR NOTATION SUCH AS":"1340 INSTEAD OF 1:40) ?";Ah :8:"HANG ON WHILST I WIND THIS APPLE UP"rAA1MIN(((A100(A100))100.05)(A100))(A1200AA1200:PM12HOUR(AMIN)100:A0<HOUR12HOUR0F840\P::"STOP"TICK TOCK ?";ZC$)"ALARM ?";ZD$A(ZD$,1)"Y"5120:"WHAT TIME IS THE ALARM TO GO OFF":"(USE 24-HOUR NOTATION SUCH AS":"1340 INSTEAD OF 1:40) ?";SET5120ZB$"N":ZC$"N":ZD$"N"8:"WHAT IS THE PRESENT TIME PLEASE":"(USAMBIER ISLAND, B.C.":"CANADA"I:"HI, I'M APPLE'S GRANDFATHER CLOCK":"DO YOU WANT ME TO CHIME THE HOURS OR USE MY OTHER FACILITIES? (YES OR NO) ";ZA$(ZA$,1)"Y"5110:"WHICH OF THE FOLLOWING WOULD YOU LIKE:":"CHIMES ?";ZB$AA15:B,C:4B,C:A5A14:B,C:5B,C:APA112:B,C:6B,C:A5:825,16:8252,16:32:826,141:8253,141$A770790:B:A,B:A.A0:B0:C0:XPH%65:XPM%65:200::10);::"GRANDAPPLE CLOCK":::"BY BILL SMITH":"G0,24,192,46,200,78,192,110,170,132,138,140,106,132,84,110,76,78,84,46,106,24 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96A18:B:AA1627816382:B:A,B:A:3:1:0232,150:233,63A118:B,C:3B,C: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 * **********************         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 T2,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   ""(#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 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 ***":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 İ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:"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"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          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 SENTENWR$;"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":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'."::