' +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-P$ `Ϡ@跻~!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`čàԍčà΍čàٍčà΍čà΍čàΠύà΍ͭȍà΍čàٍ΍čàԍčà΍čàčà΍čà΍čà΍čà΍ԍčàččà΍čà΍čàҍ΍čà΍čà΍čàͭȍà΍čà΍čà΍čàčà΍΍čà΍čà΍čàԍčàččà΍čàǍčà΍čàčà΍čà΍čà΍ͭȍàŠƠŠӍčà΍čàέΠύčà΍čà΍ȍà̍ͭȍàΠ̍ͭȍà΍čà΍čàέΠύà΍čà΍ͭȍà΍ͭčà΍àӭɍčàέΠύčà΍čέččàŭ΍à΍čà΍ͭȍà΍ččà΍ͭȍàԭ΍čàčà΍ͭȍà΍čà΍čà΍čàǠ̍΍čà΍čà΍čàٍčàōčà΍čàčàččà΍          !"             !"                  ! čà΍à΍čà΍čà΍čà΍čàԍz"#?     " ΠϠР٠Π٠РԠ!ΠԠ!ՠРPčàōčàԍčà΍čà΍čàΠύčà΍čà΍MP TEXT"" ,(4);"RUN COIN TEXT"H :"GOOD BYE":::(4);"CATALOG"A::A WHAT YOU WANT THE COMPUTER TO DO " :" DO YOU WANT TO "::"1. UPDATE YOUR STAMP COLLECTION":"2. UPDATE YOUR COIN COLLECTION":"3. TO END THE PROGRAM" :: A:A1A3100 A200,300,400 :"GOOD BYE"::: (4);"RUN STAJ3 :"THE COLLECTOR (APPLE VERSION) DOS 3.3"cd"***************** MENU *****************"n:::" THIS IS AN INVENTORY PROGRAM FOR YOUR COIN AND STAMP COLLECTIONS. PLEASE HAVE FUN USING IT."::' x" TYPE ONLY THE APPROPRIATE NUMBER FOR  ͭȍàԍͭȍà٠ōčàӍčà΍ččà΍ͭȍà΍čà΍:I R(4);"OPEN STAMP,L80"9 \(4);"WRITE STAMP,R0"B fI1Z p(4);"CLOSE STAMP" "DATA REPLACING IS DONE YOU MAY RETURN TO THE PROGRAM "0d:"THE STAMP UTILITY PROGRAM IS TO RESTORE DATA PERTAINING TO THE NUMBER OF OF ENTRYS ON FILE. HOWEVER,IT WILL NOT REPLACE DELETED ENTRY DATA" n:::" INPUT THE NUMBER OF STAMPS YOU HAD ON FILE BEFORE THE ACCIDENTAL DELETION OF DATA"; ͭȍàŠƠȍčàččàӍà΍čà΍čà΍ččà΍X (4);"OPEN COIN,L180"7 (4);"WRITE COIN,R0"@ X1W (4);"CLOSE COIN" 4"DATA REPLACING IS DONE YOU MAY RETURN TO THE PROGRAM"d:"THE COIN UTILITY PROGRAM IS TO RESTORE DATA PERTAINING TO THE NUMBER OF OF ENTRYS ON FILE. HOWEVER,IT WILL NOT REPLACE DELETED ENTRY DATA" n:::" INPUT THE NUMBER OF STAMPS YOU HAD ON FILE BEFORE THE ACCIDENTAL DELETION OF DATA";: C$K$(I1):C$(C$,8):C$C$K$K$:61001:"HOW WOULD YOU LIKE TO VIEW THE LISTING ":::"1. TO VIEU THE LISTING ON THE SCREEN":"2. PRINT THE LISTING ON PAPER":"3. TO RETURN TO THE MENU"::"SELECTION PLEASE ";:AA2100,2020,1000|9504DK$" "lNC$K$S$(I):C$(C$,8):C$C$" "D$K$:C$(C$,34)XC$C$C$(I)K$:C$(C$,57(Y$(I))):C$C$Y$(I)K$b6100 TOTAL STAMP LINE UPA$(TC.001):B$(TV.001):6200:Z11995+(I1)CO(I):Y$(I1)Y$(I):I6IH1:GH2:II1:GG1"(4);"OPEN STAMP,L180":(4);"WRITE STAMP,R0":I1:(4);"CLOSE STAMP"@4500JIH1:GH2:II1:GG110009 STAMP LINE IT UP:A$(CO(I).001):B$(V(I).001):6200:Z1121I:IH1:GH2o:"SORRY THAT STAMP ISN'T ON FILE CARE TO TRY AGAIN (Y/N)? ";:A$:A$"N"A$"NO"1000A$"Y"A$"YES"15051530::::36,13:" <> ":IQ1G:S$(I1)S$(I):V(I1)V(I):C$(I1)C$(I):D$(I1)D$(I):COINPUT THE SCOTT # FOR THE STAMP YOU WANT TO DELETE";S1$|"INPUT THE DESCRIPTION OF THE STAMP YOU WANT TO DELETE "::D1$H1I:H2GI1G:QI:S1$S$(I)1525D$(I)D1$15256300:A$"Y"A$"YES"1550A$"N"A$"NO"152515 THAT HIGH (OR LOW ) DO YOU REALLY WANT TO DELETE A STAMP ? ";:A$:A$"N"A$"NO"1000uA$"Y"A$"Y"14501500:" WELCOME TO THE DELETE SUBROUTINE ":::"TO DELETE AN ITEM PLEASE READ THE INSTRUCTIONS CAREFULLY"::7",D) F:C$0K(D$(I))23ĺ" ";D1$IM(D$(I))23PNPN1gPTCTCCO(I):TVTVV(I):IqZ1955d"==============================================================================":C$n0uII1:TV0:TC0x1000["I CANT GOION":::15)"COLLECTED BY "Z$::z("SCOTT # DESCRIPTION CONDITION YEAR COST 19XX VALUE"2I1G<D$D$(I):(D$(I))23D$((D$(I)),22)"-"A1850:PNPN2:PN622600CD(D$(I))22:(D$(I))23D1$((D$(I))D ANOTHER STAMP TO YOUR LISTING ":A$:A$"Y"1100<3200F4500P1000:" THIS SECTION WILL PRINT A LISTING OF THE STAMPS YOU HAVE ON FILE"::::"COLLECTORS NAME ";Z$20001TC0:TV0#:20)"U.S. (SINGLES) STAMP COLLECT"Y"1150$ (4);"OPEN STAMP,L180"? (4);"WRITE STAMP,R0"H I1d (4);"WRITE STAMP,R";I S$(I):V(I):C$(I):CO(I):Y$(I):D$(I) (4);"CLOSE STAMP":NE999ĺ" SORRY ALL ARRAYS FULL PLEASE REBOOT THE PROGRAM"2"WOULD YOU LIKE TO AD QGI:II1:NENE11 V:"SCOTT NUMBER ";S$(I)M `:"DESCRIPTION ";D$(I)g e:"CONDITION ";C$(I) j:"YEAR PURCHASED ";Y$(I) w:"AT THE COST OF $ ";CO(I) y:"1984 VALUE $ ";V(I) ~::"IS THIS DATA CORRECT ? ";A$:A$"N"1110 A$ PROGRAM"+ NE10ĺ(4);"RUN STAMP TEXT"2 AD A1A51000c A1100,1300,1500,4600,100m 1020 K ADD STAMP SUBROUTIEN L:" TO ADD TO THE LISTING FOLLOW THE IN- STRUCTIONS VERY CAREFULLY, OR YOU MIGHT CAUSE THE PROGRAM TO HANG"MPS ON FILE":::" WOULD YOU LIKE TO ?"::"1. ADD TO YOUR LISTING.":"2. PRINT A LIST OF THE STAMPS ON FILE ." "3. DELETE A FILE":"4. MODIFY AN ENTRY ":"5. RETURN TO THE MENU " NE10ĺ" SORRY ALL ARRAYS FULL PLEASE STAND BY WHILE I REBOOT THELOSE STAMP" z10005 G0:(4);"OPEN STAMP,L180"O (4);"READ STAMP,R0"_ I:I0970i GI1t I1G (4);"READ STAMP,R";I S$(I):V(I):C$(I):CO(I):Y$(I):D$(I) I II1 (4);"CLOSE STAMP"p :" YOU HAVE "I" STA5 S$(999),V(999),C$(999),CO(999),Y$(999),D$(999)>Z800Sd(4);"RUN MENU" :"HAVE YOU USED THIS SUBPROGRAM ON THIS DISK (Y/N) ";A$*A$"Y"9004A$"N"800R(4);"OPEN STAMP,L80"\(4);"WRITE STAMP,R0"fI p(4);"C          &N1(A$)1:N2(B$)1:A$(A$,N1)::B$(B$,N2):(A$)(B$)ī5160N&5180h&((A$)1(B$)15200r&25090&<(A$)(B$)48(A$)(B$)575200&F5100&P&C$(C$,65(A$)):C$C$A$K$:C$(C$,78(B$)):C$C$B$:'8A$(A$,(A$)1):B%J(A$)7:A$" "A$:J8%J(B$)7:B$" "B$:J>%%A$"":B$"":A$S$(I):B$S$(Z):A1$(A$,1):B1$(B$,1):TI1:(A$)(B$)ī5200%A1$B1$5100%(A$)(B$)48(A$)(B$)575140%(A$)(B$)48(A$)(B$)575005% 5180DRY (Y/N) ";:A$:A$"Y"A$"YES"T1@$A$"Y"A$"YES"ī4600Z$A$"N"A$"NO"ī1000d$4810$A$"":B$"":A$S$(I):B$S$(Z)$A1$(A$,1)$(A1$)48(A1$)57ī5015$A$A$" "$B1$(B$,1)$(B1$)48(B1$)57ī5040%B$B$" ":"1984 VALUE $ ";V(I);:(15):V(I)[#::"IS THIS DATA CORRECT PLEASE CHECK DATA ";A$u#A$"Y"A$"YES"4775#A$"N"A$"NO"4730#4750# REPLACE CORRECT DATA #3200:4500%$IH1:GH2:(20):" WOULD YOU LIKE TO MODIFY ANOTHER ENT:GH2:1000"p"z:(2):"SCOTT NUMBER ";S$(I);:(14):S$(I):(4):"DESCRIPTION ";D$(I);:(4):(13):D$(I):(6):"CONDITION ";C$(I);:(11):C$(I)%#(8):"YEAR PURCHASED ";Y$(I);:(16):Y$(I):(10):"AT THE COST OF $ ";CO(I);:(18):CO(I):(12)"=/="T11000$!D1$"=/="1000@! I1G:S$(I)S1$4700U!*D$(I)D1$4700_!46300x!>A$"N"A$"NO"4700!HA$"Y"A$"YES"4730!M4660!R4670!\I "f:" THAT STAMP WAS NOT ON FILE PRESS ANY KEY TO RETURN TO THE MENU ":A$:IH1 !  MODIFY A STAMP ENTRY` :" WELCOME TO THE ENTRY MODIFICATION SECTION":: "INPUT SCOTT # ";:S1$::" PLEASE CHECK DATA AND INPUT THE DESCRIPTION EXACTLY AS YOU PUT IT IN INPUT =/= TO EXIT "::D1$!H1I:H2G:D1$1:GI1   ' STAMP RESAVEn::(11):"PLEASE STAND BY ... RESAVING THE LISTING"::I14560(4);"OPEN STAMP,L180"I1G(4);"WRITE STAMP,R";IS$(I):V(I):C$(I):CO(I):Y$(I):D$(I)I (4)"CLOSE STAMP":GI48(S$(Z))573239 5000. A$B$3270i F1:K$S$(I):LV(I):M$C$(I):N$D$(I):O$Y$(I):PCO(I) S$(I)S$(Z):V(I)V(Z):C$(I)C$(Z):D$(I)D$(Z):CO(I)CO(Z):Y$(I)Y$(Z) S$(Z)K$:V(Z)L:C$(Z)M$:D$(Z)N$:Y$(Z)O$:CO(Z)P Z I IIROUTIENC ::(11):" PLEASE STAND BY -------------- SORTING ":R I13320_ I1I:GIu I1G1:A$S$(I) ZIG:B$S$(Z) (S$(I))48(S$(I))573217 3237 (S$(I))48(S$(I))57İ5070 TI13239 3239 (S$(Z))NY KEY TO RESUME":;16)"PRINTING"3- ::Z1ľT$I2 1:::PI1PN4X7 PI12630< PN4:::::;70);"PAGE ";PI1:PIPI1F "SCOTT # DESCRIPTION CONDITION YEAR COST 1984 VALUE" 1350 STAMP SORT SUB:"YOU HAVE ";I1;" ITEMS ON FILE"::"WHICH WERE PURCHASED AT THE COST OF ":A$::"AND ARE PRESENTLY VALUED AT ":B$z:::" HIT ANY KEY TO RETURN TO THE STAMP":14);"LISTING MENU":A$II1:Z0:2000"( ::0::Z1Ģ(10):;"PAGE ENDED HIT A):(5):"DESCRIPTION ";D$(I):(7):"CONDITION ";C$(I)R(9):"YEAR PURCHASED ";Y$(I):(11):"AT THE COST OF $ ";A$:(13):"1984 VALUE $ ";B$\::"HIT ANY KEY TO SEE THE NEXT ENTRY":A$fTCTCCO(I):TVTVV(I):I:1955up:;17);"TOTALS"::";:A$:A$"Y"A$"YES"PI16#A$"Y"A$"YES"PN8P%A$"Y"A$"YES"1305i*A$"N"A$"NO"PA2-A$"N"A$"NO"ī1305/20804TC0:TV0:I1I:Z1:I020009Z1:I1G:1850>:"THIS IS RECORD # ";I7H(3):"SCOTT NUMBER ";S$(ID YOU LIKE AUTO PAUSE SO YOU CAN CHANGE PAPER AT THE END OF A PAGE (Y/N) ";:A$:A$"Y"A$"YES"ĪZ1 A$"Y"A$"YES"ī2080A$"N"A$"NO"PN6A$"N"A$"NO"20802050 :::" WOULD YOU LIKE ME TO NUMBER THE PAGES FOR YOU (Y/N) :" TO USE THIS SECTION YOU MUST HAVE THE PRINTER IN SLOT # 1"::"IS THE PRINTER IN SLOT #1 ";:A$:A$"Y"A$"YES"2050A$"N"A$"NO"20402020:" SORRY WITHOUT A PRINTER YOU CAN'T USE THIS SECTION":J12500:J:2000e:" WOULͭȍàɍͭȍčàΠҍčà΍à΍čà΍čàҍčà$(B$,(B$)1):':"SCOTT # ";S$(I):"DESCRIPTION ";D$(I):"CONDITION ";C$(I):"YEAR PURCHASED ";Y$(I):"AT THE COST OF $ ";CO(I):"1984 VALUE $ ";V(I)':"INPUT IS THIS THE CORRECT SET OF DATA ? ";A$:IE$(X))28D$((DE$(X)),D)pP :36,C:F(X);:36,10:D$;:36,39:G$(X);:36,Y:(YE$(X));:36,(A):A$;:36,B:B$U (DE$(X))28ĺ" ";D1$W (DE$(X))28PNPN1Z TTP(X):VTVTVA(X):Xd 3800Mn "=====================================. COIN COLLECTION"::::"COLLECTED BY ";Z$::A "FACE VALUE DESCRIPTION GRADE YEAR COST 19XX VALUE"C X1YF 3700:PNPN2K PN621500M D$DE$(X):(DE$(X))28D$((DE$(X)),22)"-"N D(DE$(X))27:(DW "WOULD YOU LIKE TO ADD ANOTHER COIN TO THE LISTING ? ";:A$:A$"Y"A$"YES"2310i A$"N"2560s 2200( :"THIS SECTION WILL PRINT A LISTING OF THE COINS ON FILE."::::"COLLECTORS NAME ";Z$- 10002 1:T0:VT0:Y1Y0< :30)"U.S::"IS THIS DATA CORRECT (Y/N) ? ";A$:A$"N"A$"NO"2330N` A$"Y"2390ij (4);"OPEN COIN,L180"t (4);"WRITE COIN,R0"~ X1 (4);"WRITE COIN,R";X F(X):DE$(X):G$(X):YE$(X):P(X):VA(X) (4);"CLOSE COIN" 3400 4400:" TO ADD TO THE LISTING FOLLOW THE INSTRUCTIONS VERY CAREFULLY"_ XX1:YX:NENE1 :"FACE VALUE TIMES 100 ";F(X)$ :"DESCRIPTION ";DE$(X). :"GRADE ";G$(X)8 :"YEAR ";YE$(X)B :"COST ";P(X)L :"19XX VALUE ";VA(X)<V OINS ON FILE":"3. DELETE A COIN FROM FILE"^"4. MODIFY AN ENTRY":"5. RETURN TO THE MENU"NE999ĺ"FILE FULL DO NOT ADD TO THE LISTING":"SELECTION PLEASE ";AA1A52200A2300,2600,2900,4000,100 ADD COIN SUBROUTINEI :200 EYX1HX1Y2R(4);"READ COIN,R";X[WF(X),DE$(X),G$(X),YE$(X),P(X),VA(X)b\XlaXX1f(4);"CLOSE COIN"zZ1+:"YOU HAVE "X" COINS ON FILE":::" WOULD YOU LIKE TO ? "::"1. ADD TO YOUR LISTING.":"2. PRINT A LIST OF CE YOU USED THIS SUBPROGRAM ON THIS DISK (Y/N) ? ";A$PA$"Y"A$"YES"2100bA$"N"2010}(4);"OPEN COIN,L180"(4);"WRITE COIN,R0" X(4);"CLOSE COIN" 22004(4);"OPEN COIN ,L 180":(4);"READ COIN,R0">X:X02TO RESUME":;16)"PRINTING",::Z1ľT$CJ1:::PI1PN4SOPI11630~TPN4:::::;70);"PAGE ";PA:PAPA1^::"FACE VALUE DESCRIPTION GRADE YEAR COST 19XX VALUE"2640 COINS6"HAVTOTALS":::"YOU HAVE ";X1;" ITEMS ON FILE"::"WHICH WERE PURCHASED AT THE COST OF ":A$::"AND ARE PRESENTLY VALUED AT ":B$ :::" HIT ANY KEY TO RETURN TO THE COIN MENU":A$ XX1:YY1:1000::0::Z1Ģ(10):;"PAGE ENDED HIT ANY KEY VALUE ";F(X):(5):"DESCRIPTION ";DE$(X):(7):"CONDITION ";G$(X):(9):"YEAR PURCHASED ";YE$(X) j(11):"AT THE COST OF $ ";A$:(13):"19XX VALUE $ ";B$ t::"HIT ANY KEY TO SEE THE NEXT ENTRY":A$ ~TTP(X):VTVTVA(X):X:3800 :;17);"GES FOR YOU (Y/N) ";:A$:A$"Y"A$"YES"PI1H ;A$"Y"A$"YES"PN8b =A$"Y"A$"YES"PA2| BA$"Y"A$"YES"2610 EA$"N"A$"NO"ī2610 G1080 LT0:VT0:X1X:Y1Y:Y01000 QX1Y:3700 V:"THIS IS RECORD # ";Xb `(3):"FACE SECTION":J1500:J:1000 :" WOULD YOU LIKE AUTO PAUSE SO YOU CAN CHANGE PAPER AT THE END OF A PAGE (Y/N) ";:A$:A$"Y"A$"YES"ĪZ1 $A$"Y"A$"YES"ī1080 .A$"N"A$"NO"1080 31050. 8:::" WOULD YOU LIKE ME TO NUMBER THE PACTION PLEASE ";:A( A1100,1020,2200 :" TO USE THIS SECTION YOU MUST HAVE THE PRINTER IN SLOT # 1"::"IS THE PRINTER IN SLOT #1 ";:A$:A$"Y"A$"YES"1050 A$"N"A$"NO"1040 1020 :" SORRY WITHOUT A PRINTER YOU CANN'T USE THIS6 F(999),DE$(999),G$(999),YE$(999),P(999),VA(999)@Z2000Ud(4);"RUN MENU"[n:"HOW WOULD YOU LIKE TO VIEW THE LISTING ":::"1. VIEU THE LISTING ON THE SCREEN"::"2. PRINT THE LISTING ON PAPER"::"3. RETURN TO THE MENU": "SELE          $(X):M$G$(X):N$YE$(X):OP(X):QVA(X)&6F(X)F(X1):DE$(X)DE$(X1):G$(X)G$(X1):YE$(X)YE$(X1):P(X)P(X1):VA(X)VA(X1):&@F(X1)K:DE$(X1)L$:G$(X1)M$:YE$(X1)N$:P(X1)O:VA(X1)Q:A(4);"CLOSE COIN":XH1:YH2&li'p:"FACE VALUE T):P(X):VA(X)%bX6%g(4);"CLOSE COIN":XH1:YH2<%l%p:"FACE VALUE TIMES 100 ";F(X):"DESCRIPTION ";DE$(X):"GRADE ";G$(X):"YEAR ";YE$(X):"COST ";P(X):"19XX VALUE ";VA(X)%z:"IS THIS THE CORRECT SET OF DATA ? ";A$:&&,F1:KF(X):L$DE:G$(X):YE$(X):P(X):VA(X)C$h(4);"CLOSE COIN":XH1:YH2:2170U$/ COIN RESAVE$0::(11):"PLEASE STAND BY ... RESAVING THE LISTING":$5H1X:H2Y$:(4);"OPEN COIN,L180"$DX1Y$N(4);"WRITE COIN,R";X%XF(X):DE$(X):G$(X):YE$(XX):(12):"19XX VALUE $ ";VA(X);:(13):VA(X)c#6::"IS THIS DATA CORRECT PLEASE CHECK DATA ";A$|#;A$"N"A$"NO"4130#@A$"Y"A$"YES"4180#E4150#J REPLACE CORRECT DATA #T(4);"OPEN COIN,L180":(4);"WRITE COIN,R";X$^F(X):DE$(X)NY KEY TO RETURN TO THE COIN MENU ":A$:22003""":(2):"FACE TIMES 100 ";F(X);:(16):F(X):(4):"DESCRIPTION ";DE$(X);:(4):(13):DE$(X):(6):"GRADE ";G$(X);:(7):G$(X)-#'(8):"YEAR ";YE$(X);:(6):YE$(X):(10):"COST $ ";P(X);:(7):P(IN (INPUT =/= TO EXIT) ";:D1$2!H1X:H2YP!D1$"=/="2200:H1X:H2Yj!X1Y:F(X)F14100!DE$(X)D1$4100!6000!A$"N"A$"NO"4100!A$"Y"A$"YES"4130!4060!X:XH1:YH2-""THAT COIN WAS NOT ON FILE PRESS A67:AA1:J% #J(B$)78:BB1:J+ <A  MODIFY AN ENTRY :" WELCOME TO THE ENTRY MODIFICATION SECTION"$!:"INPUT FACE VALUE TIMES 100 ";:F1::" PLEASE CHECK DATA AND INPUT THE DESCRIPTION EXACTLY AS YOU PUT IT B$""T1A$(T)-(A$)2A$A$"0";T13825zA$(T100):A2$(A$,2):A1$(A$,((A$)2)):A$A1$"."A2$VT1A$(VT)(B$)2B$B$"0"VT13770B$(VT100):B2$(B$,2):B1$(B$,((B$)2)):B$B1$"."B2$ J(A$)(B$)2B$B$"0"(VA(X)13765kB$(VA(X)100):B2$(B$,2):B1$(B$,((B$)2)):B$B1$"."B2$J(A$)67:AA1:JJ(B$)78:BB1:JJ((F(X)))8:CC1:JY61(YE$(X)) TOTAL COIN LINE UPA0:B0:A$"":$X.F13540"8XX1:YY1(B.LCs COIN LINE UP etA0:B0:C0:A$"":B$"":C$""|yP(X)1A$(P(X))~(A$)2A$A$"0"P(X)13725A$(P(X)100):A2$(A$,2):A1$(A$,((A$)2)):A$A1$"."A2$VA(X)1B$(VA(X)) SORT THE LISTING":"R X1X:Y1Y0\ X136308a F0Ef X1Y1\p F(X)F(X1)İ6700c Xq F13425 XX1:YY1 F0 X1Y1 F(X)F(X1)3620 FL$DE$(X)" ":FI$DE$(X1)" ":AC(FL$):AI(FI$) FL$FI$36206700OIN,L180"' (4);"WRITE COIN,R";0:X2 X1YM (4);"WRITE COIN,R";X{ F(X):DE$(X):G$(X):YE$(X):P(X):VA(X) X (4);"CLOSE COIN":XH11:YH21:H1X:H2Y 2200 G COIN SUBROUTINEH ::(11):"PLEASE STAND BY WHILE I ";:A$:A$"N"A$"NO"22006 A$"Y"A$"YES"2910@ 2960g ::::36,13:" <> ":u XQ11Y F(X1)F(X):DE$(X1)DE$(X):G$(X1)G$(X):YE$(X1)YE$(X):P(X1)P(X):VA(X1)VA(X) X XH1:YH2:XX1:YY1  (4);"OPEN CRE CORRECT INFORMATION ";:D1$5h F10F120002850Tr X1Y:Q1X:F(X)F12950j| DE$(X)D1$2950t 6000 A$"Y"A$"YES"2980 A$"N"A$"NO"2950 2943 X:XH1:YH2 :"SORRY THAT COIN ISN'T ON FILE CARE TO TRY AGAIN (Y/N)YES"28506 2910T :" WELCOME TO THE DELETE SUBROUTINE":::"TO DELETE AN ITEM PLEASE READ THE INSTRUCTIONS VERY CAREFULLY"::Y H1X:H2Y^ "INPUT THE FACE VALUE TIMES 100 ";:F1::"INPUT DESCRIPTION REMEMBER TO CHECK DATA TO INSU===========================================":36,C:X1;:36,A:A$;:36,B:B$^ LINE IT UPe 0} XX1:T0:VT0:YY1 2200" "I CAN'T GO THAT HIGH(OR LOW) IS THAT THE STAMP YOU WANTED TO DELETE ";:A$:A$"N"A$"NO"2200 , A$"Y"A$"àӠōͭȍàӠōčΠ̍ččà΍čà΍čà΍΍čà΍IMES 100 ";F(X):"DESCRIPTION ";DE$(X):"GRADE ";G$(X):"YEAR ";YE$(X):"COST ";P(X):"19XX VALUE ";VA(X)'z:"IS THIS THE CORRECT SET OF DATA ? ";A$:AͭȍàŠӠˍծӮ̍čĠƠ͍čà΍čà΍čà΍čà΍čàōčààԍčàǍčà΍č΍ͭȍàΠ̍čà΍čà΍BYE":::" :"GOOD BYE"::: DO YOU WANT TO "::"1. UPDATE YOUR STAMP COLLECTION":"2. UPDATE YOUR COIN COLLECTION":"3. TO END THE PROGRAM"~ :: A:A1A3100 A200,300,400 :"GOOD BYE"::: (4);"RUN STAMP TEXT" ,(4);"RUN COIN TEXT" :"GOOD $3d:"***************** MENU *****************"n:::" THIS IS AN INVENTORY PROGRAM FOR YOUR COIN AND STAMP COLLECTIONS. PLEASE HAVE FUN USING IT."::x" TYPE ONLY THE APPROPRIATE NUMBER FOR WHAT YOU WANT THE COMPUTER TO DO "t :"  ͭȍààԍčà΍čà΍čà΍čàέÍͭȍàέ΍čà΍čàΠ΍čà΍čà΍čà΍ččààύčà΍čà΍čà΍čàٍčàԍà΍čàٍčààύččà΍čà΍ͭȍčà΍ͭȍà͍ààύčààύčà΍čàΠӍčàǍččà͍čà΍à΍čà΍" čà΍čà΍čà΍