DOS  BASIC - CF $- CD '- STORE )  PRINT 5 PRINT1 9 PRINT2 > PRINT3 B 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""6010X/U..2@0j/U..2A0!@0/;/2>0b->2>0:A0OA/b-:@0OA/b-/U...Nb-Y'/> c-2?0*60~ /:?0-;/ʊ-:4 0F.^u/I.p.:B0 /!͵-/I./( "<0":0! > -y:@0!>0O* "80!#." 0*:0" :>0!A0O*80" *<00" /O*:0 *<0 }O|Gõ-..*80*:0i.}:>02>0-/"G3/I.*60~ I.p.!B0"60}o|g!B07/-/@ʉ.‘.@3/!/__ʤ.ʤ.°.3//+v.wG3/  3/#v./*60~ .#"60*60~"60 #"60.*60~#"60 . /0///ɯ 3/ 3/////I./( //'0/  : yW:4 H/>FDCOPY FROM DRIVE: "TO DRIVE: "LOAD DISKETTES AND PRESS RETURN WHEN READY."COPY COMPLETED."ERROR OCCURRED."ILLEGAL DRIVE SPECIFICATION."Y OR N ANSWER REQUIRED"COPY BOTH SIDES (Y OR N)? "TO COPY SIDE A ONLY, "CONTROL-C STOP" VIDEO GAMES MAENANCE   ENSI ARRAYS 7( N$30),A$30),Z$30),P$12),C$20),G$20),Q$20) 2 CLEAR EEN < R10535) A 8206,176 F #0\ #1 P X11 5\\ X1 5Z "* * * * * * * Game Site Info * * * * * * *" d \Q0 +n "Select (1) - Normal Maintenance" +x " (2) - Display Store Data" 1 " (3) - Create a NEW Store Entry" - " (4) - To Exit this program"   Q M0\M10  Q1 <  Q4  Q4 <  Q3   Q2 l  NMAL MAENANCE  CLEAR EEN  R10535)  X41 5\\ X4 7 "* * * * * * * NORMAL MAINTENANCE * * * * * * *"  \Q0 ) "Select (1) - Add a new game" '" " (2) - Enter COUNTS" 2, " (3) - Modify Game Header Info" 16 " (4) - To RETURN to main menu" @ J Q T Q1 ^ Q4 h Q4 < r Q3 | Q2   Q1   ADD A NEW GAME  CLEAR SREEN  R10535)  "Add a new game"  $ "Enter the STORE NUMBER ",F$  Y0\D30  #0  #0,F$",2"  #0,S$,N$,A$,Z$,P$,C$ : 0)1 #0,G$,S1,S2$,D1,D2,C1,C2,D,Y,D3,D6,D7,D8  0)0    $ "Enter the GAME NAME ",G$ $ " MAEMI S/N ",S1 %& " GAME S/N ",S2$ $+ " DATE ORIGIN ",D1 $0 " START COUNT ",C1 $: " END COUNT ",C2 #D " # DAYS ",D /N #0,G$,S1,S2$,D1,D2,C1,C2,D,Y,D3,D6,D7,D8 X #0 7b "New Entry Complete....RETURN to continue...",M$ l < 2v "NO ENTRIES THIS FILE - DESTROY & RECREATE"  #0   Enter COUNTS  CLEAR EEN  R10535) 1 "* * * * * * * Enter Counts * * * * * * *"  $ "Enter the STORE NUMBER ",F$ ! " GAME NAME ",Q$  #0,F$",2"  0)0 v  #0,S$,N$,A$,Z$,P$,C$  0)0   0)0   #0,G$ 6 G$Q$ #0,S1,S2$,D1,D2,C1,C2,D,Y,D3,D6,D7,D8   G$Q$  * #0,S1,S2$,D1 $4 " MAEMI S/N ",S1 %> " GAME S/N ",S2$ $H " DATE ORIGIN ",D1 $R " COUNT DATE ",D2 $\ " START COUNT ",C1 $f " END COUNT ",C2 #p " NUMBER DAYS ",D $z C2C1 FC2C1\ C2C1 F0 * C21000000C1) FC21000000C1)  C2C1 F0  TAL YTD PLAYS  YYF  TAL YTD #DAYS  D3D3D  % "ARE THE ENTRIES CORRECT? ",M$  M$"NO" R  Y0\D30 $ #0,D2,C1,C2,D,Y,D3,D6,D7,D8,  #0 ( "Hit RETURN to continue......",M$  < " \ "GAME NOT ON FILE....."\  DISPLAY SRE  #0\ #1  M0\M10 $ CLEAR EEN . R10535) 3 8206,128 B $G " STORE NUMBER ",F$ L F$"END" 8206,176 Q F$"END" < V #0,F$",2" ` #0,S$,N$,A$,Z$,P$,C$ $j " STORE NAME ",N$   0)0  / #0,G$,S1,S2$,D1,D2,C1,C2,D,Y,D3,D6,D7,D8 ( G$" " <  M0\M10 $ C2C1 FC2C1\ C2C1 F0 * C21000000C1) FC21000000C1)  C2C1 F0  D30 D3D\ Y0 YF  D30 M1M1Y.25   D0 MF.25 $ " GAME NAME ",G$ $ " MAEMI S/N ",S1 %( " GAME S/N ",S2$ $2 " DATE ORIGIN ",D1 $F " START COUNT ",C1 $P " END COUNT ",C2 #Z " # PLAYS ",F )d " INCOME $ ",%10F2,M      Create a NEW SRE Entry  CLEAR EEN  R10535)  20),"NEW STORE ENTRY"\  "Enter the FILENAME ",F$ 8 "Enter the MAXIMUM Expected quantity of games ",X ! "OPENING NEW FILE........"  XX)  F$",2",X  GET NEW   . "OPENING THE MASTER REGISTER FILE....."  #1,"MASTER",2 " ^ NEW MASTER E , 1)0 ^ 6 #1,S$,P,D,G,A,Y,T 1@ F$S$ "MASTER ENTRY ALREADY EXISTS..." J F$S$ r T , ^ P0\D0\G0\A0\Y0\T0 h #1,F$,P,D,G,A,Y,T r #1 | "NEW STORE FILE OPEN" ! "ARE ENTRIES CORRECT? ",M$  M$"YES" <   NEW SRE  #0,F$",2" " "Enter the STORE NAME ",N$ " "Enter the ADDRESS ",A$ " "Enter the CITY/STATE ",Z$ " "Enter the PHONE # ",P$ " "Enter your CONTACT ",C$    #0,F$,N$,A$,Z$,P$,C$  "New Entry is COMPLETE"  #0   STRING SIZING  # L1 30N$)\N$N$" "\ L #& L1 30Z$)\Z$Z$" "\ L #0 L1 12P$)\P$P$" "\ L #: L1 20C$)\C$C$" "\ L #D L1 20G$)\G$G$" "\ L #N L1 20Q$)\Q$Q$" "\ L #X L1 30A$)\A$A$" "\ L b l R10535) q X21 5\\ X2 +v "* * * * * * STORE DATA * * * * * * "  \Z0 ! "SELECT : (0) - TO QUIT " & " (1) - SHORT REPORT " , " (2) - DISPLAY STORE DATA " . " (3) - PRINT GAMES & TOTALS " & " (4) - BACK TO MENU "   Z  Z0 <  Z4 <  Z0  Z1 "PRINT2"  Z2   Z3 "PRINT"  Z4 < ttwouuOudttu7uw?uwt BK FRANKFORDWN  gu w  MILLIPEDEAN Gu _u`A@AWu`A Aw END317 BK431 BK FRANKFORD MS. PAC MANE74016`H0EBNT2"  Z2   Z3 "PRINT"  Z4 <      w `A@AwA@A,w1000000C1)  C2C1 F0  D30 D3D\ Y0 YF  D30 M1M1Y.25   D0 MF.25 $ " GAME NAME ",G$ $ 8206,128 I"STORE # STORE NAME GAME NAME # PLAYS INCOME"  ( #0\ #1 72 N$30),A$30),Z$30),P$12),C$20),G$20),Q$20) < M0\M10 F #0\ #1 P R10535) Z 8206,176 d " ",F$ n 8206,128 x F$"END" "  F$"END" "STORE"  #0,F$",2"  #0,S$,N$,A$,Z$,P$,C$  0)0 F / #0,G$,S1,S2$,D1,D2,C1,C2,D,Y,D3,D6,D7,D8 , G$" " "STORE" M0\M10 $ C2C1 FC2C1\ C2C1 F0 * C21000000C1) FC21000000C1)  C2C1 F0  D30 D3D\ Y0 YF  D30 M1M1Y.25  D0 MF.25  I1I1M\I2I2M1\F1F1F 0 S$,8),N$,32),G$,48),F,56),%10F2,M  " \ G, "GRAND TOTAL IS",F1," PLAYS FOR $",%10F2,I2," SINCE APRIL 1,1983" 6 8206,176 @    Vf  M "STORE"  CALCULATIS  M0\M10 $ C2C1 FC2C1\ C2C1 F0 * C21000000C1) FC21000000C1)  C2C1 F0  D30 D3D\ Y0 YF  D30 M1M1Y.25  D0 MF.25  TALIZE  I1I1M\I2I2M1\F1F1F  OeBURGER KING HOPEWELLRGEIGHTS h4118 OAKLAWN BLVD.DDE D.28 VOPEWELL,VA. 2386030 23834 g ?-804-526-61|jTERRYEOTSON gCHANGERIDEOOW  7b "New Entry Complete....RETURN to continue...",M$ l < 2v "NO ENTRIES THIS FILE - DESTROY & RECREATE"  #0   Enter COUNTS  CLEAR EEN  R10592) 1 "* * * * * * * Enter Counts * * * * * * *"  $ "Enter the STORE NUMBER ",F$ ! " GAME NAME ",Q$  #0,F$  0)0 v  #0,S$,N$,A$,Z$,P$,C$  0)0   0)0   #0,G$ 6 G$Q$ #0,S1,S2$,D1,D2,C1,C2,D,Y,D3,D6,D7,D8   G$Q$  * #0,S1,S2$,D1 $ INCOME SUMMARY RINE   ENSI THE ARRAYS 7( N$30),A$30),Z$30),P$12),C$20),G$20),Q$20) 2 B0 -< THE MASTER ING THE SRE NUMBERS) F #1,"MASTER"",2" P J Z CLEAR EEN d R10535) #i "DO YOU WANT A PRINTOUT? ",J$ )j J$"YES" 8206,128 8206,176 n P) IS THE PAGE COUNTER x P0\L20  GET THE DATE  THE HEADERS  L19   GET NAME  0)0 J  #0,S$,N$,A$,Z$,P$,C$  0)0 : 0)1 #0,G$,S1,S2$,D1,D2,C1,C2,D,Y,D3,D6,D7,D8  GO CALCULATE  + S$,10),G$,25),F,35),M,45),M1  B1  HEADERS  P OF M  R10535) " PP1\L0 D, "STORE # GAME NAME # PLAYS INCOME #1 INCOME #2 PAGE ",P 6 @ #J GET A NAME SUMMARY EOF T 1)0  ^ #1,F$,P,D,G,A,Y,T h N m P,L,E r #0,F$",2" |  SUMMARY RINE  SUSTAL FIRST  l  / "GRAND TOTAL",25),F1,35),I1,45),I2  #0\ #1  " ",Z$  "STORE"  CALCULATIS  M0\M10 $ C2C1 FC2C1\ C2C1 F0 * C21000000C1) FC21000000C1)  C2C1 F0  D30 D3D\ Y0 YF  D30 M1M1Y.25  D0 MF.25 & TALIZE 0 I1I1M\I2I2M1\F1F1F : F2F2F\I3I3M\I4I4M1 D N SUSTALS X B0 b F$D$ l ,v "SUBTOTALS",25),F2,35),I3,45),I4  I30\I40\F20  D$F$   LL3   Yf BK2546  fF dQ Ee BK2546 eE 00292624 f`(0E)f!fWFWF1f9fAfQfqfFif9GTE ORIGIN ",D1 $R " COUNT DATE ",D2 $\ " START COUNT ",C1 $f " END COUNT ",C2 #p " NUMBER DAYS ",D $z  #0,F$,N$,A$,Z$,P$,C$  "New Entry is COMPLETE"  #0   STRING SIZING  # L1 30N$)\N$N$" "\ L #& L1 30Z$)\Z$Z$" "\ L #0 L1 12P$)\P$P$" "\ L #: L1 20C$)\C$C$" "\ L #D L1 20G$0 N$30),A$30),Z$30),P$12),C$20),G$20)  SRE WITH GAMES LY  R10535) $ " DO YOU WANT A PRINTOUT? ",J$ )( J$"YES" 8206,128 8206,176 2 +< "* * * * * * STORE DATA * * * * * * " F d P #0 Z #d " ENTER THE STORE NUMBER ",F$ n F$"END" "STORE" x #0,F$",2"  #0,S$,N$,A$,Z$,P$,C$ # " STORE NAME ",N$  \ - 0)0 "THERE ARE NO GAME ENTRIES." 0 0)0 "HIT RETURN TO CONTINUE...",M$  0)0 P / #0,G$,S1,S2$,D1,D2,C1,C2,D,Y,D3,D6,D7,D8 + G$" " "STORE" "" GAME NAME ",G$ "" MAEMI S/N ",S1 #" GAME S/N ",S2$ "" DATE ORIGIN ",D1 """ START COUNT ",C1 , 6  COUNT ",C1 , 6 START COUNT ",C1 , 6 START COUNT ",C1 , 6   dQ Ee BK2546 eE 00292624 f`(0E)f!f 8206,128 K"STORE # STORE NAME GAME NAME #PLAYS INCOME"  ( #0\ #1 72 N$30),A$30),Z$30),P$12),C$20),G$20),Q$20) < M0\M10 F #0\ #1 P R10535) Z 8206,176 d " ",F$ n 8206,128 x F$"END" "  F$"END" "STORE"  #0,F$",2"  #0,S$,N$,A$,Z$,P$,C$  0)0 F / #0,G$,S1,S2$,D1,D2,C1,C2,D,Y,D3,D6,D7,D8 , G$" " "STORE" M0\M10 $ C2C1 FC2C1\ C2C1 F0 * C21000000C1) FC21000000C1)  C2C1 F0  D30 D3D\ Y0 YF  D30 M1M1Y.25  D0 MF.25  I1I1M\I2I2M1\F1F1F 0 S$,8),N$,32),G$,48),F,56),%10F2,M  " \ G, "GRAND TOTAL IS",F1," PLAYS FOR $",%10F2,I2," SINCE APRIL 1,1983" 6 8206,176 @    Vf  MXIMUM Expected quantity of games ",X ! "OPENING NEW FILE........"  XX)  F$",2",X  GET NEW   . "OPENING THE MASTER REGISTER FILE....."  #1,"MASTER",2 " ^ NEW MASTER E , 1)0 ^ 6 #1,S$,P,D,G,A,Y,T 1@ F$S$ "MASTER ENTRY ALREADY EXISTS..." J F$S$ r T , ^ P0\D0\G0\A0\Y0\T0 h #1,F$,P,D,G,A,Y,T r #1 | "NEW STORE FILE OPEN" ! "ARE ENTRIES CORRECT? ",M$  M$"YES" <   NEW SRE  #0,F$",2" " "Enter the STORE NAME ",N$ " "Enter the ADDRESS ",A$ " "Enter the CITY/STATE ",Z$ " "Enter the PHONE # ",P$ " "Enter your CONTACT ",C$    #0,F$,N$,A$,Z$,P$,C$  "New Entry is COMPLETE"  #0   STRING SIZING  # L1 30N$)\N$N$" "\ L #& L1 30Z$)\Z$Z$" "\ L #0 L1 12P$)\P$P$" "\ L #: L1 20C$)\C$C$" "\ L #D L1 20G$)\G$G$" "\ L #N L1 20Q$)\Q$Q$" "\ L #X