
   10 CLS
   20 PROCset_variables
   30 PRINTTAB(2,5)"(1) Create A New Money.Dat File"
   40 PRINTTAB(2,7)"(2) Convert The Money.Dat File From The Old Accounts Program"
   50 REPEAT
   60   A$=GET$
   70 UNTIL A$="1" OR A$="2"
   80 IF A$="1" CLS:PROCsave_file:CLS:VDU7:PRINTTAB(40,7)"Done"
   90 IF A$="2" PROCconvert
  100 END
  110 :
  120 CLS
  130 PROCset_variables
  140 PROCload_data
  150 *RENAME Money.Dat Money_0.Dat
  160 PROCsave_file
  170 END
  180 :
  190 REM OLD
  200 :
  210 REM ---------------------------------------------------------------------
  220 :
  230 DEFPROCload_data
  240 PRINTTAB(30,7)CHR$14;" Loading Money.Dat ";CHR$15
  250 X=OPENIN"Money.Dat"
  260 FORI%=0TO21
  270   INPUT#X,statement$(I%),date$(I%),account(I%),balance(I%),sts$(I%),amount(I%),ccard$(I%),credit(I%),paid(I%)
  280 NEXT
  290 INPUT#X,cash,diff$,diff,tsb
  300 FORI%=0TO2
  310   INPUT#X,counter(I%)
  320 NEXT
  330 CLOSE# X
  340 max_order=amount(0)
  350 flag1=0
  360 ENDPROC
  370 :
  380 :
  390 :
  400 REM NEW
  410 :
  420 REM -----------------------------------------------------------------
  430 :
  440 DEFPROCset_variables
  450 cash=0
  460 B%=0
  470 dayt$=LEFT$(TIME$,3)+","+MID$(TIME$,5,2)+CHR$250+MID$(TIME$,8,3)+MID$(TIME$,14,2)
  480 count=0
  490 DIMstatement$(21)
  500 DIMdate$(21)
  510 DIMaccount(21)
  520 DIMbalance(21)
  530 DIMsts$(21)
  540 line$=CHR$250
  550 DIMamount(21)
  560 DIMccard$(21)
  570 DIMcredit(21)
  580 DIMfound(20)
  590 DIMcounter(2)
  600 DIM paid(21)
  610 balance$="Balance =  "
  620 spool%=0
  630 lenn%=46
  640 dis%=0
  650 flag1=1:flag2=0
  660 sure=0
  670 archived%=0
  680 DIMamount2(21)
  690 DIMsts2$(21)
  700 DIMpaid2(21)
  710 tick%=251
  720 pause%=0
  730 eom=0
  740 cash=0:diff$="":diff=0:tsb=0
  750 ENDPROC
  760 :
  770 :
  780 DEFPROCsave_file
  790 PRINTTAB(31,7)CHR$14;" Saving Money.Dat ";CHR$15
  800 ccard$(0)=TIME$
  810 X=OPENOUT"Money.Dat":PROCsave_data:CLOSE# X
  820 flag1=0:flag2=0
  830 ENDPROC
  840 :
  850 DEFPROCsave_data
  860 date$(0)=""
  870 statement$(0)=MID$(TIME$,8,3)
  880 FORI%=0TO21
  890   PRINT#X,statement$(I%),date$(I%),account(I%),balance(I%),sts$(I%),amount(I%),ccard$(I%),credit(I%),paid(I%)
  900 NEXT
  910 PRINT#X,cash,diff$,diff,tsb
  920 FORI%=0TO2
  930   PRINT#X,counter(I%)
  940 NEXT
  950 PRINT#X,eom
  960 ENDPROC
  970 :
  980 DEFPROCconvert
  990 CLS
 1000 PROCload_data
 1010 *REN. Money.Dat Money_0.Dat
 1020 PROCsave_file
 1030 CLS:VDU7:PRINTTAB(40,7)"Done"
 1040 ENDPROC

