1 ' MoneyMate
2 ' by Karl Stokes
3 ' Amstrad Action March 88
10 num=0:MODE 2:BORDER 0:total=f+a+bf
20 LOCATE 34,2:PRINT"MAIN MENU":LOCATE 33,3
30 PRINT"-----------":LOCATE 30,10:PRINT"1...Moneybox"
40 LOCATE 30,12:PRINT"2...Bank":LOCATE 30,14
50 PRINT"3...Building Society"
60 LOCATE 30,16:PRINT"4...Load":LOCATE 30,18:PRINT"5...Save"
70 LOCATE 30,7
80 PRINT"MONEYBOX=";a:IF num=1 THEN RETURN
90 LOCATE 31,22:PRINT"TOTAL=";total
100 LOCATE 8,14
110 PRINT"BANK=";bf:IF num=3 THEN RETURN
120 LOCATE 60,14
130 PRINT"B/S=";f:IF num=3 THEN RETURN
140 PLOT 213,318:DRAW 390,318:DRAW 390,277:DRAW 213,277:DRAW 213,318:IF num=5 THEN RETURN
150 PLOT 213,79:DRAW 390,79:DRAW 390,36:DRAW 213,36:DRAW 213,79:LOCATE 31,22:IF num=1 THEN GOTO 80 ELSE IF num=4 THEN RETURN
160 IF num=2 THEN GOTO 30
170 IF num=3 AND dif=0 THEN GOTO 130 ELSE IF num=3 AND dif=1 THEN GOTO 110
180 PLOT 455,206:DRAW 593,206:DRAW 593,165:DRAW 455,165:DRAW 455,206:IF num=3 THEN RETURN ELSE IF num=5 THEN RETURN
190 PLOT 42,206:DRAW 185,206:DRAW 185,165:DRAW 42,165:DRAW 42,206:IF num=3 THEN RETURN ELSE IF NUM=5 THEN RETURN
200 a$=INKEY$:IF a$="" THEN 200
210 IF a$="1" THEN GOSUB 260
220 IF a$="2" THEN dif=1:GOSUB 450
230 IF a$="3" THEN dif=0:GOSUB 450
240 IF a$="4" THEN GOSUB 1040
250 IF a$="5" THEN GOSUB 1120 ELSE GOTO 200
260 CLS
270 LOCATE 32,2:PRINT"MONEY MENU":LOCATE 31,3
275 PRINT"------------"
280 LOCATE 30,10:PRINT"1...Add Money"
290 LOCATE 30,12:PRINT"2...Deduct Money"
300 LOCATE 30,14:PRINT"3...Return To Main Menu"
310 num=1:GOSUB 150
320 a$=INKEY$:IF a$="" THEN 320
330 IF a$="1" THEN GOTO 360
340 IF a$="2" THEN GOTO 400
350 IF a$="3" THEN GOTO 10 ELSE GOTO 320
360 CLS:GOSUB 150
370 LOCATE 2,2:INPUT"How much do you wish to add";b
380 a=a+b
390 GOTO 260
400 CLS:GOSUB 150
410 LOCATE 2,2:INPUT"How much do you wish to deduct";c
420 a=a-c
430 IF a<0 THEN a=0
440 GOTO 260
450 CLS
460 LOCATE 32,2:IF dif=1 THEN GOTO 480
470 PRINT"BUIL.SOC. MENU":LOCATE 31,3:PRINT"----------------":GOTO 490
480 PRINT:'BANK MENU":LOCATE 31,3:PRINT"-----------"
490 LOCATE 30,10:PRINT"1...Cash In Money"
500 LOCATE 30,12:PRINT"2...Withdraw Cash"
510 LOCATE 30,14:PRINT"3...Account number"
520 LOCATE 30,16:PRINT"4...Card-Cash"
530 LOCATE 30,18:PRINT"5...Return To Main Menu"
540 num=3:GOSUB 150:GOSUB 190:GOSUB 180
550 LOCATE 8,11:PRINT"Account Number":LOCATE 8,14:IF dif=1 THEN PRINT bi$ ELSE PRINT si$
560 LOCATE 58,11:PRINT"C.Cash Account No.":LOCATE 60,14:IF dif=1 THEN PRINT bcad$ ELSE PRINT scad$
570 a$=INKEY$:IF a$="" THEN 570
580 IF a$="1" THEN GOTO 630
590 IF a$="2" THEN GOTO 670
600 IF a$="3" THEN GOTO 720
610 IF a$="4" THEN GOTO 760
620 IF a$="5" THEN GOTO 1030 ELSE 570
630 CLS:GOSUB 150
640 LOCATE 2,2:INPUT"How much do you wish to add";g
650 IF dif=1 THEN bf=bf+g ELSE f=f+g
660 GOTO 450
670 CLS:GOSUB 150
680 LOCATE 2,2:INPUT"How much do you wish to withdraw";h
690 IF dif=1 THEN bf=bf-h ELSE f=f-h
700 IF f<0 THEN f=0:IF sf<0 THEN sf=0
710 GOTO 450
720 CLS:num=4:GOSUB 150:LOCATE 32,19:PRINT"Account Number":LOCATE 32,22:IF dif=1 THEN PRINT bi$ ELSE PRINT si$
730 LOCATE 2,2:INPUT"Enter new account number";i$
740 IF dif=1 THEN bi$=i$ ELSE si$=i$
750 num=3:GOTO 450
760 CLS:LOCATE 2,2:INPUT"Enter Password";pass$
770 IF pass$="password" THEN 780 ELSE GOTO 450
780 CLS:GOSUB 150:GOSUB 140:LOCATE 30,5:PRINT"C.Cash Account No.":LOCATE 30,7:IF dif=1 THEN PRINT bcad$ ELSE PRINT scad$
790 GOSUB 180:LOCATE 58,12:PRINT"Emergency Phone No.":LOCATE 60,14:IF dif=1 THEN PRINT bphone$ ELSE PRINT sphone$
800 GOSUB 190:LOCATE 10,12:PRINT"P.I.Code":LOCATE 8,14:IF dif=1 THEN PRINT bcode$ ELSE PRINT scode$
810 LOCATE 32,2:PRINT"CASH CARD MENU":LOCATE 31,3:PRINT"----------------"
820 LOCATE 30,12:PRINT"1...P.I.Code"
830 LOCATE 30,14:PRINT"2...Account Number"
840 LOCATE 30,16:PRINT"3...Emergency Phone No."
850 LOCATE 30,18:PRINT"4...Return To Menu"
860 a$=INKEY$:IF a$="" THEN 860
870 IF a$="1" THEN GOTO 910
880 IF a$="2" THEN GOTO 950
890 IF a$="3" THEN GOTO 990
900 IF a$="4" THEN GOTO 450 ELSE GOTO 860
910 CLS:num=4:GOSUB 150:LOCATE 34,20:PRINT"P.I.Code":LOCATE 30,22:PRINT code$
920 LOCATE 2,2:INPUT"What is your new Personal Identification number";code$
930 IF dif=1 THEN bcode$=code$ ELSE scode$=code$
940 num=3:GOTO 780
950 CLS:num=4:GOSUB 150:LOCATE 30, 20:PRINT"C. Cash Account No.":LOCATE 30,22:PRINT cad$
960 LOCATE 2,2:INPUT"What is your new Card Cash account number";cad$
970 IF dif=1 THEN bcad$=cad$ ELSE scad$=cad$
980 num=3:GOTO 780
990 CLS:num=4:GOSUB 150:LOCATE 30,20:PRINT"Emergency Phone No.":LOCATE 30,22:PRINT phone$
1000 LOCATE 2,2:INPUT"What is your new Emergency Telephone number";phone$
1010 IF dif=1 THEN bphone$=phone$ ELSE sphone$=phone$
1020 num=3:GOTO 780
1030 GOTO 10
1040 LOCATE 2,2:PRINT"Sure?(y/n)"
1050 a$=INKEY$:IF a$="" THEN 1050
1060 IF a$="n" THEN GOTO 10
1070 IF a$="y" THEN 1080 ELSE 1050
1080 OPENIN"file"
1090 INPUT #9,a,f,bf,bi$,si$,bcad$,scad$,bphone$,sphone$,bcode$,scode$
1100 CLOSEIN
1110 GOTO 10
1120 LOCATE 2,2:PRINT"Sure?(y/n)"
1130 a$=INKEY$:IF a$="" THEN 1130
1140 IF a$="n" THEN GOTO 10
1150 IF a$="y" THEN 1160 ELSE 1130
1160 OPENOUT"file"
1170 WRITE #9,a,f,bf,bi$,si$,bcad$,scad$,bphone$,sphone$,bcode$,scode$
1180 CLOSEOUT
1190 GOTO 10