A M. T `: REVISED BY AVG0 :"THIS PROGRAMS REMAIN THE COPYRIGHT OF";0 "BBG SOFTWARE ALL TIMES. COPYING, HIRING,"1 "LENDING, RE-RECORDING OR BROADCASTING IS";"SPECIFICALLY FORBIDDEN."/"SHOULD IT EVER FAIL TO LOAD, DUE TO ANY"1"CIRCUMSTANCES, SIMPLY RETURN IT FOR FREE";"REPLACEMENT."- "F I Y :""(XXXX) : ";DT (A(A)(HA)H,2T(0,p),S(p),DA$(p)(<" N = N O (I)"'F" O = D ."P" L T.ZUF$:UF$"" ZdUF$"N" nUF$"O" 2: x Z4" I 12 A -":A$" M."+"T 8 ""`, :"- .-"9DA$()A$:Ap:B$:"D.N:";B$,8"N N:";:"";DA$(A):DA$(A)(DA$(A),):"A N.:";GH$)"A - M NR.";GH$-"=====================================""D = 1""D D = 2""D SAVE = 3""D LOAD = 4""D VERIFY = 5""END = 6"V:V V ,, &, , 2, V@ " H,:"F : ";: :" '-'."%6" : -400"#@ASDH:(x):J(A)(A@) ,;T"": ,8:" CONTINUE='W' END='E'"^"I : ";A/h""rIpB|A$DA$(I):A$;();"(";T(A,I);")";( );"= ";%A$:B$(A$,):B$"W" B$"E":Ip::%W:B$"+"WT(A,I)T(A,I)(A$)W I::: I,C,F,R,G,E.,T.,B .5 TV ,R ,S, .,E-.  C-.,O.,TX$"":A:A "000000"Y$:Y$"" %X$X$Y$:Y$;:(X$)   () (X$) A(X$):%&"";( );" D I S P L A Y ".0"======================================"*:" = 1"(D" = 2"(N". = 3"!XA:A X, l, , ~ b X6l"F : ";: :MA:SGSLv(A)(A@) l":" A , ...."7Ip:S(I):I:I0: IM ?"M ";I;" /";DT;(();" T % S"%"";();"";(h);"".""4J:();"";(h);"":.""4""'X:Y:JpS(J)S(J)T(I,J)SGSGT(I,J):IM 4"JXXT(I,J):YYS(J)8A$DA$(J):A$;();"= ";T(I,J);( );S(J); S(J)XX: *%S()XX: *" XXA(HS(J)S())*(x);XX4J:IMIC>"S M= ";A(XT(I,));( );A(YS());'HYS()AX: p%RS()AX: p+\AXA(H(YS())S())!fATA(H(YS()))p(x);AX7z" I = ";A(X);( );A(Y):TAB(31);AT("E N D - S A L D O = ";A(SG)-" = 'SPACE' END = 'E'";A$:A$"" A$"E"I0:I: I::Jp:""SA$DA$(J):" ";A$;();DT:A:B:S."======================================"N(0);" M";( );" T";(p);"% S":Q( )D"":I:();"";(h);"":: ,Q0A$"""":A$:"M:";WI0:(@(I));I;" =";:AAT(I,J):SST(I,)T(I,J)BBASX: $SXA(HAS);$(0);T(I,J);( );A(A);(p);SX:I:A$'.BDD:GF: L+8(SB)DD:FG: L+BDDA(H(AB)(SB)):GFA(AB)1L" A = ";( );GF;(p);DD+V" ='SPACE' E='E'"`A$:A$"" `jA$"E"Jp:J: tJ:~:JpDA$DA$(J):" GRAPH. DIAGRAMM FOR ";A$;();DT:S@."======================================"" (* = )"4M:I0:Q(T(I,J)):MQMQ/I: ,:(S);"M " ,WI0:Z( (T(I,J))M): ,S: PRINT" ";I+1;FOP@(T(I,J)) S,"*":FOP>S,p,(S)@,p(Z),FOP3"1 2 3 4 5 6 7 8 9 10 11 12"H SS@:I:"":,8:" ='SPACE' E='E'"A$:A$"" A$"E"Jp (J:02" I D T 000",<" I 'R' "FAV$:AV$"" FPAV$"R" d Z F)d" PRESS PLAY FOR DATA READ !!"n#oAVp:TDA$(AV):pTDT:TSL:TGH$&xI0:JpTT(I,J):J,I:0" I D T 000"," I 'W' "AV$:AV$"" AV$"W"   ," PRESS RECORD FOR DATA WRITE !!" "BBG-ACCOUNT.DAT"#AVp:TDA$(AV):TDT:TSL:TGH$&I0:JpTT(I,J):J,I:0" I D T 000"," I 'V' "AV$:AV$"" "AV$"V" 6 , -6" PRESS PLAY FOR DATA VERIFY !!":.7AVp:TFF$:FF$DA$(AV) |8AV@TA:ADT |JTA:ASL |OTAV$:AV$GH$ |&TI0:Jp^TA:AT(I,J) |hJ,I::"OK !!"r"ABCDEFG":%|"*** ATTENTION DATA-ERROR ***"#Ap:(x)::FAH::A:"H SAVE ? (Y/N)"F$:F$"" F$"Y"F$"N"   0" D ? (Y/N)"F$:F$"" F$"Y"