' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./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(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /L X0 (L DIVERSI-DOS(TM) BY BILL BASHAM C1982 DSR, INC. IF YOU HAVE AN OLD APPLE II (INTEGER BASIC MACHINE), USE FID TO MOVE THE FILE "APPLESOFT" FROM YOUR DOS 3.3 SYSTEM MASTER TO THIS DISK. Ӝsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QIb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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 We)n `@-eff L f`L  tQLѤLנè` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]L iõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pB߮Z\  յյ\BIR Z-^ Jp\IZLL-p  Ȳ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD / ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(`# d Lez# u`Ѳевϵϲεβ͵Ͳ̵̲˵˲ʵʲɵɲȵȲǵDzƵƲŵŲĵIJõòµִղͲ̶̲˶˲ʶʲɶɲȶȲǶDzƶƲŶŲĶIJöò¶ֲֵյղԵԲӵӲҵҲѨȷȲǷDzƷƲŷŲķIJ÷ò·ֲֶնղԶԲӶӲҶҲѶѲжв϶ϲζβͶĸIJøò¸ֲַշղԷԲӷӲҷҲѷѲзвϷϲηβͷͲ̷̲˷˲ʷʲɷɲողԸԲӸӲҸҲѸѲивϸϲθβ͸Ͳ̸̲˸˲ʸʲɸɲȸȲǸDzƸƲŸŲѹѲйвϹϲιβ͹Ͳ̹̲˹˲ʹʲɹɲȹȲǹDzƹƲŹŲĹIJùò¹ֲָ̱̲˱˲ʱʲɱɲȱȲDZDzƱƲűŲıIJñò±ֲֹչղԹԲӹӲҹҲƱƲűŲıIJñò±ֱֲձղԱԲӱӲұҲѱѲбвϱϲαβͱͲձղԱԲӱӲұҲѱѲбвϱϲαβͱͲ̱̲˱˲ʱʲɱɲȱȲDZDzϱϲαβͱͲ̱̲˱˲ʱʲɱɲȱȲDZDzƱƲűŲıIJñò±ֱֲɱɲȱȲDZDzƱƲűŲıIJñò±ֱֲձղԱԲӱӲұҲѱѲбв􀀀􀀀􀀀" 􀀀􀀀􀀀􀀀(U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U 􀀀􀀀􀀀FFFFFFFFFFFFFFFFFFFFFFFFFFFF ; ; BASERLO 4E341A00 ; BASERHI 40404040 ; BASELLO 68829CB6 ; BASELHI 40404040 ; ; BASEBLOA D0C8C0B8 ; BASEBLOB 18100800 ; BASEBLOC 60585048 ; >q GG>8􀀀000000000 ; K 000000000000000000000000000000000000000000000000000000000000000000000000 ; -EQUATE1 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF ; -EQUATE2 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF ; -EQUATE1B FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF ; -EQUATE2B FFFFFFND+$1 RND3 RND2+$1 RND4 RND3+$1 SOUND RND4+$1 BASE2 PICTURE ; ; PREAD $FB1E ; ; ; ; ; OPNUM+$1  $800 ; ; ;  ; STARTUP ; ; ; ; BASCLEAR: K 000000000000000000000000000000000000000000000000000000000000000 XREG FFLAG2+$1 PDIREC XREG+$1 CDIREC PDIREC+$1 CHNGFLAG CDIREC+$1 REFLEX CHNGFLAG+$1 LEVEL2 REFLEX+$1 LEVEL3 LEVEL2+$1 OPNUM LEVEL3+$1 GAMEMODE OPNUM+$1 ; ; BASE $06 PICTURE BASE+$2 RND $19 RND2 R#M ,ɱ ɲɳLF8鱪 9" %Q,0ɬ۩ &,0!` $L $L< &'   A    vLL$1 YREG COLOR+$2 FFLAG1 YREG+$1 FFLAG2 FFLAG1+$1LL*  0? Lu+  `ɓ,I0I 0 0`ɛhh`` ` 237()  &'60`,P,R,W"L  /0 ,ɱLɲLLp  ?п)JJJJ  J  ?)JJJJ  J  ?л &P& ? L i ԩ P' ? L i  `0? )JJJJ  J  ?)  J  ?п  `M 9ddL   L   `H h`")JJJJ  J  ?")   J ! ' l$ , ,0J}آ '99J  )  < &'L , `&0"'0"L"L"ōʱ̍ɱ΍ȱύDZÍƱɍű͍ıōñԍױÍôؾ±֍²ȍحؾϱױѲввϲϲββͲͲ̲̲˲˲ʲʲɲɲȲȲDzDzƲƲŲŲIJIJòò²ձԱîӱ׍ұčѱéбӍϱ٠̍αҍͱٍ̱˾Ĵòôò´ֳճԳӳҳѳгϳγͳ̳˳ʳɳȳdzƳųijó³ֲղղԲԲӲӲҲҲѲմԲԴӲӴҲҴѲѴвдϲϴβδͲʹ̴̲˲˴ʲʴɲɴȲȴDzǴƲƴŲŴIJ􀀀􀀀􀀀􀀀􀀀􀀀􀀀􀀀x d'􀀀@@ " H@HD "􀀀pU@ժժժU"IyG@HG"0xyA`gԪժժժժժժժժժժժժժժժժժ 􀀀UAAAAAAAAAAAA@ժ@AAAAAAAAAAAAU"" A@@HH""@fL3fL3fL3fLsgL3fL3fL3fL3􀀀􀀀􀀀 ! 􀀀􀀀􀀀􀀀􀀀􀀀􀀀􀀀UժժU"""" AHHHH""""D􀀀@3 > ~  ``@>@@I@A@@@?P?P 0@p`@?``d`` @@ h_H_HOhL`xp?@`p?0200 @t/d/d'4& 0|?x|?x`px@rrzJ~|px|L @Ly y } e ~x|~&@f@|@|@~@2@@|~?O^1x=x}|yx9x=^eO??O^xyx}|=x9xy^MO?~`yL=O_^NOY=`y~~`yF=^_ON^S=`y~~`yS=^NO_^F=`y~~`yY=ON^_OL=`y~` HOH_h_(F`xp?@`p?0200 @0d'd/t/# 0T?O^Mxyx9|=x}xy^O??O^ex=x9|yx}x=^1O?Ԫժժժժժժժժժժժժժժժժժxd#TԪժժժժժժժժժժժժժժժժժ$ P􀀀􀀀@0">8q GH">|􀀀􀀀􀀀􀀀􀀀􀀀􀀀􀀀$ 􀀀P􀀀􀀀``"""" AHHHH""""􀀀#$03 YAXIS #BASCLEAR PICTURE /BASCLEAR PICTURE+$1 BLOCK1 ; SHIPNUM2 PRNTSCOR SHIPNUM2 F1SKPG WIN1 F1SKPG PRNTSCOR  ; F1SKP7 SCORE1+$3   #$05 SCORE1+$3 SCORE1+$2 #$00 SCORE1+$2 SCORE1+$BLOCK1 #$FF P2NUM ; SCORE1+$3   #$05 SCORE1+$3 SCORE1+$2 #$00 SCORE1+$2 SCORE1+$1 #$00 SCORE1+$1 SCORE1 #$00 SCORE1  #$00 TFLAG2 ; #$01 WIDTH #$06 HEIGHT #$04 XAXIS P2Y   P2Y YAXIS #$02 XAXIS #$02 WIDTH #$0C HEIGHT F1LUP7 COUNT1 BOOMLLO,X PICTURE BOOMLHI,X PICTURE+$1 BLOCK1 TONE1 COUNT1 COUNT1 #$04 F1LUP7 TONE1 #BASCLEAR PICTURE /BASCLEAR PICTURE+$1 OMRLO,X PICTURE BOOMRHI,X PICTURE+$1 BLOCK1 TONE1 COUNT1 COUNT1 #$04 F2LUP7 TONE1 #BASCLEAR PICTURE /BASCLEAR PICTURE+$1 BLOCK1 #$FF P1NUM ; SCORMODE F1SKPH F1SKP7 F1SKPH : ; #$00 COUNT1IRELINE F2SKPE F2SKP6 F2SKPE #$0C FIRELINE F2SKPD F2SKP6 ; F2SKPD : ; SHIELD1 F2SKPH F2SKP7 F2SKPH : ; #$00 COUNT1 P1Y YAXIS #$23 XAXIS #$02 WIDTH #$0C HEIGHT F2LUP7 COUNT1 BOcIOO8DB!pCI@@DD!D0@!CI@@DPD !CIGGD B p cI@@D A !H@@DD A A !?H@@88| qLOq@x d'$ $ xd#"  ! xyA`gSKPC ACG HCO8|`#@#dgCB@#O LD@D $ $$ $Da@q D[ )JD@D $ D" $A Ds IIGGD<`#`acCA rBc HH@D ! A AC HH@D ! $A@A@qHGO8 `'a'Db`'?@: (h1P0 @"( 5()@ (P@V@Z)J  N% -n@V@ J D J@@,P @  "">0 F1LUP11 @ @  @"" @ @""@ @""""@"" TDDTDD@@PPT PP@@@@@PPP@@@@@P@@@@@@@***@*@@@- JX(d9T0H9*J7 || |xpx l| xp|| @`````pxx| xppx xp |x 00 `@`0  0@@||@@@@pp@@xx||||"""""@``@>@@I@A@@3PP?&0@p`@?``d`` @0 px xp@`px @p8||xx @@ xp@`p8|||| @0rzzb~|px|L @y } } 1  ~x|~&@L@|@~@~@@@|~@f > ?  L > f``@>@@I@A@@&P?P30@p`@?``d`` @@@HOhOh_S`xp?@`p?0200 @` d't't/D) 0|?x`pxpx@`zzr2~|px|L @0} } y   ~x|~&@@~@~@|@L@@|~@L  ? ~ > 3``@>@@I@A@@@ P??P0@p`@?``d`` @@h_hOHOHY`xp?@`p?0200 @@ t/t'd'd, 0|?x``px@Hzrr~|px|L @d} y y M  ~x|~&@2@~@|@|@f@@|~@ DRIVE #";W1;:(7);(7):78:JZF$"COMPUTING - PLEASE BE PATIENT":86:o[(900)0B2(900):900,0:109\Y11:H$"NOTEBOOK":I$"(C) 1982 BY BILL CROUCH":J$B$:K$"A PRODUCT OF WINDOW, INC.":L$(" ",(20(K$)2)):K$L$K10:1:958:D,E:"Q TO QUIT, ANY OTHER KEY TO CONTINUE Q";(8);:A$:A$;:A$"Q"A$"q"A$(13)ıyXG$(95):156YF$"INSERT DATA FILE DISK IN DRIVE #"(W1):86:11:1:958:"PLEASE PLACE THE DISK WITH THE FILE -"::20(B$)2)B$::14)"INVEL ERROR M1RTS ; #$03   MCHK1LUPRESULT,X SCORE1,X SCORE1,X  MCHK1LUP  ; #$10 MCH1LUP3EQUATE1B,X EQUATE1,X  MCH1LUP3 ; F1SKP4 ; LEVEL2 LEVEL2 F1SKP4 ; LEVEL2 LEVEL2  >0 LEVEL LE F1SKP4 ; JSR F2SKP4 HIGHSCOR ; ($24) ; ; ; ; ; ; MATHCHK1: #EQUATE1 BASE /EQUATE1 BASE+$1 #EQUATE1B BASE2 /EQUATE1B BASE2+$1 #$00 ERROR #$10 MCH1LUP1EQUATE1,X EQUATE1B,X  MCH1LUP1 MATHCHK WN1LUP2 ; COUNT1 COUNT1 #$AC WN1LUP1 ; #$AB COUNT1 WN1LUP3 COUNT1 BASECALC #$03 #$00 WN1LUP4 (BASE),Y  #$24 WN1LUP4 ; #$00 (SOUND,X) #$10 D3LUP1 D3LUP1 COUNT1 COUNT1 #$21 WN1LUP3 ; COUNT4 EQUATE1,X MATHCHK1 ; F1SKP8 ; ; WIN1 : #$00 XAXIS YAXIS ; #$22 COUNT1 WN1LUP1 COUNT1 BASECALC #$23 WN1LUP2 #$FF (BASE),Y (BASE),Y #$00 (SOUND,X) #$10 D2LUP1 D2LUP1  #$02 0 COUNT1 ; F1LUP16 COUNT1 DECAYBLO,X PICTURE DECAYBHI,X PICTURE+$1 BLOCK1 TONE3 COUNT1 COUNT1 #$04 F1LUP16 #$00 TFLAG1 ; F1SKP17 VALUE1 SCORELO,X PICTURE SCOREHI,X PICTURE+$1 BLOCK1 VALUE1 COUNT1 #$04 F1LUP15 #BASCLEAR PICTURE /BASCLEAR PICTURE+$1 BLOCK1 #$00 TFLAG1  ; F1SKP9 #$01 WIDTH #$08 HEIGHT P1X  #$02 XAXIS  #$15 COUNT4  EQUATE1,X F1SKP8 #$07 YAXIS #$0; F1SKP2 P1X #$15 F1SKP18 F1SKP9 F1SKP8 ; F1SKP18 #$00 COUNT1 #$01 WIDTH #$08 HEIGHT #$17 XAXIS #$07 YAXIS F1LUP15 COUNT1 DECAYBLO,X PICTURE DECAYBHI,X PICTURE+$1 BLOCK1 TONE3 COUNT1 F TARGETV,X CLICK ; #$02 WIDTH #$0C HEIGHT ; F1LUP14 COUNT1 DECAYALO,X PICTURE DECAYAHI,X PICTURE+$1 BLOCK1 TONE4 COUNT1 COUNT1 #$04 F1LUP14 ;  ; BOMB1 : CHARDIE1 CHARDIE1 CHARDIE1   (BASE),Y #$FF F1LUP13 F1LUP13 YREG #$00 (SOUND),Y YREG  COUNT1 F1LUP12 VALUE1 #$0F BOMB1 ; CHARDIE1#$FF TFLAG1 #$00 COUNT1 COUNT4 TARGETX,X XAXIS TARGETY,X YAXIS RANDOM RND #$0+$1 (BASE),Y VALUE1 FIRELINE #$00 XAXIS YAXIS BASECALC #$24 F1LUP10 #$FF (BASE),Y (BASE),Y #$80 F1LUP11 F1LUP11 YREG #$00 (SOUND),Y YREG  COUNT1 F1LUP10 ; #$24 F1LUP12 #$FF (BASE),Y PICTURE DECAYBHI,X PICTURE+$1 BLOCK1 TONE3 COUNT1 F1LUP9 #BASCLEAR PICTURE /BASCLEAR PICTURE+$1 BLOCK1  ; ; F1SKP5 COUNT4 TARGETX,X COUNT1 TARGETV,X  LEVEL VALUELO,X BASE VALUEHI,X BASE+$1 BLOCK1 TONE3 COUNT1 F1LUP8 #BASCLEAR PICTURE /BASCLEAR PICTURE+$1 BLOCK1 ;  ; F1SKP6 : #$02 XAXIS P1Y  #$03 YAXIS #$01 WIDTH #$08 HEIGHT #$03 COUNT1 F1LUP9 COUNT1 DECAYBLO,X 1 #$00 SCORE1+$1 SCORE1 #$00 SCORE1  #$00 TFLAG2 ; PRNTSCOR ; #$04 XAXIS P2Y  #$03 YAXIS #$01 WIDTH #$08 HEIGHT #$03 COUNT1 F1LUP8 COUNT1 DECAYBLO,X PICTURE DECAYBHI,X PICTUREF2169(160<(X1(222):216,0:860:X16İ148:160D(89N(158(F$"SAVING YOUR DATA":86::(4);"OPEN ";B$;".BACK, D";W1:(4);"DELETE ";B$;".BACK":(4);"RENAME ";B$;".DATA,";B$;".BACK"(164^)(4);"OPEN ";B$;".DATA":(4);"WRLE!":78:,'X111ĺ"SYNTAX ERROR!":78:'X18ĺ"DISK IS WRITE PROTECTED!":"PLEASE REMOVE THE WRITE-PROTECT TAB":78:'X177ĺ"COMPUTER IS OUT OF MEMORY!":78:'"DISK ERROR #";X1::"CHECK YOUR DOS & APPLESOFT MANUALS":78:(900,B2:B1)90ĹB1,0:B2,0::&X1L:B$B$((BX)):X:A:&F$"DISK ERROR CONDITION":86:(7);(7):X18ĺ"I/O ERROR - CHECK THE SYSTEM!":78:&X19ĺ"DISK FULL!":78:&X16ĺ"FILE NOT FOUND ON DRIVE #";W1:78: 'X113ĺ"WRONG TYPE OF FI"OPEN ";B$;".DATA,D";W1:(4);"DELETE ";B$;".DATA"%(4);"OPEN ";B$;".BACK":(4);"DELETE ";B$;".BACK":E2B$"NONE SELECTED"%91%85:Z1T1:F%Z2:F%:2:D$(Z,1);:17:D$(Z,2):Z:%L(B):B$"":L0L25ĹB1,0:B2,0:&(B1)32(A$;:(A$)96A$((A$)32)?$A$"Y"A$"N"A$(13)136O$A$"N"143Y$130$:(4);"UNLOCK ";B$;",D";W1:216,0:A$"N"İ127:1422%F$"REMOVING "B$:86:E21:B1,0:B2,0::(4);"OPEN ";B$;",D";W1::(4);"DELETE ";B$;",D";W1:(4);"REMOVE ";B$;"? "p#11:1:958:D,E:"REMOVE THE WHOLE FILE? (Y,N) N";(8);:A$:A$:(A$)96A$((A$)32)#A$"Y"A$"N"A$(13)133#A$"Y"A$"N":139$16:1:958:D,E:"REMOVE ONLY THE RECORDS IN THE FILE? (Y,N) Y";(8);:A$:0::10:(7);(7);"PLEASE PLACE THE DISK WITH THE FILE-"::20(B$)2)B$::14)"IN DRIVE # ";W1:78:139"F$"REMOVE SELECTED FILE":86:E20:B$""B$"NONE SELECTED"Y14:175#4:12:"A DATA FILE DISK":9:"SHOULD NOW BE IN DRIVE #";W1:8:1:V1:X1T1:Y12:(34);D$(X,Y):Y:X:(4);"CLOSE"!(4);"OPEN ";B$;".DATA,D";W1:(4);"DELETE ";B$;".DATA":(4);"OPEN ";B$;".DATA":(4);"WRITE ";B$;".DATA":"0"::(4);"CLOSE":A:!G$"NOTEBOOK.2":156!G$"NOTEBOOK.3":156l"216,0:8657:11:D$(I,2)C$(I):F%:G%:868:D$(I,2);:O1123: | }U10:A:D21T1:U1U1(D$(D2,2))3:D2:V1(18500U1)1:23:1:868:"MAXIMUM # OF RECORDS = ";V1;:5!~:(4);"OPEN ";B$;",D";W1:(4);"DELETE ";B$:(4);"OPEN ";B$:(4);"WRITE ";B$:T1:115vX12:D$(I,X)"":X'wF%I2xC$(I)D$(I,1):J%1:G%2:K%0:H%9:P199:Q199:L%1:11:O1I1A21:F%:1:958:yI1(C$(I))1120zD$(I,1)C$(I):F%:G%:868:D$(I,1);4 {C$(I)D$(I,2):J%0:G%17:K%1:H%2:P11:Q1F1:L%48:M%E RECORDS,8,P,PRINT SOME/ALL RECORDS,10,D,DISPLAY RECORDS IN ORDER,11,S,SORT YOUR FILE,13,C,CREATE A NEW FILE,14,R,REMOVE A FILE (OR DATA), 15,F,FORMAT A NEW DISK,16,M,MODIFY COMPUTER SET-UPr81:S1T1:R11sR1S1R11tIR1:38:125:O1ıuB2128,128,128,128,129,45,131,263,199,189,189,189,175,278,87En91oC%(B2):(7(E$(B2,0))):868:E$(B2,0);" - ";E$(B2,1):pC%(B2):(7(E$(B2,0))):868::E$(B2,0);" - ";E$(B2,1)::q9,6,E,ENTER A NEW RECORD,7,V,VIEW/FIX/PRINT/REMOV4:106$gM1115:M$E$(M1,0)106Ph:M10:B20ĢC%(B2):7:(7);:111:99Xi99jB2M1:112:24:1:958:"PLEASE CONFIRM YOUR SELECTION ";::"Y";:kC2(16384):C2130107lC2141C2217C2249ĢC%(B2):7:(7);:111:B20:98=m11::B20:18:1::K$;40(K$))::23:1:M1140:"=";:b24:1:958:16368,0:"YOU MAY SELECT BY PRESSING A LETTER ";cC2(16384):C215499dC2C2128:16368,0:M$(C2):C296M$(C232)eM$(27)M113:106fM$"?"M$"/"M11"ESC":E$(13,1)"SELECT OR RE-SELECT A FILE":C%(14)21:E$(14,0)"?":E$(14,1)"HELP #4":C%(15)22:E$(15,0)"Q":E$(15,1)"QUIT":::1:1:((40(H$))2));H$:2:1:((40(I$))2));I$:M1140:"=";::4:1:"FILE - ";J$;aB21M0:111::B21315:1$::M0:M010M010i]M11M0:C%(M1),E$(M1,0),E$(M1,1):C%(M1)6C%(M1)16ĉ::"VTAB RANGE ERROR":^E$(M1,0)(E$(M1,0),1):E$(M1,0)"A"ĺ"CHAR LABEL < A":_(E$(M1,1))32E$(M1,1))(E$(M1,1),32):(E$(M1,1))1ij`M1:C%(13)20:E$(13,0)RACTERSSENT TO IT, YOU WILL BE ABLE TO GET THESE CHARACTERS FROM THE PRINTER MANUALOR FROM THE PERSON WHO SOLD YOU THE SYSTEM.":820:1:958:16368,0:"DO YOU WANT TO ENTER CODES NOW? (Y,N) N";(8);:A$:A$;:(A$)96A$((A$)32)9A$L' OR 'ESCAPE' CHARACTERS TO WORK PROPERLY.":7"MOST PRINTERS DO NOT REQUIRE ANY SUCH CHARACTERS. IF IN DOUBT, SPECIFY 'NO CONTROL CODES ENTERED' AND TRY TO PRINT WITHOUT ANY SPECIAL CONTROL CHARACTERS.":8"IF YOUR PRINTER NEEDS SPECIAL CHA958:18:"WHAT SLOT IS YOUR PRINTER USING? (0-7) 1";(8);:A$:A$;:(A$)0(A$)7216m6A$(13)A$"1"6:I2((A$))6I21N$"":238.7F$"PRINTER CONTROL CHARACTERS":86:"SOME PRINTERS REQUIRE THE COMPUTER TO SEND THEM CERTAIN 'CONTRO CURRENT SET-UP:"::I21ĺ"":213^5"YOUR PRINTER IS IN SLOT #";I2:519:1:958:16368,0:"IS THIS CORRECT? (Y,N) Y";(8);:A$:A$;:(A$)96A$((A$)32)5A$"Y"A$(13)A$"N"2135:A$"N"219X614:1: YOU ARE NOT SURE WHICH SLOT IS USED FOR YOUR PRINTER, YOU SHOULD GUESS SLOT NUMBER 1.":78:86:"PLEASE SPECIFY THE PRINTER SLOT.":85"ENTER 0 IF YOU HAVE NO PRINTER OR IF YOUARE NOT READY TO SPECIFY THE PRINTER SLOT AT THIS TIME."::"HERE IS THE,0:"IS THERE A PRINTER CONNECTED? (Y,N) ";P$;(8);:A$:A$;:(A$)96A$((A$)32)x3A$"Y"A$(13)A$"N"2073:A$"Y"(P$"Y"A$(13))I20:N$"":2194F$"PRINTER SLOT":86:"THE STANDARD SLOT FOR A PRINTER IS SLOT NUMBER 1."::"IF"Y"A$(13)A$"N"201.2:A$"N"206218:1:958:20:"HOW MANY DRIVES DO YOU HAVE? (1,2) 1";(8);:A$:A$;:A$"1"A$"2"A$(13)2042:W1((A$)):W11W112F$"PRINTER HOOK-UP":86:P$"N":I20P$"Y"U310:1:958:163682W111"PLEASE SPECIFY THE NUMBER OF DISK DRIVESATTACHED TO YOUR APPLE."::"HERE IS THE CURRENT SET-UP:"::"YOU HAVE ";W1;" DRIVE(S) CONNECTED.":122:1:958:16368,0:"IS THIS CORRECT? (Y,N) Y";(8);:A$:A$;:(A$)96A$((A$)32)2A$O$(3)"":W11:I20:N$"":A%1:B%01F$"SET UP YOUR SYSTEM":86:"THERE ARE SEVERAL WAYS TO SET UP YOUR APPLE COMPUTER. THIS SECTION ALLOWS YOUTO CUSTOMIZE THIS PROGRAM TO FIT YOUR PARTICULAR APPLE."::78::F$"NUMBER OF DISK DRIVES":86:W11W1.HEADER,D1"7/X1(222):216,0:860:X113İ198:197/(4);"OPEN SYSTEM.HEADER,D1":(4);"READ SYSTEM.HEADER":O$(1):O$(2):O$(3):W1:I2/A$:A$"!"ĄA$:196/N$N$A$:194/A%:B%:A$:A$:A$:(4);"CLOSE"/7"0O$(1)"":O$(2)"": DATA FILE DISK IN DRIVE #";W1:15:6:"PRESS RETURN TO CONTINUE":17:17:"OR".D,E:19:6:"PRESS ESC TO SEE THE MENU ";:A$:A$;:A$(27)A$(13)186.A$(13)175.G$"NOTEBOOK":B$"":173.91.N$"":192 /(4);"LOAD SYSTEMNG FOR "B$:86:::1826-(4);"LOAD ";B$;",D";W1_-::X1(222):216,0:860:Y11Y11}-X113ĴY191,128,129,131-X16İ148:175Q.::8:"THAT FILE IS NOT ON THE DISK IN DRIVE ";W1:10:1:" PLEASE BE SURE YOU HAVE THE RIGHT TER NAME OF DATA FILE & PRESS 'RETURN'":4)"(PRESS ONLY 'RETURN' TO CATALOG)":18:1:10)"(PRESS ESC FOR MENU)":D,E:11:B$C$(0):O1G$"NOTEBOOK":B$"":173,175,B$""ė::(4);"CATALOG,D";W1:78:175,(B$)65(B$)90175-F$"LOOKI1(B$):BZ,((B$,Z,1)):Z&+166D+:(4);"RUN ";G$;",D1":+216,0:F$"SELECT A DATA FILE":86:222,0:F%14:G%8:I0:K%0:H%25:C$(I)"":P199:Q199:L%1:J%0:4:12:"A DATA FILE DISK":9:"SHOULD NOW BE IN DRIVE #";W1,9:1:958:"EN958:"THE PROGRAM DISK SHOULD BE IN DRIVE #1":78g*B$""G$"NOTEBOOK"F$"RETURNING TO MENU":173*F$E$((900),1):86:G$(95)Ģ11:"BE SURE TO MAKE BACKUP COPIES...":B,0:38400:*G$""ĹB1,0:B2,0:::1+B,(B$):B1,35:B2,35:ZITE ";B$;".DATA":G2:H21G2:Y1T1:(34);B$(H2,Y):Y:H2:(4);"CLOSE":216,0:A:F20:169)X1(222):216,0:860:X19İ148:162)37000)X1(222):216,0:860:X16İ148:169)B$""G$"NOTEBOOK"F$"RETURNING TO MENU"2*86:11:1:H 22:1:D,E:958:(7);(7);"PRESS 'RETURN' TO CONTINUE,"::"PRESS 'ESC' TO RETURN TO MENU ";:A$:A$(13)A$(27)268H :A$(27)ĺ:91H273H(4);"CATALOG,D";W1:216,0:"ERASE THIS DISK? (Y,N) N";(8);:A$:A$:A$"Y"A$"y"276(SC' TO RETURN TO MENU ";:A$:A$(13)A$(27)264KG :A$(27)ĺ:91G W12ė:10:" PLACE THE DISK TO BE FORMATTED IN DRIVE #2."::268G :10:6:"REPLACE THE DISK IN DRIVE #1 "::6)"WITH THE ONE TO BE FORMATTED.":148:260FF$"FORMAT A DISK":86:"THIS ROUTINE ALLOWS YOU TO CREATE A NEW"::13)"DATA FILE DISK.":::::15);::"WARNING"::::" ANYTHING ON THE DISK WILL BE ERASED":5G22:1:D,E:958:(7);(7);"PRESS 'RETURN' TO CONTINUE,"::"PRESS 'E:86:262E(4);"OPEN SYSTEM.HEADER,D1":(4);"DELETE SYSTEM.HEADER":(4);"OPEN SYSTEM.HEADER":(4);"WRITE SYSTEM.HEADER":(34);O$(1):(34);O$(2):(34);O$(3):W1:I2:N$;"!":A%:B%:"":"":"":(4);"CLOSE":216,0:91FX1(222):216,0:860:HARACTERS EACH."::"TO LEAVE A LINE BLANK, JUST PRESS THE KEY."::J%1:F%12:G%1:I0:C$(I)O$(1):K%0:H%37:P199:Q199:L%1:11:O$(1)C$(I):F%14:C$(I)O$(2):11:O$(2)C$(I)DF%16:C$(I)O$(3):11:O$(3)C$(I):253 EF$"SAVING SET-UP"0(O$(2))2);O$(2):20(O$(3))2);O$(3)C22:1:958:16368,0:"IS THIS CORRECT? (Y,N) Y";(8);:A$:A$;:(A$)96A$((A$)32)CA$"Y"A$"N"A$(13)255C:A$"N"260DF$"ENTER YOUR HEADING":86:"YOU HAVE UP TO 3 LINES OF 37 C"ENTER REPORT TITLES":86:"YOU MAY ENTER UP TO THREE LINES OF TITLES WHICH WILL BE PRINTED ON EACH REPORT."::"YOU MAY WANT TO ENTER YOUR NAME OR OTHERINFORMATION AT THIS TIME."::"HERE IS YOUR CURRENT HEADING:"::20(O$(1))2);O$(1)*C2PRESS THE SPACE BAR TO BEGIN THE TEST";:A$:A$;:B%0:A$(32)248A:X1200:20:1:"COUNT = ";X:((16285)127)B%B%1AX::B%0B%1:"YOUR SHIFT KEY HAS BEEN MODIFIED.":252AB%0:"YOUR SHIFT KEY HAS NOT BEEN MODIFIED."A78BF$.":@"THE COMPUTER CAN TEST TO SEE IF YOUR SHIFT KEY HAS BEEN MODIFIED."::"AFTER YOU PRESS THE SPACE BAR, THE COMPUTER WILL COUNT TO 200. HOLD DOWN ONE OF THE KEYS LABELED DURING PART OF THE COUNT.":DA17:1:958:16368,0:"A$(13)A$"N"2422?:A%1:B%0:A$"Y"A%0F?A%0B%0:253@F$"SHIFT KEY MODIFICATION":86:"IT IS POSSIBLE TO MODIFY THE SHIFT KEY SO THAT IT WORKS LIKE A NORMAL TYPE- WRITER. IF THIS HAS BEEN DONE, THIS PROGRAM WILL MAKE USE OF ITE LOWER CASE TEXT. IFYOU CAN READ IT, YOU HAVE LOWER CASE IN YOUR COMPUTER."::"CAN YOU READ THIS?"::"This is an example of lower case text.":>13:1:958:16368,0:"CAN YOU READ IT? (Y,N) N";(8);:A$:A$;:(A$)96A$((A$)32)?A$"Y"OF LOWER CASEIF YOUR COMPUTER HAS IT.":="THERE IS AN EASY TEST FOR LOWER CASE. IF YOU DO NOT HAVE LOWER CASE IN YOUR COMPUTER, LOWER CASE CHARACTERS WILL BE DISPLAYED AS UNREADABLE 'GARBAGE.'":78:F$"LOWER CASE TEST":86>"I WILL DISPLAY SOM4);::235<A$;:2357<(64435)6A%1:B%1:253(=F$"LOWER CASE":86:"A STANDARD APPLE COMPUTER DOES NOT HAVE LOWER CASE CHARACTERS."::"BUT YOUR COMPUTER MAY HAVE BEEN MODIFIEDTO DISPLAY LOWER CASE CHARACTERS."::"THIS PROGRAM WILL MAKE USE ? (Y,N) Y";(8);:A$:A$;:(A$)96A$((A$)32)U;A$"Y"A$(13)A$"N"231h;:A$"N"238;13:1:958:"ENTER PRINTER CONTROL CODES:"::N$"":9)"(ENTER ! WHEN DONE)":::;A$:(A$"!")ĺ:226 <N$N$A$:(A$)30Ğ:((A$)6D AS ";::(2764)::z:"HERE IS THE CURRENT SET-UP:"::16:1:958:(N$)1ĺ"":J21:231:X1(N$):((N$,X,1))30Ğ:(((N$,X,1))64);::230:(N$,X,1);:X::2;20:1:958:16368,0:"IS THIS CORRECT"Y"A$(13)A$"N"22329J20::A$"Y"238:F$"ENTER PRINTER CONTROL CHARACTERS":86:"FOR DISPLAY PURPOSES, CONTROL CHARACTERSARE DISPLAYED IN ";::"INVERSE.":::" IS A CTRL-M AND LOOKS LIKE ";::"M":::"THE KEY IS DISPLAYEL$"INSERT DATA FILE DISK IN DRIVE #"(O2):119:11:1:958:"PLEASE PLACE THE DISK WITH THE FILE -"::20(G$)2)G$::14)"IN DRIVE #";O2;(7);(7):112:|L$"COMPUTING - PLEASE BE PATIENT":119:}R1R1R1:(27);(17):~I20:J20:(90R)EMOVE RECORD";:9w::1:(40(L$))2:L$::34,1:xL$"CLOSING FILES AND EXITING":119:10:1:958:G,J:"Q TO QUIT, ANY OTHER KEY TO CONTINUE Q";(8);:A$:A$;:A$"Q"A$"q"A$(13)ıyM$(95):900,0:254zM$"NOTEBOOK.1":253{PRESS RETURN TO CONTINUE ";7q((16384)141)113BrG,J:es22:36,0:G,J:958::P1117t23:1:"(U)P (D)OWN (C)HANGE (P)RINT (N)EXT":118u23:1:"UP/DOWN ARROW (C)HANGE (P)RINT (N)EXT"v24:36,0:"(ESC) = QUIT EDIT (90:34216,0:::5:(7);(7);"THE PROGRAM DISK SHOULD BE IN DRIVE #1"::23:1:16368,0:958:"PRESS ANY KEY TO CONTINUE ";:A$::1x (4);"NOMON I,O,C"::37808::(4);"BLOAD GARBAGE/FREE SPACE,D1"::A37821:216,0:B770:C163 A FILE (IF NONE IS SELECTED) OR SELECT A DIFFERENT FILE (IF ONE IS ALREADY SELECTED.)":78:91T"D,E:24:1:958:"PRESS RETURN TO CONTINUE, ESC TO STOP ";T#((16384)141)((16384)155)291T$(16384)155ĹD,E:::91T%D,E::A:AS:"S :" -- HOW MANY DISK DRIVES? -- IS THERE A PRINTER? -- PRINTER SLOT? -- LOWER CASE ADAPTOR?":290aT!:"SELECT OR RESELECT A FILE"::" FROM THE MENU, PRESSING ESC LETS YOU SELECT TRYING TO FORMAT, YOU WILL SEE A CATALOG AND WILL BE ASKED IF YOU REALLY WANT TO ERASE THOSE FILES.":290S:"MODIFY COMPUTER SET-UP"::" THIS OPTION LETS YOU CUSTOMIZE NOTEBOOK FOR YOUR COMPUTER SYSTEM. IT ASKS YOU FOR SUCH INFORMATION DISK FOR NOTEBOOK FILES."Q:" ";::"WARNING":::" WHEN YOU FORMAT A DISK, YOU ERASE ANY PROGRAM MATERIAL THAT IS ON THAT DISK. BE CAREFUL. FOLLOW THE INSTRUCTIONS CLOSELY."mR:" IF THERE ARE FILES ON THE DISK YOU ARE"REMOVE A FILE (OR DATA)"::" YOU MAY REMOVE AN ENTIRE FILE OR YOU MAY REMOVE ONLY THE RECORDS FROM A FILE (PRESERVING THE FILE STRUCTURE).":290Q:"FORMAT A NEW DISK"::" YOU MUST FORMAT A NEW DISK BEFORE YOU CAN USE IT AS A DATA FILE EDIT:"O:" U - MOVES THE CURSOR UP D - MOVES THE CURSOR DOWN C - LETS YOU CHANGE THE LINE"::" IF YOU HAVE AN APPLE IIE YOU MAY USE THE UP & DOWN ARROW KEYS."::" ESC - QUITS EDIT MODE":290P:ACE FOR UNCATEGORIZED TEXT.":290O:"CREATE A NEW FILE"::" WHEN YOU ARE FINISHED CREATING THE FILE, PRESS ESC. YOU MAY THEN EDIT THE ITEMS, START OVER, OR SAVE THE FILE. NOTE: THE FILE MAY NOT BE CHANGED ONCE IT HAS BEEN SAVED."::" TOTERS YOU USE, THE FEWER THE NUMBER OF RECORDS YOUR FILE WILL HOLD."!N:" THE PROGRAM SHOWS YOU HOW MANY RECORDS YOU CAN HAVE AFTER EACH FIELD IS CREATED."::" PRESS RETURN TO LEAVE BLANK THE TITLE FOR ANY FIELD. THIS PROVIDES SP BEFORE CREATING A FILE, BE SURE TO HAVE A DATA FILE DISK WITH PLENTY OF SPACE LEFT. YOU MAY NEED TO FORMAT A NEW DISK (SEE INSTRUCTIONS BELOW)."DM:" EACH FILE MAY HAVE 20 FIELDS OF ";F1;" CHARACTERS. THE MORE FIELDS AND THE MORE CHARAC);"RUN NOTEBOOK,D1";(34):"RUN":"50 PRINT CHR$(4);";(34);"CLOSE";(34):(4);"EXEC TEMP":K::10:1:D,E:"THE PROGRAM DISK SHOULD BE IN DRIVE #1."::8)"PRESS RETURN WHEN READY ";:A$:A$(13)276K:91L::"CREATE A NEW FILE"::" OKE 216,0:CALL 860: HOME: VTAB 10 : PRINT CHR$(7); CHR$(7)":"20 PRINT";(34);"THE PROGRAM DISK SHOULD BE IN DRIVE #1.";(34):"30 PRINT : INPUT ";(34);" PRESS RETURN WHEN READY ";(34);";C$":"35 ONERR GOTO 10 "]K"50 PRINT:PRINT CHR$(4);";(34I:10::"DO NOT TOUCH UNTIL DONE!":I216,0:860:(4);"INIT NOTEBOOK DATA DISK ,D";W1:(4);"OPEN TEMP":(4);"WRITE TEMP":"DELETE NOT"BOOK DATA DISK ":"NEW":"SAVE NOTEBOOK DATA DISK ":"5 PRINT CHR$(4);";(34);"DELETE TEMP";(34)J"10 P:W2::(F$,V2):(4);"PR#0"[)U$"ALL"L$"PRESS THE ESC KEY TO STOP THE SEARCH":119k)U$"L"İ66{)U$"R"İ75)U$"I"İ85)U$"ALL"İ240:174)F2Ģ14:1:958:(7);(7);H$;" NOT FOUND...":112)174o*22:36,0:958::24::(A$)96A$((A$)32)F(A$"Y"A$"N"A$(13)A$(27)192V(A$(27)ıf(A$"N"174(Z11:B0:F20:U$"R"(H$)(D$(G2,2))(G2D2)H$(H$,(D$(G2,2)))(H11:J2İ107)I2İ99:(F$,V2):W21X2:C$(W2);A%(W2,1)(C$(W2)));";D$(G2,1):A$"FROM THE LEFT SIDE":U$"R"A$"FROM THE RIGHT SIDE"_'U$"I"A$"INTERNALLY"t'U$"ALL"A$" "'A::3);A$::H$""ĺ"DISPLAY ALL RECORDS";:192'6);"LOOKING FOR: ";H$;(20:1:958:G,J:"--> CORRECT? (Y,N) Y";(8);:A$ISPLAY ALL RECORDS";:2:24:G2;:1872&H$B$(I)\&V8:H14:V:H:U$:U$;:U$(27)ĺ:y&(U$)96U$((U$)32)&U$"L"U$"I"U$"R"U$(13)182&:U$(13)U$"L"&V:H:U$;C'10:1:958:12:1:"VERIFY CHOICE:"::"SEARCH ":15:G2(B$(I)):X1ı&%G21G21a%V:H:G2;:G2D2āX1D2:(D$(X,2))Y1Y1(D$(X,2))o%G2D2ĂX%G2D21Y1(D$(G2,2))%V4:H13:L10:V199:C299:A11:I0:B$(I)"":Z11:I0:15:X1ı%&B$(I)""H$"":G2D21:U$"ALL":V:H:"DI)":8:22:"INTERNALLY":9:1:(F$,39):10:1:"FIELDS:":D$(D21,1)"ALL FIELDS"o$X1D21:H9:X10H25}$X10H8$VX10:X10VX$V:H:X;"= ";D$(X,1):X:A:%167:G,J:V2:H24:L10:Y12:Z10:A148:A257:V10:C2D21:I0:B$(I)"1(PRESS ESC KEY TO SEE MENU)";:1::2:1:"SEARCH ON WHICH FIELD? (";::"1";::"-";D21;")":4:1:"SEARCH FOR:":5:6:"(RETURN = DISPLAY ALL RECORDS)":6:1:"SEARCH FOR MATCH ON: LEFT SIDE":7:22:"RIGHT SIDE"R$8:1:" (";::"L";::",R,165M"(4);"OPEN ";G$;".DATA, D";O2:(4);"READ ";G$;".DATA":H2:H21164v"E21H2:Y1D2:G$(E2,Y):Y:A:E2"(4);"CLOSE":216,0:A:11"U2(222):216,0:860:U25İ340:10"H20:11"::Q1S1ĺ:(4);"PR#3":R17:#24:1:"2:A:X1ı!151"!S10:158A!:(4);"LOAD ";G$;",D";O2m!U2(222):216,0:860:U213İ123:156!(4);"OPEN ";G$;",D";O2:(4);"READ ";G$:D2:R2:X1D2:Y12:D$(X,Y):Y:(D$(X,2))27S17!X:(4);"CLOSE":G$(R2,D2):A:10"ORDS IN ORDER,11,S,SORT YOUR FILE,13,C,CREATE A NEW FILE,14,R,REMOVE A FILE (OR DATA),15,F,FORMAT A NEW DISK,16,M,MODIFY COMPUTER SET-UP 115 T2D2:I1 IT23ı IT2I1 L10:V199:C299:A11:VI:H11:I1L11 !Y1(D$(I,2)):4353,120125PB%(P2):(7(E$(P2,0))):868:E$(P2,0);" - ";E$(P2,1):B%(P2):(7(E$(P2,0))):868::E$(P2,0);" - ";E$(P2,1):: 9,6,E,ENTER A NEW RECORD,7,V,VIEW/FIX/PRINT/REMOVE RECORDS,8,P,PRINT SOME/ALL RECORDS,10,D,DISPLAY REC2):7:(7);:146:134134hP2M1:147:24:1:958:"PLEASE CONFIRM YOUR SELECTION ";::"Y";:S2(16384):S2130142S2141S2217S2249ĢB%(P2):7:(7);:146:P20:133P2207,174,217,240,239,122,122,122,122,274,274,274,252,24:36,0:958:16368,0:"YOU MAY SELECT BY PRESSING A LETTER ";`S2(16384):S2154134S2S2128:16368,0:T$(S2):S296T$(S232)T$(27)M113:141T$"?"T$"/"M114:141M1115:T$E$(M1,0)141:M10:P20ĢB%(PE$(14,1)"HELP #2":B%(15)22:E$(15,0)"Q":E$(15,1)"QUIT":::1:1:((40(N$))2));N$:2:1:((40(O$))2));O$:M1140:"=";:::4:1:"FILE - ";P$P21M0:146::P21315:146::P20:18:1::R$;40(R$)):::23:1:M1140:"=";:C6B%(M1)16ĉ::"VTAB RANGE ERROR":cE$(M1,0)(E$(M1,0),1):E$(M1,0)"A"ĺ"CHAR LABEL < A":(E$(M1,1))32E$(M1,1))(E$(M1,1),32):(E$(M1,1))1ijM1:B%(13)20:E$(13,0)"ESC":E$(13,1)"SELECT OR RE-SELECT A FILE":B%(14)21:E$(14,0)"?":0)0P2(900):900,0:144Q21:N$"NOTEBOOK":O$"(C) 1983 BY BILL CROUCH":P$G$:R$(H2)" RECORDS, ROOM FOR "(R2H2)" MORE":S$(" ",(20(R$)2)):R$S$R$::M0:M010M010&M11M0:B%(M1),E$(M1,0),E$(M1,1):B%(M1)"N"A$(13)279/9A$"N"Ģ8:1:868:277c98:1:868:B3B3C3:X2X21:V2B3:V279V2799C$(X2)(D$(D3,1),C31):A%(X2,0)D3:A%(X2,1)C3:2779X38:X:1:868:X:4:1:"P=PRINT IT, R=RE-DO SELECTION, ESC=QUIT";;:6:1:868:G,J:"ORT WIDTH = ";B3:6:1:868:G,J:"PRINT WHICH FIELD NEXT? (1-";D21;")";:15:D3(B$(0)):X1(D21D3)1(X224)2848C3(D$(D3,2))188:1:868:"NEW REPORT WIDTH = ";C3B3;" OK? (Y,N) Y";(8);:A$:(A$)96A$((A$)32)9A$;:A$"Y"A$ѭA$"A"I227B30:V6:H33:L11:Y12:V11:C2D21:A148:A257:I0:Z10:B$(I)"":X20:C30:L$"SELECT FIELDS FOR PRINTING":119:D$(D21,1)"DONE":9:1:(F$,39):170:V6:H33:24:1:"ESC OR SELECT ";D21;" WHEN DONE SELECTING";v84:1:"CURRENT REPNING TO MENU":272k6 L$E$((900),1):119:M$(95)Ģ11:"BE SURE TO MAKE BACKUP COPIES...":E,0:38400:6M$""ĹE1,0:E2,0:::16E,(G$):E1,35:E2,35:Z1(G$):EZ,((G$,Z,1)):Z62656:(4);"RUN ";M$;",D1":6 7I21:CLOSE":216,0:A:D0:268=5U2(222):216,0:860:340:262h5 U2(222):216,0:860:U26İ340:2685 G$""M$"NOTEBOOK"L$"RETURNING TO MENU"5 119:11:1:958:"THE PROGRAM DISK SHOULD BE IN DRIVE #1":1126 G$""M$"NOTEBOOK"L$"RETUR".BACK, D";O2:(4);"DELETE ";G$;".BACK":(4);"OPEN ";G$;".DATA":(4);"CLOSE":324^42564:(4);"RENAME ";G$;".DATA,";G$;".BACK"42645(4);"OPEN ";G$;".DATA":(4);"WRITE ";G$;".DATA":H2:E21H2:Y1D2:(34);G$(E2,Y):Y:E2:(4);"(16384)141)((16384)155)249C3(16384)155ĹG,J::::U3G,J:::A:k3M$"":900,0:254w3900,P23D26832583U2(222):216,0:860:U26İ340:25831233256T4L$"CHECKING DISK SPACE":119::(4);"OPEN ";G$;03:119:297:244$2245:Y2İ248.2E2:Q2Y20:::(G$(E2,1))1Y21:21:6:"DISPLAYING RECORD #";E2:X1D2:VX1:D220VX22V:1:D$(X,1);:11:G$(E2,X):X:2G,J:24:1:958:"PRESS RETURN TO CONTINUE, ESC TO STOP ";#3(211A:I:k123:1:G,J:958:"PRESS Y TO REMOVE THIS RECORD ";:A$:A$;:A$"Y"A$"y"İ115:1X1D2:G$(E2,X)"":X:D1::::1M$"NOTEBOOK.3":2531::Q1S1ĺ:(4);"PR#3":R17:1E21H2:I2İ295:119:297:2442J2İ1 EXTRA BLANK LINES? (0-9) 0";(8);:Q$:Q$;:(Q$"0"Q$"9")(Q$(13))230m0:M2(Q$):A$"A"İ213:2170J21:174:2170Z11:V199:C299:A11:H11:D1:I1D2:L10:I1L110VI:Y1(D$(I,2)):B$(I)"":15:X1G$(E2,I)B$(I)1X1ID32)&/V$"Y"V$"N"V$(13)223;/A$(13)A$"A"Q/V$"Y"İ275:217/L20:19:1:G,J:"PRINT FIELD TITLES? (Y,N) Y";(8);:Q$:Q$;:(A$)96A$((A$)32)/Q$"Y"Q$"N"Q$(13)227/:Q$"N"L21L0M20:21:1:G,J:"PRINTTHE PRINTER)";\.15:1:G,J:"WHICH? (A,S,ESC) A";(8);:A$:A$;:(A$)96A$((A$)32).A$"A"A$"S"A$(27)A$(13)220.A$(27)ı/:A:17:1:G,J:958:"PRINT ONLY SELECTED FIELDS? (Y,N) N";(8);:V$:V$;:(A$)96A$((A$):112:-L$"PRINT SOME OR ALL RECORDS":119:J20:I20:X20::"ENTER YOUR CHOICE & PRESS RETURN:"::" A = PRINT ALL RECORDS"::" S = PRINT SELECTED RECORDS"::" ESC = RETURN TO MAKE ANOTHER SELECTION":.23:1:868:3:"(BE SURE TO TURN ON ING":E21H2:119:G$(E2,1)""216B,103:((16384)155)216,G,J:::119:15:1:"PRESS ESC TO QUIT PRINTING - "::"PRESS ANY OTHER KEY TO CONTINUE ";:A$::A$(27)ı,E2:-K21ĉ::10:(7);(7);"SYSTEM SET-UP SHOWS NO PRINTER..."206:149:207+24:1:958:3:"(BE SURE TO TURN ON THE PRINTER)";:23:1:G,J:868:"PRESS RETURN TO PRINT OR ESC TO STOP ";:A$:A$(27)A$(13)210+:A$(27)İ115:+107:A:103:97:115:#,107:L$"PRESS THE ESC KEY TO STOP PRINT36,0:G,J:958:"ARROW KEYS REMOVE/RESTORE CHARACTERS";:22:36,0::23:36,0:" (ESC) KEY ENDS INPUT";:*94:H2R2H2R2:L$"FILE FULL!":119:10:(7);(7);"THE FILE IS FULL - PLEASE CREATE ANOTHER":112:*Q1S1R17+97:206:A:233:32:F31I_L$"NOT ENOUGH ROOM!":119:(7);(7)::"THE DISK IN DRIVE NUMBER ";O2:"LACKS ENOUGH ROOM TO SAVE YOUR DATA."::"YOU NEED AT LEAST ";G3;" FREE SECTORS."::"INSERT AN INITIALIZED DISK IN DRIVE #";O2:"AND YOUR DATA WILL BE SAVED THERE."0J` TAB":112:A$(13)307A?M$"NOTEBOOK":G$"":272EB@W$L$:L$"READY TO ACCEPT TODAY'S DATE":119::6)"(EXAMPLE: DECEMBER 19, 1982)":$@8L$"LOOKING FOR "G$:119:314A@9(4);"LOAD ";G$;",D";O2d@:U2(222):216,0:860:U2139y@;U26İ340:307)A<::5:6:"THAT FILE IS NOT ON DRIVE #";O2:10:1:" PLEASE BE SURE YOU HAVE THE RIGHT":"DATA FILE DISK IN DRIVE #";O2:15:6:58:"ENTER NAME OF THE FILE & PRESS 'RETURN'"::8)"(PRESS RETURN TO CATALOG)"?418:1:8)"(PRESS ESC TO SEE MENU)":G,J:15:G$B$(0):X1M$"NOTEBOOK":G$"":272?5307?6G$""ĉ:::(4);"CATALOG,D";O2:112:307@7::(G$)65(G$)90307$:A$"!"ĄA$:306$>1I$I$A$:304P>2N1:O1:A$:A$:A$:(4);"CLOSE":A:7O?3216,0:L$"SELECT A DATA FILE":119:222,0:V14:H8:I0:L10:Y125:B$(I)"":V199:C299:A11:Z10:4:12:"A DATA FILE DISK":9:"SHOULD NOW BE IN DRIVE #";O2:9:1:9E ";:A$::A$(27)ı=+:)=,302M=-:(4);"LOAD SYSTEM.HEADER,D1"=.U2(222):216,0:860:U213ĺ(7);(7);"SYSTEM NOT CONFIGURED!":900,9:122=/(4);"OPEN SYSTEM.HEADER,D1":(4);"READ SYSTEM.HEADER":K$(1):K$(2):K$(3):O2:K2>0AA$(27)ı<&E2:5<'Y20::(G$(E2,1))1Y21:<(99:E31X2:G$(E2,A%(E3,0));A%(E3,1)(G$(E2,A%(E3,0))));:E3::(4);"PR#0":<)((16384)155)ı=*G,J:::119:15:1:"PRESS ESC TO QUIT PRINTING - "::"PRESS ANY OTHER KEY TO CONTINUA%(W2,1)(C$(W2)));:W2::(F$,V2):(4);"PR#0":L$"PRESS THE ESC KEY TO STOP PRINTING":E21H2:119:G$(E2,1)""294;$295:((16384)155)294 <%G,J:::119:15:1:"PRESS ESC TO QUIT PRINTING - "::"PRESS ANY OTHER KEY TO CONTINUE ";:A$::WHICH? (P,R,ESC) P";(8);:A$:A$;:(A$)96A$((A$)32)h:A$"P"A$"R"A$(27)A$(13)285x:A$"R"276: A$(27)ı:!X21ĉ::10:(7);(7);"NO ITEMS SELECTED":112::"I22J21:174:x;#107:99:(F$,V2):W21X2:C$(W2);CREATE A NEW FILE,14,R,REMOVE A FILE (OR DATA),15,F,FORMAT A NEW DISK,16,M,MODIFY COMPUTER SET-UPpm166:111n:(4);"LOAD ";B$;",D";I2oN2(222):216,0:860:N213İ80:109p(4);"OPEN ";B$;",D";I2:(4);"READ ";B$:U1:K2:X1U1:Y12:2,0))):868:D$(J2,0);" - ";D$(J2,1):mkM%(J2):(7(D$(J2,0))):868::D$(J2,0);" - ";D$(J2,1)::al9,6,E,ENTER A NEW RECORD,7,V,VIEW/FIX/PRINT/REMOVE RECORDS,8,P,PRINT SOME/ALL RECORDS,10,D,DISPLAY RECORDS IN ORDER,11,S,SORT YOUR FILE,13,C,IeJ2M1:107:24:1:958:"PLEASE CONFIRM YOUR SELECTION ";::"Y";:ffM2(16384):M2130102gM2141M2217M2249ĢM%(J2):7:(7);:106:J20:93hJ2165,165,165,81,128,77,77,77,77,187,187,187,188,230,75i85)jM%(J2):(7(D$(J"YOU MAY SELECT BY PRESSING A LETTER ";C^M2(16384):M215494w_M2M2128:16368,0:M$(M2):M296M$(M232)`M$(27)M113:101aM$"?"M$"/"M114:101bM1115:M$D$(M1,0)101c:M10:J20ĢM%(J2):7:(7);:106:94d94(15)22:D$(15,0)"Q":D$(15,1)"QUIT":::1:1:((40(H$))2));H$:2:1:((40(I$))2));I$:M1140:"=";::4:1:"FILE - ";J$\J21M0:106::J21315:106::J20:18:1::K$;40(K$))::23:1:M1140:"=";:']24:1:958:16368,0:AB RANGE ERROR":NYD$(M1,0)(D$(M1,0),1):D$(M1,0)"A"ĺ"CHAR LABEL < A":Z(D$(M1,1))32D$(M1,1))(D$(M1,1),32):(D$(M1,1))1ij[M1:M%(13)20:D$(13,0)"ESC":D$(13,1)"SELECT OR RE-SELECT A FILE":M%(14)21:D$(14,0)"?":D$(14,1)"HELP #3":M%THE FIELDS YOU WANT."xSn::" BE SURE TO TURN ON YOUR PRINTER BEFORE ASKING FOR RECORDS TO BE PRINTED.":112: NTINUE ";:A$:2x :(4);"NOMON I,O,C"::37808::(4);"BLOAD GARBAGE/FREE SPACE,D1":A37821:B0:D0:216,0:E770:F16384:GANT TO PRINT ONLY SOME OF YOUR RECORDS, YOU WILL BE ASKED TO SEARCH FORTHE ONES YOU WANT."Sm:" YOU CAN ALSO PRINT SELECTED FIELDS FROM YOUR FILE, OR YOU CAN PRINT ALL FIELDS. IF YOU WANT TO PRINT SELECTED FIELDS, YOU WILL BE ASKED TO CHOOSE BEFORE ASKING TO PRINT A RECORD.":248Qk:"PRINT SOME/ALL RECORDS"::" IF YOU HAVE A PRINTER, YOU CAN PRINT INFORMATION FROM YOUR FILE IN TWO WAYS.":" YOU CAN PRINT SOME RECORDS, OR YOU CAN PRINT ALL RECORDS IN YOUR FILE."[Rl"IF YOU WIT -- PRINT IT -- REMOVE IT FROM THE FILE"'Qj:" A SEARCH MAY FIND MORE THAN ONE RECORD. PRESS 'N' TO SEE THE NEXT RECORD IF THERE IS ONE."::" BE SURE TO TURN ON YOUR PRINTER IT EDITING AT ANY POINT.":248Oh:"VIEW/FIX/PRINT/REMOVE RECORDS"::" THIS OPTION ALLOWS YOU TO SEARCH FOR A RECORD OR RECORDS. ONCE YOU HAVE FOUND A RECORD YOU WANT, YOU CAN:"cPi:" -- REVIEW IT -- EDIT ME OR ALL OF THE OLD INFORMATION). TYPE A SPACE IF YOU WANT TO BLANK THE LINE."Og" IF YOU DON'T WANT TO MAKE A CHANGE PRESS THE ESC KEY."::" PRESS THE RETURN KEY TO ENTER THE NEW INFORMATION.":" PRESS THE ESC KEY TO QUS 'D' (FOR DOWN) OR 'U' (FOR UP) TO MOVE THE CURSOR TO THE LINE YOU WANT TO CHANGE. PRESS 'C' (FOR CHANGE) TO EDIT THE LINE THE CURSOR IS ON."aNf:" TYPE THE NEW INFORMATION (OR USE THE RIGHT ARROW KEY TO RESTORE SOOINT BY PRESSING THE ESC KEY. THENYOU CAN CHOOSE:"Ld:" N - GO ON TO NEXT RECORD R - REMOVE THE DISPLAYED RECORD P - PRINT THE DISPLAYED RECORD ESC - GO BACK TO THE MENU":248Me"EDITING INSTRUCTIONS"::" PRESTORE CHARACTERS."Kb:" IF YOU WANT TO CHANGE A LINE AFTER PRESSING THE RETURN KEY, PRESS THE ESC KEY TO USE THE EDITING FEATURES. IF YOU WANT TO LEAVE A LINE BLANK, PRESS THE RETURN KEY."3Lc:" YOU MAY INDICATE YOU ARE DONE AT ANY P:"YOUR OLD FILE WAS RENAMED:"::5)X$:332:Ka::"ENTER A NEW RECORD"::" TO ENTER A RECORD YOU FILL IN THE BLANKS IN THE FIELDS PREVIOUSLY CREATED.TYPE EACH LINE AND THEN PRESS THE RETURNKEY. THE LEFT AND RIGHT ARROWS LET YOU ERASE AND RESREMOVE THE WRITE-PROTECT TAB":67:R,N277ĺ"COMPUTER IS OUT OF MEMORY!":67:,"DISK ERROR #";N2::"CHECK YOUR DOS & APPLESOFT MANUALS":67:,,G$"":900,0:190,900,J2,Y1203,194-N2(222):216,0:860:N26İ179:194F$"DISK ERROR CONDITION":74:(7);(7):N28ĺ"I/O ERROR - CHECK THE SYSTEM!":67:+N26ĺ"FILE NOT FOUND ON DRIVE #";I2:67:+N213ĺ"WRONG TYPE OF FILE!":67:+N211ĺ"SYNTAX ERROR!":67:#,N28ĺ"DISK IS WRITE PROTECTED!":"PLEASE E DISK IN DRIVE #";I2:15:6:"PRESS RETURN TO CONTINUE":17:17:"OR"*N,O:19:6:"PRESS ESC TO SEE THE MENU ";:C$:C$;:C$(27)C$(13)176*C$(13)167*G$"NOTEBOOK":B$"":207*N29S22:T20:F$"CHECKING DISK SPACE":74:210V+2:67:1671)::F$"LOOKING FOR "B$:74:173N)(4);"LOAD ";B$;",D";I2s)N2(222):216,0:860:N213112)N26İ179:167F*::8:"THAT NAME IS NOT ON THE DISK IN DRIVE ";I2:10:1:" PLEASE BE SURE YOU HAVE THE RIGHT DATA FIL":9:"SHOULD NOW BE IN DRIVE #";I2(9:1:958:"ENTER NAME OF DATA FILE & PRESS 'RETURN'":4)"(PRESS ONLY 'RETURN' TO CATALOG)":18:10)"(PRESS ESC FOR MENU)":N,O:2:B$A$(0):GG$"NOTEBOOK":B$"":207(167 )B$""ė::(4);"CATALOG,D";I:164'R$R$C$:1621'(4);"CLOSE":L1:54J'G$"NOTEBOOK.2":189w'F$"COMPUTING - PLEASE BE PATIENT":74:#(216,0:860:F$"SELECT A DATA FILE":74:222,0:C%14:D%8:B0:J%0:E%25:A$(B)"":J199:K199:K%1:H%0:4:12:"A DATA FILE DISK&C$"N"İ81&128)&R$"":160M&:(4);"LOAD SYSTEM.HEADER,D1"&N2(222):216,0:860:N213ĺ(7);(7);"SYSTEM NOT CONFIGURED!":900,9:77&(4);"OPEN SYSTEM.HEADER":(4);"READ SYSTEM.HEADER":C$:C$:C$:I2:R2'C$:C$"!"ĄC$%:5:"SORTING FINISHED.";(7);(7):"YOU MAY DISPLAY YOUR FILE IN ORDER."::"THIS ALLOWS YOU TO CHECK THE RESULTS OF YOUR SORT."%11:1:N,O:"DISPLAY THEM NOW? (Y,N) Y";(8);:C$:C$;:(C$)96C$((C$)32)%C$"Y"C$"N"C$(13)154N) Y";(8);:Q$::(Q$)96Q$((Q$)32)W$Q$"Y"Q$"N"Q$(13)Q$(27)147g$Q$(27)ıw$Q$"N"128$F$"SORTING ON "E$(S,1):74:Y11:10:1:"SORTING *";:B0T11:A(B)B1::A(T1)0:R11:T12İ47:128%F1:S10:BA(0):H29,38P$"N"P$(13)P$(27)1410#P$(27)ıE#P$(13)P$"A"#12:1:958:C$"SORT BY ALPHABET:":H1:P$"N"C$"SORT BY NUMBER:":H2#"SORT TYPE: ";C$:24:1:" (PRESS THE ESC KEY TO QUIT SORT)";*$17:1:N,Q2:"IS THIS CORRECT? (Y,N"C$(13)C$(27)136*"C$(27)ı:"C$"N"128"12:1:868:"TYPE OF SORT?"::" A = SORT BY ALPHABET"::" N = SORT BY NUMBER":"20:1:N,Q2:"WHICH? (";::"A";::",N) A";(8);:C$:P$C$:P$;:(P$)96P$((P$)32) #P$"A"1291!N$N$O$:S((N$)):S1SU1N$"":129!X::7:1:958:24:1:" (PRESS THE ESC KEY TO QUIT SORT)";:10:1:"SORT ON ";E$(S,1)!12:1:N,Q2:"IS THIS CORRECT? (Y,N) ";:"Y";:(8);:C$:C$;:(C$)96C$((C$)32)"C$"Y"C$"ESC KEY TO QUIT SORT)";f C%4:D%31:X1((U1))1:N,O:C%:D%X:868:C$:O$C$:O$;:O$(27)ı O$(8)O$(21)N$"":129 O$(13)(N$)1O$"1":C%:D%X:"1";:X((U1))2:134 O$(13)X((U1))2:134!O$"0"O$"9"N$"":"SORTING ";B$:4:1:"SORT ON WHICH FIELD? (";::"1";::"-";U1")":6:1:P2139:(95);:P2:7:1:"FIELDS:":X1U1:D%9:X10D%25}X10D%8~C%X10:X10C%XC%:D%:X;" = ";E$(X,1):X:L1: 124:N$"":24:1:" (PRESS THE 6,0:860:N25İ179:57%wT10:58/x122y(4);"OPEN ";B$;".DATA":(4);"WRITE ";B$;".DATA":T1:G21T1:Y1U1:(34);B$(G2,Y):Y:G2:(4);"CLOSE":L1:O2950,1030,2940,6010zN2(222):216,0:860:N29İ179:120{3220|::2:1:E$(X,Y):Y:(E$(X,2))27C27<qX:(4);"CLOSE":L1:57Fr118s(4);"OPEN ";B$;".DATA, D";I2:(4);"READ ";B$;".DATA":T1:T11117tB$(T1,U1),B(T1),A(T1):G21T1:Y1U1:B$(G2,Y):Y:G2u(4);"CLOSE":216,0:L1:58vN2(222):21z"#&4S$"OLD"B$:(S$)25S$(S$,25)x4(4);"RENAME ";B$;",";S$:(4);"RENAME ";B$;".DATA,";S$;".DATA":S2S22:T21i5F$"NOT ENOUGH ROOM!":74:(7);(7):"THE DISK IN DRIVE NUMBER ";I2:"LACKS ENOUGH ROOM TO SAVE YOUR DATA."::"YOU NEED AT LEAST J3F$"THROW IT ALL AWAY?":74:10:1:"DO YOU REALLY WANT TO THROW AWAY"3N,O:11:1:958:"ALL OF YOUR CHANGES? (Y,N) N";(8);:C$:C$:(C$)96C$((C$)32)3C$"Y"C$"N"C$(13)2213C$"Y"ı3:G$"NOTEBOOK":2074:T2228Y PRESS ESC TO ABANDON THIS SAVE":"AND RETURN TO THE STARTING MENU."::"BUT, IF YOU DO, ALL OF YOUR ADDITIONS":"AND CHANGES WILL BE LOST!":N,O:23:1:958:"OR PRESS RETURN TO CONTINUE SAVING...";2C(16384):(C141C155)2182N,O:C141ı0:37816:V2(37819)(37820)256:::S2V2İ225:F$"CHECKING DISK SPACE":74:212z1F$"SAVING YOUR DATA":74:T21961:(4);"OPEN ";B$:(4);"WRITE ";B$:U1:K2:X1U1:Y12:(34);E$(X,Y):Y:X:(4);"CLOSE":1921197217:1:"YOU MA200#0:(4);"RUN ";G$;",D1":P0F$"CHECKING DISK SPACE":74:T20:S20:0L16,255:L1:L16,04:U2((115)(116)256)((111)(112)256):S2U2(T1U1):S2((S2256).5)2:2120N2(222):216,0:860:179:740211S1V20:45047:216,BE IN DRIVE #1":67H/B$""G$"NOTEBOOK"F$"RETURNING TO MENU":207/F$D$((900),1):74:G$(95)Ģ11:"BE SURE TO MAKE BACKUP COPIES...":E,0:38400:/G$""ĹE1,0:E2,0::1/E,(B$):E1,35:E2,35:D1(B$):ED,((B$,D,1)):D01:G21T1:Y1U1:(34);B$(G2,Y):Y:G2:(4);"CLOSE":216,0:860:L1:Y10:203u.N2(222):216,0:860:179:197.N2(222):216,0:860:N26İ179:203.B$""G$"NOTEBOOK"F$"RETURNING TO MENU"/74:11:1:958:"THE PROGRAM DISK SHOULD -80-192-F$"CHECKING DISK SPACE":74::(4);"OPEN ";B$;".BACK, D";I2:(4);"DELETE ";B$;".BACK":(4);"OPEN ";B$;".DATA":209-:(4);"RENAME ";B$;".DATA,";B$;".BACK"-199Q.:(4);"OPEN ";B$;".DATA":(4);"WRITE ";B$;".DATA":T ӮˠӮӯˮ  ӯˠӯˮӮ Ӯ Ӡ"Ӡ"Ԡ  ȠӮԠŠ ԠŮ Š" ŮǠӠ ǠӮ "Ӡ Ӯ͠Ӡ ͠Ӯ ̠Ӡ ̠ӮȠӠ ˠ ˮOˮMˮ1ůŠŠ ͮҠ!ӠԭԠŠҠǠϠZĠՠˠĠӠ׊ȲĠŠύРˠƠǠ΍٠ˮɠĠȠӠӍӠɠĠҬӠɠĠϠҬȠҍĠԠ̠͍ŬԠӠɠĬîԠĠŠŠŠ͍ĠύŠϠĠԠŠŮŠŠɠĠˠ΍٠͠ŠŠɠŠŠƠӍӠ̮ӠӠӠӠȠӠǠԍӠϠ͍٬ɠϠčŠӬŠԠĠčΠŠ٠ΠήɠĠӠŠƠōϠŠȠٍӮ٠ĠӍŠϠŠӠčӠ٠ĮɠĠȠŠŠٍŠ٠٠ԠŠōƠ̠ϠŠĠčӮȠǍŠӠ̠ĠōԬŠƍ˧Ӡ̠ӍӠԠӠӠϠԍŠϠŠĮҠŠƠŠύŠӠέčŠΠȠԠƠōĠ΍ŠӠĠԍԠȠҡōԠĠӍĠΠӠˮՍΠŠŠŠٍǠϠŠՠčǠנŮՠΠϠĠΠŠӠɧŠĠԍϠҠύĠԠϠĠōԠíΠŮō̠ԠӠčϠΠŠŠƍӠΠŠӮŠϠŠčŠƠӠŬӠŠčϠ٠ŠԍӠƠˠōŬŬōԬϠŬЍŬŠƠРŬŠ٬ōЬԠĠčԮԠٍӠĬĬĬĠčĠήٍĠŠ̠ԠԠԠŠč٠Ӡ̠΍ǠӠōӠӠƍˮӠӠŠĺōō֮ԍϠōРōŠԮӮٍ֮֮ЍԠîԍŠӠΠӠŠŠҠҠЬĠɠנȠҍӠԠӠҍРĠŮՠΠנؠӍ٠ǠϠŠՍĠǠȠӮΠŠŠč٠٠ΠŠҍӠĠԠŮԠč̠ōӍԍȠԮ΍ҍĠĠŠΠΡ΍ҍčōٍǍϠӠӠҍōԍנ̮ҍō­٠ҵӍōōĠԮ΍­٠čԠ­٠Πōčōō׍͍ԍŠӠ   E DISK IN PLACE OF THE FORMER FILE."7:" AFTER A SORT, YOU MAY CHOOSE TO VIEW THE RECORDS IN THE ORDER THEY HAVE BEEN SORTED."::" THE COMPLETE INSTRUCTIONS IN THE HELPFUL HINTS FILE EXPLAIN HOW TO DO A HIERARCHICAL SORT.":67:ER IN WHICH THEY HAVE BEEN SORTED. YOU CAN 'THUMB THROUGH' THE RECORDS UNTIL YOU WISH TO STOP.":70&7:"SORT A FILE"::" YOU CAN SORT A FILE ON ANY FIELD AND RESORT IT AT ANY TIME. EACH TIME YOU SORT A FILE, IT IS SAVED ON YOUR DATA FIL";S2;" FREE SECTORS."::"INSERT AN INITIALIZED DISK IN DRIVE #";I2:"AND YOUR DATA WILL BE SAVED THERE."5:"YOUR OLD FILE WAS RENAMED:"::5)S$:217:f6::"DISPLAY RECORDS IN ORDER"::" THIS OPTION DISPLAYS THE RECORDS INA FILE IN THE ORDE ҠՠԮҍŬȠŠÍŬՠĠԠԍ٠ĠŬΠٍԠŬĠ٠٠àŮōĠō̠ÍĠōĠōĠōǠӠՠΠŠҍӠΠӠ٠ٍǠ͠ŠӠ΍ŠҠ͠ōĠ̠ԮԧӠٮԧӠ٠ՍԠϠԠҠÍŠϠԠԠӠōӺРÍŠÍĠōĠōĠōҠÍĠŮȍŠ͠ΠŠˬŠ̠٠ŠŠҠŠŠŠҠύҠӮԠՠ̍ԠŠϠРӠ΍ҠˠŠΠǍŠӮǠӍՠ٠ԠϠ٠ύӧҠҠȬĠԠΠ̍ȠҠԠĮŠˠōƠՠŠ٠ŠˍŬՠ٠ĠԍԠϠ٠Š̍ˠ͠ΠȍˠΠȠŠӠ٠ՠƍŠӠҬՠ΍ŠԠ٠ǠήǠӠΠՠŠŠԍӠŠҠƍĠӠӠӍŠөĠՠԠύĠŠĠĠ΍ŠԬ٠̍ħΠҠħ΍ȠҧĠˠҍΠ̠Ȭȍ̠ĠħϠҍŠԠӠΠٍ٠ŮΠ̍Ƞ٠ŠŠŮҠȠ٠č̠ӠԠԍҠˠҠԭōȠŠקӍԠŠԠŠƠōٮӠȠ̍ԠŠǮǠӠƬҬՠٍҠԠŠٍŠӠǠϠύȠħōͧҠ٠ՠ΍ȠŮԧӠ٠ՠŠǍҠקӠӠΠōӯ˧ŮŠנӠ٬ՠˠҠĠ΍ŠŮƠՠנōŠŬՠōקΠȠҮĠՠҠ˩ŠԠȧӍӠ͠Š̍Š٠ǠŠŧŠήҠנӠ΍ŠŠҠӠȮǠӍŠŠՠנԍԠՠŠǠҬŠŠΠ̠ӮƠՠŠŠĠٍӬȠՠԍϠŠȠȠԠ̠ŠŠӠ͍ŠҠȬՠĺ٠ԠȧӍŠΠŠˍǠŠħ͍ΠŠԠӠĠōӠӠϠȍ̠ӮΠΠҠ΍ĠȠҠӠ̍ĠϠҠǠƠנύŠˠˠԍҠծӠӠӠŮ٠Ǡ˧ӠٍӬɠĠŠčŠ̠ӠƠǠԠΠȠٍӠĠҠŮӠՠΠϠōˠΠҠͬՠ̠ԠϠٍǠӠٍŲŠò±ֱֲձղԱԲӱӲұҲѱѲбвϱϲαβͱͲ̱̲˱˲ʱʲҲѱѲбвϱϲαβͱͲ̱̲˱˲ʱʲɱɲȱȲDZDzƱƲűŲıIJñ̲˱˲ʱʲɱɲȱȲDZDzƱƲűŲıIJñò±ֱֲձղԱԲӱӲűŲıIJñò±ֱֲձղԱԲӱӲұҲѱѲбвϱϲαβͱͲ̱ԱԲӱӲұҲѱѲбвϱϲαβͱͲ̱̲˱˲ʱʲɱɲȱȲDZDzƱƲαβͱͲ̱̲˱˲ʱʲɱɲȱȲDZDzƱƲűŲıIJñò±ֱֲձղȱȲDZDzƱƲűŲıIJñò±ֱֲձղԱԲӱӲұҲѱѲбвϱϲֱֲձղԱԲӱӲұҲѱѲбвϱϲαβͱͲ̱̲˱˲ʱʲɱɲѲбвϱϲαβͱͲ̱̲˱˲ʱʲɱɲȱȲDZDzƱƲűŲıIJñò±ʲʲɲɲȲȲDzDzƲƲŲŲIJIJòò²ֱֲձղԱԲӱӲұҲѱIJIJòò²ֲֲղղԲԲӲӲҲҲѲѲввϲϲββͲͲ̲̲˲ӲӲҲҲѲѲввϲϲββͲͲ̲̲˲˲ʲʲɲɲȲȲDzDzƲƲŲŲͲͲ̲̲˲˲ʲʲɲɲȲȲDzDzƲƲŲŲIJIJòò²ֲֲղղԲԲDzDzƲƲŲŲIJIJòò²ֲֲղղԲԲӲӲҲҲѲѲввϲϲββֲֲղղԲԲӲӲҲҲѲѲввϲϲββͲͲ̲̲˲˲ʲʲɲɲȲȲ            ŬȠӬĠŠРˠƍŠŠԠȍӠŠΠҠĠȠӮɠԠԠРϠŠōӠŠӠōĠĠĬōԠŠĠӮ٠ԠҠčӠҠčŠ͠ڮŠōĠΠŠĠٍǠŠӠĠ٠čǠ̍ŠӮՠΠנҠōӠ٠ǠϠōՠĠǍǠӮҠŠŮՠΠϠĠΠҠŠɠĠӍǠӮӠōĠӠϠҍŠǠӠ٠ŠǠŠȮŠȬԍĠ̠РӠŠčӠǠǠӍΠȠˮҠȍάŠĠӠҠԬȠӠǮՠΠŠנŠōŠԠ٠ǠύŠՠĠǠנŠĠŮŠŠŠӠΠԢӮŠĠȠƠŠԠӠٍԠŠĠĠˠƠŠΠӡĬ̠ĠǍŠϠ٠ϠŮԠӠȠҠŠϠŠ٠ננȠŠĠōĠҠĠӠԠԠŠčϠĠŠΠΠȠĮŠ͍ҠŠӠŠҍŠȠƠȠĬŠҠӠΠōĠΠ٠ŮԠӍ٠ϠŠŠȠƠŠӮҠƍĠΠȍĮϠРԠōŠĠԠϠӺōҍƠӮčōԍ̍ǍנٍΠŠĠϠŠōȠƠȠĬȍӠŠŠ͍ҠƠӠԠӬȠĠΠӠŠǠԠΠŠˮȍĠӠӠƍΠԠŠĠϠŭčӮŠǠˬōĠϠŠԠӍĠŠčĠŠ٠Ԡ΍ĠΠ٠ŮӠĠӠ̍ӠΠŠŠϠčԠԠӠŠǬĠ٠ĠӍΠϠԠҍԠˮŠӠΠƠŠéŠŬĠŬɠĠύРˠƠŠƠōӠӠĮҍǠŠӬӠĠϠԠōԠŠĠŠԮŠĠӠӠנϠԠРŠŠϠԠȠԠӠҠԠӮԠΠŠĠĠΠĠΠΠҍĠԠΠҮԠҠΠ٠Ƞō͠ŠĠ̠̠ˍӠŠӠΠƠΠΠԠ͠ȍ٠͠ӮٍԬӠ͠ӠҠϠĬōĠŠΠ΍ӮӠ΍ӠĠΠˠΠŠ͠ƠӮԠΠŠĠĠĠԍű͠ӍӠΠٍŠɍŠӠĠōĠ٠ҠȠҍȠŠӠԠō̠̠ΠάӮˠӠŬ̬Ԡō      ōΠǠύŰǍЍԺōΠՍ   ? ` i8H   *  * J`" #Qɬک $΍   ? `  o  * $Q11$Q11*N   ) 0    `   ` JL M? !i! i iiةi? ' 'L `!i! i iiة i   ? `iiI   Bб`i  i L_ $Q11$Q11iLLi L<L    M  ``i `i m٠` ``,`a02`202 iL*`k] `0= ?`0`iLk6? "%0 $ `"i)   ` /8#i ?  81 i )  ) 0 0$ 0 ) 0 )  ޞ "ɖ)L" i) 5 + L i)     / 0  / ? O _  /0   ` Jʭ 0$? #  8I)#   ` $?  #"  i  8)8  ! (   `   Ji@( 0 8951-)%!=951-)%!<840,($ <840,($ ?;73/+'#?;73/+'#>:62.*&">:62.*&"=951-)%!=951-)%!<840,($ <840,($ m m i`&f&fEE`*` 4) =/4m i ` L/i`k`PPPPPPPPPPPPPPPP((((((((((((((((((((((((((((((((?;73/+'#?;73/+'#>:62.*&">:62.*&"=951-)%!=951-)%!<840,($ <840,($ ?;73/+'#?;73/+'#>:62.*&">:62.*&"=      oo____ U*ժ*U ```````U**U*UU*-6?HQZclu~ JJJJJJJJJJKKKLLJJJJJJ JKKK8QjKKKKKKKKs~||~sg??gPPPPPPPPPPPPPPPP ??__                          HHHHIIIIIIIJNIJN0Ib{HHHHIIIIIIIIJIIJ0Ib{ HHHHIIIIIIIIJNNJ0Ib{HHHHIIIIIIIIIJIJ0Ib{ HHHHIIIIIIIIJIJN0Ib{߭HHHHIIIIIIIIIJIJ0Ib{ HHHHIIIIIIIIIJNN0Ib{ HHHHIIIIIIIIIIJN//OOHHHHIIIIIIIJIIJJ0Ib{HHHHIIIIIIIJIIJJ0Ib{HHHHIIIIIIIJIIJJ0Ib{HHHHIIIIIIIIJIIJ0Ib{ HHHHIIIIIIIJNIJJ0Ib{߭ ߭HHHHIIIIIIIIJNII0Ib{HHHHIIIIIIIIJIIJ0Ib{ HHHHIIIIIIIIIJNI0Ib{<XLN4@@@@h@@@@`XPH80( xph@BDFACEGACEGACEGACEGBDFHBDFH  0Ib{                            ŠŮ̍ŠŠԠŠōӠԠ̮ŠӍŠΠŠӠԍӠŠԠŠŠٍŠɮƠȠҍΠŬԠƠԠōԮŠƠ٠נٮӠΠĠקٍŠŠҠƠōĠŠĮŠΧȠŠנҮŠڍСŠ̠Π٠ŠӠԠŠٍŠŠŠӠōŠĠӠ΍ԠԧӠ̍ӠԮԠӠŠ̍ҬԠŠԍҮ٬ŠōŠӠĠ֍ӠŠ̮٠ҍӠӠŠԍŠĠϠȧčҠŮ͍Һ̍Π٠ήō̠ĠŠō͠ɧ͍͠ϠĠ٠Ӡ΍ŠŠҠҍԠŮՠנננĮŠҍٮŠŠŠҠЍȠŠӠŬӧź̠ӧӠԍĮԍϠϠŠŠŠŠӠŠҠƠӍȠӠΠӧӍϠϠŠŠŠŠӠŠ̠ҠƍŠϠΠŠčٮՠՠՠĠύĠϠϠŠŠȍԠŠҮӮĠŠŠӠĠΠԍӧĠנōӠΠԠҮĠӍϠϠŠŠŠŠӠŠ̠ҠƍӠΠբΠ٠ӮϠ٠ӠŠӮŠŠҧӍĠϠź΍Ȭ źϠŠϠҠӠ΍ӠĮōˠŠҠƠč٠ӠԠ׍ԮŠԬԠŬϠŠҠƠŠԍҠƠŠԠŮɠϠӬɧ̠̍ՠϠӮŠӠΠŠԠàǍŠ̮ӠנӠٍŠŠĠΠōčōō΍ҍٍōҍ̍͠ҍӍӍ΍ō΍͍΍ԍōōŠҍӍٍӍōčӍōٍ̍ԍōȍȍȍ΍Ӎ̍ҍōō̍Π΍ō ōıIJijĴĵװĶķĸĹıčԠō  :(4)"EXEC DEMODRIVER" 5ӠΠӠ΍Š̠ҠǍǠӮՠ٠РǠōŠ٠ԠǠΠٍΠŠŠŠčǠΠŮǠӍǠ٠ŠӍ͠ŠΠŠ̍ɠҠԠ˯ˬŞ̭̌ĠΠō̧٠ĠӠ̧ǠӍŠŠϠΠΠҍҠΠՠԠύԠӮΠǠ̍ӬŠˍŠȠӠàҍŠĠՠŠčҠŠΠǠЍŠͬՠ΍ŠӠٍǠŠٍŠǠŠҍՠԠĻҍՠ٠ŠŠԠٍƠҠ͠ӠΠύĮŠԠĠŬՠ٠ŠŠōŠΠĮŠˠӠōĠΠԬ٠ύŠĠӠōǠנӮӠ̍РŠĠӍŮҠōƠҠ͠ՠԮǠˠƍōŠΠՠӠՍŠŠҠƍӠΠҠŠčŠ̠ŮŠӠϠԠōϠԠӠԍŠΠĮƠՠŠĠŠӍĠŠŠōˠӠԠōՠϠŠ٠ĠŠԠՠԠŠŠϠŠԠĩϠŠŠŠҍǠӬԠӍΠҠĠŧĠҠҠȍРϠϠԠٍǠϠŠՠčǠѧҠԮǠӍՠ٠ԠϠō̠ӠƠҍˠŠŠՍŠΠŠŠՠԍϠŮԠŠȍΠԠōŮǮɢĠӮǠРӠŠԠŠՠĠӬנŠčԮ˧̠ŠčӠҠЮҬԠӠŠĠ٠ŠϠԠ͠ō͠ΠΠ٠Ү˧ٍǠԠӠӺԠˮԠҠŠˠΠŠˠŮǠŠˮŠŠǠӍκŠԮˬԮՠ̠נŠ׍ŠȠ̠ƠҍӠōӠՠŠΠҠŮԮ˧ӠР٠ƠԮԠӠ٠ƠҠԠԠӠҍҠήǠРӠĠՠҠŠҍԮŬՠ΍ΠŠԮȠŠՠŠӍĠΠҠŠˠӠŠŠӮƠҠŠōӠԬΠՠčźԍԮԮˍԧӠŠōՠŠĠҠҍŮԮԱ̠̠ӍǠРӠǠӍǠˠƠōҠōǠӍǠӍǠӠŠˠōǠӠǠРӍ      ))::K1767K:K1,13, :(4)"RUN WINDOW" (222)6ė:10:" PLEASE USE THE FRONT SIDE OF YOUR WINDOW DISK.":AZ12500::1010  1500b16368,0::10:5:"PLEASE TURN THIS DISK OVER AND PRESS A KEY. ";:AZ$oX$"DD2":10:6::" PLEASE WAIT -- NOW LOADING ":9:" DUELING DIGITS REVIEW ":16:" PART II ": K1(X$):K1767K:K1,((X$,K,1 ǠōĠŠŠŠӠĠԠӧĠנŠӠ΍ԠҠˠԠҍĠȩϠӠǠȠҿŠŠŠӠҠŠנŠĬ΍ΠϠŠčҠԠٮՠĠΠԠōǠŠ̠Ӡ٠̬ĠčԠŠΠӠŠԮ٠Ӡźάլ̠Ġ̮̍ӠŠٮԠčƠ̠ƠͮϠϠōŠנΠ٠ӮˠԠӧč̠ӠΠԠҬĠŠԭՍĠԩŠŠŠٍǠƠŮˠҠŠŠҠЍӠĠŠŠȍ٠ƠàԬàӠƠӍĠԠӮԠŠĠٍǠȍĠԠƠŠנҍƠŠŠĮŠĠ̠͠ӠĠ٠Ӯ̠ŠӠΠŠԍŠŠĠ٠ҍٮŠŠŠҍϠŠŠŠՠԠΠϠōĠΠϠōԭŠŠŠŠŠĠŠĮčϠԠŠ̠ƠŠ׍ħӠԠŮōŠԠҠƠӠԍŮϠϠŠŠԮԠӠŠҠΠōĠŠҬŠ٠ϠϠԍŠŠŠŠĠŠĮŠ̠ŠӠƍŠԠԠōŠԠҠƠōԠŠƠŠנĮٍŠŠĠŠĮčŠנҮԠƍҠӧΠōŠŠӍŠŠĠҠՍ׮ĠŠǍĠΠŠԠŠƍŠĠĠҠ͍ΠӧŠծŠŠҠƠӍΠҠŬĠˠԠ̍٧Ԡӧ٠ŧ٬ϠϠōȠŮԠӧ٠ٍŮϠϠŠĠȍŠԠŠԠƠӍԠӧ٠ ŧӮŠөŠƠōĠӠӍҮ̠ӍԠŠŠčӧĠŠ̠ƠӮΠΠčϠϠԠŠŠŠԍԠ٠٠ԍŠĠΠ٠ٍŮٍΠϠŮΠĠƠՠŠΠȠŬҍŠԠĠ͠ōŠȠҠŠĠōŠӠԧȠŠ٠ӍƠӧҠ̧čɱԠōԍōٍӍٍōЍŨϩŨ˩ōō ō΍ˠ΍ˠȍԠҍԍ΍ˠ΍ˠȍԠҮԍ΍ˠ΍ˠȍԠҮԍ ǵԍɍՍύנŠĠէ̍ԠŠ̠čŮƳ̍ƍɍ̍ȍà̍ɮͮ΍Ščà̠ōҵˍōٍՍҍ͍ōŠŠĠōԠΠҠԮĠӠ֍ٍ̍ҍƠΠӠՠŬΠŠŠҠčϠϠšɍč΍ҍԠƠōčŠϭҍӍϠҍǮč΍׍ɍōԠō΍ȍ̠ӭԍƠŠ٠ҍҠҍ֮͠Ӎ΍үĮנîԠԮ΍ҍ΍̠ҍàҍ΍ˍ͠ҍנîԠԮ΍ǍӍٍүĮנîԠԮ΍öōٍǠҍנîԠԮ΍ȍŠҍȍ̍͠ҍנîЮϮؠōҍĭ؍ӠӠ̍ӠӠӍӠԠ΍ԠӍΠ΍РˠٍӠӠӍРˠ΍ӠȠ֮ԍРˠ΍ӠٍȠ΍ӠÍͭǍίĠӠԠҠӍ̠č΍Ӡ̠ΠӍϠ΍ΠϠԠΠ̍΍ӠǍ̠֮ЍЍРȠԠҍϮ΍Ӡٍ̠ϧҍӠԠǍԍРƠ̠٠ˍӠԠРƠӍ¯ǍίĠҠϠϠӠԍӠӠӍӍΠӠȠ    BILL CROUCH, 1982"| ZR$D$"OPEN"W$:D$"DELETE"W$:D$"OPEN"W$:D$"WRITE"W$:"FP":"RUNNOTEBOOK":D$"CLOSE"W$:D$"EXEC"W$: d ! R$(13):D$(4):W$"RESET"::255::8:13)"W I N D O W"::" VOLUME I, #2 - SIDE 2 PRESS TO RUN NOTEBOOK ";:16368,0:A$:A$R$ĺR$D$"CATALOG":<::10F:8:" OPENING NOTEBOOK " P:15:" COPYRIGHT (C) ԠŠȠҠӠנħӠԍŠĠŠ̮ĠŠԠҠƠōԠŠƠŠ΍ǠΠǵĠŠҠΠŠԠƠŠԠҠƍŠҧӠ  ōō֮ԍϠōРōŠԮӮٍ֮֮ЍԠîԍ:16368,0:J141ė:92(4);"PR#0":(4);"CLOSE":2y3::2:3:"PRESS THE ESC KEY TO STOP PRINTING":::34,3:4((16384)155)ı516368,0::(4);"CLOSE":(4);"PR#0"::2 ",(20(F$)2)):F$G$F$::A:A10A10< B1A:A%(B)ONS,D1":(4);"READ INSTRUCTIONS"Y*"";I$:(I$,1)"#"ĺ:(4);"PR#0":(4);"CLOSE":2t+(I$,1)"!"ĺ:46:42,I$:Fİ52-42.Fı/24:1:16368,0:958:"PRESS RETURN TO CONTINUE, ESC FOR MENU";0J(16384):J141J155481NT THE INSTRUCTIONS? (Y,N) Y";(8);:C$:C$;:C$"N"C$"Y"C$(13)35Z$C$"N"F0%::Fİ51::(4);"PR#";H:K$:I13:L$(I)::&:40':(4);"LOAD INSTRUCTIONS,D1"(E(222):216,0:E6ĺ(4);"PR#0":2!)(4);"OPEN INSTRUCTI"LOAD SYSTEM.HEADER,D1">E(222):216,0:F1:E13F0:37(4);"OPEN SYSTEM.HEADER,D1":(4);"READ SYSTEM.HEADER":L$(1):L$(2):L$(3):G:H:H134 C$:C$"!"ĄC$:34!K$K$C$:32"(4);"CLOSE":H1F0:37J#:10:16368,0:"PRI0:(4);"RUN NOTEBOOK.2,D1":NC5ĺ:16368,0:(4);"RUN NOTEBOOK.3,D1":hC14ĺ:16368,0:28C15ĺ:16368,0:C5ĺ:16368,0:(4);"RUN NOTEBOOK.1,D1":::J$"LOADING INSTRUCTIONS":10:20(J$)2);J$:K$"":30:(4);,V,VIEW/FIX/PRINT/REMOVE RECORDS, 9,P,PRINT SOME/ALL RECORDS, 11,D,DISPLAY RECORDS IN ORDER, 12,S,SORT YOUR FILE, 14,C,CREATE A NEW FILE , 15,R,REMOVE A FILE (OR DATA), 16,F,FORMAT A NEW DISK  17,M,MODIFY COMPUTER SET-UP900,C:C5ĺ:16368,3016; D141D217D249ĢA%(C):7:(7);:19:C0:8b ::10:3:"RUNNING ";A$(C,1):23 A%(C):(7(A$(C,0))):868:A$(C,0);" - ";A$(C,1): A%(C):(7(A$(C,0))):868::A$(C,0);" - ";A$(C,1):: 9, 7,E,ENTER A NEW RECORD, 8(16384):D1549@ DD128:16368,0:H$(D):D96H$(D32)\ H$"?"H$"/"B14:15w B115:H$A$(B,0)15 :B0:C0ĢA%(C):7:(7);:19:9 9 CB:20:24:1:958:"PLEASE CONFIRM YOUR SELECTION ";::"Y";: D(16384):D1"QUIT":::1:1:((40(B$))2));B$:2:1:((40(D$))2));D$:B140:"=";::4:1:E$:C1A:19::C1415:19::C0:19:1::F$;40(F$)): 23:1:B140:"=";: 24:1:958:16368,0:" YOU MAY SELECT BY PRESSING A LETTER "; D,A$(B,0),A$(B,1):A%(B)6A%(B)17ĉ::"VTAB RANGE ERROR":v A$(B,0)(A$(B,0),1):A$(B,0)"A"ĺ"CHAR LABEL < A": (A$(B,1))29A$(B,1)(A$(B,1),29):(A$(B,1))1ij B:A%(14)21:A$(14,0)"?":A$(14,1)"HELP #1":A%(15)22:A$(15,0)"Q":A$(15,1)  8/28/83 REV.7A%(15),A$(15,1):900,0:901,0B$"NOTEBOOK":D$"(C) 1982 BY BILL CROUCH":E$"SYSTEM MENU:":F$"A PRODUCT OF WINDOW, INC.":G$(" ",(20(F$)2)):F$G$F$::A:A10A10< B1A:A%(B)     OWN (C)HANGE (ESC) QUIT EDIT";:84[S24:1:"UP/DOWN ARROW (C)HANGE (ESC)=QUIT EDIT";aTU::1:"FIELD TITLE FIELD LENGTH (MAX = ";F1;")":2:1:X139:(95);:X::V::2:(40(F$))2:F$::gWF$"CLOSING FILES AND EXITING":86:126:Y191,128,129,131)L900,1:2440kM24:1:958:1);"(WHEN DONE ENTERING FIELDS, PRESS ESC)";:ND,E:24:1:958:"YOU MAY PRESS RETURN TO CONTINUE ";O((16384)141)79PD,E:Q23:1:D,E:958:G183%R24:1:"(U)P (D)DII1:T1I:T120T120E23:1:958:D,E:(7);(7);"E=EDIT, S=START OVER, F=FINISHED F";(8);:A$:(A$)96A$((A$)32)FA$"E"A$"S"A$"F"A$(13)69GA$(13)A$"F"HA$"S"45IA$"F"75J23:1:868:114:69K=A20:222,0:85:I1 >77>?118:125:I20İ144:69V@A2II1:T1I:63A144:23:1:868:D,E:(7);(7);"DONE ADDING FIELDS? Y";(8);:A$:A$;:(A$)96A$((A$)32)BA$"Y"A$"N"A$(13)65CA$"N"A20:23:1:868:62":86:Z10:45047:37816:Z1(37819)(37820)256:Z12061<F$"NOT ENOUGH SPACE":86::"THE DISK IN DRIVE #";W1;" DOES NOT HAVE":"ENOUGH FREE SPACE TO ALLOW YOU TO":"CREATE A NEW DATA FILE."::"PLEASE REPLACE IT WITH ANOTHER":"DATA DISK.":78:505X113ĴY191,128,129,131/6X16İ148:4577:8D,E:10:1:"DO YOU WANT TO CREATE A NEW FILE CALLED "::20(B$)2);B$;" Y";(8);:A$:A$;:(A$)96A$((A$)32)9A$"Y"A$"N"A$(13)56:A$"N"45;;F$"CHECKING DISK SPACE1:10)"(PRESS ESC FOR MENU)":11:B$C$(0):O1B$"NONE SELECTED":91O/45{0B$""ė::(4);"CATALOG,D";W1:78:451(B$)65(B$)90452F$"LOOKING FOR "B$:86:::523(4);"LOAD ";B$;",D";W14X1(222):216,0:860:Y11Y11A DATA FILE":86:T10:U10:V10:F%14:G%8:I0:K%0:H%25:C$(I)"":P199:Q199:L%1:J%0:4:12:"A DATA FILE DISK":9:"SHOULD NOW BE IN DRIVE #";W1F.9:1:958:"ENTER NAME OF DATA FILE & PRESS 'RETURN'":4)"(PRESS ONLY 'RETURN' TO CATALOG)":18:$Z %A:U&O10:D,E:I2:1::">";(T);::9:" ";(T);:A$(27)ĺ::O11:j'N96A$(N32)(A$"U"A$(11)R1R11:R11R1S1:)A$"U"A$(11)ı*A$"D"A$(10)R1R11:+A:A$"C"38,119:-216,0:F$"CREATE ((36)1):S1(H%E%1):" ";:S:E%K%ĺ"";:E%E:13l C$(I)"":E%0āZ1E%:C$(I)C$(I)((BZ)):Z !B,E%:P199Q199ĭ(C$(I))P1(C$(I))Q1ĺ"";:E%E:13 "E%EL%E37 #Z1E%:((BZ)L%(BZ)M%)(BZ)Wĺ"";:E%E:13NA114 NTE%2E%0:13G NTE%E%1:(G%E%):"_";(T);:14y NU(BE%1)EN(BE%1):NB1NC1D%1 NVO11:F%:G%:S1H%:" ";:: E%H%NWĺ"";:14 D%NB1NC1NNW D%E:E%E%1:BE%,N:(N);:148 F%:0:ZQ D,E:O10:F%:G%:L1H%:"_";:L:F%:G%:I%1:F%:G%::"_";::(T);d N(C):NF14 D,E:NNG:A%J%D%1:21 B%(H)GD%1 NJNK NMNO NPNQ NE1D%1:14 ND1J%J%:D%J%:14 NR31 ):C%(15),E$(15,1):(B1)35(B2)35İ1455 190n F127:G10:H10:I10:J10:(64435)6K11:L11:G17v 91 N(C):NF9 D,E:NNG:A$(N): D%0:N1(C$(I)):E%0:N10āZ1N1:BZ,((C$(I),Z,1)):Z:D%0 A%1:ZN1140:BZ,84:D16368:E0:F127:G128:H16285:J64:K80:M93:O77:P94:Q78:R13:T8:U21:V27:W32:A134:B164:C191:D112:E147, 860,104:861,168:862,104:863,166:864,223:865,154:866,72:867,152:868,72:869,96:B$"NONE SELECTED":A%1:B%0:C$(21),D$(21,2M 90:34216,0:::5:(7);(7);"THE PROGRAM DISK SHOULD BE IN DRIVE #1"::23:1:16368,0:958:"PRESS ANY KEY TO CONTINUE ";:A$::1x (4);"NOMON I,O,C"::37808::(4);"BLOAD GARBAGE/FREE SPACE,D1"::A37821:216,0:B770:C163                                      E2,X)#iX:M20āX1M2:" ":X6j(4);"PR#0":@kL2ıPlJ$""İ320m99:" ":N213:20(K$(N2))2);K$(N2):N2:"DATA FILE: ";G$:J$""ĺ"DATE OF PRINTOUT: ";J$nI2ĺ(F$,39)o(4);"PR#0"::pG,J:24:1:958:"YOU MAY `E2:H2H21:E2H2:3a::R1ĺ:(4);"PR#3":fbX1D2:VX:V:1:D$(X,1);:11:G$(E2,X):X:rcK20ıdR1ĺ(27);(17):eK27ıf:(4);"PR#";K2:I$:g99:X1D2:L2ĺ" ";G$(E2,X):105h" ";D$(X,1);11(D$(X,1)));G$(5:119:91"YJ2Bİ103:119:91<ZBİ97:115:150:119U[((16384)155)93\G,J:15:1:"PRESS ESC TO QUIT SEARCHING - "::"PRESS ANY OTHER KEY TO CONTINUE ";:A$::A$(27)ı]E2:^H20H21:E21:_E21H2:(G$(E2,1))1ıBİ103:119:82*QBİ97:115:150:119CR((16384)155)84SG,J:15:1:"PRESS ESC TO QUIT SEARCHING - "::"PRESS ANY OTHER KEY TO CONTINUE ";:A$::A$(27)ıTE2:UE21H2:B0:G2D2İ64V(G2D2)İ62WBF21 XI2Bİ29C TO QUIT SEARCHING - "::"PRESS ANY OTHER KEY TO CONTINUE ";:A$::A$(27)ıZJE2:K(G2D2)(H$)(D$(G2,2))H$(H$,(D$(G2,2)))LE21H2:B0:G2D2İ60M(G2D2)ĭ(G$(E2,G2),(H$))H$B1NBF21OI2Bİ295:119:82PJ2L1U1:(G$(E2,Y),L,(H$))H$B1:1AL:Y:MBE21H2:B0:G2D2İ58vC(G2D2)ĭ(G$(E2,G2),(H$))H$B1DBF21EI2Bİ295:119:72FJ2Bİ103:119:72GBİ97:115:150:119H((16384)155)74PIG,J:15:1:"PRESS ES)):X:G$"NONE SELECTED"G$"":307.9A:9V:Y1D2:(G$(E2,Y),(H$))H$B1:_;Y:<Y1D2:(G$(E2,Y),(H$))H$B1:=Y:>U1(G$(E2,G2))(H$)1:L1U1:(G$(E2,G2),L,(H$))H$B1:?L:%@Y1D2:U1(G$(E2,Y))(H$)1:0A$"R"İ237:$1A$"P"İ210:72A:A$"C"423X10:H11:VI:B$(I)G$(E2,I):15:D1:G$(E2,I)B$(I):A:X1İ97:115:4245L(E):G$"":L0L25ī3076(E1)35(E2)35ī3077(E1)32(E1)90ī307$8X1L:G$G$((EXZ)A1(EZ)A2)(EZ)F1ĺ"";:W1J:172(Z;)A:*X10:G,J:I:10::">";(C1);::12:" ";(C1);:A$(27)ġ::+N96A$(N32),A$"N"ġ:-A$"U"A$(11)II1:I1ID2.A$"U"A$(11)ı/A$"D"A$(10)II1:T1J:W1W11:EW1,N:(N);:18e #B2Y1W11:V:36,(H1W1):S1B2:" ";:S:W1L1ĺ"";:W1J:17 $B$(I)"":W10āZ1W1:B$(I)B$(I)((EZ)):Z %E,W1:V199C299ĭ(B$(I))V1(B$(I))C2ĺ"";:W1J:17 &W1JA1J41+'Z1W1:((EZ1:18 NB135! NG1189 NC1W12W10:17h NC1W1W11:36,(H1W1):"_";(C1);:18 ND1(EW11)JN(EW11):NH1NI1T11 NE1X11:V:36,H1:S1Y1:" ";:: W1Y1NF1ĺ"";:18 !T1NH1NI1NNF1 " ZU1160:EZ,0:Zj X10:V:36,H1:L1Y1:"_";:L:V:36,H1:C%1:V:36,H1::"_";::(C1);} N(F):NK18 G,J:NNM:N1Z1T11:25 O1(O)MT11 NPNQ NRNT NUNW NK1T11:18 NJ1Z1Z1:T1ІB%(15),E$(15,1):F$"":X179:F$F$(95)::A:300g P10:Q10:R10:S10:(64435)6N11:O11:P17o 53x 156 161 125 G,J N(F):NK13 G,J:NNM:A$(N): T10:U1(B$(I)):W10:U10āZ1U1:EZ,((B$(I),Z,1)):Z16368:J0:K127:M128:O16285:P64:Q80:R93:T77:U94:W78:B113:C18:D121:E127:F132:G134:H164:I191:J112:K1474 860,104:861,168:862,104:863,166:864,223:865,154:866,72:867,152:868,72:869,96:N11:O10:B$(22),C$(25),A%(25,1):D$(21,2):{K 12445216,0:::5:(7);(7);"THE PROGRAM DISK SHOULD BE IN DRIVE #1"::23:1:"PRESS ANY KEY TO CONTINUE ";:A$:2x :(4);"NOMON I,O,C"::37808::(4);"BLOAD GARBAGE/FREE SPACE,D1":A37821:B0:D0:216,0:E770:F16384:G                                      :I$"(C) 1982 BY BILL CROUCH":J$B$:K$(T1)" RECORDS, ROOM FOR "(K2T1)" MORE":L$(" ",(20(K$)2)):K$L$K$::X147:L2:X:M0:M010M010XM11M0:M%(M1),D$(M1,0),D$(M1,1):M%(M1)6M%(M1)16ĉ::"VTSK WITH THE FILE -"::20(B$)2)B$::14)"IN DRIVE #";I2;(7);(7):67:mQA2C2ĺ:(4);"PR#3":B27:RG21T1:64:F2İ70SG2:B2B20:(27);(17):TUB2B20:(27);(17):V(900)0J2(900):900,0:104WH$"NOTEBOOK"Y OTHER KEY TO CONTINUE Q";(8);:C$:C$;:C$"Q"C$(13)C$"q"ı_LG$(95):900,0:190xMG$"NOTEBOOK.1":189NH2(L):H2M78ON,O:H2H2P:C$(H2):LPF$"INSERT DATA FILE DISK IN DRIVE #"(I2):74:11:1:958:"PLEASE PLACE THE DI:"PRESS RETURN TO CONTINUE, ESC FOR MENU ";VG((16384)141)((16384)155)71H(16384)155ĹN,O::B20:(27);(17)::IN,O::L1:J::2:(40(F$))2:F$::FKF$"CLOSING FILE AND EXITING":74:10:1:958:N,O:"Q TO QUIT, AN@A1:6:"DISPLAYING RECORD #";G2:X1U1:C%X1:U120C%X2hBC%:1:E$(X,1);:11:B$(G2,X):X:CN,O:24:1:958:"YOU MAY PRESS RETURN TO CONTINUE ";D((16384)141)68EN,O::L1:,F23:36,0:N,O:958::N,O:24:36,0:958:(64435)6D21:E21:Z17$8109-91145:85U;H(E):B$"":H0H25ī167u<(E1)35(E2)35ī167=(E1)32(E1)90ī167>X1H:B$B$((EX)):X:B$"NONE SELECTED"B$"":167?L1:55@F20:::(B$(G2,1))1F21:4:T80:U93:V77:W94:Z78:C113:I8:E121:H127:I132:D134:F164:G191:B112:A1475860,104:861,168:862,104:863,166:864,223:865,154:866,72:867,152:868,72:869,96:G%1:I%0:M%(15),D$(15,1),A$(21):E$(21,2):1586597Z10:A20:B20:C20,0:::5:(7);(7);"THE PROGRAM DISK SHOULD BE IN DRIVE #1"::"PRESS ANY KEY TO CONTINUE ";:C$::49T4:(4);"NOMON I,O,C"::37808::(4);"BLOAD GARBAGE/FREE SPACE,D1":L137821:X10:Y10:216,0:E770:L16384:N16368:O0:M127:P128:Q16285:R6:A(V1)A(J):A(J)J:"!";:J::0B810855:W1:B,W1::810:169,76,141,245,3,169,58,141,246,3,169,3,141,247,3,96,32,227,223,133,133,132,134,32,190,222,32,227,223,160,2,177,133,72,177,131,145,133,104,145,131,136,16,243,96,0, 151252h32160):& +A(A1)B:A(O1)P1:BA(0):469 ,FF0:R1A(0)V -BB:A(S1)B:S1B:BA(B)e .N1(B0):/A(0)(R1):::"ALMOST DONE!";:BA(0):Q11T1:B(Q1)B:BA(B)::B1T1:A(B(B))B::J1T11:B1U1:B$(J,B),B$(B(J),B)::V1B(J):B(A(J))V1:B(J)JA(A1)B:A(O1)P1:BA(0):37/ #FF0:R1A(0)L $BB:A(S1)B:S1B:BA(B)_ %N1(B0)::47t &N101:B044 'C(B$(B,S)" "):O10:P1B:A1B:BA(B):B043 (Q101:(B$(B,S)" ")CA(O1)B:O1B:42 )A(A1)B:A1B:"*"; *BA(B):Q1(BO:4 B%OK%O28R D1B%:((ED)K%(ED)L%)(ED)I1ĺ"";:B%O:4Y Dc L1:x N101:B035 CB:O10:P1B:A1B:BA(B):B034 Q101:B$(B,S)B$(C,S)A(O1)B:O1B:33 A(A1)B:A1B:"*"; !BA(B):Q1(B0): "E%KI1ĺ"";:5+ A%KF1KG1KKI1N A%O:B%B%1:EB%,K:(K);:5 C%:((36)1):S1(E%B%1):" ";:S:B%J%ĺ"";:B%O:4 A$(B)"":B%0āD1B%:A$(B)A$(B)((ED)):D E,B%:J199K199ĭ(A$(B))J1(A$(B))K1ĺ"";:B% KUKV KWKZ+ KA1A%1:5F KB1H%H%:A%H%:5S KC122_ KD15u KIB%2B%0:4 KIB%B%1:(D%B%):"_";(I);:5 KE1(EB%1)OK(EB%1):KF1KG1A%1 KH1G1:C%:D%:S1E%:" ";:: B%/:166:48MA%0:A(A$(B)):B%0:A0āD1A:ED,((A$(B),D,1)):DeDA140:ED,0:DG0:C%:D%:H1E%:"_";:H:C%:D%:F%1:C%:D%::"_";::(I);K(L):KM5N,O:KKP:G%H%A%1:12I%(Q)PA%1KRKT           ĠŮč΍΍̍ҍɍҍΠŠ̠Ӡύլՠ̠׍ŠҮ͍͍Š®΍Ͳҹ͠ҍ٭ҍ΍ӍӍÍ͍΍ҍɍֶύȠɍ̍̍ҍÍč̍ƠҠӠՠٍŠŠ͠ōԩǴԍӍՍōԧӠРÿŠӠԧӠЮŠ̍ōōčɠҍƠϠ΍βƱɠҍƠϠ΍βƲɠҍƠϠ΍βƳϠҍǠ׬î´ҍٍ̍Սɍ׍΍ĠŮύԠŠٿΠӍ΍ҍ٠ǠԠŠŠҠҠԍӮѰō̍̍̍ŠȍÍύԠ٠ٍǠŠӮ¶Ϡˍ̍ҍóҍ̍öҍҍˍ̍Ӯō٠ƍٍӍϠΠĠנŠڍҍ΍͍̍ōҍŠŭŭčҧӠԠ̮ΠϠϠӡɭō̍Íč٠ΠϠӍŠŠǢΠŠĮҍҍՍԍҍµ͍Ս͍ύԍύ٠Ơō¶ϰˍՍҍ̍¸̠̍΍ōύҍǍ̠̍ōڍڍՍҍӍčŠӠŠŠҍĬԠՠԠĠԍƮӠӠŠĮύՍՍҍӍӍύŠĠĠŠŠύӠҮĠӠōƍ΍΍ŠŠҠҍĠ΍ՠ٧Ӎ΍čÍˍ΍ӮЍՍŠҍōȍ΍٠Ơ       Πԍ̍í΍ǍĠ΍ɠŠˠ̍ɠŠΠڮɠŠϠĠӠԠӍ  ȱ ꕥiiɴ|`J`Hr֦TUu^_te^^__``u8ouoppTUot)JȽopȑuULғ2:DTA(DTA)TEMPTEMP1:DTA(DTA) CN DTATEMP FUPT03T34{VT/GLp8n` EstopU^_R `ij^_lk S󅔆nmL^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ `^0ȱ^0Lȱ^ȱ^oȱ^pUVhmnТ!ʥTUTRUSust   ōԠōԍٍōԍҍԍٍ̠ӍǍ ҍΠٍҍՍҍ٠Ơ׍²ҍŠȍ٠Ү̍ҍӍɍӲ͠ҍϭύ΍ōɠϧō΍΍ҍ̍ԍō٠Ơ̧ԍŠħŬ٠Ơ׍ôٍٍՍ´Ϡ΍ٍ̍ҍō³Ӎō̍ΧӠͧŭΧӠͧŮòč׍΍΍ΧԠԠŠϠӠŠōͮΠŠŮ±ĠڍՍԍȍ׍ҠƠŠčƠٍ·ЍԍӠƠō٠ƠǍԍ؍΍ҍ̠ӭԍƠŠ٠Ҡ̠ōҲÍȍō΍´Ϡč΍̍ōΠӍź͠ҠӍƠ̠ӮӍՍȍč²ӍōǍ̍͵ύԍ̍΍ٍĠԠƠ΍ŠԠ̢ҠƠҠӍΠӍ͍΍čҍӠĠҰÍӍ̍ՍԍÍӍҧӠō­̍ҍՍύōԍ͠ҍō؍ЍҍȠɍ̍Ӡ֮ϮӍ̍ɍ٠Ơ͍±ԍɍͧɍ̍̍΍dzЍҍٍ̍õԍōԍՍӍԍɍƍҸǍ̍Ӎύ٠ĠӠ΍ӮDzčԍ̍ҍōύΠŠŠĺĠōҠ͠ӠĠήΠӍō΍ՍǍ̠ō΍΍͍ɍӍʮ̍ҍԮϮύč׍ñàӠɍ΍̍ҍ׍Ǎ΍DZҍӍō΍̍ҍ΍ōǠč΍Π­ٮύύҍ΍ˍҍҠÍՍčōō³ԍɍōҍƠӮčōԍ̍Ǎנٍ ˠé٠̠ȍ׬îԠԍά Ŭՠ΍ŠŠŠ٠ǠҍٮҠŬŧӠ΍ȠԠźϠՠȠϠĿٍƠՠϠȠϠĬӍήƠՠϠԠȠύĬӠΧ٠ٍ͠ήŠԠӍŠŠĠҠԠΠӍĮ٠ŠĠΠŮΠŠӠԠōĠĠԠӠŠŠՍԬՠΠŠԠ٠ǍŠΠٮƠ̠ĠύˠӠ̠ƠӮՍΠ٠ԠŠٍĠӠΠŠˮŠŠ̠ӠŮԠӍˠӠŠŠƍԠӧΠǠҍΠ͠ծŠԠנ˧΍ΠŠծԠӠŠϠРōˠӠΠŠŠˠӠōˠͮԠΠՠ΍Ϡ̠Š̠ƠӬՍ̠ΠΠԠƠˠŮŠŠˠˠŠӍԠӠԠϠŠōӠϠŠҠӠčϠԠҠ͠ˠȠŭԠ ҠǠٍ٠ӠΠōҠԭЩՠΠŠŠӍȠŮǠӠԠԠҍӠĠˠ̠ҠՠӍԠƠǠĠǍȠˮŠŠՠŠԬŠŠՠ̠ĠԠōԠӠϠŠԠˠҠծŠˠ͠ˠčŠĩŧΠȠҧ̧ҠԠŠȮ٠ǠҠŠҍӮΠՠĠ̠ōӿՠԠ٠ǠύŠՠӠéĠǠύԠŠӠ٠ԠȠ͠ƠӠĬΠύŠՠנĠŠ֧ҠׯدԯŠӮάΠՠŠĠҠŠŬŠӮϠĠōŧӠĺŠҠĠŠԠŠȍԠŠĠˠŠӮԬԍŠԠ٠ϠԠǍˠӠϠϠǠȠԠǮ٠ǠǬՠ̍٠ΠϠϠǮƠӠӠҠԠōΧԠŠҠ٠ҠŠҍӮŠŠҠԠӧϠΠנӠƠŠ͍ˮˠŠ͠ƠŠՠύŠȠЧӠŮҠ̠̠Ӡ΍ǠˬԠŠΠ̍ӠŠΠ٠ҠǍ٠ٮӠŠà٠ϠРԍՠŠǠĠΠϠŠծӠŠŠٍ͠ǠϠŠՠĠǠѧϠԮӠ٠ԠӠōՠ׭ΠĠҠ̍ҠӮάΠՠԠϠנōԠŠՠŠҠϠŠŬՠ٠ȍҠŠŧӠĠčǠŠӠΠҠŠōРϠũŠΠ̠ōŮנĿӍŠӠƠҠŠōĠӮȠŠՠҍΠϠŠӬՍŠŠĠҠŠŮ٬ҠŧŠٍԠƠōΠՠԠϠŠΠȍŠӺŠԠԩЍӍŠٍǠٍԠԠōԠӠˠſˠŠӠ٠ϠōΠΠŠàϠԠōΠΠŠ٠ĮԧӠ٠ՠԠϠōΠԠҠӮՠ٠ŠŠčӧĠŠԠ!! ! ! ! ! !!!!!!!!!((16384)141)104iG,H:j24:1:G,H:958:"(ESC) = QUIT EDIT (R)EMOVE RECORD";:23:1:"(U)P (D)OWN (C)HANGE (P)RINT (N)EXT";:k::1:(40(L$))2:L$::34,1:ElL$"CLOSING FILES AND EXITING":107:10:1:958:G,H:"Q TO Qa(4);"PR#0":bV1ı-cJ$""İ291d91:" ":X113:20(K$(X1))2);K$(X1):X1:"DATA FILE: ";G$:J$""ĺ"DATE OF PRINTOUT: ";J$eS1ĺ(F$,39)f(4);"PR#0"::gG,H:24:1:958:"YOU MAY PRESS RETURN TO CONTINUE ";hˠé٠̠ȍ׬îԠԍά"Ѝˍ"ōōӍ"ŠӠƠǠҍΠҠӠŠčԠƠŠŠŠӍǮΠӠӠҍǠҠĠĮŠ΍ήŠҍŠӍ΍̍ĠԠӍԠӠԠĠӠӍנĮŠӠύŠȠŠРƠӍٮҠӍŠŠǍԮȮōԮԠԍŠԠƠ٠Ҡ٠ΠŠӮΠΠҍ̮ˍҮ̠ӠЍΠҬƠčĠ̠ӠϠíΠΠŠȠŠРƠҠҬɢӠ٠ϠԠŠ̠ŠϠōҮŠӠĠҍԠǠŠƠǮԠŠӍЮٍƍΠӠӍӠ٠ӠԠԠøΠƠ΍ʮĮčƍŠԠΠӠōԮĮӠРϠӠϠӠ̠ӠǠǮҠōӠĮŠӍԠŠ٠͠ԍЮҍƍҠӠč" " " " "ԠͮԠͮ΍ԍٍōЍŠٍĮ֮ԠԍנԿӍ"