' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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õ`  \ 濭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- (  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`ID$(I),4)):14400: GET AND DISSECT RECORDK&7DLTD(ID$(I),1)"/"14260l&7DLTD(ID$(I),1)"/"14260x&7J1TP&7RE$(TF(J))" ";&7J:&7J1GT:GT(J,2)GT(J,2)(RE$(GT(J,1))):J&7PRNTR(37)20İ14500&7I&7:GTĺ::14265'4130 %Z7%%x7 *** ACTUAL DISPLAY2%7NI1ıT%7PRNTRĺDOS$"PR#1":(9)"64N"%7ERR0:ERRĺDOS$OPEN"F$"@,L"RL + 1: GOTO 14226%723:958:"THERE IS NO MORE ROOM FOR DATA...":PA11000:PA:14267%714300: DO TITLE%7I1NI*&7FO(( FIELDS TO BE&$ 7 *** DISPLAYED0$-7TP0a$2723:868:"FIELD TO LIST (OR RETURN) :";RE$s$47RE$""14170$77I1NF$<7RE$FI$(I)14160$A7I$F723:868:"THAT FIELD DOES NOT EXIST.":PA11000:PA:14130$P7TPTP1:TF(TP)I%U7TP501E$RE$(BL$,(FL$(I))(RE$))-#c3RE$(I)RE$3#h39#3?#6Z#6 *** LIST / PRINTER`#6f#6#6PRNTR(RE$"PRI"RE$"DPR")#6DLTD(RE$"DLI"RE$"DPR")#614100: GET FLDS#614600#6TPİ14200: DISPLAY FIELDS#7 $7 *** GET3 *** MODIFY THE REC$"B3RNFOUND/"E3::1W"J3"<<< MODIFYING RECORD "RN" >>>":5c"O3I1NF"T3FI$(I)" "RE$(I):J1(FL$(I)):(8)::"";RE$"Y3(RE$)(FL$(I))13140"[3RE$""Ģ((37)):958:FI$(I)": "RE$(I):13160#^3(RE$)(FL$(I))RI) !0I!0!2/!2 *** MODIFY RECORDE!212100: GET REC#S!2RE$""ıh!212200: FIND ITw!2FO13030!2INFO:FO(ID$(FO),4))!212300: GET IT!213100: MODIFY!210300: DISPLAY!3RE$"Y"İ10400: OUTPUT IT!+313030",1NF7 90RE$(I)(RE$,TMP,(FL$(I))):TMPTMP(FL$(I))> >0IY C0DOS$"CLOSE "F$"@DATA"_ o0{ p0 *** DISPLAY THE REC 0:1:"<<< DISPLAY OF RECORD "RE$(1)" >>>":5 0:1:"<<< DISPLAY OF RECORD "RE$(1)": VTAB 5 0I1NF!0FI$(I)": ";RE$((1)))FOUND1:12240/^/FOUNDĢ23:868:"THAT RECORD IS NOT ON FILE":PA11000:PAd 0 0 *** GET THE RECORD0 ** FROM THE DISK'0DOS$"OPEN "F$"@DATA,L"RL1*0DOS$"READ "F$"@DATA,R"FOUND/0RE$: GET WHOLE INFO  40TMP1:I68:"THEN RECORD NUMBER IS "(FL$(1))"CHARACTERS LONG":PA11000:PA:12125g/(RE$)(FL$(1))RE$RE$(BL$,(FL$(1))(RE$))// *** FIND THE RECORD/FOUNDFALSE/NI112240/I1NI/(ID$(I),1)"/"12235/(ID$(I),2(FL$12030 /FO((ID$(FO),4))0 /12300: GET ITE/12400: DISPLAY~/23:868:"HIT RETURN WHEN READY TO CONTINUE :";RE$C/12030D/ *** GET A RECORD#]/23:868:"WHAT IS THE RECORD NUMBER :";RE$^/RE$""ıLb/(RE$)(FL$(1))Ģ23:812300: GET IT#*+12400: DISPLAYZ/+23:868:"TYPE DELETE OR RETURN TO ABORT : ";RE$s4+RE$"DELETE"110259+ID$(IN)"/"(ID$(IN),2):10460.11025. *** DISPLAY RECORD.12100: GET REC#.RE$""ı/12200: FIND IT/FOĭERRĺID$(IN):10475W(23:958:"THERE IS NO MORE ROOM FOR DATA...":PA11000:PAu(DOS$"CLOSE "F$"@INDEXES"{** *** DELETE RECORD+12100: GET REC#+RE$""ı+12200: FIND IT +FO11025"+INFO:F0((ID$(FO),4))%+IN)("0000"(RN),4)0(DOS$"CLOSE "F$"@DATA"d(ERR0:ERRĺDOS$"OPEN "F$"@INDEXES,L"IL:10463(23:958:"THERE IS NO MORE ROOM FOR DATA...":PA11000:PA:10999(TESTINGĺ"INDEX : "IL:"RN = "IN(DOS$"WRITE "F$"@INDEXES,R"IN(ERR0:ERRĺRE$(I);:10434t(23:958:"THERE IS NO MORE ROOM ON DISK...":PA11000:PA:DOS$"CLOSE "F$"@DATA":10999}(I:(DOS$"CLOSE "F$"@DATA"(RNNINIRN(ID$(IN)">"RE$(1):NF1āI2NF:ID$(IN)ID$(IN)RE$(I)" ",2):(ID$(IN)ID$(;RE$:RE$(RE$,1):RE$"Y"RE$"N"ĺ"":103405i(P( *** DATA IS OK (ERR0:ERRĺDOS$"OPEN "F$"@DATA, L"RL1:10425(23:958:"THERE IS NO MORE ROOM FOR DATA":PA11000:PA:10999(DOS$"WRITE "F$"@DATA,R"RN(I1NF(ERR0:E$(I))(FL$(I))10240X ((RE$(I))(FL$(I))RE$(I)RE$(I)(BL$,(FL$(I))(RE$(I)))_(Ie(<( *** REPRINT RECORDU(:Z(1:"<<< THE FOLLOWING INFO WAS ENTERED >>>"_(5:I1NF:FI$(I)": "RE$(I):/d(22:958:"IS THIS CORRECT : "((ID$(I),4)):INI:'/'RNNI1:INRN:F' *** ENTER INFOL']'VIDEOĉ::'1:"<<< ENTERING RECORD "RN" >>>":5'I1NF'NF(FI$(I)" ":J1(FL$(I)):(95)::J1(FL$(I)):(8)::RE$(I)(I1RE$(I)""ı((RURN WHEN YOU ARE READY TO CONTINUE : ";RE$:B3'10200: ENTER ITW4'I1RE$(I)""ıl5'10300: DISPLAY8'RE$"Y"İ10400: OUTPUT ITB'10025t' *** GET A RECORD#' *** TO ENTER DATA'NI010150'I1NI'(ID$(I),1)"/"RN15000:RE$"SHO"16000:5RE$"SOR"19000:LRE$"SEA"20000:_RE$"STO"ġ:e~' *** ENTER RECORD)'VIDEOĉ::.'10100: DISPLAY ,0'RNMRĢ23:"THERE IS NO MORE MEMORY SPACE AVAILABLE FOR YOU TO STORE RECORDS. HIT RETPAUSE11500:PAUSE:50758p *** CAMMAND SWITCHINGORE$"ENT"10000:fRE$"DEL"11000:}RE$"DIS"12000:RE$"MOD"13000:RE$"LIS"14000:RE$"DLI"14000:RE$"PRI"14000:RE$"DPR"14000:RE$"REC":";RESPNSE$RE$""5075RE$(RE$,3):RE$"ENT"RE$"DEL"RE$"MOD"RE$"DIS"RE$"SOR"RE$"LIS"RE$"PRI"RE$"STO"RE$"REC"RE$"SHO"ıRE$"DLI"RE$"DPR OR RE$ = "SEA" THEN RETURN23:868:"<<< THAT IS NOT ONE OF THE CHOICES >>>":RECORDS"6" PRINT) PRINT A SERIES OF RECORDS."d" DPRINT) PRINT ONLY DELETED RECORDS":" SORT) SORT THE RECORDS BY KEY"" SEARCH) SEARCH FOR A RECORD":" STOP) STOP PROCESSING" 23:868:"WHICH DO YOU WISH RECORD"0" DELETE) DELETE A DATA RECORD"X" MODIFY) MODIFY A DATA RECORD"" DISPLAY) DISPLAY A DATA RECORD"" RECOVER) RECOVER A DELETED RECORD":" LIST) LIST A SERIES OF RECORDS"" DLIST) LIST ONLY DELETED *** SHUTDOWN#1065: DO TITLES4DOS$"CLOSE"S21:" RUN COMPLETE."Yo *** MAIN MENUVIDEOĉ::1:"THE FOLLOWING OPTIONS ARE AVAILABLE: "::" SHOW) SHOW THE RECORD LAYOUT":" ENTER) ENTER A DATARĄID$:2245,DOS$"CLOSE "F$"@INDEXES":JNINI1:ID$(NI)ID$:2235P n *** MAIN PROGRAM LOOP *** HERE WE GET THE *** CAMMAND AND THEN *** ACT ON IT 5000: MAIN MENU  6000: DECIPHER 3050  FI$:2155) fDOS$"CLOSE "F$"@HEADER":A kNFNF1:FI$(NF)FI$e pFL$(NF):RLRL(FL$(NF)):2145  *** GET RECORD INDEXES TESTINGĺ"INDEXES READ..." ERR0:ERRĺDOS$"OPEN "F$"@INDEXES,L"IL DOS$"READ "F$"@INDEXES,R1" ERR0:ER17000: INIT 2100: HEADERSB "IL1(FL$(1))(2(NF1))41V %2200: INDEXES\ /y 4 *** GET HEADER STUFF MTESTINGĺ"HEADER READ..." RRL0 TNF0: START READ WDOS$"OPEN "F$"@HEADER" \DOS$"READ "F$"@HEADER" aERR0:ERRĆFI$(50): FIELD& FL$(50): LENGTH; NF0: # FIELDSQ RE$(50): EXTRAS\ MR500r ID$(MR): INDEXS NI0: # INDEXS TF(50): TEMP FLDS GT(50,2): TOTALS  23:"WHAT FILE WILL YOU BE USING :";F$:F$""2067  EVAL)"$ B12:"BY MARK CAPELLA ":F G9:"COPYRIGHT (C) 1981 BY":c L11:"MIRCO-SPARC, INC." Q15:8:"************************": V  ***SETUP ROUTINE BL$" " BL$BL$BL$BL$BL$BL$BL$BL$ TRUE1 FALSE0$ VIDEOTRUE5 NOSIGFALSEH TESTINGFALSEW DOS$(4)c 30000i $z )VIDEOĉ:: .NOSIG1110 33:8:"*************************": 810:"APPLE ";::"ST.A.R. ";::" SYSTEM": =8:"(STORAGE AND RETRIh:<QA REQUIRES 48K APPLE II OR APPLE II PULS, APPLESOFT IN ROM AND 1 DISKhd *** MAIN ROUTINE}1000: MAIN TITLES2000: SETUP3000: MAIN PROGRAM4000: SHUTDOWN *** SPLASH PAGE AND *** DEBUGGING AIDS                     THERE IS NO MORE ROOM FOR THIS HEADER":PA11000:PA:4000: BAIL OUT !!!P5kHm5lHDOS$"CLOSE "F$"@HEADER"s5qH5I *** WANT TO DO IT?5IVIDEOĉ::5I1:"***** INITIALIZATION PROCEDURE *****"]6I5:" I'M SORRY, BUT THERE IS NO HEADEITE TO HEADER4YH16100f4ZH23:868:"IS THIS ALL CORRECT :";RE$:(RE$,1)"Y"(RE$,1)"N"18522}4[H(RE$,1)"N"40004]HDOS$"OPEN "F$"@HEADER"4bHDOS$"WRITE "F$"@HEADER"4gHI1NF4iHERR0:ERRĺFI$(I):ERRĺFL$(I):18539J5jH23:958:"D LENGTH: ";XL$:(XL$)1ĺ"":18245,3HGRLE3IG(XL$):P911000:3JG(XL$)RL245Ģ6:868:"<<< RECORD LENGTH TOO LONG>>>":PA11000:PA:182303mG23:868:"IS THIS CORRECT: ";RE$:RE$(RE$,1):RE$"Y"RE$"N"ĺ"";:182853rG 4DH *** WR) 2F18130)2G *** GET A FIELDNAME,E2'G *** LENGTH AND STUFFV26GVIDEOĉ::2;G1:"ENTER THE FOLLOWING INFORMATION :":52=GNF0Ą"ID (RETURN TO STOP) : ";XF$:182422@G"FIELD NAME (RETURN TO STOP : ";XF$2BGXF$""ı$3EG6:868:"FIELLD STUFF21FRL1: RECORD LENGTH = DELCHAR + ...I1F18200: GET ENTRY\1FXF$""181401FNF1İ18500:: WRITE TO FILE1F23:958:"AT LEAST ONE ITEM IS REQUIRED...":PA11000:PA:181252FRE$"Y"NFNF1:FI$(NF)XF$:FL$(NF)XL$:RLRL(XL$ERRFALSE:ERRĄDUMMY$40BDOS$"CLOSE "F$"@HEADER":0Bl0BERRĺ(4)"DELETE "F$"@HEADER":18000: INITr0B0PF *** DO INIT ROUTINE0iF18900: WANT TO?0nFRE$"N"4000ʲ BAIL-OUT ABORT METHOD0sF18100: DOIT !!!0xF1F *** GET FIENF *** SHOW THE RECORDO.> *** LAYOUTc.>16100: OUTPUT.>23:868:"HIT RETURN WHEN READY TO CONTINUE : ";RE$.>.> *** DISPLAY REC INFO.>::1.?"<<< SHOWING THE RECORD LAYOUT >>>":5/?I1:15025-: *** FIND IT,-;FOUNDFALSE<-;NI115140H-;I1NI-;(ID$(I),1)"/"(ID$(I),2,(FL$(1)))RE$FOUNDI:15140-;-$;FOUNDĢ23:868:"THAT RECORD IS NOT ON FILE":PA11000:PA-_;-`; *** RECOVER IT.y;ID$(FO)">"(I?,9K1GT:GT(K,1)TF(J)Ă:(BL$,(FL$(TF(J))))" ";:14840^,9XXGT(K,2):14700:XX$" ";m,9J::::s,:,: *** RECOVER DELETED,: *** RECORD,:12100: GET REC#,:RE$""ı,:15100: FIND IT,:FOUNDİ15200: RECOVER IT-ZZ(FL$(TFD(J)))A+9XX0XX(XX):14730:XX$"-"(XX$,ZZ1):+9XX$("0000000000000000"((XX.005))"."((((XX100)100.5)),2),ZZ):+9 *** DO TOTALS+9"TOTALS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^",9TMP1:J1TP23:868:"FIELD TO TOTAL (OR RETURN) : ";RE$?*+9RE$""14670]*09I1NF:RE$FI$(I)14660d*59I*:923:868:"THAT FIELD DOES NOT EXIST.":PA11000:PA:14630*D9GTGT1:GT(GT,1)I:GT(GT,2)0*I9GT5014630*N9*l9 *** FORMAT A STRING+9MP1:J1NF>)h8RE$(J)(RE$,TMP,(FL$(J))):TMPTMP(FL$(J))E)m8JO)r8DOS$U)w8q)8 *** PAUSE FOR DELAY)823:"S TO STOP, OR RETURN TO CONTINUE : ";:TMP$)8TMP$"S"ġ:)814300: TITLES)8)9 *** GET TOTAL FIELDS)!9GT0-*&9M$,TM):14350*( 8TM$TM$(BL$,TM(TM$))(8TM$" ";:::"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^":(?8(@8 *** GET RECORDS FOR(O8 *** LIST / PRINTING(Y8DOS$"READ "F$"@DATA,R"FOUND(^8RE$: GET WHOLE INFO )c8T714800: TOTALS('7PRNTRĺDOS$"PR#0"C'7DOS$"CLOSE "F$"@DATA"|'723:868:"HIT RETURN WHEN READY TO CONTINUE :";RE$'7'7 *** PRINT TITLES'7VIDEOĉ::'7TMP1'7J1TP'7TMP$FI$(TF(J)):TMP(FL$(TF(J))) (8(TM$)TMTM$(T0000 :2307'23:"PRESS SPACE BAR TO CONTINUE!"@'SP$O'SP$" "ıZ'10000 I(I))(FL$(I))RE$(I)RE$(I)(BL$,(FL$(I))(RE$(I)))>ID_ *** REPRINT RECORDg:1:"<<< THE FOLLOWING INFO WAS ENTERED >>>"5:I1NF:FI$(I)": "RE$(I):22:958:"IS THIS CORRECT : ":RE$:RE$(RE$,1):RE$"Y"RE$1:INRN: ( *** ENTER INFO&27<VIDEOĉ::aF1:"<<< ENTERING RECORD "RN" >>>":5mPI1NFZFI$(I)" ";:J1(FL$(I)):CHAR$(95);::J1(FL$(I)):CHAR$(8);::"";RE$(I)dI1RE$(I)""ın(RE$(I))(FL$(I))13707x(RE$E : ";RE$: 1320: ENTER IT5I1RE$(I)""ıI1430: DISPLAYhRE$"Y"İ1490: OUTPUT ITr1170 *** GET A RECORD# *** TO ENTER DATANI01310I1NI (ID$(I),1)"/"RN((ID$(I),4)):INI: RNNIRAM EXECUTION. IT WOULD BE WISE AT THIS TIME TO RESTORE YOUR FILE WITH A BACKUP FILE."`BuERRfBu T P FILE."}BuERRBu 11000:PA:4000.Au *** UNEXPECTED ERROR?AuVIDEOĉ::hAuTESTINGĹ216,0:"**** ERROR ****":AuERR255ĺ"OPERATOR ABORT...":AuAu GOSUB 4000 : REM SHUTDOWNAuWBu3:" I'M SORRY, BUT AN UNEXPECTED ERROR HAS OCCURED DURING PROGND OF FILE *0@XuERR9Ħ: * JUST A DISK FULL *y@]uERR4Ģ23:958:"THE DISK IS WRITE PROTECTED":PA11000:PA:4000@buERR8Ģ23:958:"THE DISK HAD AN I/O ERROR":PA11000:PA:4000AguERR10Ģ23:958:"A FILE IS LOCKED AND SHOULD NOT BE":PATRUE:?PFOUNDFALSE:0?P *** CONTINUE ?o?P23:1:868:"S TO STOP, OR RETURN TO CONTINUE : ";:TMP$?PTMP$"S"TMP$"S"ġ:?PTMP$(13)ĺ:?Q20725?0u *** ERROR RECOVERY??u ***ROUTINES?NuERR(222) @SuERR5Ħ: * JUST AN E(RI)):RI1RT2!>,PSTNI20590.>-PISTNIF>/PRT$(ID$(I),R2,RT)o>7PRT$R2$FOUND((ID$(I),4)):20595v>nPFOUNDFALSE>sPSTI1:>xP *** GET RECORD/MATCH>P12300: GET REC>PRE$(RI)RC$FOUNDTRUE:?PALL$"F"ALL$"F"FOUNDR2$RC$ =O'=O *** DO THE SEARCH0=OST1I=O20500: FIRST MATCHT=OFOıo=O20600: SECOND MATCH ~=OFO20425=O12400: DISPLAY=O20700: INPUT=O20425=P *** GET NEXT MATCH=*PR2(FL$(1))(2(RI1)):RI1R22>+PRT(FL$ *** GET CONSTANT@N20200: ALL?9CN20300: CNSTNT9ENRE$""ı:HN20400: DO ITID$(I):ID$(I)ID$(I1):ID$(I1)TMP$78JJI1:J1J1R8JID$(J)ID$(J1)191358JTMP$ID$(J):ID$(J)ID$(J1):ID$(J1)TMP$8JJJ1:J1J18J191508JINI1191308J8K *** OUTPUT INDEXES8KTESTINGĺ"INDEXES OUTPUT..."9KDOS$"OP'.":18940#78J *** SORT ROUTINEY7QJ:10:"*** SORT IN PROGRESS, DO NOT TOUCH ***"7VJ19100: SORT THE INDEXES IN MEMORY7[J19200: OUTPUT THE SORTED INDEXES7`J7J *** SORT BY INDEX7JI07JII17JID$(I)ID$(I1)19170$8JTMP$R FILE ON THIS DISK. INITIALIZATION MUST BE DONE BEFORE ANY DATA CAN BE SAVED OR ACCESSED."6I:"DO YOU WISH TO INITIALIZE A DATA FILE ON THE CURRENT DISKETTE? ";RESPNSE$6J(RE$,1)"Y"(RE$,1)"N"RE$(RE$,1): 7J:"PLEASE ANSWER 'YES' OR 'NOĺDOS$"PR#1":(9)"64N"L% ERR0:ERRĺDOS$OPEN"F$"@,L"RL + 1: GOTO 14226% 23:958:"THERE IS NO MORE ROOM FOR DATA...":PA11000:PA:2890% 2920: DO TITLE% I1NI% FO((ID$(I),4)):3010: GET AND DISSECT RECORD & DLTD(ID$(I),1)868:"FIELD TO LIST (OR RETURN) :";RE$9$< RE$""2690E$F I1NFZ$P RE$FI$(I)2670a$Z I$d 23:868:"THAT FIELD DOES NOT EXIST.":PA11000:PA:2610$n TPTP1:TF(TP)I$x TP502610$ $ *** ACTUAL DISPLAY$ NI1ı% PRNTR # ## *** LIST / PRINTER)# /# O# PRNTR(RE$"PRI"RE$"DPR")n# DLTD(RE$"DLI"RE$"DPR")# 2580: GET FLDS# 3150# TPİ2700: DISPLAY FIELDS# # *** GET FIELDS TO BE# *** DISPLAYED#( TP0'$2 23:FYING RECORD "RN" >>>":5%"` I1NF_"j FI$(I)": ";RE$(I);:FJ1(FL$(I)):(8);::"";RE$z"t (RE$)(FL$(I))2410"~ RE$""Ģ(PEED(37)):958:FI$(I)": "RE$(I):2460" (RE$)(FL$(I))RE$RE$(BL$,(FL$(I))(RE$))" RE$(I)RE$" #20: GET REC#!RE$""ı0!1980: FIND IT>!FO2260[!INFO:FO(ID$(FO),4))n! 2070: GET IT! 2360: MODIFY! 1430: DISPLAY!$ RE$"Y"İ1490: OUTPUT IT!. 2260!8 *** MODIFY THE REC!B RNFOUND!L ::1"V "<<< MODI \I" fDOS$"CLOSE "F$"@DATA"( pD z *** DISPLAY THE RECv :1:"<<< DISPLAY OF RECORD "RE$(1)" >>>":5 :1:"<<< DISPLAY OF RECORD "RE$(1)": VTAB 5 I1NF FI$(I)": ";RE$(I) I    *** MODIFY RECORD !19T RECORD IS NOT ON FILE":PA11000:PA- H *** GET THE RECORD`  ** FROM THE DISK*DOS$"OPEN "F$"@DATA,L"RL14DOS$"READ "F$"@DATA,R"FOUND>RE$: GET WHOLE INFO HTMP1:I1NF RRE$(I)(RE$,TMP,(FL$(I))):TMPTMP(FL$(I))NG":PA11000:PA:1930N(RE$)(FL$(1))RE$RE$(BL$,(FL$(1))(RE$))Tp *** FIND THE RECORDFOUNDFALSENI12050I1NI(ID$(I),1)"/"2040(ID$(I),2(FL$(1)))FOUND1:2050'FOUNDĢ23:868:"THAb2170: DISPLAYKl23:868:"HIT RETURN WHEN READY TO CONTINUE :";RE$Uv1830o *** GET A RECORD#23:868:"WHAT IS THE RECORD NUMBER :";RE$RE$""ı(RE$)(FL$(1))Ģ23:868:"THEN RECORD NUMBER IS "(FL$(1))"CHARACTERS LO868:"TYPE DELETE OR RETURN TO ABORT : ";RE$FRE$"DELETE"1710iID$(IN)"/"(ID$(IN),2):1620s1710 *** DISPLAY RECORD&1920: GET REC#0RE$""ı:1980: FIND ITDFO1830NFO((ID$(FO),4))X2070: GET ITERE IS NO MORE ROOM FOR DATA...":PA11000:PAMDOS$"CLOSE "F$"@INDEXES"Sm *** DELETE RECORD1920: GET REC#RE$""ı1980: FIND ITFO1710INFO:F0((ID$(FO),4))2070: GET IT2170: DISPLAY.23: "F$"@DATA">TERR0:ERRĺDOS$"OPEN "F$"@INDEXES,L"IL:1640^23:958:"THERE IS NO MORE ROOM FOR DATA...":PA11000:PA:1690hTESTINGĺ"INDEX : "IL:"RN = "INrDOS$"WRITE "F$"@INDEXES,R"IN|ERR0:ERRĺID$(IN):1680/23:958:"TH"THERE IS NO MORE ROOM ON DISK...":PA11000:PA:DOS$"CLOSE "F$"@DATA":1690XI:s"DOS$"CLOSE "F$"@DATA",RNNINIRN6ID$(IN)">"RE$(1):NF1āI2NF:ID$(IN)ID$(IN)RE$(I)" ",2):@ID$(IN)ID$(IN)("0000"(RN),4) JDOS$"CLOSE"N"ĺ"":1470/ *** DATA IS OK bERR0:ERRĺDOS$"OPEN "F$"@DATA, L"RL1:152023:958:"THERE IS NO MORE ROOM FOR DATA":PA11000:PA:1690DOS$"WRITE "F$"@DATA,R"RNI1NFERR0:ERRĺRE$(I);:1560O23:958: OF "NOQ" CORRECTLY!"PSC+P1NOQAP2((PP1)100)a"YOUR PRECENTAGE IS "P2"%"rPA15000::12:,"GOOD-BYE"8,"THAT WAS A HARD ONE!","THE CAPITOL OF":,S$:,"IS":,C$1 LIKE TO DO ANOTHER?"VA`" ENTER (Y)YES OR (N)NO"IjR$XtR$"Y"ĂIi~R$"N"1160"INCORRECT ENTRY":PA12000::1100:"YOU FINISHED THEM ALL CONGRADULATIONS":PA13000:NOQNOQ1:12:"YOU ANSWERED "SC" OUT868:"<<< RECORD LENGTH TOO LONG>>>":PA11000:PA:3900323:868:"IS THIS CORRECT :";RE$:RE$(RE$,1):RE$"Y"RE$"N"ĺ"";:399033 *** WRITE TO HEADER33590423:868:"IS THIS ALL CORRECT :";RE$:(RE$,1)"Y"(RE$,1)"N""ENTER THE FOLLOWING INFORMATION :":5U2PNF0Ą"ID (RETURN TO STOP) : ";XF$:3940~2Z"FIELD NAME (RETURN TO STOP : ";XF$2dXF$""ı2n6:868:"FIELD LENGTH : ";XL$:(XL$)1ĺ"":39502xRL2(XL$):P911000:93(XL$)RL245Ģ6:"1NF1İ4010:: WRITE TO FILEi1 23:958:"AT LEAST ONE ITEM IS REQUIRED...":PA11000:PA:38101RE$"Y"NFNF1:FI$(NF)XF$:FL$(NF)XL$:RLRL(XL$)138201( *** GET A FIELDNAME,12 *** LENGTH AND STUFF1<VIDEOĉ::&2F1:EADER":3750: INIT060 *** DO INIT ROUTINEK04130: WANT TO?v0RE$"N"750ʲ BAIL-OUT ABORT METHOD03800: DOIT !!!00 *** GET FIELD STUFF0RL1: RECORD LENGTH = DELCHAR + ...03880: GET ENTRY1XF$""3860INITIALIZE8/VERR0:ERRĺDOS$"OPEN "F$"@HEADER":3690/`23:958:"THERE IS NO ROOM ON THIS DISK.":PA11000:PA:750: ABORT !!!/jDOS$"READ "F$"@HEADER"/tERRFALSE:ERRĄDUMMY$/~DOS$"CLOSE "F$"@HEADER"/0ERRĺ(4)"DELETE "F$"@H3590: OUTPUTH. 23:868:"HIT RETURN WHEN READY TO CONTINUE : ";RE$N. k. *** DISPLAY REC INFOv.::1."<<< SHOWING THE RECORD LAYOUT >>>":5.$I1NF..FI$(I)"; ";:J1(FL$(I)):(95);::35:(FL$(I)).8.B /L *** $(I),1)"/"(ID$(I),2,(FL$(1)))RE$FOUNDI:34909- |- FOUNDĢ23:868:"THAT RECORD IS NOT ON FILE":PA11000:PA- - *** RECOVER IT- ID$(FO)">"(ID$(FO),2):INFO:1620- - *** SHOW THE RECORD- *** LAYOUT. ):3250:XX$" ";, J::::%, A, *** RECOVER DELETEDW,* *** RECORDl,4 1920: GET REC#{,> RE$""ı,H 3430: FIND IT,R FOUNDİ3510: RECOVER IT,\ 3380,f *** FIND IT,p FOUNDFALSE,z NI13490, I1NI3- (ID("0000000000000000"((XX.005))"."((((XX100)30.5)),2),ZZ):Z+ *** DO TOTALS+ "TOTALS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"+ TMP1:J1TP+ K1GT:GT(K,1)TF(J)Ă:(BL$,(FL$(TF(J))))" ";:3340, XXGT(K,21NF:RE$FI$(I)3220* I]* 23:868:"THAT FIELD DOES NOT EXIST.":PA11000:PA:3170* GTGT1:GT(GT,1)I:GT(GT,2)0* GT503170* * *** FORMAT A STRING* ZZ(FL$(TFD(J)))* XX0XX(XX):3280:XX$"-"(XX$,ZZ1):D+ XX$ ) DOS$) +) *** PAUSE FOR DELAYa)& 23:"S TO STOP, OR RETURN TO CONTINUE : ";:TMP$s)0 TMP$"S"ġ:): 2920: TITLES)D )N *** GET TOTAL FIELDS)X GT0)b 23:868:"FIELD TO TOTAL (OR RETURN) : ";RE$)l RE$""3240*v I^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^":A( ]( *** GET RECORDS FORx( *** LIST / PRINTING( DOS$"READ "F$"@DATA,R"FOUND( RE$: GET WHOLE INFO( TMP1:J1NF( RE$(J)(RE$,TMP,(FL$(J))):TMPTMP(FL$(J))( J'T 23:868:"HIT RETURN WHEN READY TO CONTINUE :";RE$='^ V'h *** PRINT TITLESg'r VIDEOĉ::q'| TMP1}' J1TP' TMP$FI$(TF(J)):TMP(FL$(TF(J)))' (TM$)TMTM$(TM$,TM):2990' TM$TM$(BL$,TM(TM$));( TM$" ";:::"^^^^^^^^"/"2850*& DLTD(ID$(I),1)"/"28506& J1TPJ& RE$(TF(J))" ";S& J:& J1GT:GT(J,2)GT(J,2)(RE$(GT(J,1))):J& PRNTR(37)20İ3100&" I&, :GTĺ::2880&6 3290: TOTALS&@ PRNTRĺDOS$"PR#0"&J DOS$"CLOSE "F$"@DATA"7 8(,"THAT WAS A HARD ONE!".G,"THE CAPITOL OF":R,S$:],"IS"h:,C${COUNT32050COUNT010000 :230'23:"PRESS SPACE BAR TO CONTINUE!"'SP$'SP$" "ı'10000 N1100A:"YOU FINISHED THEM ALL CONGRADULATIONS":PA13000:PNOQNOQ1:12:"YOU ANSWERED "SC" OUT OF "NOQ" CORRECTLY!"PSCP1NOQP2(PP1)100"YOUR PRECENTAGE IS "P2"%"PA15000::12:,"GOOD-BYE"ID$(J1):ID$(J1)TMP$*8JJ1:J1J1484310E8INI14270K8f8 *** OUTPUT INDEXES8TESTINGĺ"INDEXES OUTPUT..."8&DOS$"OPEN "F$"@INDEXES,L"IL80DOS$"WRITE "F$"@INDEXES,R1"8:I1NI:ID$(I):8DDOS$"CLOSE "F$"@INDEXES" SORT THE INDEXES IN MEMORYB74370: OUTPUT THE SORTED INDEXESH7b7 *** SORT BY INDEXj7I0t7II17ID$(I)ID$(I1)43507TMP$ID$(I):ID$(I)ID$(I1):ID$(I1)TMP$7JI1:J1J17ID$(J)ID$(J1)42808TMP$ID$(J):ID$(J)"DO YOU WISH TO INITIALIZE A DATA FILE ON THE CURRENT DISKETTE? ";RESPNSE$y6T(RE$,1)"Y"(RE$,1)"N"RE$(RE$,1):6^:"PLEASE ANSWER 'YES' OR 'NO'.":41706h *** SORT ROUTINE6r:10:"*** SORT IN PROGRESS, DO NOT TOUCH ***"7|4250:"@HEADER"5*5" *** WANT TO DO IT?;5,VIDEOĉ::o561:"***** INITIALIZATION PROCEDURE *****"5@5:" I'M SORRY, BUT THERE IS NO HEADER FILE ON THIS DISK. INITIALIZATION MUST BE DONE BEFORE ANY DATA CAN BE SAVED OR ACCESSED."K6J:40304(RE$,1)"N"75074DOS$"OPEN "F$"@HEADER"T4DOS$"WRITE "F$"@HEADER"`4I1NF4ERR0:ERRĺFI$(I):ERRĺFL$(I):4100423:958:"THERE IS NO MORE ROOM FOR THIS HEADER":PA11000:PA:750: BAIL OUT !!!4 5DOS$"CLOSE "F$C$11::,S$:$13::,C$:*$<3COUNT31090I8SCSC1VBCOUNT0\GL" WOULD YOU LIKE TO DO ANOTHER?"V`" ENTER (Y)YES OR (N)NO"jR$tR$"Y"190~R$"N"1160"INCORRECT ENTRY":PA12000::ANS$C$1000DCOUNT32000EN" SORRY THAT'S NOT RIGHT!"iX" LET'S TRY AGAIN!"zbPA12000:lv230 CORRECT ANSWER MODULE8,"RIGHT","THE CAPITOL OF",S$" IS":,10," WHAT IS THE CAPITOL OF"412=,S$E15t" ENTER YOUR ANSWER & PRESS RETURN "!23:"HIT RETURN IF YOU DON'T KNOW THE ANSWER"%18&ANS$: ANSWER VARIABLE0COUNTCOUNT15ANS$""ĪCOUNT4:2000 :NAME$"' I KNOW YOU WILL":"TRY YOU BEST!!!!"K:"JUST DO WHAT THE COMPUTER TELLS YOU TO DO AND EVERYTHING WILL BE JUST FINE!!!"P10000S$: STATE VARIBLEC$: CAPITOL VARIABLENOQNOQ1: NUMBER OF QUESTIONSNOQ501157F ALL THE STATES IN THE COUNTRY!" <:"IF YOU '"NAME$"' PRESS THE RETURN ":"BUTTON, YOU WILL NOT GET CREDIT FOR THE ANSWER !!!" A:"SO TRY REAL REAL HARD TO ANSWER THE QUESTION---BEFORE YOU PRESS THE RETURN BUTTON!!!!" B,F"GOOD LUCK '"STA  HAWAII,HONOLULU.  DELAWARE,DOVERI  CONNECTICUT,HARTFORD]  ALASKA,JUNEAUk  THE,END (:10:" PLEASE TELL ME YOUR NAME?" ):,"..........." *16:12:NAME$ ,10000 2! 7"THIS WILL HELP YOU LEARN THE CAPITOLS ONEW YORK,ALBANY,NEBRASKA,LINCOLN6  GEORGIA,ATLANTAO  VERMONT,MONTPELIERh  WASHINGTON,OLYMPIA  RHODE ISLAND,PROVIDENCE  NEW JERSEY,TRENTON  NEW HAMPSHIRE,CONCORD  MASSACHUSETTS,BOSTON  MARYLAND,ANNAPOLIS  MAINE,AUGUAHASSEE9 SOUTH CAROLINA,COLUMBIA,TENNESSEE,NASHVILLEh NORTH CAROLINA,RALEIGH,VIRGINIA,RICHMOND SOUTH DAKOTA,PIERRE,NORTH DAKOTA,BISMARK  MINNESOTA,ST. PAUL,WISCONSIN,MADISON  PENNSYLVANIA,HARRISBURG,WEST VIRGINIA,CHARLESTON  ,KENTUCKY,FRANKFORTO  CALIFORNIA,SACRAMENTO,NEVADA,CARSON CITY,OREGON,SALEM  IDAHO,BOISE,COLORADO,DENVER,MICHIGAN,LANSING OKLAHOMA, OKLAHOMA CITY,ARIZONA,PHOENIX,LOUISIANA,BATON ROUGE MISSISSIPPI,JACKSON,ALABAMA,MONTGOMERY,FLORIDA,TALL , IOWA,DES MOINES,ILLINOIS,SPRINGFIELDG INDIANA,INDIANAPOLISq ARKANSAS,LITTLE ROCK,KANSAS,TOPEKA UTAH,SALT LAKE CITY,TEXAS, AUSTIN MONTANA,HELENA,WYOMING,CHEYENNE,NEW MEXICO, SANTA FE  OHIO,COLUMBUS,MISSOURI,JEFFERSON CITY     (FL$(RI))RC$RC$(BL$,(FL$(RI))(RC$))23:868:"WHAT IS THE CONSTANT: ";RC$;HRC$""ı;RR2$(RC$" ",2),<\(RC$):RE$FI$(RI)4600:^:23:868:"THAT FIELD DOES NOT EXIST.":PA11000:PA:RI0:d:}: *** OR ALL CHARS: 23:868:"ALL CHARACTER MATCH OR FIRST TWO : ";ALL$:ALL$(ALL$,1):ALL$"A"ALL$"A"ALL$"F"ALL$"F"ı.; 23:868:9N"9X *** SEARCH FOR A REC49b4530: FIELDC9lRE$""ıN9vRIı_94610: ALL?r94660: CNSTNT9RE$""ı94740: DO IT944509 *** GET NEEDED FIELD923:868:"FIELD TO SEARCH ON :";RE$9RE$""ı:RI1NFORRECT ANSWER MODULE!8'5,"RIGHT";S M16:20:(7):MZ 9`w,"THE CAPITOL OF",S$" IS":,C$11::,S$:13::,C$:$3COUNT310908SCSC1BCOUNT0GL" WOULD YOUURN IF YOU DON'T KNOW THE ANSWER")%18E&ANS$: ANSWER VARIABLEX0COUNTCOUNT1j5ANS$""2000|:ANS$C$1000DCOUNT32000N" SORRY THAT'S NOT RIGHT!"X" LET'S TRY AGAIN!"bPA12000:lv230 C150201I5011#2S$ST$(I)BC$CAP$(I)gNOQNOQ1: NUMBER OF QUESTIONSxNOQ50115710" WHAT IS THE CAPITOL OF"12,S$15" ENTER YOUR ANSWER & PRESS RETURN "!!23:"HIT RET THE RETURN BUTTON!!" c10000&d-f8vi"WHERE DO YOU WANT TO START AT THE (B)EGINNING OR THE (E)ND!"p12:Q$rQ$"B"190sQ$"E"117t"NOT ONE OF THE CHOICES!":PA11500::100uIND1vIND1200IM SURE!!"QQR"JUST DO WHAT I TELL YOU TO DO AND EVERY THING WILL BE -OK-"WST"IF YOU PRESS THE RETURN BUTTON BEFORE YOU ANSWER YOU WILL NOT GET CREDIT FOR THE PROBLEM."UV"SO MAKE SURE "NAME$" YOU TRY REAL HARD BEFORE YOU PRESSHELP YOU TO LEARN THE CAPITOLS OF ALL THE STATES IN THE UNION."j K"WILL YOU PLEASE TELL ME YOUR NAME?" L:" ............." M7:10:NAME$ O"---------------------------------------" P"THIS IS GOING TO BE EASY FOR YOU":NAME$" I ASTA  HAWAII,HONOLULU.  DELAWARE,DOVERI  CONNECTICUT,HARTFORD]  ALASKA,JUNEAUj #ST$(51)x (CAP$(51) -I150 2S$ 3C$ 7ST$(I)S$ 8CAP$(I)C$ <I A@ F"GOOD DAY TO YOU STUDENT I AM YOUR APPLE COMPUTER. I WILL NEW YORK,ALBANY,NEBRASKA,LINCOLN6  GEORGIA,ATLANTAO  VERMONT,MONTPELIERh  WASHINGTON,OLYMPIA  RHODE ISLAND,PROVIDENCE  NEW JERSEY,TRENTON  NEW HAMPSHIRE,CONCORD  MASSACHUSETTS,BOSTON  MARYLAND,ANNAPOLIS  MAINE,AUGUAHASSEE9 SOUTH CAROLINA,COLUMBIA,TENNESSEE,NASHVILLEh NORTH CAROLINA,RALEIGH,VIRGINIA,RICHMOND SOUTH DAKOTA,PIERRE,NORTH DAKOTA,BISMARK  MINNESOTA,ST. PAUL,WISCONSIN,MADISON  PENNSYLVANIA,HARRISBURG,WEST VIRGINIA,CHARLESTON  ,KENTUCKY,FRANKFORTO  CALIFORNIA,SACRAMENTO,NEVADA,CARSON CITY,OREGON,SALEM  IDAHO,BOISE,COLORADO,DENVER,MICHIGAN,LANSING OKLAHOMA, OKLAHOMA CITY,ARIZONA,PHOENIX,LOUISIANA,BATON ROUGE MISSISSIPPI,JACKSON,ALABAMA,MONTGOMERY,FLORIDA,TALL\ , IOWA,DES MOINES,ILLINOIS,SPRINGFIELDG INDIANA,INDIANAPOLISq ARKANSAS,LITTLE ROCK,KANSAS,TOPEKA UTAH,SALT LAKE CITY,TEXAS, AUSTIN MONTANA,HELENA,WYOMING,CHEYENNE,NEW MEXICO, SANTA FE  OHIO,COLUMBUS,MISSOURI,JEFFERSON CITY      PERATOR ABORT...":A9A( GOSUB 4000 : REM SHUTDOWN?A2A<3:" I'M SORRY, BUT AN UNEXPECTED ERROR HAS OCCURED DURING PROGRAM EXECUTION. IT WOULD BE WISE AT THIS TIME TO RESTORE YOUR FILE WITH A BACKUP FILE."AFERRAP50H@ERR8Ģ23:958:"THE DISK HAD AN I/O ERROR":PA11000:PA:750@ERR10Ģ23:958:"A FILE IS LOCKED AND SHOULD NOT BE":PA11000:PA:750@ *** UNEXPECTED ERROR@VIDEOĉ::@ TESTINGĹ216,0:"**** ERROR ****":AERR255ĺ"OTMP$"S"TMP$"S"ġ:)?TMP$(13)ĺ:3?4990N? *** ERROR RECOVERY`? ***ROUTINESo?ERR(222)?ERR5Ħ: * JUST AN END OF FILE *?ERR9Ħ: * JUST A DISK FULL *@ERR4Ģ23:958:"THE DISK IS WRITE PROTECTED":PA11000:PA:7I>.FOUNDFALSE>8STI1:<>B *** GET RECORD/MATCHP>L2070: GET RECn>VRE$(RI)RC$FOUNDTRUE:>`ALL$"F"ALL$"F"FOUNDTRUE:>jFOUNDFALSE:>t *** CONTINUE ?>~23:1:868:"S TO STOP, OR RETURN TO CONTINUE : ";:TMP$? =FO4760#=2170: DISPLAY5=4980: INPUT?=4760Z= *** GET NEXT MATCH=R2(FL$(1))(2(RI1)):RI1R22=RT(FL$(RI)):RI1RT2=STNI4910=ISTNI=RT$(ID$(I),R2,RT)=RT$R2$FOUND((ID$(I),4)):4920>$  :2303'23:"PRESS SPACE BAR TO CONTINUE!"<'SP$K'SP$" "ıV'10000 ECTLY!"PSCP1NOQ0P2(PP1)100P"YOUR PRECENTAGE IS "P2"%"aPA15000:x:12:,"GOOD-BYE"~8,"THAT WAS A HARD ONE!","THE CAPITOL OF":,S$:,"IS":,C$COUNT010000THER?" V2`" ENTER (Y)YES OR (N)NO":jR$JtR$"Y"190[~R$"N"1160"INCORRECT ENTRY":PA12000::1100:"YOU FINISHED THEM ALL CONGRADULATIONS":PA13000:NOQNOQ1:12:"YOU ANSWERED "SC" OUT OF "NOQ" CORR RIGHT!",X" LET'S TRY AGAIN!"=bPA12000:ClLv230h CORRECT ANSWER MODULEnu8{,"RIGHT""THE CAPITOL OF "S$" IS "C$$8SCSC1BCOUNT0GL" WOULD YOU LIKE TO DO ANO12 ,S$ 15B " ENTER YOUR ANSWER & PRESS RETURN "u !23:"HIT RETURN IF YOU DON'T KNOW THE ANSWER"} %18 &ANS$: ANSWER VARIABLE 0COUNTCOUNT1 5ANS$""2000 :ANS$C$1000 DCOUNT32000N" SORRY THAT'S NOTSTA  HAWAII,HONOLULU.  DELAWARE,DOVERI  CONNECTICUT,HARTFORD]  ALASKA,JUNEAUc { S$: STATE VARIBLE C$: CAPITOL VARIABLE NOQNOQ1: NUMBER OF QUESTIONS NOQ501157 10 " WHAT IS THE CAPITOL OF" NEW YORK,ALBANY,NEBRASKA,LINCOLN6  GEORGIA,ATLANTAO  VERMONT,MONTPELIERh  WASHINGTON,OLYMPIA  RHODE ISLAND,PROVIDENCE  NEW JERSEY,TRENTON  NEW HAMPSHIRE,CONCORD  MASSACHUSETTS,BOSTON  MARYLAND,ANNAPOLIS  MAINE,AUGUAHASSEE9 SOUTH CAROLINA,COLUMBIA,TENNESSEE,NASHVILLEh NORTH CAROLINA,RALEIGH,VIRGINIA,RICHMOND SOUTH DAKOTA,PIERRE,NORTH DAKOTA,BISMARK  MINNESOTA,ST. PAUL,WISCONSIN,MADISON  PENNSYLVANIA,HARRISBURG,WEST VIRGINIA,CHARLESTON  ,KENTUCKY,FRANKFORTO  CALIFORNIA,SACRAMENTO,NEVADA,CARSON CITY,OREGON,SALEM  IDAHO,BOISE,COLORADO,DENVER,MICHIGAN,LANSING OKLAHOMA, OKLAHOMA CITY,ARIZONA,PHOENIX,LOUISIANA,BATON ROUGE MISSISSIPPI,JACKSON,ALABAMA,MONTGOMERY,FLORIDA,TALLX , IOWA,DES MOINES,ILLINOIS,SPRINGFIELDG INDIANA,INDIANAPOLISq ARKANSAS,LITTLE ROCK,KANSAS,TOPEKA UTAH,SALT LAKE CITY,TEXAS, AUSTIN MONTANA,HELENA,WYOMING,CHEYENNE,NEW MEXICO, SANTA FE  OHIO,COLUMBUS,MISSOURI,JEFFERSON CITY        ӠԠˍǍz#???    Ӡ ŠӠɠ Ӡɠ Ӡɠ Ҡ< Ҡɠ;Ҡ<Ϡˠ ΠӠ ŧӠӠ ̧ӠӠ ӠŠӠ`RE$"SOR"4200:,jRE$"SEA"4440:?tRE$"STO"ġ:E~^ *** ENTER RECORDoVIDEOĉ::1250: DISPLAY RNMRĢ23:"THERE IS NO MORE MEMORY SPACE AVAILABLE FOR YOU TO STORE RECORDS. HIT RETURN WHEN YOU ARE READY TO CONTINUE:960$ *** CAMMAND SWITCHING:RE$"ENT"1160:PRE$"DEL"1700:fRE$"DIS"1820:|RE$"MOD"2250:$RE$"LIS"2490:.RE$"DLI"2490:8RE$"PRI"2490:BRE$"DPR"2490:LRE$"REC"3360:VRE$"SHO"3540:E$""960RE$(RE$,3):RE$"ENT"RE$"DEL"RE$"MOD"RE$"DIS"RE$"SOR"RE$"LIS"RE$"PRI"RE$"STO"RE$"REC"RE$"SHO"ıRE$"DLI"RE$"DPR OR RE$ = "SEA" THEN RETURN23:868:"<<< THAT IS NOT ONE OF THE CHOICES >>>":PAUSE11500:PAUS PRINT) PRINT A SERIES OF RECORDS."R" DPRINT) PRINT ONLY DELETED RECORDS":" SORT) SORT THE RECORDS BY KEY"" SEARCH) SEARCH FOR A RECORD":" STOP) STOP PROCESSING"23:868:"WHICH DO YOU WISH :";RESPNSE$ R DELETE) DELETE A DATA RECORD"F\" MODIFY) MODIFY A DATA RECORD"of" DISPLAY) DISPLAY A DATA RECORD"p" RECOVER) RECOVER A DELETED RECORD"z:" LIST) LIST A SERIES OF RECORDS"" DLIST) LIST ONLY DELETED RECORDS"$" 190: DO TITLES"DOS$"CLOSE"A 21:" RUN COMPLETE."G]  *** MAIN MENUn*VIDEOĉ::41:"THE FOLLOWING OPTIONS ARE AVAILABLE: "::>" SHOW) SHOW THE RECORD LAYOUT":H" ENTER) ENTER A DATA RECORD"R" DOS$"CLOSE "F$"@INDEXES":;NINI1:ID$(NI)ID$:630A_ *** MAIN PROGRAM LOOP{ *** HERE WE GET THE *** CAMMAND AND THEN *** ACT ON IT800: MAIN MENU1010: DECIPHER710 *** SHUTDOWN 0DOS$"CLOSE "F$"@HEADER":5 :NFNF1:FI$(NF)FI$X DFL$(NF):RLRL(FL$(NF)):550w N *** GET RECORD INDEXES XTESTINGĺ"INDEXES READ..." bERR0:ERRĺDOS$"OPEN "F$"@INDEXES,L"IL lDOS$"READ "F$"@INDEXES,R1" vERR0:ERRĄID$:650NIT 490: HEADERS8 IL1(FL$(1))(2(NF1))41K 590: INDEXESQ n  *** GET HEADER STUFF TESTINGĺ"HEADER READ..." RL0 NF0: START READ DOS$"OPEN "F$"@HEADER" DOS$"READ "F$"@HEADER" &ERR0:ERRĄFI$:570): FIELD JFL$(50): LENGTH4 TNF0: # FIELDSJ ^RE$(50): EXTRASU hMR500k rID$(MR): INDEXS |NI0: # INDEXS TF(50): TEMP FLDS GT(50,2): TOTALS  23:"WHAT FILE WILL YOU BE USING :";F$:F$""420  3660: I 12:"BY MARK CAPELLA ":? 9:"COPYRIGHT (C) 1981 BY":\ 11:"MIRCO-SPARC, INC." 15:8:"************************":  " ***SETUP ROUTINE ,BL$" " 6BL$BL$BL$BL$BL$BL$BL$BL$ @FI$(501 xFALSE0 VIDEOTRUE0 NOSIGFALSEC TESTINGFALSER DOS$(4)] 5030c t VIDEOĉ:: NOSIG280 3:8:"*************************": 10:"APPLE ";::"ST.A.R. ";::" SYSTEM": 8:"(STORAGE AND RETRIEVAL)"9 Q REQUIRES 48K APPLE II OR APPLE II PULS, APPLESOFT IN ROM AND 1 DISKh *** MAIN ROUTINE~(90: MAIN TITLES2290: SETUP<660: MAIN PROGRAMF750: SHUTDOWNPZ *** SPLASH PAGE ANDd *** DEBUGGING AIDS nTRUE                        GREETING - PROGRAM":=10:,"1 CHECKBOOK":W(,"2 MAIN SAVINGS":w2,"3 MICHELLE'S SAVINGS":<,"4 NEIL'S SAVINGS":F,"5 FIGURE LOANS":K,"6 END"Z"ENTER CHOICE"dCnD$"": CTRL D xC140,150,160,117000: INIT 2100: HEADERSB "IL1(FL$(1))(2(NF1))41V %2200: INDEXES\ /y 4 *** GET HEADER STUFF MTESTINGĺ"HEADER READ..." RRL0 TNF0: START READ WDOS$"OPEN "F$"@HEADER" \DOS$"READ "F$"@HEADER" aERR0:ERRĆFI$(50): FIELD& FL$(50): LENGTH; NF0: # FIELDSQ RE$(50): EXTRAS\ MR500r ID$(MR): INDEXS NI0: # INDEXS TF(50): TEMP FLDS GT(50,2): TOTALS  23:"WHAT FILE WILL YOU BE USING :";F$:F$""2067  EVAL)"$ B12:"BY MARK CAPELLA ":F G9:"COPYRIGHT (C) 1981 BY":c L11:"MIRCO-SPARC, INC." Q15:8:"************************": V  ***SETUP ROUTINE BL$" " BL$BL$BL$BL$BL$BL$BL$BL$ TRUE1 FALSE0$ VIDEOTRUE5 NOSIGFALSEH TESTINGFALSEW DOS$(4)c 30000i $z )VIDEOĉ:: .NOSIG1110 33:8:"*************************": 810:"APPLE ";::"ST.A.R. ";::" SYSTEM": =8:"(STORAGE AND RETRIh:<QA REQUIRES 48K APPLE II OR APPLE II PULS, APPLESOFT IN ROM AND 1 DISKhd *** MAIN ROUTINE}1000: MAIN TITLES2000: SETUP3000: MAIN PROGRAM4000: SHUTDOWN *** SPLASH PAGE AND *** DEBUGGING AIDS                MAGED!"8t"SEE INSTRUCTION BOOKLET FOR INSTRUCTIONS";C30000DQ1$)ZX1,((Q1$,X))!1DISK55000=&::10c0"PREPARE TAPE FOR RECORDING AND":"PRESS ANY KEY. ";:A$D:Pë60020֪D$"": CTRL DֺD$;"SAVE CHECKBOOK":D$;"RUN HELLO"` BAD PERSON YOU!j"LINE 0 HAS BEEN DA1(Q)hQ2QQ1*rQ2(Q2100.5)1008|Q2$(Q2)P(Q2$)1Q2$".00"j(Q2$)2Q2$Q2$"0"wQ$(Q1)C(Q$)C16CC1040160œX1C1̜Q$"0"Q$֜B0Q$"-"Q$ꜭB0Q$"+"Q$Q1$Q$Q2$X1("; 'B0ĺ"-";" '((B))".";. $'B1(B)> .'B2B1(B1)X 8'B2((100B2.5))100f B'B2$(B2)} L'(B2$)1ĺ"00";: V'(B2$,2); `'(B2$)2ĺ"0";: j' 0u QUIT Du @ UPDATE & QUIT E JQ((B)100.5)100 TQ((Q))^Q1$""210( (A1$,1)"$"A1$(A1$,2)6 &A2(A1$)p 0A20ĺ:"ENTER A ";::"CHECK";::" PLEASE!"::510 5A1(A2100.5)100 7A1((A1)) :BBA1 D(B)999999.99ĺ"BALANCE TOO SMALL":50000 N510 '"BALANCE= $00.5)100 A1((A1))% BBA1q (B)999999.99ĺ"BALANCE TOO LARGE--LUCKY!!":50000z 380  14::"ENTER CHECKS": " PRESS ALONE TO RETURN TO MENU" 34,3: 10000 22:"CHECK? ";A1$ A13::"ENTER DEPOSITS"I h:" PRESS ALONE TO RETURN TO MENU"U r34,3:` |10000y 21:"DEPOSIT? ";A1$ (A1$,1)"$"A1$(A1$,2) A1$""210 A2(A1$) A20ĺ:"ENTER A ";::"DEPOSIT";::" PLEASE!"::380 A1(A210000 :  B$ ::5/ 100007 10U 5:"1: ENTER DEPOSIT(S)"[ w 5:"2: ENTER CHECK(S)"}  5:"3: QUIT" ": ,34,(37) 6:"ENTER BY NUMBER ";A$ @A(A$):A1A3310 E JA340,470,40000 T ^D+003780.00210/ DO NOT [ REMOVE,RENUMBER,OR RETYPE LINE 0!!!!! PROGRAM WILL DIE A HORRIBLE DEATH(DISK((994)(1001)192)2Z(103)(104)2565:POINTS TO START OF DATA STATEMENT <N$((Z)):N$"+"N$"-"6      RECORD"0" DELETE) DELETE A DATA RECORD"X" MODIFY) MODIFY A DATA RECORD"" DISPLAY) DISPLAY A DATA RECORD"" RECOVER) RECOVER A DELETED RECORD":" LIST) LIST A SERIES OF RECORDS"" DLIST) LIST ONLY DELETED *** SHUTDOWN#1065: DO TITLES4DOS$"CLOSE"S21:" RUN COMPLETE."Yo *** MAIN MENUVIDEOĉ::1:"THE FOLLOWING OPTIONS ARE AVAILABLE: "::" SHOW) SHOW THE RECORD LAYOUT":" ENTER) ENTER A DATARĄID$:2245,DOS$"CLOSE "F$"@INDEXES":JNINI1:ID$(NI)ID$:2235P n *** MAIN PROGRAM LOOP *** HERE WE GET THE *** CAMMAND AND THEN *** ACT ON IT 5000: MAIN MENU  6000: DECIPHER 3050  FI$:2155) fDOS$"CLOSE "F$"@HEADER":A kNFNF1:FI$(NF)FI$e pFL$(NF):RLRL(FL$(NF)):2145  *** GET RECORD INDEXES TESTINGĺ"INDEXES READ..." ERR0:ERRĺDOS$"OPEN "F$"@INDEXES,L"IL DOS$"READ "F$"@INDEXES,R1" ERR0:ERAIN SAVINGS":D$;"RUN HELLO"DF COMPOUNDING PERIODS PER YEAR ";I1G"ENTER NUMBER OF YEARS ";NRIII1h::"OLD ";:640| BB(1I100)N*B(((B100.5)100))/:4"NEW ";:6409H24:"PRESS SPACE TO GO ON. ";:A$:210`D$""aD$;"SAVE M: $1090#. BAD PERSON YOU!D8"LINE 0 HAS BEEN DAMAGED!"uB"SEE INSTRUCTION BOOKLET FOR INSTRUCTIONS";~V750 ADD INTEREST:514::"ADD INTEREST"::"ENTER INTEREST RATE PER YEAR ";I' "ENTER NUMBER O) C16CC10950&X1C14Q$"0"Q$:MB0Q$"-"Q$aB0Q$"+"Q$pQ1$Q$Q2$X1(Q1$)ZX1,((Q1$,X))DISK60000::10"PREPARE TAPE FOR RECORDING AND""PRESS ANY KEY. ";:A$(B2$,2); (B2$)2ĺ"0";:&1 QUIT7K  UQDATE & QUITQj Q((B)100.5)100x*Q((Q))4Q1(Q)>Q2QQ1HQ2(Q2100.5)100RQ2$(Q2)\(Q2$)1Q2$".00"f(Q2$)2Q2$Q2$"0"pQ$(Q1)zC(Q$.5)100 XA1((A1))" bBBA1d l(B)999999.99ĺ"BALANCE TOO SMALL":1060m v530 "BALANCE= $"; B0ĺ"-"; ((B))"."; B1(B) B2B1(B1) B2((100B2.5))100 B2$(B2) (B2$)1ĺ"00";: ENU" 34,3: 6400 22:"WITH.? ";A1$x !B0ĺ"(I HOPE THE BANK IS PATIENT WITH A BAL-":"ANCE LIKE THAT!)" &A1$""210 0(A1$,1)"$"A1$(A1$,2) :A2(A1$) DA20ĺ:"ENTER A ";::"WITH.";::" PLEASE!"::530 NA1(A2100 ";::"DEPOSIT";::" PLEASE!"::380> A1(A2100.5)100N A1((A1))Y BBA1 (B)999999.99ĺ"BALANCE TOO LARGE--LUCKY!!":1060 380 : 12::"ENTER WITHDRAWLS": " PRESS ALONE TO RETURN TO M$):A1A4ė:300* JA340,490,2000,7802 T:N ^13::"ENTER DEPOSITS" h:" PRESS ALONE TO RETURN TO MENU" r34,3: |640 21:"DEPOSIT? ";A1$ (A1$,1)"$"A1$(A1$,2) A1$""210 A2(A1$)& A20ĺ:"ENTER A"+"N$"-"1070 : ' B2 ::5; 640C 10a 5:"1: ENTER DEPOSIT(S)"g 5:"2: ENTER WITHDRAWL(S)"  5:"3: ADD INTEREST"  5:"4: QUIT" ": '34,(37) ,"ENTER BY NUMBER ";A$ 6 @A(A +000844.47 210> DO NOT UNDER ANY CIRCUSTANCEj REMOVE,RENUMBER,OR RETYPE LINE 0!!!!!( PROGRAM WILL DIE A HORRIBLE DEATH2DISK((994)(1001)192)<Z(103)(104)2565:POINTS TO START OF DATA STATEMENT FN$((Z)):N$     15000:RE$"SHO"16000:5RE$"SOR"19000:LRE$"SEA"20000:_RE$"STO"ġ:e~' *** ENTER RECORD)'VIDEOĉ::.'10100: DISPLAY ,0'RNMRĢ23:"THERE IS NO MORE MEMORY SPACE AVAILABLE FOR YOU TO STORE RECORDS. HIT RETPAUSE11500:PAUSE:50758p *** CAMMAND SWITCHINGORE$"ENT"10000:fRE$"DEL"11000:}RE$"DIS"12000:RE$"MOD"13000:RE$"LIS"14000:RE$"DLI"14000:RE$"PRI"14000:RE$"DPR"14000:RE$"REC":";RESPNSE$RE$""5075RE$(RE$,3):RE$"ENT"RE$"DEL"RE$"MOD"RE$"DIS"RE$"SOR"RE$"LIS"RE$"PRI"RE$"STO"RE$"REC"RE$"SHO"ıRE$"DLI"RE$"DPR OR RE$ = "SEA" THEN RETURN23:868:"<<< THAT IS NOT ONE OF THE CHOICES >>>":RECORDS"6" PRINT) PRINT A SERIES OF RECORDS."d" DPRINT) PRINT ONLY DELETED RECORDS":" SORT) SORT THE RECORDS BY KEY"" SEARCH) SEARCH FOR A RECORD":" STOP) STOP PROCESSING" 23:868:"WHICH DO YOU WISH $;"SAVE MICHELLE'S SAVINGS":D$;"RUN HELLO"DF COMPOUNDING PERIODS PER YEAR ";I1G"ENTER NUMBER OF YEARS ";NRIII1h::"OLD ";:640| BB(1I100)N*B(((B100.5)100))/:4"NEW ";:6409H24:"PRESS SPACE TO GO ON. ";:A$:210`D$"": CTRL D+aD: $1090#. BAD PERSON YOU!D8"LINE 0 HAS BEEN DAMAGED!"uB"SEE INSTRUCTION BOOKLET FOR INSTRUCTIONS";~V750 ADD INTEREST:514::"ADD INTEREST"::"ENTER INTEREST RATE PER YEAR ";I' "ENTER NUMBER O) C16CC10950&X1C14Q$"0"Q$:MB0Q$"-"Q$aB0Q$"+"Q$pQ1$Q$Q2$X1(Q1$)ZX1,((Q1$,X))DISK60000::10"PREPARE TAPE FOR RECORDING AND""PRESS ANY KEY. ";:A$(B2$,2); (B2$)2ĺ"0";:&1 QUIT7K  UQDATE & QUITQj Q((B)100.5)100x*Q((Q))4Q1(Q)>Q2QQ1HQ2(Q2100.5)100RQ2$(Q2)\(Q2$)1Q2$".00"f(Q2$)2Q2$Q2$"0"pQ$(Q1)zC(Q$.5)100 XA1((A1))" bBBA1d l(B)999999.99ĺ"BALANCE TOO SMALL":1060m v530 "BALANCE= $"; B0ĺ"-"; ((B))"."; B1(B) B2B1(B1) B2((100B2.5))100 B2$(B2) (B2$)1ĺ"00";: ENU" 34,3: 6400 22:"WITH.? ";A1$x !B0ĺ"(I HOPE THE BANK IS PATIENT WITH A BAL-":"ANCE LIKE THAT!)" &A1$""210 0(A1$,1)"$"A1$(A1$,2) :A2(A1$) DA20ĺ:"ENTER A ";::"WITH.";::" PLEASE!"::530 NA1(A2100 ";::"DEPOSIT";::" PLEASE!"::380> A1(A2100.5)100N A1((A1))Y BBA1 (B)999999.99ĺ"BALANCE TOO LARGE--LUCKY!!":1060 380 : 12::"ENTER WITHDRAWLS": " PRESS ALONE TO RETURN TO M$):A1A4ė:300* JA340,490,2000,7802 T:N ^13::"ENTER DEPOSITS" h:" PRESS ALONE TO RETURN TO MENU" r34,3: |640 21:"DEPOSIT? ";A1$ (A1$,1)"$"A1$(A1$,2) A1$""210 A2(A1$)& A20ĺ:"ENTER A"+"N$"-"1070 : ' B2 ::5; 640C 10a 5:"1: ENTER DEPOSIT(S)"g 5:"2: ENTER WITHDRAWL(S)"  5:"3: ADD INTEREST"  5:"4: QUIT" ": '34,(37) ,"ENTER BY NUMBER ";A$ 6 @A(A, +000340.03 210> DO NOT UNDER ANY CIRCUSTANCEj REMOVE,RENUMBER,OR RETYPE LINE 0!!!!!( PROGRAM WILL DIE A HORRIBLE DEATH2DISK((994)(1001)192)<Z(103)(104)2565:POINTS TO START OF DATA STATEMENT FN$((Z)):N$     ;RE$:RE$(RE$,1):RE$"Y"RE$"N"ĺ"":103405i(P( *** DATA IS OK (ERR0:ERRĺDOS$"OPEN "F$"@DATA, L"RL1:10425(23:958:"THERE IS NO MORE ROOM FOR DATA":PA11000:PA:10999(DOS$"WRITE "F$"@DATA,R"RN(I1NF(ERR0:E$(I))(FL$(I))10240X ((RE$(I))(FL$(I))RE$(I)RE$(I)(BL$,(FL$(I))(RE$(I)))_(Ie(<( *** REPRINT RECORDU(:Z(1:"<<< THE FOLLOWING INFO WAS ENTERED >>>"_(5:I1NF:FI$(I)": "RE$(I):/d(22:958:"IS THIS CORRECT : "((ID$(I),4)):INI:'/'RNNI1:INRN:F' *** ENTER INFOL']'VIDEOĉ::'1:"<<< ENTERING RECORD "RN" >>>":5'I1NF'NF(FI$(I)" ":J1(FL$(I)):(95)::J1(FL$(I)):(8)::RE$(I)(I1RE$(I)""ı((RURN WHEN YOU ARE READY TO CONTINUE : ";RE$:B3'10200: ENTER ITW4'I1RE$(I)""ıl5'10300: DISPLAY8'RE$"Y"İ10400: OUTPUT ITB'10025t' *** GET A RECORD#' *** TO ENTER DATA'NI010150'I1NI'(ID$(I),1)"/"RN$;"SAVE NEIL'S SAVINGS":D$;"RUN HELLO"DF COMPOUNDING PERIODS PER YEAR ";I1G"ENTER NUMBER OF YEARS ";NRIII1h::"OLD ";:640| BB(1I100)N*B(((B100.5)100))/:4"NEW ";:6409H24:"PRESS SPACE TO GO ON. ";:A$:210`D$"": CTRL D'aD: $1090#. BAD PERSON YOU!D8"LINE 0 HAS BEEN DAMAGED!"uB"SEE INSTRUCTION BOOKLET FOR INSTRUCTIONS";~V750 ADD INTEREST:514::"ADD INTEREST"::"ENTER INTEREST RATE PER YEAR ";I' "ENTER NUMBER O) C16CC10950&X1C14Q$"0"Q$:MB0Q$"-"Q$aB0Q$"+"Q$pQ1$Q$Q2$X1(Q1$)ZX1,((Q1$,X))DISK60000::10"PREPARE TAPE FOR RECORDING AND""PRESS ANY KEY. ";:A$(B2$,2); (B2$)2ĺ"0";:&1 QUIT7K  UQDATE & QUITQj Q((B)100.5)100x*Q((Q))4Q1(Q)>Q2QQ1HQ2(Q2100.5)100RQ2$(Q2)\(Q2$)1Q2$".00"f(Q2$)2Q2$Q2$"0"pQ$(Q1)zC(Q$.5)100 XA1((A1))" bBBA1d l(B)999999.99ĺ"BALANCE TOO SMALL":1060m v530 "BALANCE= $"; B0ĺ"-"; ((B))"."; B1(B) B2B1(B1) B2((100B2.5))100 B2$(B2) (B2$)1ĺ"00";: ENU" 34,3: 6400 22:"WITH.? ";A1$x !B0ĺ"(I HOPE THE BANK IS PATIENT WITH A BAL-":"ANCE LIKE THAT!)" &A1$""210 0(A1$,1)"$"A1$(A1$,2) :A2(A1$) DA20ĺ:"ENTER A ";::"WITH.";::" PLEASE!"::530 NA1(A2100 ";::"DEPOSIT";::" PLEASE!"::380> A1(A2100.5)100N A1((A1))Y BBA1 (B)999999.99ĺ"BALANCE TOO LARGE--LUCKY!!":1060 380 : 12::"ENTER WITHDRAWLS": " PRESS ALONE TO RETURN TO M$):A1A4ė:300* JA340,490,2000,7802 T:N ^13::"ENTER DEPOSITS" h:" PRESS ALONE TO RETURN TO MENU" r34,3: |640 21:"DEPOSIT? ";A1$ (A1$,1)"$"A1$(A1$,2) A1$""210 A2(A1$)& A20ĺ:"ENTER A"+"N$"-"1070 : ' B2 ::5; 640C 10a 5:"1: ENTER DEPOSIT(S)"g 5:"2: ENTER WITHDRAWL(S)"  5:"3: ADD INTEREST"  5:"4: QUIT" ": '34,(37) ,"ENTER BY NUMBER ";A$ 6 @A(A( +000090.01 210> DO NOT UNDER ANY CIRCUSTANCEj REMOVE,RENUMBER,OR RETYPE LINE 0!!!!!( PROGRAM WILL DIE A HORRIBLE DEATH2DISK((994)(1001)192)<Z(103)(104)2565:POINTS TO START OF DATA STATEMENT FN$((Z)):N$     M$,TM):14350*( 8TM$TM$(BL$,TM(TM$))(8TM$" ";:::"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^":(?8(@8 *** GET RECORDS FOR(O8 *** LIST / PRINTING(Y8DOS$"READ "F$"@DATA,R"FOUND(^8RE$: GET WHOLE INFO )c8T714800: TOTALS('7PRNTRĺDOS$"PR#0"C'7DOS$"CLOSE "F$"@DATA"|'723:868:"HIT RETURN WHEN READY TO CONTINUE :";RE$'7'7 *** PRINT TITLES'7VIDEOĉ::'7TMP1'7J1TP'7TMP$FI$(TF(J)):TMP(FL$(TF(J))) (8(TM$)TMTM$(TID$(I),4)):14400: GET AND DISSECT RECORDK&7DLTD(ID$(I),1)"/"14260l&7DLTD(ID$(I),1)"/"14260x&7J1TP&7RE$(TF(J))" ";&7J:&7J1GT:GT(J,2)GT(J,2)(RE$(GT(J,1))):J&7PRNTR(37)20İ14500&7I&7:GTĺ::14265'4130 %Z7%%x7 *** ACTUAL DISPLAY2%7NI1ıT%7PRNTRĺDOS$"PR#1":(9)"64N"%7ERR0:ERRĺDOS$OPEN"F$"@,L"RL + 1: GOTO 14226%723:958:"THERE IS NO MORE ROOM FOR DATA...":PA11000:PA:14267%714300: DO TITLE%7I1NI*&7FO(( FIELDS TO BE&$ 7 *** DISPLAYED0$-7TP0a$2723:868:"FIELD TO LIST (OR RETURN) :";RE$s$47RE$""14170$77I1NF$<7RE$FI$(I)14160$A7I$F723:868:"THAT FIELD DOES NOT EXIST.":PA11000:PA:14130$P7TPTP1:TF(TP)I%U7TP501E$RE$(BL$,(FL$(I))(RE$))-#c3RE$(I)RE$3#h39#3?#6Z#6 *** LIST / PRINTER`#6f#6#6PRNTR(RE$"PRI"RE$"DPR")#6DLTD(RE$"DLI"RE$"DPR")#614100: GET FLDS#614600#6TPİ14200: DISPLAY FIELDS#7 $7 *** GET3 *** MODIFY THE REC$"B3RNFOUND/"E3::1W"J3"<<< MODIFYING RECORD "RN" >>>":5c"O3I1NF"T3FI$(I)" "RE$(I):J1(FL$(I)):(8)::"";RE$"Y3(RE$)(FL$(I))13140"[3RE$""Ģ((37)):958:FI$(I)": "RE$(I):13160#^3(RE$)(FL$(I))RI) !0I!0!2/!2 *** MODIFY RECORDE!212100: GET REC#S!2RE$""ıh!212200: FIND ITw!2FO13030!2INFO:FO(ID$(FO),4))!212300: GET IT!213100: MODIFY!210300: DISPLAY!3RE$"Y"İ10400: OUTPUT IT!+313030",1NF7 90RE$(I)(RE$,TMP,(FL$(I))):TMPTMP(FL$(I))> >0IY C0DOS$"CLOSE "F$"@DATA"_ o0{ p0 *** DISPLAY THE REC 0:1:"<<< DISPLAY OF RECORD "RE$(1)" >>>":5 0:1:"<<< DISPLAY OF RECORD "RE$(1)": VTAB 5 0I1NF!0FI$(I)": ";RE$((1)))FOUND1:12240/^/FOUNDĢ23:868:"THAT RECORD IS NOT ON FILE":PA11000:PAd 0 0 *** GET THE RECORD0 ** FROM THE DISK'0DOS$"OPEN "F$"@DATA,L"RL1*0DOS$"READ "F$"@DATA,R"FOUND/0RE$: GET WHOLE INFO  40TMP1:I68:"THEN RECORD NUMBER IS "(FL$(1))"CHARACTERS LONG":PA11000:PA:12125g/(RE$)(FL$(1))RE$RE$(BL$,(FL$(1))(RE$))// *** FIND THE RECORD/FOUNDFALSE/NI112240/I1NI/(ID$(I),1)"/"12235/(ID$(I),2(FL$12030 /FO((ID$(FO),4))0 /12300: GET ITE/12400: DISPLAY~/23:868:"HIT RETURN WHEN READY TO CONTINUE :";RE$C/12030D/ *** GET A RECORD#]/23:868:"WHAT IS THE RECORD NUMBER :";RE$^/RE$""ıLb/(RE$)(FL$(1))Ģ23:812300: GET IT#*+12400: DISPLAYZ/+23:868:"TYPE DELETE OR RETURN TO ABORT : ";RE$s4+RE$"DELETE"110259+ID$(IN)"/"(ID$(IN),2):10460.11025. *** DISPLAY RECORD.12100: GET REC#.RE$""ı/12200: FIND IT/FOĭERRĺID$(IN):10475W(23:958:"THERE IS NO MORE ROOM FOR DATA...":PA11000:PAu(DOS$"CLOSE "F$"@INDEXES"{** *** DELETE RECORD+12100: GET REC#+RE$""ı+12200: FIND IT +FO11025"+INFO:F0((ID$(FO),4))%+IN)("0000"(RN),4)0(DOS$"CLOSE "F$"@DATA"d(ERR0:ERRĺDOS$"OPEN "F$"@INDEXES,L"IL:10463(23:958:"THERE IS NO MORE ROOM FOR DATA...":PA11000:PA:10999(TESTINGĺ"INDEX : "IL:"RN = "IN(DOS$"WRITE "F$"@INDEXES,R"IN(ERR0:ERRĺRE$(I);:10434t(23:958:"THERE IS NO MORE ROOM ON DISK...":PA11000:PA:DOS$"CLOSE "F$"@DATA":10999}(I:(DOS$"CLOSE "F$"@DATA"(RNNINIRN(ID$(IN)">"RE$(1):NF1āI2NF:ID$(IN)ID$(IN)RE$(I)" ",2):(ID$(IN)ID$(ID$(I):ID$(I)ID$(I1):ID$(I1)TMP$78JJI1:J1J1R8JID$(J)ID$(J1)191358JTMP$ID$(J):ID$(J)ID$(J1):ID$(J1)TMP$8JJJ1:J1J18J191508JINI1191308J8K *** OUTPUT INDEXES8KTESTINGĺ"INDEXES OUTPUT..."9KDOS$"OP'.":18940#78J *** SORT ROUTINEY7QJ:10:"*** SORT IN PROGRESS, DO NOT TOUCH ***"7VJ19100: SORT THE INDEXES IN MEMORY7[J19200: OUTPUT THE SORTED INDEXES7`J7J *** SORT BY INDEX7JI07JII17JID$(I)ID$(I1)19170$8JTMP$R FILE ON THIS DISK. INITIALIZATION MUST BE DONE BEFORE ANY DATA CAN BE SAVED OR ACCESSED."6I:"DO YOU WISH TO INITIALIZE A DATA FILE ON THE CURRENT DISKETTE? ";RESPNSE$6J(RE$,1)"Y"(RE$,1)"N"RE$(RE$,1): 7J:"PLEASE ANSWER 'YES' OR 'NOTHERE IS NO MORE ROOM FOR THIS HEADER":PA11000:PA:4000: BAIL OUT !!!P5kHm5lHDOS$"CLOSE "F$"@HEADER"s5qH5I *** WANT TO DO IT?5IVIDEOĉ::5I1:"***** INITIALIZATION PROCEDURE *****"]6I5:" I'M SORRY, BUT THERE IS NO HEADEITE TO HEADER4YH16100f4ZH23:868:"IS THIS ALL CORRECT :";RE$:(RE$,1)"Y"(RE$,1)"N"18522}4[H(RE$,1)"N"40004]HDOS$"OPEN "F$"@HEADER"4bHDOS$"WRITE "F$"@HEADER"4gHI1NF4iHERR0:ERRĺFI$(I):ERRĺFL$(I):18539J5jH23:958:"D LENGTH: ";XL$:(XL$)1ĺ"":18245,3HGRLE3IG(XL$):P911000:3JG(XL$)RL245Ģ6:868:"<<< RECORD LENGTH TOO LONG>>>":PA11000:PA:182303mG23:868:"IS THIS CORRECT: ";RE$:RE$(RE$,1):RE$"Y"RE$"N"ĺ"";:182853rG 4DH *** WR) 2F18130)2G *** GET A FIELDNAME,E2'G *** LENGTH AND STUFFV26GVIDEOĉ::2;G1:"ENTER THE FOLLOWING INFORMATION :":52=GNF0Ą"ID (RETURN TO STOP) : ";XF$:182422@G"FIELD NAME (RETURN TO STOP : ";XF$2BGXF$""ı$3EG6:868:"FIELLD STUFF21FRL1: RECORD LENGTH = DELCHAR + ...I1F18200: GET ENTRY\1FXF$""181401FNF1İ18500:: WRITE TO FILE1F23:958:"AT LEAST ONE ITEM IS REQUIRED...":PA11000:PA:181252FRE$"Y"NFNF1:FI$(NF)XF$:FL$(NF)XL$:RLRL(XL$ERRFALSE:ERRĄDUMMY$40BDOS$"CLOSE "F$"@HEADER":0Bl0BERRĺ(4)"DELETE "F$"@HEADER":18000: INITr0B0PF *** DO INIT ROUTINE0iF18900: WANT TO?0nFRE$"N"4000ʲ BAIL-OUT ABORT METHOD0sF18100: DOIT !!!0xF1F *** GET FIENF *** SHOW THE RECORDO.> *** LAYOUTc.>16100: OUTPUT.>23:868:"HIT RETURN WHEN READY TO CONTINUE : ";RE$.>.> *** DISPLAY REC INFO.>::1.?"<<< SHOWING THE RECORD LAYOUT >>>":5/?I1:15025-: *** FIND IT,-;FOUNDFALSE<-;NI115140H-;I1NI-;(ID$(I),1)"/"(ID$(I),2,(FL$(1)))RE$FOUNDI:15140-;-$;FOUNDĢ23:868:"THAT RECORD IS NOT ON FILE":PA11000:PA-_;-`; *** RECOVER IT.y;ID$(FO)">"(I?,9K1GT:GT(K,1)TF(J)Ă:(BL$,(FL$(TF(J))))" ";:14840^,9XXGT(K,2):14700:XX$" ";m,9J::::s,:,: *** RECOVER DELETED,: *** RECORD,:12100: GET REC#,:RE$""ı,:15100: FIND IT,:FOUNDİ15200: RECOVER IT-ZZ(FL$(TFD(J)))A+9XX0XX(XX):14730:XX$"-"(XX$,ZZ1):+9XX$("0000000000000000"((XX.005))"."((((XX100)100.5)),2),ZZ):+9 *** DO TOTALS+9"TOTALS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^",9TMP1:J1TP23:868:"FIELD TO TOTAL (OR RETURN) : ";RE$?*+9RE$""14670]*09I1NF:RE$FI$(I)14660d*59I*:923:868:"THAT FIELD DOES NOT EXIST.":PA11000:PA:14630*D9GTGT1:GT(GT,1)I:GT(GT,2)0*I9GT5014630*N9*l9 *** FORMAT A STRING+9MP1:J1NF>)h8RE$(J)(RE$,TMP,(FL$(J))):TMPTMP(FL$(J))E)m8JO)r8DOS$U)w8q)8 *** PAUSE FOR DELAY)823:"S TO STOP, OR RETURN TO CONTINUE : ";:TMP$)8TMP$"S"ġ:)814300: TITLES)8)9 *** GET TOTAL FIELDS)!9GT0-*&9 APPLE BARREL SOFTWARE"DF COMPOUNDING PERIODS PER YEAR ";I1G"ENTER NUMBER OF YEARS ";NRIII1h::"OLD ";:640| BB(1I100)N*B(((B100.5)100))/:4"NEW ";:6409H24:"PRESS SPACE TO GO ON. ";:A$:210`"SAVE SAVINGS":"RUNRAM EXECUTION. IT WOULD BE WISE AT THIS TIME TO RESTORE YOUR FILE WITH A BACKUP FILE."`BuERRfBu 11000:PA:4000.Au *** UNEXPECTED ERROR?AuVIDEOĉ::hAuTESTINGĹ216,0:"**** ERROR ****":AuERR255ĺ"OPERATOR ABORT...":AuAu GOSUB 4000 : REM SHUTDOWNAuWBu3:" I'M SORRY, BUT AN UNEXPECTED ERROR HAS OCCURED DURING PROGND OF FILE *0@XuERR9Ħ: * JUST A DISK FULL *y@]uERR4Ģ23:958:"THE DISK IS WRITE PROTECTED":PA11000:PA:4000@buERR8Ģ23:958:"THE DISK HAD AN I/O ERROR":PA11000:PA:4000AguERR10Ģ23:958:"A FILE IS LOCKED AND SHOULD NOT BE":PATRUE:?PFOUNDFALSE:0?P *** CONTINUE ?o?P23:1:868:"S TO STOP, OR RETURN TO CONTINUE : ";:TMP$?PTMP$"S"TMP$"S"ġ:?PTMP$(13)ĺ:?Q20725?0u *** ERROR RECOVERY??u ***ROUTINES?NuERR(222) @SuERR5Ħ: * JUST AN E(RI)):RI1RT2!>,PSTNI20590.>-PISTNIF>/PRT$(ID$(I),R2,RT)o>7PRT$R2$FOUND((ID$(I),4)):20595v>nPFOUNDFALSE>sPSTI1:>xP *** GET RECORD/MATCH>P12300: GET REC>PRE$(RI)RC$FOUNDTRUE:?PALL$"F"ALL$"F"FOUNDR2$RC$ =O'=O *** DO THE SEARCH0=OST1I=O20500: FIRST MATCHT=OFOıo=O20600: SECOND MATCH ~=OFO20425=O12400: DISPLAY=O20700: INPUT=O20425=P *** GET NEXT MATCH=*PR2(FL$(1))(2(RI1)):RI1R22>+PRT(FL$ *** GET CONSTANT@N20200: ALL?9CN20300: CNSTNT9ENRE$""ı:HN20400: DO IT  :2303'23:"PRESS SPACE BAR TO CONTINUE!"<'SP$K'SP$" "ıV'10000 ECTLY!"PSCP1NOQ0P2(PP1)100P"YOUR PRECENTAGE IS "P2"%"aPA15000:x:12:,"GOOD-BYE"~8,"THAT WAS A HARD ONE!","THE CAPITOL OF":,S$:,"IS":,C$COUNT010000THER?" V2`" ENTER (Y)YES OR (N)NO":jR$JtR$"Y"190[~R$"N"1160"INCORRECT ENTRY":PA12000::1100:"YOU FINISHED THEM ALL CONGRADULATIONS":PA13000:NOQNOQ1:12:"YOU ANSWERED "SC" OUT OF "NOQ" CORR RIGHT!",X" LET'S TRY AGAIN!"=bPA12000:ClLv230h CORRECT ANSWER MODULEnu8{,"RIGHT""THE CAPITOL OF "S$" IS "C$$8SCSC1BCOUNT0GL" WOULD YOU LIKE TO DO ANO12 ,S$ 15B " ENTER YOUR ANSWER & PRESS RETURN "u !23:"HIT RETURN IF YOU DON'T KNOW THE ANSWER"} %18 &ANS$: ANSWER VARIABLE 0COUNTCOUNT1 5ANS$""2000 :ANS$C$1000 DCOUNT32000N" SORRY THAT'S NOTSTA  HAWAII,HONOLULU.  DELAWARE,DOVERI  CONNECTICUT,HARTFORD]  ALASKA,JUNEAUc { S$: STATE VARIBLE C$: CAPITOL VARIABLE NOQNOQ1: NUMBER OF QUESTIONS NOQ501157 10 " WHAT IS THE CAPITOL OF" NEW YORK,ALBANY,NEBRASKA,LINCOLN6  GEORGIA,ATLANTAO  VERMONT,MONTPELIERh  WASHINGTON,OLYMPIA  RHODE ISLAND,PROVIDENCE  NEW JERSEY,TRENTON  NEW HAMPSHIRE,CONCORD  MASSACHUSETTS,BOSTON  MARYLAND,ANNAPOLIS  MAINE,AUGUAHASSEE9 SOUTH CAROLINA,COLUMBIA,TENNESSEE,NASHVILLEh NORTH CAROLINA,RALEIGH,VIRGINIA,RICHMOND SOUTH DAKOTA,PIERRE,NORTH DAKOTA,BISMARK  MINNESOTA,ST. PAUL,WISCONSIN,MADISON  PENNSYLVANIA,HARRISBURG,WEST VIRGINIA,CHARLESTON  ,KENTUCKY,FRANKFORTO  CALIFORNIA,SACRAMENTO,NEVADA,CARSON CITY,OREGON,SALEM  IDAHO,BOISE,COLORADO,DENVER,MICHIGAN,LANSING OKLAHOMA, OKLAHOMA CITY,ARIZONA,PHOENIX,LOUISIANA,BATON ROUGE MISSISSIPPI,JACKSON,ALABAMA,MONTGOMERY,FLORIDA,TALLX , IOWA,DES MOINES,ILLINOIS,SPRINGFIELDG INDIANA,INDIANAPOLISq ARKANSAS,LITTLE ROCK,KANSAS,TOPEKA UTAH,SALT LAKE CITY,TEXAS, AUSTIN MONTANA,HELENA,WYOMING,CHEYENNE,NEW MEXICO, SANTA FE  OHIO,COLUMBUS,MISSOURI,JEFFERSON CITY     70,180 :& D$;"RUN CHECKBOOK"A D$;"RUN MAIN SAVINGS"b D$;"RUN MICHELLE'S SAVINGS" D$;"RUN NEIL'S SAVINGS" D$;"RUN FIGURE LOANS"GURE LOANS"<A31(MO1)((YR1)4)(.75((((YR1)100)1)))U DEFINE FUNCTION FOR JAN, FEBF2(X)365YRDA31(MO1)(.4MO2.3)(YR4)(.75((YR100)1)) FOR REST OF YR:182024:"PRESS ANY KEY TO GO ON. ";:A$X06:WE$(X):56 DAY BETWEEN DATE, DAY OF WEEK;@AJGTch COMPUTER DATA SYSTEMSr 550 NORTH MAIN STREET| LOGAN, UTAH 84321 COPYRIGHT AUGUST 1979, CDS CORP.  ALL RIGHTS RESERVED2F1(X)365YRD F1F100.5:F1(F1)1F1$((F1))KF10F1$"000":1530gF10F1$"-"F1$:1530F1100F1$"0"F1$(F1$,(F1$)2)"."(F1$,2);2410 SATURDAY,SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY"WE$(6),Z-d INPUT NUMBER OF PAYMENTS PER YEARZn"ENTER NUMBER OF PAYMENTS PER YEAR ";N$sxN(N$):N1ė:1390:"NUMBER OF PAYMENTS PER YEAR: "N"ENTER NUMBER OF YEARS ";N$N1(N$):N10ė:1430:"NUMBER OF YEARS: "N1,1)"$"N$(N$,2). PV(N$):PV0ė:1270W:"AMOUNT OF LOAN: $";:FPV:1480:]{( ENTER AMOUNT OF PAYMENT2"ENTER AMOUNT OF PAYMENT ";N$<(N$,1)"$"N$(N$,2)FPM(N$):PM0ė:1330P:FPM:"PAYMENT AMOUNT: $";:1480:FPV:"AMOUNT OF LOAN: $";:1480:+2171K ENTER INTEREST RATEj"ENTER INTEREST RATE ";N$I(N$):I0ė:1210I1İ870:"INTEREST RATE: ";:FI:1480:"%" AMOUNT OF LOAN"ENTER AMOUNT OF LOAN ";N$(N$ 8:34,7$1200 .34,8*813204B34,9>L1380IV34,10S`1430]j::htNNN1u~II1200PVPMT((1(1I)N)I)FPMTN:"AMOUNT ACTUALLY PAID: $";:1480:: GROANFFPV:"AMOUNT OF INTEREST PAID: $";:1480:":7:"COMPUTE NUMBER OF PAYMENTS"::8334,7=1200G34,8Q1260[34,9e1320o::|II1200N(((1IPVPMT)(1I)))"NUMBER OF PAYMENTS: ";:FN:1480:217::2:10:"COMPUTE AMOUNT OF LOAN":1N))-R"PAYMENT AMOUNT: $";:FPM:1480:\T"AMOUNT ACTUALLY PAID: $";:FPMN:1480:V"AMOUNT OF INTEREST PAID: $";:FFPV:1480:\217fFI100:"DO YOU MEAN ";:1480:"% (Y/N)? ";:"";N$p(N$,1)"N"870zII100:::2)1)I) U6U4U5 IIU6* U7(U6)> .000001U7600D O ::2n :13:"COMPUTE PAYMENT":{ 8:34,7 1200 34,8 1260 34,9 1430 34,10 1380 : *NNN1 4II1200 >I1I1HPMTPV(I(1I34,10 1320 580" :P &FI1000:"PERCENTAGE RATE= ";:1480:"%" 0FI1200:"ANNUAL PERCENTAGE RATE= ";:1480:"%" :217 DUTPVPMT NI1UTUTN2 XU1UTI bU2(1I)N lU31U2 vU4U1U3 U5((((N(1I1)1)U2)STOP" ^18:34,174 h"ENTER NUMBER, PLEASE ";N$P rN(N$):N0N5ė:360[ |N5Ĭs N410,700,900,1030~ :360 : 2:10::"COMPUTE INTEREST RATE": 8 34,7 1380 34,8 1430 NNN1 34,9 1260 A5$A$ 193 "HOW MANY LABELS DO YOU WANT": QG Q0240N 1Y I1Qb A1$k A2$t A3$} A4$ A5$ I 0 "DO YOU WANT TO DO ANOTHER LABEL Y/N" QT$ QT$"Y"5  -----------"1 -"-----------------------------"9 210A 3A$P 4A$""200\ 5A1$A$d <11l =A${ >A$""200 ?A2$A$ F12 GA$ HA$""200 IA3$A$ P13 QA$ RA$""200 SA4$A$ Z14 [A$ \A$""200 ]/ "THIS IS FOR A DOTMATRIX PRINTER!"S"A LABEL CAN ONLY HAVE 5 LINE"p"YOU MAY CONTINUE NOW!"x(10)"-----------------------------"*"-----------------------------"+"-----------------------------" ,"------------------  A31(MO1)((YR1)4)(.75((((YR1)100)1)))U DEFINE FUNCTION FOR JAN, FEBF2(X)365YRDA31(MO1)(.4MO2.3)(YR4)(.75((YR100)1)) FOR REST OF YR:182024:"PRESS ANY KEY TO GO ON. ";:A$X06:WE$(X):56 DAY BETWEEN DATE, DAY OF WEEK;@AJGTch COMPUTER DATA SYSTEMSr 550 NORTH MAIN STREET| LOGAN, UTAH 84321 COPYRIGHT AUGUST 1979, CDS CORP.  ALL RIGHTS RESERVED2F1(X)365YRD F1F100.5:F1(F1)1F1$((F1))KF10F1$"000":1530gF10F1$"-"F1$:1530F1100F1$"0"F1$(F1$,(F1$)2)"."(F1$,2);2410 SATURDAY,SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY"WE$(6),Z-d INPUT NUMBER OF PAYMENTS PER YEARZn"ENTER NUMBER OF PAYMENTS PER YEAR ";N$sxN(N$):N1ė:1390:"NUMBER OF PAYMENTS PER YEAR: "N"ENTER NUMBER OF YEARS ";N$N1(N$):N10ė:1430:"NUMBER OF YEARS: "N1,1)"$"N$(N$,2). PV(N$):PV0ė:1270W:"AMOUNT OF LOAN: $";:FPV:1480:]{( ENTER AMOUNT OF PAYMENT2"ENTER AMOUNT OF PAYMENT ";N$<(N$,1)"$"N$(N$,2)FPM(N$):PM0ė:1330P:FPM:"PAYMENT AMOUNT: $";:1480:FPV:"AMOUNT OF LOAN: $";:1480:+2171K ENTER INTEREST RATEj"ENTER INTEREST RATE ";N$I(N$):I0ė:1210I1İ870:"INTEREST RATE: ";:FI:1480:"%" AMOUNT OF LOAN"ENTER AMOUNT OF LOAN ";N$(N$ 8:34,7$1200 .34,8*813204B34,9>L1380IV34,10S`1430]j::htNNN1u~II1200PVPMT((1(1I)N)I)FPMTN:"AMOUNT ACTUALLY PAID: $";:1480:: GROANFFPV:"AMOUNT OF INTEREST PAID: $";:1480:":7:"COMPUTE NUMBER OF PAYMENTS"::8334,7=1200G34,8Q1260[34,9e1320o::|II1200N(((1IPVPMT)(1I)))"NUMBER OF PAYMENTS: ";:FN:1480:217::2:10:"COMPUTE AMOUNT OF LOAN":1N))-R"PAYMENT AMOUNT: $";:FPM:1480:\T"AMOUNT ACTUALLY PAID: $";:FPMN:1480:V"AMOUNT OF INTEREST PAID: $";:FFPV:1480:\217fFI100:"DO YOU MEAN ";:1480:"% (Y/N)? ";:"";N$p(N$,1)"N"870zII100:::2)1)I) U6U4U5 IIU6* U7(U6)> .000001U7600D O ::2n :13:"COMPUTE PAYMENT":{ 8:34,7 1200 34,8 1260 34,9 1430 34,10 1380 : *NNN1 4II1200 >I1I1HPMTPV(I(1I34,10 1320 580" :P &FI1000:"PERCENTAGE RATE= ";:1480:"%" 0FI1200:"ANNUAL PERCENTAGE RATE= ";:1480:"%" :217 DUTPVPMT NI1UTUTN2 XU1UTI bU2(1I)N lU31U2 vU4U1U3 U5((((N(1I1)1)U2)STOP" ^18:34,174 h"ENTER NUMBER, PLEASE ";N$P rN(N$):N0N5ė:360[ |N5Ĭs N410,700,900,1030~ :360 : 2:10::"COMPUTE INTEREST RATE": 8 34,7 1380 34,8 1430 NNN1 34,9 1260 (222)255ĺ"ERROR**DOES NOT COMPUTE":222,2007 5G 18:"MENU"O :r 8:"1: COMPUTE INTEREST RATE"x  8:"2: COMPUTE PAYMENT" " ,8:"3: COMPUTE NUMBER OF PAYMENTS" 6 @8:"4: COMPUTE AMOUNT OF LOAN" J T8:"5: S BETWEEN DATES" x* " 3. STOP"2 :@ 34,(37)[ "ENTER BY NUMBER ";A$w A(A$):A1A3ė:160 A360000 A210,1550 220 222,200 220 24:"PRESS ANY KEY TO GO ON. ";:A$ :0 (222)200!DISK(((994)(1001)192)):HI(115)(116)256C 20K:R5r(9:"APPLE BARREL SOFTWARE"29:"GOOD TO THE LAST BYTE"<::F12:"BLOCK 1 PROGRAMS"P:Z" 1. MORTGAGE LOAN"d n" 2. CALENDAR & DAY          S NOT MEAN THAT YOUR7 POCKET CALCULATOR WILL DO AS[ MUCH AS YOUR APPLE.""""""""""a                                              `HIeD$""jD$;"RUN HELLO" :C$  210$ MS$;:"";MO,DA,YRQ MO1MO12ĺ"MONTH OUT OF RANGE":2450| DA1DA31ĺ"DAY OUT OF RANGE":2450 YR100ĺ"ENTER THE FULL YEAR PLEASE":"EXAMPLE: 2,5,1961":2450 YR1582ĺ"YEAR OUT OF RANGE":2450  THIS DOE MO3D1F1(X)' MO2D1F2(X)-$ D. MO","DA","YR": ";[8 DND1((D17)7)vB DN7(D17(D17)).5L WE$(DN)"."V 24:"PRESS ANY KEY TO GO ON. ";:A$:1` 1820j (222)255ĺ"REENTER DATE, PLEASE":t ~ 20((C$))2E:";15:MO","DA","YR N"NUMBER OF DAYS BETWEEN DATES: "(D2D1)w24:"PRESS ANY KEY TO GO ON. ";:A$~11820 COMPUTE DAY OF WEEK11" 2. ";:"CALENDAR":34,17: MS$"ENTER DATE PLEASE ":2450+MS$"ENTER FIRST DATE, PLEASE ":24501 E*"FIRST DATE:";[415:MO","DA","YRo>MO3D1F1(X)HMO2D1F2(X)R34,18:\fMS$"ENTER SECOND DATE, PLEASE ":2450pMO3D2F1(X)zMO2D2F2(X)"SECOND DAT. RETURN TO BLOCK 1 MENU"!16M"ENTER OPTION NUMBER, PLEASE :";:958X34,15q"";A$:(A$)11950N(A$):N1N31950N2010,2260,2420 DAYS BETWEEN DATES9" 1. ";"DAYS BETWEEN DATES": 34,17: :29&"THESE PROGRAMS CALCULATE THE DAY OF THE"_0"WEEK OR NUMBER OF DAYS BETWEEN"x:"DATES AFTER 1582."D"SAMPLE DATE ENTRY: 2,5,1961"NXbl" 1. DAYS BETWEEN DATES"v" 2. CALENDAR"" 3 a@F a()_d"]]͠"]]]٬Ӡ]ӠŠŠƠ" ]٠ŠŮ#]ŠҠϠӠſ)XWa(ŠŧҠŠϠԠԠ)a(ŠĠРϠנҠƠϠŠ)4XS(ԠŠǠԺ)&@`@:()$d `a@F ja() ta@F*~a(ӠԠŠΠŠ)bb a@F a()٬Š٧)a(ΧŠӠԩ)WBa(ƠɠϠԠӠԠҠ̠Ӭ)a(ɠ̠ˠՠנӠϠ)6La(ԠŠɠ̠נԠҠ)a(Ӯ)cQVa(ϠՠԠŠϠԠǬ)a(ŠՠԠŠ$dg$ca(Ӻ)ca(ՠ̠ˠƠΠ̬Ġɠ)a(٠ϠӠԠ̠ՠ)U.a(ǠƮɠ̠ϠӠ٠)a(ՠӠƠӠԠ)r8a(̬ϠȠՠĠ)a(ӠҠϮԠƤŠԠŠҢӠҠ͠ӠϠӮ]a(LJҠŠ٠Ԡ)a(ŠĠΠҠϠ٠)a(š)moa(̠ǠŠ)ca(ŠՠҠĠſ)GR@`;@r%`@*#r9()Ŭ)@p(ŠŬ)@p()@p(ΠŬ̸)a@v]ŠŠӠŠԠϠԠŠ٠ĠϠԠǠҠΠŠŠŠήźq]ҠΠԠĤĠŬҢŠ] ] ]ĺ ]a(ΠɬϬ)^KM6N@"FrC@"FrC@"FrC@"FrC@"rC@"rC@" rC@"rC@"(rf@p(Ġ]͠ӠӠ ]ԠӠӠ ]͠ŠҮ ] ]͠Ӻ ]ˠ٬ˠɠ ] ]ҮΠ )FE(ӡ)_> ]ɠԠԠԡ*UVW cY4a(ɠԠԠԡ)>>cS(ԠϠ٠ο)&@`;@r%`@*#r9()%Q_d ] ] ]̺ 5qqbE()Fa@FR@TTa@F*a@`@9()$bb_bba@F$a@`@9()$bb_bb a@Fa@a@(a(ɠננ)E@*ra(Ġ)E@*rG-DS()&@`@*;@rr9()%@p@*#;@rrkNca(ԠĠŠԠҠҠ)a@*rE(ſ)GR@@p@*#r`@:()@:()$NXa@ ba@Fl]ŠҠĮvT'a@F6@p@*#r`@:()@:()$`@9()$ ,]ɠΧԠנԠ̠ԠӬˠF&cca(̠ԬɠŠЮԠ̠)a(ՠǠƿ)G0@p()R@Brd:ca(ŠŠΠԠ)a(Ƞ)$.`@9()%q`@9()%q_n7]ŠĠΠ̠ٮӠԠŠԠſHa@@p()a(ӠŠ̠էŠǠƠ)GUVWM`@*#r9@*#r%a()GYca@*rGS()&@`7;@r$na@ xa@F0R@`@*#r9()$TTh]נŠΠϠˮҠӠԠĠϠϠϠƠŠӠӬҠƠŠӠϮa@Jca@GS()&@q`7;@r$@p@*#r`@:()@:(m_]]]Ӻ]Ԡ٠]ŠҠî]],dq]ŠӠŠ͠     ŠŮp]z]̠͠]Ϡӿ](]ԠŠҠî ]ҠŠӠҠϬ#*]̠ŠŠŠ!4]ԠҠԮƠŠϠ!>]ӠŠ̠٬"H]Š٠ԠŠנ#R]ĠΠϠ \]Ԡ͠ҠӬ f]ŠŠ!"ӠԠŠΠŠҍǍōӠԠŠӍȍ