' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `LĦ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- (  ՠ@跻~!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`ՊЀР* @A@AЪЀРРՀРтЀРЀЀЀРԪԂЀР"***@(@*@*ШՂЪՂЀՊРՀ*A**A(P P AЀЀРЀЀЀРԪՊ"***@(@*@*РՂЪԀЀՂРՀ*A**A(P P AԠЪРЀЀЀЪРЀЀЀՂԪЀРՀժРՀԀЀՂР@A@ P AՠЪРЀЀЀРЀЀЀՊԪЀРՂժN"::"ADDRESS: ";::"2753 LOUISIANA CT. APT #102":"CITY: ";::"ST.LOUIS PARK"::"STATE: ";::"MN"::"ZIP: ";::"55426"::::"AND THAT IS ALL THERE IS TO A DATA BASE"::"THERE IS NO LIMIT TO THE USES OF THIS"::"PROGRAM. YOU CAN DEFINE ISTING"::"OF UP TO SIXTEEN DIFFERENT FIELDS. THE":3"DATA BASE CONSISTS OF THE ENTIRE BODY"::"OF DATA YOU PLACE INTO THESE RECORDS.":1600::"HERE IS AN EXMAPLE OF A DATA RECORD:"::"FIELDS DATA":::"NAME: ";::"MARK PETERSOANAGEMENT SYSTEM. YOU SHOULD FIND"::"THE MENU COMMANDS STRAIGHT-FORWARD AND":6"EASY TO UNDERSTAND. ALL YOU NEED IS A"::"BASIC UNDERSTANDING OF WHAT A DATA BASE"::"IS. BASICALLY, THIS PROGRAM ALLOWS YOU"::"TO DEFINE A DATA STRUCTURE CONSA$:A$"N"A$"Y"1140'yA$"N"507~AD1:1095j:(40(E$))2:E$::X139:" ";:X::::Q:"WELCOME TO THE DATA BASE MANAGER. THIS"::"UTILITY PROVIDES THE AVERAGE APPLE USER"::"WITH A FLEXIBLE, SIMPLE TO USE DATA"::"BASE MX1C:"ENTER "B$(X);:":";C$(X):X:A1yGXAB:Y1C:(C$(Y))0ĭC$(Y)(A$(X,Y),(C$(Y)))DX:YC:XB:Y:X:1135VY:X::12:" THE END OF THE LIST HAS BEEN REACHED":1600:50o:980t24:1:"DO YOU WANT TO CONTINUE SEARCH (Y/N)? ";:ORD"::6:"H) HELP"::6:"Q) QUIT":7::D1ıDDB1ı}"RECORD #"D::X1C::B$(X)":";::A$(D,X):X::E$"FIND A RECORD":1160:M095'$"ENTER THE VALUE(S) TO BE FOUND FOR EACH":"FIELD OTHERWISE PRESS RETURN FOR FIELD."::2:I138:" ";:I::E$"*** DATA BASE COMMAND MENU ***":3:(40(E$))2:E$:7:6:"1) BEGIN A NEW LIST":6:"2) ADD DATA":6:"3) DISPLAY DATA":6({"4) EDIT":6:"5) SEARCH":6:"6) LOAD DATA":6:"7) SAVE DATA ON DISK":6:"8) REMOVE A REC ->??w- -3-M:w -N --66vIMM13M13M1s-N M13M13MN IM13M1n >7MqM1s  3MqJM1s 6vI---.-uJ--;.>.>.-u5rVw-->.>.>*-u7RMJ?)-n) nM13MI??MI-)3 >n-uNI  VI @@C?.- ??N -5?*m?7M13-u J)36Ms-N -3M13M13-u ---n?76--NJ--n?76NII)-6n)-uMM13M1??n n N )66-N I166s-N Mn7 n N 666--NMM17 n n NIM13m1n)n N )3M13M1s-N -3M?76NI )3M13 mN -3M?7 n N )3?RI NIIVI 5)3M5.M-Nm >6-N))sI.-u-->N-N>I> 3--v 5--.-6s-N -޻M:?n -N.--6NI))3M?M1s-N.)3M1?w *uIRR >RNIN---ޛ-- *NI.)s N J M13--n N -3M &7IIIN" 66N inR>i----nN> ? ? ?wqImmw M:N)N-)n mN 6R 6N5 6N --NN n:?w1VIJN7RI:((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPd +2<FWbisz#.9DOUgx&7EWhx $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?``` Q` Q``&` `` .``` 8``0` `L<``aai ``9`H8 h``` ````?aaaa(޽aa(`%ЀРЪ7-ME1313,22:ME1466,21:ME1463,12:ME1464,253H-19::D$;T$R-1451j-(BSH,V1):TSH,V)-2N64:BS13N80-<BS10N32-FBS11N48-PX015:H,V)XT$T$(XN):-Z:-@23:14::"**ABORTED**";:II12000:II::160)9)5040,,T$OP$M,JX21VS1:J:1:" ";::VS:1:958s,I21:1::" ";:2:T$;:,VI:H737:5160:TS:H,V:BS12(BS12BS13)8(BS10BS11):H,V1,BS10TS0SP0,BS10TS0SPSP1,SP25140-30000%+֜"ERROR #"E" AT LINE "E1:/+90008+ꜫ160AS:1:37):6::" CHOICE :";::16368,0:A$+A$(13)ĢVS:15::A$;" ";:+TS14,2VS2):BS14,2VS1)+A$MA$A$"A"8000 ,I0462:(5,I)TS5,I1)BS)(4,I1)96,I1080<*12:" ERROR IN READING DATA FROM THIS FILE.":40160L*E840100*12:" I/O ERROR - CHECK YOUR DISK DRIVE.":40160*E25540150*12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$*A$"N"A$"Y"40110*œA$"N"160+̜310>)0u:12::" INSERT THE MASTER DISK IN THE DRIVE.":9000J):u30000e)Nu12:14:"LOADING...."y)Xu(4)"RUN MENU")@)JE(222))TE1(218)(219)256)^E440060)h12:"UNABLE TO WRITE ON WRITE-PROTECTED DISK")r40160*|E5403000(( (ZZ$)27ZZ$","ZZ$":"83108( RRLN8310V( RRRR1:ZZ$;:GO$GO$ZZ$`( 8310n( V1:1:((#24:7::"PRESS ANY KEY TO CONTINUE.";::A$::(2RR1GO$""(2RR1GO$(GO$,RR1)(2RRRR1(2V:HT:868:V:HT:GO$;)28;T$ '1451%'(BSH,V1):TSH,V):'2N64:BS13N80J'<BS10N32Z'FBS11N48~'PX015:H,V)XT$T$(XN):'Z:'@23:14::"**ABORTED**";:II12000:II::160'l GO$""'m RR0'v ZZ$' (ZZ$)138350( (ZZ$)8RR012:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$:A$"N"A$"Y"1705X&A$"N"50b&1630&"ERROR #"E" AT LINE "E1:&1600:5030000&֜"ERROR #"E" AT LINE "E1:&9000:1602:ME1466,21:ME1463,12:ME1464,253'19::D$2):E1(218)(219)256:E41680[%12:"UNABLE TO WRITE ON WRITE-PROTECTED DISK":1730j%E51690%12:" ERROR IN READING DATA FROM THIS FILE.":1730%E81700%12:" I/O ERROR - CHECK YOUR DISK DRIVE.":1730%E2551725I&11::$@24:7::"PRESS ANY KEY TO CONTINUE.";::A$::I$EG1C$""_$JG1C$(C$,G1)$OGG1:V:K:868:V:K:C$;:1560$^:12::" INSERT THE MASTER DISK IN THE DRIVE.":1600:1630$h12:14:"LOADING....":(4)"RUN MENU""%r:E(2232#F11N485#X015:H,V)XT$T$(XN):=#:n# 23:14::"**ABORTED**";:X12000:X::50|#C$"":G0#H$:(H$)131595#"(H$)8G01605#'(H$)27H$","H$":"1560#,GQ1560#1GG1:H$;:C$C$H$:1560$;V1:21:1::" ";:2:T$;::VI:H737:1515:O:H,V:F12(F12F13)8(F10F11):H,V1:F10O0T0"F10O0TT1"T21510":S1313,22:S1466,21:S1463,12:S1464,253"395"FH,V1):OH,V):N64:F13N80#F10N1:37):6::" CHOICE :";::16368,0:A$:A$(13)ĢL:15::A$;" ";:|!O14,2L2):F14,2L1):A$O$A$"A"1545!I0462:(5,I)O5,I1)F)(4,I1)96,I1)9)1465!o"T$"OPEN ":JX21L1:J:1:" ";::L:1:958:IJ$" ":UU1:R1O dK$N$:N$(U):1,V)0J$" ":N$" ":N$" "K$" "O$K$p nK$" "N$" "LV21:1425 s" ";:50,63192(M$" "):R0ĺ" ";::"*";::J$; }R1ĺJ$; :" ";::R1ĺN$; :: G$"7"ı L0L24K!L:"6"ĺ" CHOOSE THE DESIRED DATA BASE :"Z7G$"7"ĺ" DATA BASES CURRENTLY ON DISK :"x<X1452:(5,X)11)ĂXAU64:XX1:VX442::V21:1:M$" ":0,V)10M$":"KR0:1,V)1J$L$U1,V)2J$L$Z1,V)9J$L$ _1,V)4THE FIELDS ANY":r"WAY YOU WANT, AND MAY HAVE UP TO 500"::"DIFFERENT RECORDS IN YOUR DATA BASE.":1600:#O$"W"::L$" ":::D$"CATALOG":G$"7"Ģ24:1:"SELECT LETTER OR PRESS RETURN TO ABORT.";:1:1)24:G$ԪՊЀԪՂԪԪՂԂՂЀ@ԪՂЪ d$H$d$H$d<2D ""IժЪՂЀԪՊЀԪՂԪԪՂԂՂЀԪՂЪ@'C8C'#8C#cRa<4<7xժЪՂЀԪՊЀԪՂՀՊЀ@xЀЪժՂЀЀЂՀՊЀpXD@`abX0KbcxՀRR1GO$(GO$,RR1) /2RRRR1>/2V:HT:868:V:HT:GO$;H/28310/0u:12::" INSERT THE MASTER DISK IN THE DRIVE.":9000/:u30000/Nu12:14:"LOADING...."/Xu(4)"RUN MENU"/@/JE(222)/TE1(218)(219)256/^E440060-0h .l GO$"".m RR0.v ZZ$0. (ZZ$)138350I. (ZZ$)8RR013000m. (ZZ$)27ZZ$","ZZ$":"8310}. RRLN8310. RRRR1:ZZ$;:GO$GO$ZZ$. 8310. V1:1:.(#24:7::"PRESS ANY KEY TO CONTINUE.";::A$::.2RR1GO$""/2; RRLN8310T; RRRR1:ZZ$;:GOOD$GOOD$ZZ$:(RR1RRLN)Ģ24:1:868:13030; RRLNĢ24:5:"MAXIMUM LENGTH OF "LN" REACHED.";:13030; 8310; :24:868:V1:;(#24:7::"PRESS ANY KEY TO CONTINUE.";::A$::;2RR1GOOD$""<2H,V):2N64:BSC13N80+:<BSC10N32<:FBSC11N48`:PX015:H,V)XT$T$(XN):h:Z::@23:14::"**ABORTED**";:II12000:II::l GOOD$"":m RR0:v ZZ$: (ZZ$)138350: (ZZ$)8RR013000: (ZZ$)27ZZ$","8310VI:H737:5160:TSC:H,V:BSC12(BSC12BSC13)8(BSC10BSC11):H,V1g9BSC10TSC0SP09BSC10TSC0SPSP19SP2513099MEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253919::D$;T$91451:(BSCH,V1):TSC:A$;" ";:48TSC14,2VSEL2):BSC14,2VSEL1)M8A$MAX$A$"A"80008I0462:(5,I)TSC5,I1)BSC)(4,I1)96,I1)9)504088T$OP$8JX21VSEL1:J:1:" ";::VSEL:1:9588I21:1::" ";:2:T$;:N9#"E" AT LINE "E1:B724:7::"PRESS ANY KEY TO CONTINUE.";:A$K7ꜫ160E::XXX1ĺN$;c7`k7j:7t(REPLY$,1)"A"ı7uREPLY$"7"İ9000:7~VSEL0VSEL247VSEL:1:37):6::" CHOICE :";::16368,0:A$ 8A$(13)ĢVSEL:15:UE.";:A$6ꜫ160160ALE.":4016096E840100q612:" I/O ERROR - CHECK YOUR DISK DRIVE.":401606E25540150612:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$6A$"N"A$"Y"401106œA$"N"1606̜300007֜"ERROR REALLY WANT TO QUIT NOW (Y/N)? ";:A$@5A$"N"A$"Y"40110P5œA$"N"160[5̜30000z5֜"ERROR #"E" AT LINE "E1:524:7::"PRESS ANY KEY TO CONTINUE.";:A$5ꜫ1600005֜"ERROR #"E" AT LINE "E1: 624:7::"PRESS ANY KEY TO CONTINE440060=4h12:"UNABLE TO WRITE ON WRITE-PROTECTED DISK"H4r40160X4|E540080412:" ERROR IN READING DATA FROM THIS FILE.":401604E840100412:" I/O ERROR - CHECK YOUR DISK DRIVE.":401604E25540150%512:1:"DO YOU R1GO$""$32RR1GO$(GO$,RR1)032RRRR1N32V:HT:868:V:HT:GO$;X32831030u:12::" INSERT THE MASTER DISK IN THE DRIVE.":90003:u300003Nu12:14:"LOADING...."3Xu(4)"RUN MENU"3@3JE(222)3TE1(218)(219)256 4^II12000:II:2l GO$""#2m RR0,2v ZZ$@2 (ZZ$)138350Y2 (ZZ$)8RR013000}2 (ZZ$)27ZZ$","ZZ$":"83102 RRLN83102 RRRR1:ZZ$;:GO$GO$ZZ$2 83102 V1:1:2(#24:7::"PRESS ANY KEY TO CONTINUE.";::A$:: 32RUIT NOW (Y/N)? ";:A$01A$"N"A$"Y"40110@1œA$"N"160K1̜30000j1֜"ERROR #"E" AT LINE "E1:124:7::"PRESS ANY KEY TO CONTINUE.";:A$1ꜫ160NUE.";:A$1ꜫ16015:H,V)XT$T$(XN):1Z:2@23:14::"**ABORTED**";:12:"UNABLE TO WRITE ON WRITE-PROTECTED DISK"80r40160H0|E540080012:" ERROR IN READING DATA FROM THIS FILE.":401600E840100012:" I/O ERROR - CHECK YOUR DISK DRIVE.":401600E25540150112:1:"DO YOU REALLY WANT TO QՂՂШԪԪՂԂՂpx4@`Rax<@GHPaaSyԪՂЪ $$H$$$H$$prD""I8ժЪՂЀDD@D@HHHr Հ@%DHD%HD#`b I<ЀЪԪժժժժժժժժժժժժժժժՀժՂЀЀԪժժժժժժժժժժժժժժժՀՂՂШЂЀDL`2D@HHH02  &$H$&DH$$<"<I@ժЪՂЀ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ԪԪՂԂՂԪՂԪՂЪՂՂШNY KEY TO CONTINUE.";:AA$&B:u30000GBNu936:12:14:"LOADING...."[BXu(4)"RUN MENU"qBXu(4)"RUN MENU"A2:14:"LOADING...."BXu(4)"RUN MENU"A MENU"VI:H737:"";:5160:TSC:H,V:BSC12(BSC12BSC13)8(BSC10BSC11):H,V1}>BSC10TSC0SP0>BSC10TSC0SPSP1>SP25130>>MEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253? POKE 216,0: POKE MEM (13)ĢVSEL:15::A$;" ";:D=TSC14,2VSEL2):BSC14,2VSEL1)]=A$MAX$A$"A"8000=I0462:(5,I)TSC5,I1)BSC)(4,I1)96,I1)9)5040==T$OP$=JX21VSEL1:J:1:" ";::VSEL:1:958 >I21:1::" RR1GOOD$(GOOD$,RR1)%<2RRRR16<224:1:868V<2V:HT:868:V:HT:GOOD$;`<28310<0u:12::" INSERT THE MASTER DISK IN THE DRIVE.":9000<:u30000I21:1::" ";:2:T$;:>VI:H737:"";:5160:TSC:H,V:BSC12(BSC12BSC13)8(BSC10BSC11):H,V1>BSC10TSC0SP0>BSC10TSC0SPSP1>SP25130>1?ME0VSEL24A=VSEL:1:37):6::" CHOICE :";::16368,0:A$h=A$(13)ĢVSEL:15::A$;" ";:=TSC14,2VSEL2):BSC14,2VSEL1)=A$MAX$A$"A"8000=I0462:(5,I)TSC5,I1)BSC)(4,I1)96,I1)9)5040==T$OP$3>:N$" "TEST$" "MAX$TEST$E<.TEST$" "N$" "VSELV21:4980h<8" ";:50,63192(LOCK$" ")" BY THE NUMBER OF ENTRIES"8H" YOU SPECIFY FOR 'NUMBER'"8R" (DON'T ENTER THE BRACKETS)"9\"-[NUMBER] - SCROLLS BACKWARDS THE SPEQUIT (Y/N)? ";7R$07R$"Y"R$"N"4560H7R$"Y"Č936:160R74440\7936g7:::7 "THE FOLLOWING ARE LEGAL ENTRIES AS"7"SCROLLING OPTIONS:":7 "E - TERMINATE LISTING, RETURN":" TO MENU."8*"H "WORK WITH A DIFFERENT STRUCTURE, THEN"W6"PLEASE END THE PROGRAM AND START AGAIN."b6:160s6E25445506::"YOUR INPUT IS IN ERROR,PLEASE TRY AGAIN"69000:1606E1(218)(219)256:E,E1:7936:11:"ARE YOU SURE YOU WANT TO THAT FILE NAME IS IN ERROR.",509000:150=5:E2554460o5D::"DO YOU REALLY WANT TO QUIT (Y/N)?";:A$5N::A$"Y"Ħ5X300005lE12045205v::"YOU CANNOT REDFINE YOUR DATA STRUCTURE"5"DURING THIS SESSION. IF YOU WISH TO"(6SKETTE IS WRITE-PROTECTED!!":9000:16064E54350d4"THE FILE YOU REQUESTED EITHER DOES NOT"4"EXIST, OR IS EMPTY."49000:14104E1343804::"THE REQUESTED FILE IS NOT A DATA BASE."49000:14104E1144105&::" ONG."3j9000:3r/3| - ERROR DETECTION53B3E(222)l3::" *ERROR DETECTED*"v3::3E843003"YOUR DISK IS EITHER FAULTY OR NOT EVEN "::" IN THE DISK DRIVE. CHECK IT OUT!"39000:160'4E4ĺ"YOUR DI COMMAND AND THEN TELL THE PROGRAM":X2T"WHAT FILE THE OLD DATA BASE IS STORED":c2^"IN."2h:" THE HEADINGS OF EACH FIELD IN YOUR"::"DATA BASE CAN BE UP TO 10 LETTERS LONG"3i:"AND THE ACTUAL INFORMATION CAN BE 30"::"LETTERS LSE THE '3' COMMAND, TO MAKE CHANGES":V1"TO THE DATA, USE THE '4' COMMAND.":c1"9000:31," IF YOU RUN THIS PROGRAM AND WISH TO":16"ACCESS A DATA BASE YOU HAD SAVED AT":1@"SOME EARLIER TIME, YOU WOULD USE THE":'2J"'6'IVE YOU A LIST OF ALL":L0"THE DATA FILES STORED ON THE DISK. (IT":}0"WOULD BE A VERY GOOD IDEA TO NAME YOUR":0"DATA FILES WITH WHAT IS IN THEM, I.E.":0"'ADDRESS BOOK')":0" TO LIST THE CONTENTS OF THE DATA BASE,":)1"U SO WHEN YOU WANT TO ":K/"RETRIEVE THE DATA LATER, THE PROGRAM ":/"WILL KNOW WHAT DATA FILE IT IS STORED"::"IN. IF YOU CAN'T REMEMBER THE NAME OF":/9000/:::"A DATA FILE YOU WANT TO ACCESS, THE '7'":0"COMMAND WILL GIF, HOWEVER, YOU ARE WORKING WITH":V.x"DATA FROM AN ALREADY EXISTING FILE, THE":."OLD DATA IN THE FILE WILL BE REPLACED":."WITH THE NEW DATA. YOU MUST THEN GIVE":."A NAME TO THE FILE THAT THE DATA WILL":/"BE STORED ON. 8' COMMAND IS USED WHEN YOU WANT":T-<"TO STORE THE DATA ON THE DISK. IF YOU":-F"DON'T ALREADY HAVE A FILE ON THE DISK":-P"FOR THE DATA BASE YOU ARE WORKING WITH":-Z"THE PROGRAM WILL OPEN A NEW FILE FOR":-d9000:3%.n"YOU. #).":7," AFTER DESIGNING THE STRUCTURE OF THE":=,G,9000N,2, :"DATA BASE YOU WILL BE READY TO BEGIN":,"ENTERING YOUR DATA. THE '2' (ADD)":,"COMMAND IS USED TO ADD TO YOUR DATA":,("BASE.":#-2" THE ' RETRIEVE FROM":/+"YOUR OWN DATA BASE.":`+" IF YOU ARE STARTING A NEW DATA BASE,":+"YOU WILL NEED TO USE THE '1' COMMAND.":+"THIS ALLOWS YOU TO NAME EACH FIELD IN":+"THE DATA BASE (I.E. NAME, ADDRESS AND":,"PHONE EARS" * * "CATALOG"!* '*-*A* PRINT HEADINGG*$M*.c*8(40(P1HDG$))2o*BP1HDG${*LX139*V"-";*`X*j""*t*~*936:::*" THIS PROGRAM WILL ALLOW YOU TO DESIGN":+"ENTER TO, MANIPULATE ANDXX$ )z XX$"N"XX$"Y"3430/) XX$"N"ı@) ASTARTRCD1J) 3320P) p) DISPLAY A CATALOG LISTINGv) ) P1HDG$"NAMES OF LISTS") 3600) "EACH LIST IS PRECEDED BY THE LETTER 'T'"* "YOU MUST ENTER THE FULL NAME EXACTLY AS IT APP( Y1N1FLDNBRa( (N2SEL$(Y))0ĭN2SEL$(Y)(WRKSPACE$(X,Y),(N2SEL$(Y)))STARTRCDX:3410h( Yo( Xu(* (4 " THE END OF THE LIST HAS BEEN REACHED"(> (? 9000(H (R 2990(\ )f 24:1:"DO YOU WANT TO CONTINUE SEARCH (Y/N)? ";:RD'v #' P1HDG$"FIND A RECORD"-' 3600<' XDF0730o' :"ENTER THE VALUE(S) TO BE FOUND FOR EACH":' "FIELD OR PRESS RETURN FOR A FIELD.":' X1N1FLDNBR' "ENTER ";N7FLDNAME$(X);' ":";N2SEL$(X)' X' A1' XAA2NXTRECU"& & & +& DISPLAY 1 RECORD1& 7& =& O& STARTRCD1ıj& STARTRCDA2NXTRCD1ı& "RECORD #"STARTRCD:& X1N1FLDNBR& && N7FLDNAME$(X);":";&0 &: WRKSPACE$(STARTRCD,X)&D X&N &X &b 'l FIND A RECOTA"% 6:"4) EDIT"+% 6:"5) SEARCH"C% 6:"6) LOAD DATA"a% 6:"7) DISPLAY CATALOG"%" 6:"8) SAVE DATA ON DISK"%, 6:"9) REMOVE A RECORD"%- :6:"H) HELP"%. :6:"Q) QUIT"%h %r %| END THE SESSION% & "THANK YOI138:" ";:I4$ I223:I:2:" ";:39:" ";:IP$ 23:2:I138:" ";:Im$ 5:2:I138:" ";:I:$ P1HDG$"*** COMMAND MENU ***"$ 3:(40(P1$))2:P1$$ 7:$ 6:"1) BEGIN A NEW LIST"$ 6:"2) ADD DATA"% 6:"3) DISPLAY DA FIELD ";X;": ";:LN10:VV1:8300:N7FLDNAME$(X)GOOD$T#< (N7FLDNAME$(X))02660l#F N1FLDNBRN1FLDNBR1s#P Xy#Z #d 9000#n #o N10ı#x XDF0ĆWRKSPACE$(A1RECNBR,13):XDF1# A2NXTREC1# 160# # PRINT MENU# $ ::2:IN A NEW LIST"" 3600G" "ENTER THE TITLE OF EACH FIELD WHEN"v" "REQUESTED. WHEN YOU HAVE NAMED ALL THE"" "FIELDS, JUST PRESS RETURN. YOU CAN"" "HAVE UP TO 13 FIELDS."" " N1FLDNBR0" HT15" V8"( X1137#2 "NAMEE WORKSPACE! !! XDF02500! 936:9:"STARTING A NEW DATA BASE WILL ERASE THE"::" CURRENT ONE FROM MEMORY!":! 14:1:"DO YOU WANT TO START A NEW ONE (Y/N)? ";:XX$! XX$"Y"XX$"N"2493! XX$"N"ı! 410" P1HDG$"BEG* $ NA2NXTRECA2NXTRECA2NXTREC1:24508 . R$"N"ıJ 8 XNA2NXTREC\ B Y1N1FLDNBR L WRKSPACE$(X,Y)WRKSPACE$(X1,Y) V Y ` X j A2NXTRECA2NXTREC1 t ~ 936:12:13:"RECORD DELETED.":9000 ! INITIALIZ"REMOVE A RECORD"3600+XDF0730N"ENTER THE RECORD NUMBER:";NN1NA2NXTRECĺ"THIS RECORD IS NOT PRESENT":2250STARTRCDN2990 23:1:"DO YOU REALLY WANT TO DELETE IT (Y/N)?";:R$  R$"Y"R$"N"23101FLDNBRN7FLDNAME$(X)! X5*X1A2NXTREC1G4Y1N1FLDNBR`>WRKSPACE$(X,Y);"/";gHYpR" "w\Xf"CLOSE"z936:12:7:A2NXTREC1;" RECORDS PUT TO STORAGE."9000 REMOVE A RECORDP1HDG$ME YET.":1921&:REPLY$"7A":4750b23:"SAVE LIST UNDER THE NAME : "N8$:" (Y/N)? ";:B$B$"N"B$"Y"Ģ22::1992::B$"N"1921"OPEN ";N8FILNAME$"WRITE ";N8FILNAME$A1RECNBRA2NXTRECN1FLDNBR X1NITE THE LIST UNDER THE OLD NAME."::"(REMEMBER, 'REWRITING' MEANS ANY DATA"::"PREVIOUSLY ON THAT FILE WILL BE ERASED.":"ENTER A LIST NAME:";A$(A$)0(N8$)01980(A$)0N8$A$" DB"1991:"YOU DON'T HAVE AN OLD FILE NANX PUT TO STORAGE bClP1HDG$"PUT A LIST TO STORAGE"Mv3600\XDF07309:1:"DO YOU REALLY WANT TO SAVE DATA (Y/N)?";:A$A$"Y"A$"N"1921A$"N"ı:{"ENTER A NEW LIST NAME OR PRESS RETURN"::"TO REWR(X,Z)WRKSPACE$(X,Z)(R$,Y,1)%Y+E"CLOSE ";N8FILNAME$K" "A2NXTREC1;" RECORDS READ FROM STORAGE"9000 LIST 1 RECORD PER LINE&0"LIST IS NOT IMPLEMENTED YET.": COMMAND DRIVER D6X1A2NXTREC1@R$%J1660EK14:13:"RECORDS READ : "XLTXV^1760\hbri|  UNPACK R$ INTO WRKSPACE$Z1WR$(X,Z)""Y1(R$)ZN1FLDNBRı(R$,Y,1)"/"ZZ1:WR$(X,Z)"":1740WRKSPACE$N8FILNAME$""160/"READ ";N8FILNAME$>A1RECNBR$XA1RECNBR(A1RECNBR$)gA2NXTREC$A2NXTREC(A2NXTREC$)N1FLDNBR$N1FLDNBR(N1FLDNBR$)X1N1FLDNBRN7FLDNAME$(X)"X,XDF0ĆWRKSPACE$(A1RECNBR,13):XDF1ASE (Y/N)?";:XX$-XX$"Y"XX$"N"1443<XX$"N"ıG30000Q4750nN8FILNAME$(T$,6,(T$))(N8$,5)" DB "1461936:12:"THAT IS NOT A DATA BASE FILE, TRY AGAIN":9000:936:12:" LOADING DATA, PLEASE STAND BY."z#???????     ՠԠŠ"ӠΠӠ%ՠ Ӳ)ŠΠծԠ Ѡ Š<à`O@P-Q`LOčPQ`2LHA>VDP (ED Z c(0x8x D- ܸDD#L H8?E Vk *f???0xE ݀ ݀ ݀Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEEING..." JT(A)1ĺ"RUN"A$(A); TT(A)2ĺ"BRUN";A$(A)V ^T(A)3ĺ"EXEC";A$(A)h hER(222):20n r | DATA FOR DESCRIPTION  2  THE DATA BASE  FOR ALL OF YOUR IMPORTANT RECORDS DATA FOR PROGRAM NAMES 1-APPLESOFT :24:7:"PRESS ANY KEY TO CONTINUE.";:A$:K #:12:13:"FORMATTING..." )(4)"INIT HELLO,D1":(4)"DELETE HELLO,D1"::17:"DONE"::2:"INSERT MASTER DISK"; ,AN1ĺ" AND PRESS RETURN";:A$:A$: @AN2ĺ"RUN MENUQ" A::12:14:"LOAD5:1102 VTV1(X)2:HT15.4:A$"WHICH ONE?":110N A$:KB(A$):A$""240c KB1KBN2240 VTV1(X)2:HT25.5:A$(KB):110::AKB:: AN321 AN1300, ":::(4)"BRUN INITFDOS,A$8000":10:5:"INSERT BLANK DISK IN DRIVE ONE"UBLISHING 1985":110G :N:X1N:A$:VTV(X):HT20((A$)2):110: N:X1N:T(X),A$(X):VTV1(X):HT12.5:A$(X)") "A$(X):110: A$(X)") CREATE WORK DISK":VTV1(X):HT12.5:110:XX1  A$(X)") QUIT":VTV1(X):HT12.(X1)14.0(X1.2):H ZQ7:Q17.7:Q21:Q3100:Q499:Q532:Q632:Q764Q d150 nTQ5:HTHTQ:VTVTQ1:A(A$):Q3HT,VT:X8Q2A xC(X8)Q7T(T)Q5:X8X8Q2 C(X8)Q6ĔQ2:Q4:: C(X8)Q2T:Q4:: VT24:HT5:A$"_ GREEN VALLEY P 1012,020000" 360(B12:14:"LOADING..."["BLOAD MS2,A$4000"u(C(X8)((A$,X8,1))2230,32:3086:16300,0:16297,0:16302,0:16304,0:3:0:1:232,144:233,98:24576<QA0FV(1)10.6:V(2)11.8 PX05:V1     !!   ЀР@A@ բЪРЀЀЀРЀЀЀՊԪЀРՂԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀЀРЀЀЊЀРժЀՂЪРՀ*ЀР@**@*A@ ЀРՀЀРЪՂРъՀЊЀРժЀՂЪРՀՊЀР* @A@AЀРՀ@'РՂРтՀ               ЀР@A@ ԠЪРЀЀЀРЀЀЀՂԪЀРՀԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀЀРЀЀЊЀРԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀРՀРтՀЊЀРԪЀՂРՀԂЀР* @A@AЀРՀ  AЂՀՊЀdD@dOHLqՀ`Ђ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂЀDD@D@HHHr Հ@%DHD%HD#`b I<ԪժժժժժժժժժժժժժժժՀԪժժժժժժժժժժժժժժժՀՂՂШЂЀDL`2D@HHH02  &$H$&DH$$<"<I@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* ՂՂШЂЀ           ::10:10:"INSERT NEW DISK AND"::11:"PRESS CTRL-RESET"D *42K 22X d TARGETE;::"."3K24:7:"PRESS TO CONTINUE.";fL100:KB13330:936:12:14:"WRITING..."::ER(222):ER:10:15:"COPY ABORTED"::5:"INSERT SOURCE DISK IN DRIVE ONE":100:(4);"PR#6" 4);"RUN MENU" 16368,0::5^@:8:5:"INSERT ";::"SOURCE";::" DISK IN DRIVE ";::"ONE";::"."A24:7:"PRESS TO CONTINUE.";B100:KB13320:936:12:14:"READING...":J:8:5:"INSERT ";::"TARGET";::" DISK IN DRIVE ";::"ONE":4358:(255)0200h :X04:320:DR,1:CMD,1:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200: <330:DR,1:CMD,2:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200:: F320:(4);"PR#6" c dKB(16384):KB128100 fKBKB128:"p 2320:DR,1:CMD,1:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2:4358:(255)0200 4330:49386,0:49385,0:255,0 6INIT:(255)0200 8DR,1:CMD,2:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2D,2:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2:4358:(255)0200 X04:DR,1:CMD,1:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200::DR,2:CMD,2:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200:: ":(4)"PR#6";::".":24:7:"PRESS TO CONTINUE.";o 100:24:1:868:16:"COPYING";:49387,0:49385,0:255,0 INIT:(255)0200 DR,1:CMD,1:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2:4358:(255)0200\ DR,2:CM347 :10:"ONE OR TWO DRIVES (1,2 OR 3 TO EXIT)? ";S A$:A(A$):A1A312_ A334f Ar A150 :8:5:"INSERT ";::"SOURCE";::" DISK IN DRIVE ";::"ONE";::"."0 :" INSERT ";::"DUPLICATE";::" DISK IN DRIVE ";::"TWO `` `@L LLAx>V鷩DP (E>D Z t+0x8x D- ܸDD#HX`8?E Vk *f???0xE   Hh D#-EEE8` D ܸx D - ܸx8`L ΍ЍΠՍժժժժժߪժ?xCp|p@pժժժժժ?xaa~p@|pժժժߪp~`~<`ߪժժժתתժת?x?x~?xppתߪժתժժժժժժժߪժժߪժժժժߪժժߪժժժժժժժժժժߪժժ?xp`p`pժժߪժժժ?xaa~pACpժժժߪժժժתתժߪ?x?x~?xpCpתߪժתժժժժժժժߪߪժժߪժժתժժժתժժժժժժժժժժתժժ?xpp`pժժתժժժ?xaa~v`Cpժժժߪժժժתժժߪ?x|~?xpCpתժתժժժժժժժժߪժժժתժժתժժժתժժժժժժժժժժתժת?xx~p`pתժժժժժժժ?xaa~pCpժժժߪժժժתժժߪ?x|~x`Ap תժתժժժժժתժժߪժժժӍӍčƍƍƍƍƍ׍ōōōōōōōōWANT TO DELETE IT (Y/N)?";:R$7R$"Y"R$"N"725FR$"N"50]NA2A2A21:785iXNA2uY1N1WR$(X,Y)WR$(X1,Y)YXA2A21 :12:13:"RECORD DELETED.":160050XD0810D:9:"STARTING A160050(P1$"REMOVE A RECORD"21160?XD0955:1:"ENTER THE RECORD NUMBER:";:V5:HT26:LN4:1550:N(GOOD$)N1NA2ė:12:7:"THAT RECORD IS NOT PRESENT.":1600:50STN98024:1:"DO YOU REALLY B$:B$"N"B$"Y"585-N::B$"N"525>SD$"OPEN "F$PXD$"WRITE "F$X]A1`bA2hgN1tlX1N1qN7$(X)vX{X1A21Y1N1WR$(X,Y)YXD$"CLOSE "F$:12:7:A21" RECORDS PUT TO STORAGE."::"PREVIOUSLY ON THAT FILE WILL BE ERASED."L&:"ENTER A LIST NAME:";A$e+(A$)0(F$)05700(A$)0F$A$" DB"5575::"YOU DON'T HAVE AN OLD FILE NAME YET.":525?1315D23:"SAVE LIST UNDER THE NAME : "F$:" (Y/N)? ";I0XD095G 9:1:"DO YOU REALLY WANT TO SAVE DATA (Y/N)?";:A$`A$"Y"A$"N"525oA$"N"50w:-!"ENTER A NEW LIST NAME OR PRESS RETURN"::"TO REWRITE THE LIST UNDER THE OLD NAME."::"(REMEMBER, 'REWRITING' MEANS ANY DATA"2 N1X1N1!N7$(X)(X1XD1?X1A21KY1N1YWR$(X,Y)`Y14:13:"RECORDS READ : "XX"CLOSE "F$5:6:A21;" RECORDS READ FROM STORAGE"160050P1$"PUT A LIST TO STORAGE"116335|PR1:D$"PR#0":50+1600:5051315JF$(T$,6,(T$))c(F$,5)" DB "410:12:"THAT IS NOT A DATA BASE FILE, TRY AGAIN":1600:50:12:" LOADING DATA, PLEASE STAND BY."F$""50"READ "F$A1A EST(A$)JD$"PR#"PR:,OST0ST1iTSTA21Ģ12:" -END OF INFORMATION ENCOUNTERED-":380xYST1ST1^980cSTST1hPR1340m24:1:"PRESS RETURN FOR MORE, 'M' FOR MENU:";:A$:(A$)13A$"M"365rA$"M"50w:XX$:XX$"N"XX$"Y"2752XX$"N"PR0:290m18:1:"SET THE PAPER AT THE TOP OF THE FORM.":1600v"ST0'P1$"DISPLAY A RECORD",11601"ENTER THE NUMBER OF THE FIRST RECORD"6"TO BE DISPLAYED.";@"ENTER A NUMBER:";A$0 : 12:5:"SEND OUTPUT TO PRINTER (Y/N)? ";:XX$U XX$"Y"XX$"N"250l XX$"N"PR0:290u PR1 :5:"MAKE SURE YOU HAVE YOUR PRINTER HOOKED"::" UP PROPERLY AND READY TO PRINT."12:5:"DO YOU WANT TO CONTINUE (Y/N)? ";:3:1:937W "ENTER NEW DATA OR PRESS RETURN IF DATA"::10:"IS NOT TO BE CHANGED."^ 7j X1N1 N7$(X)":";::WR$(N,X): X V6 X1N1 VV1:V:HT(N7$(X))2:LN40HT:HT 1550 (GO$)0WR$(N,X)GO$ X 5050> (WR$(A2,X),1)"/"WR$(A2,X)WR$(A21,X):WR$(A2,X)E XQ A2A21f 6:1:958:105 P1$"CORRECT A RECORD" 1160 XD095 3:1:"ENTER RECORD NUMBER TO BE EDITED: ";:V3:HT35:LN4:1550:N(GO$) N1NA2150 NED YOUR DATA"::" STRUCTURE YET, USE MENU OPTION #1.":1600:50r d" TO EXIT, PRESS RETURN FOR FIELD #1.": i"RECORD #";A2 nV7:8 sX1N1 xVV1::N7$(X);::": ";:HT(N7$(X))3:LN40HT }1550:WR$(A2,X)GO$ X1(WR$(A2,X))2$(N9),N7$(N9) 2890< 721:14::"SELECTION: ";::RE$Q <RE$"Q"ė:1705h ARE$"H"İ1190:50 FRE$"1"RE$"9"55 K(RE$)790,80,245,155,1045,390,510,680 PP1$"ADD A RECORD" U1160 ZN7$(1)""100C _12:4:"YOU HAVE NOT DEFI" D$(4)A :8:"INSERT YOUR DATA DISK IN THE DRIVE NOW."K1600s:10:8:"T H E D A T A B A S E"15:4:"DO YOU NEED INSTRUCTIONS (Y/N)? ";:A$:A$"N"A$"Y"25A$"Y"İ1190#1650(XD0:N916:A1400 -WR$(A1,N9),N             12BS13)8(BS10BS11):H,V17&BS10TS0SP0O&BS10TS0SPSP1^&SP21510d&&ME1313,22:ME1466,21:ME1463,12:ME1464,253&395&BSH,V1):TSH,V)&N64:BS13N80&BS10N32&BS11N48'X015:H,:BS14,2VS1)'%A$MA$A$"A"1545g%I0462:(5,I)TS5,I1)BS)(4,I1)96,I1)9)1465m%|%T$"OPEN "%JX21VS1:J:1:" ";::VS:1:958%I21:1::" ";:2:T$;: &VI:H737:1515:TS:H,V:BS12(BSк" ";:50,63192(LO$" ")=$xXX0ĺ" ";::"*";::FI$;M$}XX1ĺFI$;f$:" ";::XX1ĺN$;l$t$:$RE$"7"ı$VS0VS24$VS:1:37):6::" CHOICE :";::16368,0:A$$A$(13)ĢVS:15::A$;" ";:%TS14,2VS2)21:1%#FLO$" ":0,V)10LO$":".#KXX0C#P1,V)1FI$BL$X#U1,V)2FI$BL$m#Z1,V)9FI$BL$#_1,V)4FI$" ":LTLT1:XX1#dTE$N$:N$(LT)#i1,V)0FI$" ":N$" ":N$" "TE$" "MA$TE$#nTE$" "N$" "VSV21:1425$s"(::D$"CATALOG"\"-RE$"7"Ģ24:1:"SELECT LETTER OR PRESS RETURN TO ABORT.";:1:1"24:RE$"6"ĺ" CHOOSE THE DESIRED DATA BASE :""7RE$"7"ĺ" DATA BASES CURRENTLY ON DISK :""<X1452:(5,X)11)ĂX#ALT64:XX1:VX442::V"4! :"THERE IS NO LIMIT TO THE USES OF THIS":e!"PROGRAM. YOU CAN DEFINE THE FIELDS ANY":!"WAY YOU WANT, AND MAY HAVE UP TO 500":!"DIFFERENT RECORDS IN YOUR DATA BASE."!1600:"#MA$"W"::BL$" "LDS DATA"::> "NAME: ";::"MARK PETERSON"u :"ADDRESS: ";::"2753 LOUISIANA CT. APT #102": "CITY: ";::"ST.LOUIS PARK": "STATE: ";::"MN": "ZIP: ";::"55426":!::"AND THAT IS ALL THERE IS TO A DATA BASE1"TO DEFINE A DATA STRUCTURE CONSISTING":b"OF UP TO SIXTEEN DIFFERENT FIELDS. THE":"DATA BASE CONSISTS OF THE ENTIRE BODY":"OF DATA YOU PLACE INTO THESE RECORDS."1600 :"HERE IS AN EXMAPLE OF A DATA RECORD:"::"FIEUSE DATA":<"BASE MANAGEMENT SYSTEM. YOU SHOULD FIND":m"THE MENU COMMANDS STRAIGHT-FORWARD AND":"EASY TO UNDERSTAND. ALL YOU NEED IS A":"BASIC UNDERSTANDING OF WHAT A DATA BASE":"IS. BASICALLY, THIS PROGRAM ALLOWS YOU":"Y"1140yA$"N"50#~AST1-10953F(40(P1$))2OP1$h:X139:" ";:X:p:v:"WELCOME TO THE DATA BASE MANAGER. THIS":"UTILITY PROVIDES THE AVERAGE APPLE USER": "WITH A FLEXIBLE, SIMPLE TO A2LY1N1ZQ(N2$(Y))0ĭN2$(Y)(WR$(X,Y),(N2$(Y)))STX:YN1:XA2:Y:X:1135aVYh[X`:12:" THE END OF THE LIST HAS BEEN REACHED"e1600j50o:980 t24:1:"DO YOU WANT TO CONTINUE SEARCH (Y/N)? ";:A$:A$"N"A$WR$(ST,X)X" (@P1$"FIND A RECORD"J1160WXD095$"ENTER THE VALUE(S) TO BE FOUND FOR EACH")"FIELD OTHERWISE PRESS RETURN FOR FIELD.":.X1N13"ENTER "N7$(X);8":";N2$(X)=XBA1GXA) EDIT"6:"5) SEARCH"56:"6) LOAD DATA"U6:"7) SAVE DATA ON DISK"s6:"8) REMOVE A RECORD":6:"H) HELP":6:"Q) QUIT"ST1ıSTA21ı"RECORD #"ST:X1N1N7$(X)":";I223:I:2:" ";:39:" ";:I<23:2:I138:" ";:IY5:2:I138:" ";:I:P1$"*** DATA BASE COMMAND MENU ***"3:(40(P1$))2:P1$76:"1) BEGIN A NEW LIST"6:"2) ADD DATA"6:"3) DISPLAY DATA"6:"4.>" RETURN WHEN ALL HAVE BEEN ENTERED.":7CN10AHHT15IMV6URX116W"NAME FIELD "X": ";:LN10:VV1:1550:N7$(X)GO$\(N7$(X))0X16:870aN1N11fXk1600pN10XD1:A21u50z::2:I138:" ";:I  NEW DATA BASE WILL ERASE THE"::" CURRENT ONE FROM MEMORY!" 14:1:"DO YOU WANT TO START A NEW ONE (Y/N)? ";:A$:A$"N"A$"Y"800%A$"N"50*A21/P1$"BEGIN A NEW LIST"411609"NAME EACH FIELD WHEN REQUSTED. PRESS "(N$(Z);"'S BALL IS PARTLY COVERED":UN$(Z);"'S BALL IS COMPLETELY COVERED":wN$(Z);"'S BALL IS BURIED.":N$(Z);"'S BALL IS BURIED IN THE LIP OF THE BUNKER":"KERSPLASH" N$(Z);"'S BALL IS IN THE DRINK.":"ONE STROKSA(Z)890,900,910,920,930,940,950,960,970PzN$(Z);"'S BALL IS SITTING HIGH":wN$(Z);"'S BALL IS SITTING LOW ":N$(Z);"'S BALL IS SITTING VERY LOW":N$(Z);"'S BALL IS LOW, NEAR THE LIP":N$(Z);"'S BALL IS VERY LOW, NEAR THE LIP":" FROM THE NORTHWEST":WI(1)WI:WI(2)WI:U "IT'S RAINING LIGHTLY":WG1:WI(1)1:k*WI0ĺ"CALM"::4WI1ĺ"LIGHT";:>WI2ĺ"MODERATE";:H"STRONG";:RWI7(1)2:WI1WI0\WI3WI3fWI(WI):)p34,20:SA(Z)9(1)1:T":WI(1)WI:WI(2)WI:W850:"THE WIND IS ";:810:" FROM THE SOUTH.":WI(2)WI:850:"THE WIND IS ";:810:" FROM THE SOUTHWEST":WI(1)WI:WI(2)WI: 850:"THE WIND IS ";:810:" FROM THE WEST.":WI(1)WI:)850:"THE WIND IS ";:810:0,800C850:"THE WIND IS ";:810:" FROM THE NORTH.":WI(2)WI:850:"THE WIND IS ";:810:" FROM THE NORTHEAST":WI(1)WI:WI(2)WI:850:"THE WIND IS ";:810:" FROM THE EAST.":WI(1)WI:850:"THE WIND IS ";:810:" FROM THE SOUTHEASQ3(1)*RO(Z)0:DI(DIQ)(10SC):DI(2DI3)IDI:700lWO1I(8(2CL))IX(Z)DI1:700WO0I(7CL)IDI:700J12:"":N014:Q(16336)::::APY:1630WG0:WI(1)0:WI(2)0:WI720,730,740,750,760,770,780,79C7CC(2(1))!0CL7ID15^:DI(ID(CL(159))(SW10)):WO0DI(DW(2CL)(SW10))pDHC(Z)5B1NDIDI(CB)XWG0(CL5WO0)DIDIWGbSA(Z)CLDIDI(2(SA(Z)CL)(2B(1)))lSA(Z)0vQ0:RO(Z)2Q5(1) RO(Z)045AN(Z)136IDIDWI(1):DWDWWI(1)WAN(Z)136AN(Z)180IDIDWI(2):DWDWWI(2)AN(Z)180AN(Z)225IDIDWI(2):DWDWWI(2)AN(Z)225AN(Z)315IDIDWI(1):DWDWWI(1)AN(Z)315IDIDWI(2):DWDWWI(2)&C((HC(Z)1)2)(1):C3(4WI(1))-AN180AN225ANAN(4WI(1))QAN225AN315ANAN(4WI(2))mAN315ANAN(4WI(1))AN45ANAN(4WI(1))AN(Z)AN:DI0:ID15:DW19:B2(1):B1B1B1B1AN(Z)45IDIDWI(2):DWDWWI(2)$AN(Z) TANAN(20B(1)):370/ ^C.39C1.6370e hANAN(10(1)B):C(1):C.99ANAN(10(1)B) rC0:L9CL:L1CL2:L(LWO((HC(Z)1)2))(1):L2400 |ANAN(CB) CL7460 AN45AN136ANAN(4WI(2)) AN136AN180ANAN6:R5ı= R4(1)31:I039:B(1):B.33RR1:R0R0Y B.66RR1:R39R39s R,I)12Ġ2:R,I::{ : B1:C2(1):C1B1 "HC(Z)10350 ,HC(Z)18330 6C.5C1.5370 @ANAN(HC(Z)(1)B):370 JC.89C1370160 AT LINE "E1:!+9000*+ꜫ160+9000;+ꜫ160A DRIVE.":1730*E2551725Y*12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$s*A$"N"A$"Y"1705*A$"N"50*1630*"ERROR #"E" AT LINE "E1:*1600*50"N"160*̜30000*֜"ERROR #"E" AT LINE "E1:*9000+RUN MENU")r)wE(222)5)|E1(218)(219)256D)E41680w)12:"UNABLE TO WRITE ON WRITE-PROTECTED DISK")1730)E51690)12:" ERROR IN READING DATA FROM THIS FILE.":1730)E81700*12:" I/O ERROR - CHECK YOUR DISK5(@24:7::"PRESS ANY KEY TO CONTINUE.";::A$::F(ERR1GO$""`(JRR1GO$(GO$,RR1)l(ORRRR1(TV:HT:868:V:HT:GO$;(Y1560(^:12::" INSERT THE MASTER DISK IN THE DRIVE.":1600(c1630(h12:14:"LOADING...." )m(4)"V)XT$T$(XN):':L' 23:14::"**ABORTED**";:X12000:X::50W'GO$""`'RR0i'ZZ$}'(ZZ$)131595'"(ZZ$)8RR01605''(ZZ$)27ZZ$","ZZ$":"1560',RRLN1560'1RRRR1:ZZ$;:GO$GO$ZZ$'61560';V1:1:10ĉ::"HOLE";:I19:(8(3I)):I;::(38):"T":h&"PAR";:I19:(8(3I)):PA(I);::(38):TP:&I139:"-";:::&P1PL:(N$(P),9);:I19:(8(3I)):SC(P,I);:I:(38):TS(P)::P&:6:"PRESS ANY KEY FOR NEXT HOLE.":3'GH9(Z)1:D(Z):X(Z),Y(Z):2750:1940W%D(Z):X(Z),Y(Z):C(Z):X,Y:D(Z)D:X(Z)X:Y(Z)Y_%:Iz%ST(Z)ST(Z)1:Z:1760%F0:J1PL:FFIH(J)::FPL1760%Z1PL:SC(Z,GH)ST(Z):TS(Z)TS(Z)ST(Z):ST(Z)0:IH(Z)0:OG(Z)0:%GH920504&GH$:HP(HP$)!$HP0HP1001811P$HP(HP$)(40100):KHP23:(HP$)11780w$&D(Z)4:I1HP:XX(Z)XI:YY(Z)YI$01090$:X0X0$DX39X39$N1130$XY0Y0$bY39Y39$l(X)(X(Z))(Y)(Y(Z))1920"%vDX,Y):D0IKIH00:II)#C(Z):X(Z),Y(Z):II1100:II0#IT#"DIRECTION?(0-360 DEGREES)";ANk#AN1AN3601790#AN(AN23.1415928)360:XI(AN):YI(AN)#A1:B1:C%2(1):C%1A1#C%2(9):C%1B1 $"HOW HARD WILL YOU HIT IT?(0-100%)";HPEY TO CONTINUE.";:WB$:::1280~":12:I039:0,39I::0:I2021:20,21I::I1PL:IH(I)1ĠC(I):X(I),Y(I)::1760""Z1PL:IH(Z)1ĂZ:1950"C(Z):X(Z),Y(Z)":N$(Z);"'S PUTT.""I110"15:X(Z),Y(Z)#"";:II11 ROUGH":1700!RO(Z)0k!D(Z)13ĺN$(Z);" IS IN THE ";:"";:I014:X(16336)::"SANDTRAP!":880!F0:G1PL:FFOG(G)::FPLZPL:Z:1740!" ";::"PRESS ANY KEY TO CONTINUE.";:WB$::::Z:1280 "" ";::"PRESS ANY K):D8İ660" TD0RO(Z)RO(Z)1S ^D(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:Ia hD2İ980i rO0 |X(Z)X:Y(Z)Y:D(Z)D ST(Z)ST(Z)1:D(Z)4D(Z)15ĺN$(Z);" IS ON THE GREEN IN ";ST(Z);" STROKES":OG(Z)1:2120 !D(Z)0ĺN$(Z);" IS IN THE00%) ";SW$:(SW$)01360.(SW$)1001520USW(SW$):SW90SW50(80(1)1)`34,20470:C0:C(Z):DD(Z):I1DI:XX(Z)XI:YY(Z)YI:X0X0"X39X39,Y0Y06Y39Y39@(X)(X(Z))(Y)(Y(Z))1620 JD(Z)D:DX,YWO0O:CL9(ST(Z)0CL$"W"CL1)ĺ"CAN'T USE THAT CLUB!!":1400s"DIRECTION?(0-360 DEGREES)";ANAN360AN01490280:AN(AN23.1415928)360:XI(AN):YI(AN)AP0AP0AP39AP39"HOW HARD WILL YOU SWING?(0-1L$"I"CL$"C"1340'dCL$"Q"31909nCL$"C"1070Gx24:868jCL$"W"ĺ"WHICH WOOD(1-4) ?";CL$"I"ĺ"WHICH IRON(1-9) ?";CS0:XX$:1:CL(XX$)48CL11410CL$"W"CL41410CL91410WO0:CL$"W"WO5CL:WO1";(W);" YARDS FROM THE PIN.")'I110<(15:X(Z),Y(Z)T)"";:II1100:IIw*C(Z):X(Z),Y(Z):II1100:II~+I2WI9(1)1:710<ZZė:ZZ0F24:868P"WOOD, IRON, CADDIE, OR QUIT (W/I/C/Q)";:CL$:1ZCL$"Q"CL$"W"CSC75(1):0BA6(1):BA.5SC6(1)2:IBA5SC10(1)4:[SC9(1)3:vZ1PL:OG(Z)1ī1710 W%(X(Z)H(1)):K%(Y(Z)H(2)):W((((W%2)(K%2)))SC)ST(1)0İ2290N$(Z);"'S TURN. (";BALL$(C(Z));" BALL)":"YOU ARE tF(1):I16F.05YYB:6~I15F.1YYB:<XHL1180,1200,1220,1250zBA6(1):BA2SC5(1)2:SC73(1):BA6(1):BA4SC5(1)2:SC75(1):BA6(1):BA5SC11(1)4:BA1SC5(1)2: ::GW$:q<14:"DIRECTIONS:":"0 = UP 90 = RIGHT 180 = DOWN 270 = LEFT":4:"(VALUES ARE IN DEGREES - 0=360)">7::"PRESS ANY KEY TO CONTINUE";::GW$:?ZZ1:1340BI6ıLF(1):I16F.05XXA:VI15F.1XXA`jI6ı., - LAST UPDATE 11/05/85 - VERSION 3.5 ЀЪ0ժՂЀЀЂՀՊЀdD@dOHLqՀ`ЀЪժՂЀЀЂ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂЀDD@D@HHHr Հ@%DHD%HD#`b I<ЀЪԪժժժժժժժժժժժժժժժՀժՂЀЀԪժժժժժժժժժժժժժժժՀՂՂШЂЀDL`2D@HHH02  &$H$&DH$$<"<I@ժЪՂЀ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ԪԪՂԂՂԪՂԪՂЪ ՂՂШЂЀ            50iB0u936:12::" INSERT YOUR MASTER DISK IN THE DRIVE."::24:7:"PRESS ANY KEY TO CONTINUE.";:TE$uB:u30000BDu44033,16BNu:936:12:14:"LOADING...."BXu(4)"RUN MENU" THE GAME IS OVER FOR EVERYONE.)"VAX 24:8::"PRESS ANY KEY TO BEGIN";::WB$:2350oAb G%1B%4(1)20:Al B%(1)2020:Av 24:868:"DO YOU REALLY WANT TO QUIT NOW (Y/N)";:QQ$A QQ$"N"QQ$"Y"Ģ23::3190A QQ$"Y"ĉ:30000B 13 "@! )@& "LIKELY TO BRING DISASTER."/@+ Z@0 " IF YOU WISH TO CHANGE CLUBS OR "`@5 @: "DIRECTION, ENTER A ZERO FOR YOUR SWING."@D :"THE PROGRAM MAY BE ABORTED BY ENTERING "::"'Q' AT THE GOLF CLUB PROMPT.(IF ONE MAN"@I !AN "QUITS,1? ::" THE HARDEST YOU CAN SWING A CLUB AND"7? e? "ACHIEVE A PREDICTABLE RESULT IS 90%. A"k? ? "SWING OF GREATER THAN 90% WILL AFFECT"? ? "YOUR SHOT. AN OVERSWING MAY RESULT IN"? @ "A SPECTACULAR SHOT, BUT IT IS JUST ASLL CAUSE AN ERRATIC RESULT. THIS IS"+> N> "REFLECTED IN THIS GAME TOO."}> :" TO GET A LISTING OF CLUBS AND CLUB"> :"USE THE CADDIE FUNCTION IT CAN BE"> :"VERY HELPFUL."> 23:8:"PRESS ANY KEY TO CONTINUE":ZX$:ZX$""ī3155 "RECOMMEND THAT YOU PLAY AS A 'SCRATCH'"::"(THAT'S SLANG FOR A 0 HANDICAP GOLFER;"^= = "A RANK AMATEUR!). THE UPPER REACHES OF"= "THE HANDICAP ARE UNPREDICTABLE AT BEST."= = " ANY ATTEMPT TO OVERSWING A GOLF CLUB"= %> "WI DEGREES."`< :16:"0 DEGREES"::21:"I":21:"I":3:"270 DEGREES <-----*-----> 90 DEGREES"< 21:"I":21:"I"::15:"180 DEGREES"< (23):(8)::"PRESS ANY KEY TO CONTINUE";::WB$:::< " UNTIL YOU GET THE HANG OF THE GAME WE"< X=ICAP).7;J :" FOR ALL PURPOSES WITHIN THE GAME THE"f;T "TOP OF THE SCREEN IS NORTH, AND ITS";^ "DIRECTION IS 0 DEGREES WHEN YOU HIT.";h "THE RIGHT SIDE OF THE SCREEN IS 90 DE-";r "GREES, THE BOTTOM IS 180, AND THE LEFT" <| "IS 270S":(22):"7) 130 YARDS":(22):"8) 115 YARDS":(22):"9) 100 YARDS":(22):" AND UNDER":" (23):(8)::"PRESS ANY KEY TO CONTINUE";::WB$::::, " THOSE DISTANCES WILL, OF COURSE, VARY":6 "WITH THE EFFECTS OF WIND AND YOUR SKILL";@ "(HAND---"::"1) 270 YARDS":"2) 240 YARDS":"3) 210 YARDS":"4) 175 YARDS"Z9 "5) 150 YARDS"9 7:25:"IRONS":22:"------------"::22:"1) 220 YARDS":22:"2) 205 YARDS":22:"3) 190 YARDS":22:"4) 175 YARDS":22:"5) 160 YARDS"Z: (22):"6) 145 YARD4:X(16336)::F1300K:::O8 " THERE ARE A FEW THINGS YOU SHOULD "|8 "KNOW ABOUT THIS GOLF GAME. IF YOU ARE"8 "UNFAMILIAR WITH GOLFING, HERE IS A "8 "CHART OF CLUB/DISTANCE RELATIONSHIPS:"8 F9 (7):(4):"WOODS":"---------2:VD%1G%32:T%2(1)16:B%18(1)11:2530^7 T1%39:T%21(1)16:G%1:B%(1)15:25307 12:C39:I039:CC.49:C19,CI::VD%(1)2:VD%1G%32:T%21(1)16:B%(1)14:25307 T1%39:T%2(1)16:G%1:B%18(1)11:2530!8 K120:J1:1:" ";:39:" ";:I4fN23:1:I139:" ";:I::pNEzN20010kNA$"WE STRONGLY SUGGEST THAT YOU"vN10:6N20400NA$"MAKE A BACKUP COPY OF THIS"N12:7N20400NA$"DISKETTE"N14:15N20400NA$"PRESS ANY KEY TO CO2-BINARY3-TEXT FILE& 1< 1,DATA BASEO 1,THE CASINOa1,RUSTY NAILl N20090v*N9364N3:3::I337:" ";:I>NI421:I:3:" ";:37:" ";:IHN21:3:I337:" ";:IRN1:1::I139:" ";:I\NI222:ID n1230"xPR1:(4)"PR#0".y9000:4J ENTER FROM DISKPVfXDF01450936:9:"DUE TO MEMORY CONSTRAINTS, YOU MUST"::"RE-LOAD 'DATA BASE' TO LOAD A NEW DATA"::"FILE."16:1:"DO YOU WANT TO RELOAD DATA B' FOR HELP)";R$&(R$)1R$R$"0"<((R$,1)"H"4600v2(R$,1)"-"STARTRCDFIRSTRCD((R$,(R$)1)):1370<(R$,1)"+"STARTRCDSTARTRCD((R$,(R$)1))1:1370F(R$,1)"E"1400P(R$)0STARTRCD(R$)ZdFIRSTRCDSTARTRCRT$)(4)"PR#"PR6STARTRCD0STARTRCD1~STARTRCDA2NXTREC1ĺ:" -END OF INFORMATION ENCOUNTERED-":1400STARTRCD1STARTRCD12990: DISPLAY 1 RCDSTARTRCDSTARTRCD1 (37)20PR11250:"SCROLL TO? (TYPE 'H THE PAPER AT THE TOP OF THE FORM.":90009tSTARTRCD0O~FIRSTRCDSTARTRCDmP1HDG$"DISPLAY A RECORD"w3600"ENTER THE NUMBER OF THE FIRST RECORD""TO BE DISPLAYED.""ENTER A NUMBER:";START$(START$)0STARTRCD(STARE YOU HAVE YOUR PRINTER HOOKED"::"UP PROPERLY AND READY TO PRINT. IF THE":p"PRINTER IS NOT READY, THE PROGRAM WILL"::"STOP AND YOU WILL HAVE TO PRESS THE"::"'RESET' KEY TO RETURN TO THE GREEN":*q" VALLEY MENU.":18:"SETT:HT83005$(GOOD$)0WRKSPACE$(N,X)GOOD$<.XB8HBNLTVi` DISPLAY RECORDsa936yjk12:5:"SEND OUTPUT TO PRINTER (Y/N)? ";:XX$lXX$"Y"XX$"N"1131mXX$"N"PR0:1140nPR1No936:5:"MAKE SUOW OR TOO HIGH!":930,3:1:937u"ENTER NEW DATA OR PRESS RETURN IF DATA"::"IS NOT TO BE CHANGED."{7V7X1N1FLDNBRN7$(X);":";::WR$(N,X):XV6X1N1FLDNBRVV1:V:HT(N7$(X))2:LN40H1,X):WRKSPACE$(A2NXTREC,X)"*X:4A2NXTRECA2NXTREC1@>F?OH650URl\ CORRECT A RECORDrfpP1HDG$"CORRECT A RECORD"z3600XDF0730"ENTER RECORD NUMBER TO BE EDITED:";NN1NA2NXTREC1ĺ"THE NUMBER IS TOO L";A2NXTRECV9:10(X1N1FLDNBReVV1::N7FLDNAME$(X);::": ";:HT(N7$(X))3:LN40HT 8300:WRKSPACE$(A2NXTREC,X)GOOD$X1ĭ(WRKSPACE$(A2NXTREC,X))0ı (WRKSPACE$(A2NXTREC,X),1)"/"WRKSPACE$(A2NXTREC,X)WRKSPACE$(A2NXTRECC1;" RECORDS REMAINING." : N7FLDNAME$(1)""740 10:12:"*ERROR DETECTED*":15:" YOU HAVE NOT DEFINED YOUR DATA"::" STRUCTURE YET, ENTER 'H' FOR HELP.":9000: 6:" TO EXIT, PRESS RETURN FOR FIELD NAME.": 8:"RECORD #REPLY$(3)4560 160 % 6  INITIALIZE< B H _  DEFINE VARIABLESe v A1RECNBR350 A2NXTREC1    ADD RECORD FROM KEYBOARD  P1HDG$"ADD A RECORD" 3600 " YOU HAVE ";A1RECNBRA2NXTREĢ21::260 REPLY$"2"İ6506 REPLY$"1"İ2470K "REPLY$"4"İ850a ,REPLY$"3"İ1110v 6REPLY$"Q"4560 @REPLY$"5"İ3170 JREPLY$"6"İ1410 TREPLY$"H"İ3720 ^REPLY$"7"İ4750 hREPLY$"8"İ1870 rREPLY$"9"İ2200 }N3FLDLN(N9MAXNBRFLDS)/ xN2SEL$(N9MAXNBRFLDS)M N7FLDNAME$(N9MAXNBRFLDS)a LISTS PROGRAMg 2700: COMMAND LIST COMMAND DRIVER 21:14::"SELECTION: ";::REPLY$ (REPLY$"1"REPLY$"9")REPLY$"H"REPLY$"Q"HEN READY TO CONTINUE.";:A$, RESTART7007 4210r (936:10:8:"T H E D A T A B A S E":II11500:II 215:4:"DO YOU NEED INSTRUCTIONS (Y/N)? "; <A$ =A$"Y"A$"N"40 FA$"Y"90 P3720 ZXDF0 dN9MAXNBRFLDS13 n::8:"INSERT YOUR DATA DISK IN THE DRIVE NOW."::"(YOU NEED A BLANK, APPLE-FORMATTED DISK"::"TO USE THIS PROGRAM. IF YOU DON'T HAVE": "ONE READY, PRESS THE 'RESET' KEY TO"::" RETURN TO THE GREEN VALLEY MENU.)":24:" HIT ANY KEY W"" " " " " """""""""