DOS  BASIC - CF $- CHECK '" CHKDOC :  PROGFILEC 5 ð))'))×"F$#å#b&y"q"U*1c >2 >!"c 5 ['yg> gy?O  2&{2& ͮ!{¥ : >!! ~Y(!(!*&~}OG<=͗!:5 0"!@{!: ! >wG#7wG# ! >!Wr!0O>!/!×!:{!:>! ::!:Ù!͗!:!0:&!͙!!: y2 :&_͙! ͗!:@!>!@{!: "!!+"G#+"G# " #!>!::3":;"::&R":I~_G#~_G# T"X*& >?1&&1c :&+"6& RE-BOOT">T1&01&&>D1&y?01&&>S1&%v"", V$, >2&!&+6 "T]t&7 ",7 , #7w#t&"A&t& 7:/ !&O:&o&'>" , {@#×!:+ ;#:&2&> >"d##Gy@O:&c 2&x2&6#:&҄#=S#*&:&!&h&)T]))o|g:& !9"&#/$#_#y?##x##7#!$!$g} W /2&h"&"&M\N#*&*&|E.#} W\MN#yW:4 6$>FD"&2&~ ""د2&>2/ !"&~$:& h$7*&y2&* !%" !/ :&O:&o&'>" "  :/ $!':&%$# $~ $,&N#F !&̈́&$"&¸$<"  :/ 2/ Ã$~ $:&Q%:&Q%=N%%6& , 8%&:3 =2&F&# Q%,&%&,&~r%)%&Sʃ%D&o&%~£%&#,&%& $, PRESS RETURN TO CONTINUE"0%%%0%%%/"U*%*U*x&:&G& :&  & &s#r#^#V#G "1&6&t&]& A&0, , , Oy2&S&}2&:3 2&>W$*&~ ʂ&#"&#z+{"O,&,&~怱O~#, {,&z*ڸ&-Ҹ&2&" *&> W*TEST NORTH STAR DOS 5.1DQ "COPYRIGHT NORTH STAR COMPUTERS, INC., 1979>!)c ['2&>! 6Y#=u'͗!>=„':'z2& :0 +'6&y")>0x>07>@!|;)gN)~w,;)$N)|;)0)>A>>>7>7>0>`>ʀ)xʊ)> xxx!U*  *@*!*@&v"__4*4*@*&v"+*wG&  &#*q"GO BASIC t& u*!͖*, ))))ot& €*0:ҡ*0AG?7t&7 ʫ*!:, 0, T])))_t& ,ø*ͫ*, |, }t&D+ *S+, t&, !"" !q""- 2&+&*!W*"&*U*!H+ ̈́&##?+##.+q",&( CR*,DEt+GO&JGO BASIC +IN,LI,TY+LF+SF+"++6 |+ u**&> "*, G~怰w·+u*#'&+ +":&O,&,&z, ~怱O{u*+" , +ͫ*,  ,,, A&u***xO}%,<+"V$, "V$, ͫ*, *&~Aܫ**x2&f,#|g}o:&O/$DM+ , , '&q#p#:&w#q&+w, A&*xOx/G!'6 #6 #¯,/$!> '" ,  =¿,*&~# ,#>,~#"&oA&b&-7!_!-PY-__^1][>2[#"["[>2[!yY"YX>2Y>2yY2Yң-*[~ʀ-h-*U![eHP-*[:[u-*[6 2%0."[:[ʝ-*[#PE*[eH.. 2-!-6-2!YzY:-6# »-HͧHD> 2YX:[*[62yYXQXgM>2Y!o>SHlM*Y!"["[2[:YP.*YZ͘K> !ZNH*Y*Y5"YZ IͮMOYKS.KlM:Z 5 .0x.:~Z5tT7 .5 2ͅ.-!Z"Y#H>!77#H !Y././././././.*["[6/././.*[+"Y.0.0:Y/*["Y*[KE 2[&/:Y&/:[SH:Y-*[DM^!YeHF/ o g{/!>SHZ͘K> !ZNH-3J*[ͪG:[o&3J*[ͪG2[*Y*Y"[*[###"Y6ARG"DIMENSION"FUNCTION DEF"OUT OF BOUNDS"TYPE"FORMAT"LINE NUMBER"FILE"HARD DISK"DIVIDE ZERO"SYNTAX"CONTINUE"TOO LARGE OR NO PROGRAM"DOUBLE DEF"CONTROL STACK"MISSING NEXT"READ"INTERNAL STACK OV"INPUT"MEMORY FULL"ARG MISMATCH"ILLEGAL DIRECT"LENGTH"NUMERIC OV"STOP" BLOCKS"!Z"YLK"Z*YZʹ1~]06);06,:06\?G 1#1>110~ ʫ1 #"0~ ʫ1 #"0,1x ,1,1,1,1{1{1{1{1{1{10ʹ1"YLK>D}*Y0  x ʹ1,0# {1> !~Zq+ # ~ ʷ1#mH͘K##~11 1!?#1~1#11#mH͘K1*[6"[*[6+"[*[#"Y!4G2YLKک.~4wʩ.![eHڻ." -7-͙MIJ|».}һ. ڻ.ͮM}*[w*[~~2I*["[>Â2*[2[>2[#H> ک.OPE##~.~怱O#~.*[62| 2" .73-#H> ҩ.5o&*Y#"Y~ 3 2LKک.>2[-3:[O:[*[" "YÝ3!/ 2[A3xGyO! a3.W_:4 X3.z!< .KE"[KE:[!/ w  ,  w#Ç352H[#H> ک.OPEPE~怱O~.#z:H[3 3=һ.w 3*[" .#H .́K.#H .Y1-g4> . HIJ9H>D4IJz»..2[!H[-3g4> .+6 ]4 ! "[!H[7 E> ! "["[LKڡ4"[9H¡4LKک.|ʻ."[#H ©.I*[~4###"Y+H ʲ4oKھ4Iھ4¾4*[*Y++KEþ4*[DM*[*[~#KE*U 4͙MLK>5}!:"- *yY% ͙M:-2[#H *[*[O5́K9HO5#H *[O5́K#"H[#H ©.lM~:yY‰5:[ʉ5=†5!u>SHKlM:-=2[Z1#NHvMlM!H[eH_5! "Y"YLK5"Y9H5LKک.|ʩ."Y H>2Y-2Y5o&Z͘K> NH!0SH*[*[ I#} 6$|LKک.)J HLKک.)J"[ H![eHҩ.*[~*U*[ I#DM U-:Y0.2Y2Y"["Y6!yY"ÝK.lM 2*[~20.+"Y"Y6 2Y2Y2[DXF6ʵ.HFG=0.!GHKEFè6###"YHͧHvM!9"Y*["Y7~F6:> 2Y2Y#H"Y/7.>+Ho&mHwEH> Ë́=êGIwE.Ḧ́=ͪGḦ́=>;Hz7!B͕G}7̈́=͸G*Y~F=r+s+r+s+6"Y"[GFV0*[.ʤ7¥77I2H[*[#~=#ͶF7}EeH=N#F:H[N~mH 8DM,A8"[mH~F"Y6HT8̈́=ͧGH:Yʻ8>2YoKE97*[RD+H..c>#mH###*[RDxʛ8zʶ8~++ ʃ8á8zʡ87!8!Y6A>"[88<á8#H"8+H#H ."8+H8 \oKһ8+Hʺ8»8»8>2YK8I*[#~="[oK.I)J### 8IJz».HoK. E9 H39I)Jq9I͸GoK.)J~FDMp+q+6###%8I*[#~=ʕ9ʦ9~9#^#V"[~ 8:#~Gy_>YWw#³9"[#~9RD~F9*[U"[+#̈́=~F9͕G#^#V"Y#~"[#^#V"[ͪG*[9I %:\oK#H ȸ+H%:>:F]:Gү.HIJʯ.H=E9H;:y OGү.H!GIJ!GKE9Hڕ:IJKw:HeEV:I~F:>2Y*Y*[!9"Y2yYgM!0SH#;HVIG9H:FGd0.wEG;H:ͪG;>" EG9H:oK*[)J+"YʹH͙M@;ͨFlMͨF,<%ʝ;Hx;̈́=ͧG*[0R;MGͮMlMSH9H@;lM*[RD"[zo;ͮMG;MlMFDM+Ä;H+HLK;D;![Z;@C; ;$;#<~wà;ʹHà;|.}!.2[+HI1;H͙M>";H<?DMK2[lMZwEʟ<2Sڸ<9Hڰ E"Y Æ2[i< INPUT ERROR-RETYPE " IF: IH0.IJ9HIJz».{>!=H[!H[wz».#s#6IJ9HIJsIͨF>o=oK.)J"[ HwE."[ HwE."[>2[ɯ2[QX*[g4Î2!@!9i0.2Y:Y=ͶFگ=}E.͕G==H='I=#HAʪAAYBʋB!@U>#H=H>:Y.*Y->>>.+HÖ=> c>+H͇=~ͅG?>"[ DM!=#mH+H*Y-.c>Ḧ́=H/>O!@ READY"PRESS RETURN TO CONTINUE" ERROR" IN LINE "o65%225~2R6d2{423( 3655/7J71;7,8:L<:9O9w9;:::";6:<<1;%9=0=8VYWIU.s=D2P44==LETFORPRINTNEXTIFREADINPUTDATAGOTOGOSUBRETURNDIMSTOPENDRESTOREREMFNDEF!ONOUTFILLEXITOPENCLOSEWRITECHAINLINEDESTROYCREATEERRSETRUNLISTMEMSETSCRAUTOLOADCONTAPPENDRENNSAVESAVEBYEEDITDELPSIZECATSTEPTOTHENTABELSECHR$ASCVALSTR$NOENDMARKINCHAR$FILE([*+-/ANDOR>=<=<>=>=<<=>NOT^INTLENCALLRNDSGNSINSQRTATNFREEINPEXAMABSCOSLOGEXPTYPA XC MNBNA O AA&^qA}AC&AAA_AAA A AAB0BQBA^1][B.Aw.Aw>Aw.Aw.Aw.Aw.Aw>?A ?APYDMg dAdA! dA# YA$wG> PYwG xAxABKxAwG!>zGHIJ9HºAIJ!A3JH=HwE.ÿAHHAwE.zʻ.n&ÿAABGx&BO&B$ "BB$ B%BK>NLJ>!=H[o&3JͧG*Y*[ I3JLJn ҢB!>͕GA~o&ÿALJͯX.W!3J#3J3J#3J0BP@ACBH@.@B)D>y[zGy[t[Oy[t[NBy[Mt[y[N=C!t[zGwTB@TBA hCPY!BzGJ CBC,AڠC͕GLJt[zGt[MÑC͕G1]!YͪGM[CCͅGBK(DMLJ+"n[C:-W0!G#C"n[ͧG*n[}-D?|g}oC"n[#3JͅGBK(DO!"n[eS`E"[zGM*["[N=4DŷH҆D.#HʻDDD>'IҨDwE.zʨD*[DM IG"[*[~ #zD¹D>;HYDHIJ͸GsHèDHIJ{ _D:-ʮ:DḦ́=HͧGʹH*[0RX"[ÆD*[SD*["[!9eH)EKE*[z~+2E! GKEs#r#^#V#!G## KEKKE##GͶF.FE#H>;HʝEGE!GE> OGUE##IJeHһ.##N#FxEK+ HðEH#HHG =EPE"[PE"["[>;H?SF_F![eHF».*[+"[9H>F_F![eH:F»."[H*[ I.#"["[7*[*[>=*[*[*[IJʻ."["["[+H\ ʘF!Y.:~F~?ڤF###"Y#H \!Y[GGhG?OͶF.>$;HyOFy@O:~F+H 7ȸȹF#H G+HFF/.ʵ.HxA*[#*UT]mH|=G~#*G##!G"["[KEq###>2Y7#HA[?rG#H0:?#"Y!B~+ |G*[ T]ͅGBK͸GzG<2Y!Y*[ "[zG*[G"[*Y*Y"Y"Y*YG"YvH!YeHG![eH0*[+"[.,H+HH)+H.+H+"Y*Y~# .H"Y>,+H+"Y7 HH UH"~G .DM#UH#z+{~#fop#zvH#H+H[GڔHhG+H"Y"$*["[*["[*["[*["[!#"[#H!Y2S"Y!YÕGH>""H;H*Y"[G~#I .H"Y*[:Y =:Y0.}o|gW>;HIF.Gڵ.PEH͸G6IwEIʋI͕G͸Gr+s+6̈́=ͪG+H,“II9HIUI> EwI).I>);HI͸Gr+s+w!9͸GxYS w +¾Ir+61yY>;H6w9I0."Y"Y*Y"Y*Y*Y*["[*[Ny7#"[eH+?*[*[ڻ."[ JI..\[͘K> !Y2SÕG̈́=ͅGAͧG~.O #~Jڻ. J~Jڻ. hJz̈́=ͅGBK(D,AҟJLJ{Z*[ͅG͕GJOͅGAͅG͕GLJͅGBKJMͅG DMNͧGLJ{%`C"[bk)))*[_zWYzGA,Ax5Kz».{Y:KX:K|».}gû.By K!T)FK @K#H"[.T?Jڻ..TZK*[+"Y>;H7#^#V#"Y#H *[LKک.I.ɯͽKͽKͽKͽKͽK>0"[ K*[BѰ>0:yY G KK:-x*Y"Y~MY!Z6 ;MOͮMO2Y2YK )L6 !ZY~# L!LʠLʩLLLL_LLʶL MM@M L:Y{L {Lw#6 GDM ͮMOZ!Yw# L6 0. LsL͠L sLìLK LDMºLsLGL L%DML:-G:YL+6 :YDM DMDM:Y<2YDM>DM!ZY#~ "M@DMlM:[K*[SHK:yY \M ;M*[4;M*[6;M DM DM:- 2Y:Y½::02[:[&/é:>#;H>ڪMIJ9H{2yY!zY:yY*U"[~!YòM M![>6+=M![cN>![ NON>w MN[ON N+=M[͇N[ͲNG~@ZNTN>ZN0.G怰[zGO+wgN+w!~ʝNP+>æN>'w+ >¦N !T]bNշ'w+N![w+ N[ Oo`iN/< OzGV[+~ O![1OO+ *O=O#T]cN~P+ԖNF+O7>'+ UOOx'w+ ?qOT]#w…O#~žO O¦O xwO6¼OcN+|G'+OO|G>~͝NxNNpbN. ! "[![w+P6![cN![w+(P w+0P6[![͕PG![͕P*[w#"[ ?P͇NͲNgoAʓPP>PNNW{怲 7>'+ŸPژPNy"[G!i[6":[P+60.=P+6."["["[P+6 P"[+6!*[~cQAQ0Q QH RQQARQ#Q+~.-Q,-Q"JQ1Q!h[:[#uQ:[Q~0Q6 +uQ:[#Q#6"+~"[.®Q+~ ʩQ!®Q##60îQ>0Q*[~>-Q*[/G"Q>0QQ:[@Q![5Q6>,Q*[+W~!."[r*[#W~"R"[rz5cQ-Q>W>0x=_*[~+R0>2[>2[:[IʻR#ʋRER:[ͺP:[ dR~>+Q>$Q*[:[#~R#~ vR+T]"ÂR!"[~ʻRIRG+~®R~ʠRxARJMRJ.2[:[<ͺP>"2h[SR~2[RAw:[ͺP*[~.R#6E#:[+ SA S-/"SR2[2[2[>2[+[S[SVS-\S>2["[>+6=aS"["[.TڛS.€S.TډS7![5.TʂSSESS.TʘSکS.ʆSÔSDT![4.TکS.SES![@S![*[w*[:[G.TSDTSESS.TT+ T T- T€S2[.TҀS_.T!TJ.T:[{S/%;HgU͆JaX H>;H>&;HUHʵU͑Ẍ́=ͧG!Y~•U6~͘W#—U9HjU͑X>nWRD|##U͑X>͘W|͘WU͑X>͘W}͘W*["[zʤU~͘W+U͑XIJ».{͘WäUIJͯX.>%;H)V͆JaX H>&;HҩVwE^VW.ͺWw#JV9H,VWV*[ͺW{V.VͺWWͺW_*[+ IG*[zʥVͺWw+ÓVEwE.ͺWo&3JͪGWV#HIJͯX.~V: !V)G6#KE>%;H>VIJ{ Hg4> .2H[PE###KEPE~.~!H[w4W)KEKEr:H[w9H3JwE.êG#HIJͯX?X~w/X*[~ wWw~#PE NW++~G nW q*[~怰?X PEKEW͛W/X*[W~~O#PEPEPEeHڻ.ʻ.PE!X" yWzW{_>" !." .!." .6 #6 #=$X*[~@~@wW~@~G~p WͯX?XTX*[~ eHʄXx„X{_eH?XKEw*[ ##F#~#N+ W\eHһ.z».{». KY~"[ͯX6X!."- !." COPYRIGHT NORTH STAR COMPUTERS, INC., 1978!! !GGZY= ZZ(.7.@@@@@@@@ yYyY߂Z_Z`B@BYE 11534,80 4) Z 11534,80 THEN GOTO 60 RINT1" TO MENU " UBTOTALS " .." ,X F2,M1BYE 11534,80 4) u! 64""Ya``##BYYZh[h[Y Y__!BzG],A!BzG],Aڻ.͕G͏G]M͏GBNͅGAͅG͕GͅGt[zGy[zGy[Ay[Nt[ ]My[t[Ny[N͏G]MͅGNͧGt[zGt[Mt[y[!!]>)Dt[~[!0]>)Dy[M~[N~[OBNBOͅG~wLJ{\/<{\]OM\<wPbCseQA)%FI=1b'vA$8C 2BDCA<]BOʻ..>@BK],A\]=ʻ.4t[zGBNBNt[BNt[Ot[zGt[M>y[!^)D>~[!^)Dy[M~[O]Nt[Mo&3J͏G]NͅGNçGdB1b'v@@)h1cIAg5`iBABK^N2[͕G͏G^O͏GBNͅGAͅG͕GLJ{d^:[2[ͅGt[zGy[zGy[Ay[Nt[^My[t[Ny[N͏G_MͅGNͧG͕G͏GM͏Gt[!_>)DͅGt[Mt[Mt[NͧG:[wpycA1AY&A1AAY&SX=ffW3Q>t&0;A@_!Bt[zGt[O!t[zGt[zGt[M> t[y[!_)Dy[Mz_y[ t_^N!y[_~ʉ_wzG@333#@'YE@w&g?D5u3"'C?q@IT>  R11534)  R  `dB),C$20),G$20),Q$20) 2 CLEAR EEN < R10592)\R10592) A 10639,00 F #0\ #1 P MENU FOLLOWS 5Z "* * * * * * * Game Site Info * * * * * * *" d +n "Select (1) - Normal Maintenance" +x " "j2120//> ڣ0Oͻ/"2ͻ/"2ͻ/"2}Ć0:->22ͻ/"2*2*2a-͆0ʻ0͌0һ0/ n- a-0//> -22͆0-0/0:2Dʣ-S¯0:222"2ͻ/"2ͻ/"2:2-)*2:2-)zک0-{ک0Ö.1/0ã-2/0U."222!0:2 0"2*j2~ 5.,5. 5.#"j2.͆0-)1/0:2DU.S¯0:222*2:2g.):2Ov.#|g}o"2*2Җ.#ڵ0͆0ʵ0͌0ҵ0*2*2Ͷ/*2Ͷ/*2}G:2怰oͶ/*2Ͷ/ *2*2DM*2.1/r0( "2"2! > .y:2O2* "2!u/" *2" *2" :2O:2J/yJ/<J/=!2=>/6 #C/*22" O*2 O*2 }O|G.*2"  *2/}<:2/!2=ʪ/â/6 #zª//s#r#^#V#*j2~ /#"j2*j2~"j2 #/"G~0/*j2~ /0!2"j2}o|g!2͂00@0&0@~0.__9090E0~00+ 0wG~0  ~0# 00*j2~#"j2 Z0000ɯ ~0 ~0  : yW:4 “0>FDT10k101010?20101r0/.[20 FROM FILE: "TO FILE: "EXISTING FILE. WRITE IN SINGLE(S) OR DOUBLE(D) DENSITY? "NEW FILE. SINGLE(S) OR DOUBLE(D) DENSITY? "SOURCE FILE NOT FOUND."DESTINATION FILE TOO SMALL."ILLEGAL DENSITY SPECIFICATION."NEW FILE WILL NOT FIT."ERROR OCCURRED."FILE DIRECTORY FULL."COPY COMPLETED."EXISTING FILE. PRESS RETURN TO CONTINUE."NEW FILE. PRESS RETURN TO CONTINUE."DOUBLE SIDED DRIVE REQUIRED"CONTROL-C STOP"( CHECK BALANCING ACT  . MIKE ERS 42884 12167938034 ;( 4150 PEMBROOK PLACE,Suite 218, AUSTOWN,OH 44515 2 < ` FF INDIVIDUAL VARIABLES WITHIN FILE ENTRY,ESLISH ENTRY SIZE 'S' JP F$4),T$1),V$1),B$20),U$1),N$8),O$1),S$8),L$1),R$1),D$20) 2Z S41120181811202 \ '2' IS MARK d X$60)\ ENTRY ER Fn X$" " x I$20) ; E$S),E1$S),W$S)\ STRING USED HOLD ENTIRE ENTRY 6 Q$"PROGFILE"\ E 3 FILE USED INMAN SRAGE )10),"* * CHECK BALANCING ACT * * " 3 "DO YOU WANT INSTRUCTIONS? (Y/N) ",A$\\ `  A$"Y" "CHKDOC"  #0,Q$\ #0,N  8206,176 ` / 10),"* * CHECK BALANCING ACT * * "\\ 1"#1....BALANCE #7....EXAMINE" 0"#2....LIST #8....DELETE" 5"#3....SORT #9....ALPHABETIZE" 4"#4....ADD #10...INITIALIZE" 1"#5....MODIFY #11...ANALYZE" 0"#6....ALPHABETICAL SEARCH #12...EXIT"\  "SELECT >",C " C1 C12  , C1  6 C2  @ C3  J C4  T C5  ^ C6  h C7 ( r C8 x | C9 T  C10   C11 b  C12 #0\ # ` \"* * * BALANCE * * *"\ - "START BALANCING AT WHICH ENTRY # ? ",I \ "PAPER COPY ? ",P$\  ` \ .  XI N1\ #0%XS5,E$  E$5,5)"B"  E$5,5)"C"   E$5,5)"C" S1$S1$S$  E$5,5)"D"   E$5,5)"D" S2$S2$S$  X\\ @ \ \   ` \"* * * LIST * * *"\ & "PAPER COPY? (Y/N) ",P$\ &0 "START LISTING AT ENTRY # ",I\ ,: "SKIM OR DETAILED DISPLAY? (S/D) ",H$ D ` N . X XI N1\ #0%XS5,E$ b E$45,45)"C" X l H$"S"  v H$"D"   X\ 8 \  \ 4 ` \"* * * SORT BY PURPOSE OR CHECK # * * *" 2 "SORT BY PURPOSE OR CHECK # ? (P/C) ",S1$\  "PAPER COPY? (Y/N) ",P$  .  S1$"P"   ST  "CHECK # ",V$\  X0 N1  B  J$E$1,4)  J$)V$)   X\\ 8      AGY ST * ( !4 "PURPOSE (a letter ) : ",V$ > ` H X0 N1 R B \ E$45,45)V$1,1)  f X\\ 8 p  z  ` \"* * * ADD * * *"\ % INITIALIZE E$ BLANKS TING  E$X$X$X$   \ COLLECT ENTRY  >  #0%NS5,E$,  NN1\ ! "ANOTHER ENTRY? (Y/N) ",A$  A$"Y"   #0%0,N,\  ` \"* * * EDIT * * *"\ + "MODIFY WHICH ENTRY (BY NUMBER) ",E\    E0 EN   X0 N1  B $ XE 8 . X 8 \ 'B "MODIFY THIS ENTRY? (Y/N) ",A$\ L A$"Y" j .V "MODIFY A DIFFERENT ENTRY? (Y/N) ",A$\ ` A$"Y"  j > t ` 2~ "THIS IS THE ENTRY THAT HAS BEEN MODIFIED"\  \  #0%XS5,E$, % "ANOTHER TO MODIFY? (Y/N) ",A$  A$"Y"   / ` \"* * * ALPHABETICAL SEARCH * * *"\ 1 "FIND ALL PROGRAMS BEGINNING WITH > ",U$\  "PAPER COPY? (Y/N) ",P$\  .  X0 N1  B  E$6,6)U$1,1)   X\\ 8 /  "ANOTHER ALPHABETICAL SEARCH? (Y/N) ",A$  A$"Y"   #( ` \"* * * EXAMINE * * *"\ 2 "EXAMINE ENTRY #",X\ < B0 BN 2 F B P \ )Z "EXAMINE ANOTHER ENTRY? (Y/N) ",A$ d A$"Y" 2 n "x ` \"* * * DELETE * * *"\ ! "DELETE WHICH ENTRY? ",X\  X0 XN   B   ' "DELETE THIS ENTRY? (Y/N) ",A$\  A$"Y"  . "DELETE A DIFFERENT ENTRY? (Y/N) ",A$\  A$"Y"  & "PRESS 'RETURN' TO DELETE",R$\  #0%N1)S5,E1$  JN2) X 1  #0%JS5,E$  #0%JS5,E1$,  E1$E$   NN1 " N0 N0 , #0%0,N, '6 "DELETE ANOTHER ENTRY? (Y/N) ",A$ @ A$"Y" x J )T ` \"* * * ALPHABETIZING * * *"\ 4^ "PRESS 'RETURN' TO BEGIN ALPHABETIZING ",R$\ h X0 N1\ B !r YX1 N1\ #0%YS5,E1$ | E$6,26)E1$6,26)   SWITCH HERE  W$E$  E$E1$  E1$W$  #0%XS5,E$,  #0%YS5,E1$,  Y  X #\\"FILE IS ALPHABETIZED"\\    + ` \"* * * INITIALAIZATION * * *"\ : "ARE YOU SURE YOU WANT TO INITIALIAZE? (Y/N) ",A$\  A$"Y" & "ARE YOU POSITIVE? (Y/N) ",A$\  A$"Y" *& "PRESS 'I' TO INITIALIZE ",R$\\\ 0 R$1,1)"I" ,: "DATA FILE IS BEING INITIALIZED"\\\ D N0\ #0%0,N, "N "DATA FILE IS INITIALIZED"\ X \ #b ` \"* * * ANALYZE * * *"\ l X1 4\\ v L 3 \12),N," ENTRIES ON DISK FILE- '",Q$,"'"\  L \\17), 1 N176100),"% OF FILE SPACE USED"\\ L  X1 4\\    + OF PROGRAM BODY SUBRINES FOLLOW ) "PRESS 'RETURN' TO CONTINUE ",R$\  SKIM DISPLAY  j A%4I,X,\" ",E$1,4)," ",E$27,35)," $ ",%9F2,E$36,44)   DETAIL DISPLAY  j   "ENTRY #",X H "CHECK # : ",E$1,4)," TYPE: ",E$5,5)," Pd to/Cr from: ",E$6,26) L  "DATE : ",E$27,35)," AMOUNT : ",E$36,44)," CODE : ",E$45,45)," ",I$ % ,X,Y * "COMMENTS : ",E$46,66) 4 #> SUBRINE COLLECT ENTRY 6H "TYPE OF TRANSACTION (B,C,orD) : ",T$\\T$T$X$ R T$1,1)"B"  \ T$1,1)" " T$E$5,5) #fZ$\"CHECK # : ",F$\F$F$X$\ p F$1,1)"^" H z F$1,1)" " F$E$1,4) ) "PURPOSE (a letter) ",L$\\L$L$X$  L$1,1)"^" R ! L$1,1)" " L$E$45,45) / "PAID TO OR CREDIT FROM : ",B$\\B$B$X$  B$1,1)"^"   B$1,1)" " B$E$6,26)  "DATE : ",N$\\N$N$X$  N$1,1)"^"  ! N$1,1)" " N$E$27,35) ! "AMOUNT : $ ",S$\\S$S$X$ ! S$1,1)" " S$E$36,44)  S$1,1)"^"   "COMMENTS : "  ">",D$\\D$D$X$  D$1,1)"^"  . D$1,1)" " D$" " ! D$1,1)" " D$E$46,66) & D$)8 D$D$" " ,$ E$F$T$V$B$U$N$O$S$L$R$D$ \ ). P$"Y" 8206,128 8206,176\ 8 8206,176\ B #0%XS5,E$\\ COMM EL "--------------------------------------------------------------" V ` M10535)\ ,j E$45,45)"D" I$"Deposit Checking" (t E$45,45)"L" I$"Loan Payment" '~ E$45,45)"C" I$"Car Payment" 0 E$45,45)"E" I$"Ohio Edison,Ohio Gas" ) E$45,45)"T" I$"Ohio Bell,MCI" E$45,45)"F" I$"Food" & E$45,45)"O" I$"Other Loan" ( E$45,45)"W" I$"Casual Labor" $ E$45,45)"S" I$"Supplies" / E$45,45)"P" I$"Periodicals,Clipper" 2 E$45,45)"A" I$"Equipment, Furnishings" & E$45,45)"X" I$"Petty Cash" ) E$45,45)"R" I$"Rent,Mortgage" . E$45,45)"M" I$"Medical,Dental,etc" / E$45,45)"Y" I$"Taxes,Tags,Licenses" % E$45,45)"I" I$"Insurance" 2 E$45,45)"Z" I$"Miscellaneous Expenses"   ` ( "PURPOSE CODES : "\ 62 "D=Deposit,Checking Acct. S=Supplies " @< "L=Loan Payment P=Periodicals,Clipper" BF "C=Car Payment A=Equipment,Furnishings" 7P "E=Ohio Edison,Ohio Gas X=Petty Cash" ;Z "T=Ohio Bell,MCI R=Rent, Mortgage" ?d "F=Food M=Medical,Dental,etc" @n "O=Other Loans Y=Taxes,Tags,Licenses" 7x "W=Casual Labor I=Insurance " "Z=Miscellaneous Expense "  \ \ "Make Entries As Follows:" " "Check # : (up to 4 digits)" : "Type of Transaction : (B=Balance,C=Credit,D=Debit)" 4 "Paid to or Credit From (up to 20 characters)"  "Date : (dd/mm/yy)" ' "Amount : (in Dollars and Cents)" ! "Purpose Code : (as above)" ( "Comments : (up to 20 characters)"  A %4I,X,\"BALANCE AS OF ",E$27,35)," IS : $ ",%9F2,E$36,44)  8 \"Do you need help ? (Y/N)",Z2$\ Z2$"Y"    F$" "\F$E$1,4) " L$" "\L$E$45,45) *, B$" BALANCE:"\B$E$6,26) 6  .@ \"Enter Today's Date (dd/mm/yy) : ",A4$ J E$X$X$X$ T F$" "\F$E$1,4) ^ L$""\L$E$45,45) *h B$" BALANCE :"\B$E$6,26) r T$"B"\T$E$5,5) | N$A4$\N$E$27,35)  S$S1$S2$\S$E$36,44) + D$" "\D$E$46,66) ( E$F$T$V$B$U$N$O$S$L$R$D$ NN1  #0%0,N,  #0%XS5,E$,   "NO COMMENTS"\ \ g m=machinery,tools" 86 "n=Christmas o=ocean,sea,water p=names" @  << _PC<< F SOIL,FARMINGTS,TREESZEKE 7 c APRIL,84MEN (M): IDEAS (I): NAMES (p) A CHARACTER DEVELOPED BY CHARLIE... ' CLIPPER PROGRAM DOCUMENTATI   4 15),"* * CLIPPER PROGRAM DOCUMENTATION * * " 4(\"DO YOU NEED A PAPER COPY? (Y/N) ",P$\ p\ 82"THIS PROGRAM IS DESIGNED TO AID IN LOCATING CLIPS" 7<"OF REFERENCE ART --- MUCH AS A CARD FILE IN THE " F"PUBLIC LIBRARY..." 8P"NORTH STAR BASIC V.6 IS USED. PROGRAM IS DESIGNED" 4Z"FOR A 16 LINE, 64 CHARACTER FIELD TERMINAL."\ =d"CREATE THE FILE ON THE DISC. USE 'PROGFILE', SHORT FOR" An"'PROGRAM FILE', AS THE DATA FILE. USE THE 'INITIALIZATION'" 9x"MODULE BEFORE CONTINUING THE USE OF THE PROGRAM."\  \  !"DESCRIPTION OF COMMANDS:"\ "FIND -" 3"REQUESTS A FILE NAME...ALL ENTRIES WITH THAT" @"NAME WILL BE FOUND AND DISPLAYED IN A SHORTENED OR 'SKIM'" "FORM."\ "LIST -" ="WILL LIST ALL ENTRIES IN THE FILE IN BOTH DETAILED AND" "A SKIM DISPLAY."\  \  "SORT-" 5"THIS COMMAND WILL SELECT ART BY FILE NUMBER OR" 3"CATAGORY...PRINTOUT WILL BE IN SKIM DISPLAY." $"HARD COPY MAY BE REQUESTED."\ "ADD-" 7"REQUESTS THE INFORMATION FOR STORAGE IN THE DATA" &""FILE AND UPDATES THE FILE SIZE." :,"IF A TYPING ERROR IS MADE, TYPE A '^' (OR UP ARROW)" :6"AT THE NEXT INPUT REQUEST. YOU MAY CONTINUE TO JUMP" :@"LINES UNTIL THE LINE YOU WISH TO CORRECT IS REACHED" 8J"FOR RETYPING. A RETURN MAY BE MADE TO THE CURRENT" 8T"INPUT LINE BY PRESSING 'RETURN', WITHOUT ALTERING" )^"PREVIOUSLY ENTERED CORRECT DATA."\ h \  r"MODIFY -" 8|"WILL EDIT A FILE ENTRY. A DETAILED DISPLAY OF THE" ;"REQUESTED ENTRY WILL BE CALLED UP FIRST TO MAKE SURE" :"THE CORRECT ENTRY WILL BE EDITED. AGAIN, A 'RETURN'" <"WILL NOT MODIFY THE EXISTING DATA. BACK-STEPPING WILL" ;"OCCUR WITH A '^' OR UP-ARROW. AFTER THE MODIFICATION" >"HAS BEEN MADE, THE CORRECTED ENTRY WILL BE DISPLAYED."\ "ALPHABETICAL SEARCH -" 6"WILL SKIM DISPLAY ALL FILES THAT BEGIN WITH THE" "REQUESTED LETTER."\  \  "EXAMINE -" :"ALLOWS EXAMINATION OF A DATA ENTRY CALLED UP BY THE" 2"INDEX NUMBER AND USES A DETAILED DISPLAY."\ "DELETE -" 6"DELETES AN ENTRY FROM THE FILE. THE FILE NUMBER" 6"MUST BE USED. THE REQUESTED DATA WILL APPEAR IN" 7"A DETAILED DISPLAY BEFORE THE PROGRAM IS ALLOWED" 8&"TO REMOVE AN ENTRY FROM THE FILE. THERE WILL BE A" 60"TIME DELAY AS THE PROGRAM READJUSTS THE FILE TO" :"REMOVE EMPTY SPACE."\ D \  N"ALPHABETIZE -" =X"WILL ALPHABETIZE THE FILE ENTRIES. HELPFUL ON HARDCOPY" Ab"SEARCH FOR A FILE ENTRY. TAKES TIME FOR THE SORT TO OCCUR." 2l"PROGRAM NOTIFIES YOU WHEN IT IS FINISHED."\ v"INITIALIZE -" 5"READIES THE FILE TO RECEIVE DATA. MUST BE USED" 4"BEFORE USING THE PROGRAM. MAY ALSO BE USED TO" 8"'RESTART' THE FILE. *** CAUTION *** YOU WILL LOSE" %"THE FILE IF IMPROPERLY USED."\  \  "ANALYZE -" 2"DISPLAYS THE TOTAL NUMBER OF ENTRIES IN THE" ."PROGRAM FILE AND INDICATES THE PER/CENT" $"OF FILE SPACE ALREADY USED."\ "EXIT -" 3"ALWAYS USE THIS COMMAND TO LEAVE THE PROGRAM" 4"TO INSURE THAT ALL NEW DATA WILL BE STORED ON" "THE DISC."\  \   "FINAL NOTES -"\ 7"THE FIRST NUMBER ON THE SKIM DISPLAY IS THE FILE" 8 "ENTRY NUMBER - NECESSARY FOR SOME COMMANDS IN THE" *"PROGRAM."\ 44"A 'RETURN' MAY BE TYPED FOR ANY '(Y/N)' INPUT" 5>"REQUEST WITHOUT INTERRUPTION OF THE PROGRAM."\ H 8206,176 8R "PRESS 'RETURN' TO GO BACK TO CLIPPER PROGRAM",R$ \ "CLIPPER" f 'p P$"Y" 8206,128 8206,176 z 27),"M",\  "Hit CR...",R$\  M10535)\ %0,N, ' "DELETE ANOTHER ENTRY? (Y/N) ",A$  A$"Y"   )  \"* * * ALPHABETIZING * * *"\ 4 "PRESS 'RETURN' TO BEGIN ALPHABETIZING ",R$\  X0 N1\  ! YX1 N1\ #0%YS5,E1$  E$1,8)E1$1,8) 6  SWITCH HERE  W$E$  E$E1$  E1$W$ " #0%XS5,E$, , #0%YS5,E1$, 6 Y @ X #J\\"FILE IS ALPHABETIZED"\\ T : ^ +h  \"* * * INITIAL 8 P$"Y" P2$,\ 'B "PRESS RETURN TO CONTINUE ",R$\ UE ",R$\ RETURN TO CONTINUE ",R$\ $,\ 8 P$"Y" P2$,\ 'B "PRESS RETURN TO CONTINUE ",R$\ $,\ 8 P$"Y" P2$,\ 'B "PRESS RETURN TO CONTINUE ",R$\  "PRESS RETURN TO CONTINUE ",R$\  RETURN TO CONTINUE ",R$\ R$\ \ 'B "PRESS RETURN TO CONTINUE ",R$\  "PRESS RETURN TO CONTINUE ",R$\ R$\  BA B 05/05/84 100.00 TEST CURRENT BALANCE0A101 C PAYCHECK 05/04/84 250.00 DDEPOSIT CHECK OA102 D OHIO EDISON 05/02/84 37.50 EPAY PHONE BILL KA103 D MAHONING BANK 05/01/84 108.00 CPAY CAR LOAN A104 D SPARKLE 05/01/84 12.50 FBUY FOOD KB105 D JOHN DOE 05/02/84 100.00 W PAY A106 D PEMBROOK APTS 05/04/84 215.00 RRENT B107 D PEMBROOK APTS 05/05 215.0R RENTAL B108 D BEN CASEY 05/06 13.76M FIX B109 D MYSELF 05/06/84 20.00 X CASH A110 D DOLLAR BANK 05/10/84 47.44 LLOAN A111 D OHIO BELL 05/12/84 34.43 TPAY PHONE BILL