BANKER.C
FILE INFORMATION
FILENAME(S): BANKER.C
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 21:07:09
APPEARS ON: 1 disk(s)
FILE HASH
ab258bb869600a664ffa3cde685365443c0120c0fd9e81125e4535a026d8f5c9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG DEC 83 C | BANKER.C | PRG | DuncanTwain | 25 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 0A 04 00 00 99 22 93 22 00 1A 04 05 00 9C |......."."......|
00000010: 3A 97 35 39 34 36 38 2C 31 32 00 41 04 0A 00 20 |:.59468,12.A... |
00000020: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 00 68 04 0F 00 20 8F 2A 2A 2A 2A 20 20 46 4F |*.h... .**** FO|
00000050: 52 20 34 30 20 43 4F 4C 20 50 45 54 20 2A 2A 2A |R 40 COL PET ***|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 00 8F 04 14 00 20 8F 2A |********..... .*|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000090: B5 04 19 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000B0: 2A 2A 2A 2A 2A 00 F3 04 1E 00 8F 20 42 41 4E 4B |*****...... BANK|
000000C0: 45 52 20 50 52 4F 47 52 41 4D 20 46 4F 52 20 54 |ER PROGRAM FOR T|
000000D0: 48 45 20 47 41 4D 45 20 20 20 20 20 20 20 20 20 |HE GAME |
000000E0: 20 20 20 20 20 20 20 20 20 20 4F 46 20 50 41 59 | OF PAY|
000000F0: 44 41 59 00 11 05 23 00 8F 20 20 20 57 52 49 54 |DAY...#.. WRIT|
00000100: 54 45 4E 20 42 59 20 43 48 52 49 53 20 48 41 4C |TEN BY CHRIS HAL|
00000110: 4C 00 29 05 28 00 8F 20 20 20 20 20 20 53 45 50 |L.).(.. SEP|
00000120: 54 20 31 39 2C 31 39 38 33 00 4C 05 2D 00 8F 20 |T 19,1983.L.-.. |
00000130: 33 36 34 34 20 2D 20 32 38 54 48 20 41 56 45 2E |3644 - 28TH AVE.|
00000140: 2C 52 45 47 49 4E 41 2C 53 41 53 4B 00 64 05 32 |,REGINA,SASK.d.2|
00000150: 00 8F 20 20 20 20 20 20 33 30 36 2D 35 38 36 2D |.. 306-586-|
00000160: 36 30 33 39 00 8A 05 37 00 8F 2A 2A 2A 2A 2A 2A |6039...7..******|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D7 05 3C 00 99 |**********...<..|
00000190: 22 54 48 49 53 20 50 52 4F 47 52 41 4D 20 43 41 |"THIS PROGRAM CA|
000001A0: 4E 20 20 41 43 54 20 41 53 20 54 48 45 20 42 41 |N ACT AS THE BA|
000001B0: 4E 4B 45 52 20 46 4F 52 20 41 4E 59 20 47 41 4D |NKER FOR ANY GAM|
000001C0: 45 28 49 45 20 50 41 59 44 41 59 2C 4D 4F 4E 4F |E(IE PAYDAY,MONO|
000001D0: 50 4F 4C 59 2E 2E 2E 00 DD 05 41 00 3A 00 23 06 |POLY......A.:.#.|
000001E0: 46 00 99 3A 99 22 92 50 52 45 53 53 20 52 45 54 |F..:.".PRESS RET|
000001F0: 55 52 4E 92 20 4F 4E 4C 59 20 41 46 54 45 52 20 |URN. ONLY AFTER |
00000200: 45 4E 54 45 52 49 4E 47 20 44 4F 4C 4C 41 52 20 |ENTERING DOLLAR |
00000210: 41 4D 4F 55 4E 54 53 20 41 4E 44 20 4E 41 4D 45 |AMOUNTS AND NAME|
00000220: 53 2E 22 00 29 06 4B 00 99 00 4D 06 50 00 99 22 |S.".).K...M.P.."|
00000230: 48 4F 57 20 4D 41 4E 59 20 50 45 4F 50 4C 45 20 |HOW MANY PEOPLE |
00000240: 41 52 45 20 50 4C 41 59 49 4E 47 3F 22 00 60 06 |ARE PLAYING?".`.|
00000250: 55 00 A1 58 24 3A 8B 58 24 B2 22 22 A7 89 38 35 |U..X$:.X$.""..85|
00000260: 00 6C 06 5A 00 50 B2 C5 28 58 24 29 00 77 06 5F |.l.Z.P..(X$).w._|
00000270: 00 81 49 B2 31 A4 50 00 88 06 64 00 99 22 93 50 |..I.1.P...d..".P|
00000280: 4C 41 59 45 52 22 49 3B 00 93 06 69 00 85 4E 24 |LAYER"I;...i..N$|
00000290: 28 49 29 00 99 06 6E 00 82 00 AD 06 73 00 81 4B |(I)...n.....s..K|
000002A0: B2 31 A4 51 51 3A 82 4B 3A 99 22 93 22 00 BB 06 |.1.QQ:.K:."."...|
000002B0: 78 00 51 51 B2 31 35 30 30 3A 8C 00 F9 06 7D 00 |x.QQ.1500:....}.|
000002C0: 99 22 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000002D0: 11 11 11 11 11 11 11 11 50 55 54 20 49 4E 20 5A |........PUT IN Z|
000002E0: 45 52 4F 20 54 4F 20 47 45 54 20 41 4C 4C 20 42 |ERO TO GET ALL B|
000002F0: 41 4C 41 4E 43 45 53 2E 22 00 14 07 82 00 99 22 |ALANCES."......"|
00000300: 13 1D 1D 1D 1D 57 48 49 43 48 20 50 4C 41 59 45 |.....WHICH PLAYE|
00000310: 52 3F 22 3B 00 2B 07 87 00 81 49 B2 31 A4 50 3A |R?";.+....I.1.P:|
00000320: 87 4E 24 3A 99 4E 24 3B 3A 82 49 00 6F 07 8C 00 |.N$:.N$;:.I.o...|
00000330: 83 22 20 12 31 92 22 2C 22 20 12 32 92 22 2C 22 |." .1."," .2.","|
00000340: 20 12 33 92 22 2C 22 20 12 34 92 22 2C 22 20 12 | .3."," .4."," .|
00000350: 35 92 22 2C 22 20 12 36 92 22 2C 22 20 12 37 92 |5."," .6."," .7.|
00000360: 22 2C 22 20 12 38 92 22 2C 22 20 12 39 92 22 00 |"," .8."," .9.".|
00000370: 82 07 91 00 A1 49 24 3A 8B 49 24 B2 22 22 A7 31 |.....I$:.I$."".1|
00000380: 34 35 00 8E 07 96 00 49 B2 C5 28 49 24 29 00 9C |45.....I..(I$)..|
00000390: 07 9B 00 8B 49 B2 30 A7 89 33 34 35 00 AA 07 A0 |....I.0..345....|
000003A0: 00 8B 49 B1 50 A7 89 31 31 35 00 D9 07 A5 00 99 |..I.P..115......|
000003B0: 22 93 22 4E 24 28 49 29 22 27 53 20 42 41 4E 4B |"."N$(I)"'S BANK|
000003C0: 20 41 43 43 4F 55 4E 54 53 2E 2E 53 41 56 49 4E | ACCOUNTS..SAVIN|
000003D0: 47 53 20 24 22 42 28 49 29 00 04 08 AA 00 99 22 |GS $"B(I)......"|
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 2E 2E 2E 2E 4C 4F 41 4E 53 20 24 22 4C | ....LOANS $"L|
00000400: 4C 28 49 29 00 19 08 AF 00 81 4B B2 30 A4 33 39 |L(I)......K.0.39|
00000410: 3A 99 22 A3 22 3B 3A 82 4B 00 58 08 B4 00 99 22 |:.".";:.K.X...."|
00000420: 12 57 92 49 54 48 44 52 41 57 41 4C 20 20 12 44 |.W.ITHDRAWAL .D|
00000430: 92 45 50 4F 53 49 54 20 20 12 50 92 41 59 44 41 |.EPOSIT .P.AYDA|
00000440: 59 20 20 12 4C 92 4F 41 4E 22 3A 99 22 11 12 4E |Y .L.OAN":."..N|
00000450: 92 45 58 54 20 20 22 3B 00 6B 08 B9 00 99 22 12 |.EXT ";.k....".|
00000460: 54 92 45 52 4D 49 4E 41 54 45 22 00 7E 08 BE 00 |T.ERMINATE".~...|
00000470: A1 58 24 3A 8B 58 24 B2 22 22 A7 31 39 30 00 8F |.X$:.X$."".190..|
00000480: 08 C3 00 8B 58 24 B2 22 57 22 A7 89 32 38 35 00 |....X$."W"..285.|
00000490: A0 08 C8 00 8B 58 24 B2 22 4C 22 A7 89 33 37 35 |.....X$."L"..375|
000004A0: 00 B1 08 CD 00 8B 58 24 B2 22 44 22 A7 89 32 37 |......X$."D"..27|
000004B0: 30 00 C2 08 D2 00 8B 58 24 B2 22 50 22 A7 89 32 |0......X$."P"..2|
000004C0: 34 30 00 D8 08 D7 00 8B 58 24 B2 22 54 22 A7 99 |40......X$."T"..|
000004D0: 22 93 22 3A 89 31 32 30 00 EF 08 DC 00 8B 58 24 |".":.120......X$|
000004E0: B2 22 4E 22 A7 49 B2 49 AA 31 3A 89 32 32 35 00 |."N".I.I.1:.225.|
000004F0: FC 08 E1 00 8B 49 B1 50 A7 49 B2 31 00 05 09 E6 |.....I.P.I.1....|
00000500: 00 89 31 36 35 00 0E 09 EB 00 89 32 35 30 00 49 |..165......250.I|
00000510: 09 F0 00 42 28 49 29 B2 42 28 49 29 AA 2E 31 AC |...B(I).B(I)..1.|
00000520: 42 28 49 29 3A 42 28 49 29 B2 B5 28 42 28 49 29 |B(I):B(I)..(B(I)|
00000530: AA 2E 35 29 3A 4C 4C 28 49 29 B2 4C 4C 28 49 29 |..5):LL(I).LL(I)|
00000540: AA 2E 32 AC 4C 4C 28 49 29 00 64 09 F5 00 4C 4C |..2.LL(I).d...LL|
00000550: 28 49 29 B2 B5 28 4C 4C 28 49 29 AA 2E 35 29 3A |(I)..(LL(I)..5):|
00000560: 89 32 35 35 00 9E 09 FA 00 99 22 12 57 92 20 12 |.255......".W. .|
00000570: 44 92 20 12 50 92 20 12 4C 92 20 12 54 92 20 12 |D. .P. .L. .T. .|
00000580: 4E 92 20 41 52 45 20 54 48 45 20 4F 4E 4C 59 20 |N. ARE THE ONLY |
00000590: 4C 45 54 54 45 52 53 2E 22 3A 89 31 38 30 00 E5 |LETTERS.":.180..|
000005A0: 09 FF 00 99 22 4E 45 57 20 42 41 4C 41 4E 43 45 |...."NEW BALANCE|
000005B0: 20 46 4F 52 20 22 4E 24 28 49 29 22 20 49 53 20 | FOR "N$(I)" IS |
000005C0: 24 22 42 28 49 29 3A 99 3A 99 22 46 4F 52 20 4C |$"B(I):.:."FOR L|
000005D0: 4F 41 4E 53 2C 20 59 4F 55 20 4F 57 45 20 24 22 |OANS, YOU OWE $"|
000005E0: 4C 4C 28 49 29 00 F6 09 04 01 51 51 B2 32 32 35 |LL(I).....QQ.225|
000005F0: 30 3A 89 31 31 35 00 13 0A 09 01 99 22 93 11 11 |0:.115......"...|
00000600: 11 11 1D 1D 1D 1D 1D 1D 12 44 45 50 4F 53 49 54 |.........DEPOSIT|
00000610: 22 3A 99 00 3D 0A 0E 01 85 22 48 4F 57 20 4D 55 |":..=...."HOW MU|
00000620: 43 48 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 |CH DO YOU WANT T|
00000630: 4F 20 44 45 50 4F 53 49 54 22 3B 44 50 00 4E 0A |O DEPOSIT";DP.N.|
00000640: 13 01 42 28 49 29 B2 42 28 49 29 AA 44 50 00 57 |..B(I).B(I).DP.W|
00000650: 0A 18 01 89 33 33 35 00 6A 0A 1D 01 99 22 93 57 |....335.j....".W|
00000660: 49 54 48 44 52 41 57 41 4C 22 00 AC 0A 22 01 8B |ITHDRAWAL"..."..|
00000670: 42 28 49 29 B3 30 A7 99 22 59 4F 55 20 44 4F 20 |B(I).0.."YOU DO |
00000680: 4E 4F 54 20 48 41 56 45 20 41 4E 59 20 4D 4F 4E |NOT HAVE ANY MON|
00000690: 45 59 20 49 4E 20 54 48 45 20 42 41 4E 4B 22 3A |EY IN THE BANK":|
000006A0: 51 51 B2 31 35 30 30 3A 89 31 31 35 00 C9 0A 27 |QQ.1500:.115...'|
000006B0: 01 99 3A 20 99 22 49 53 20 49 54 20 50 41 59 44 |..: ."IS IT PAYD|
000006C0: 41 59 20 28 59 2F 4E 29 22 00 DE 0A 2C 01 A1 50 |AY (Y/N)"...,..P|
000006D0: 24 3A 8B 50 24 B2 22 22 A7 20 89 33 30 30 00 F7 |$:.P$."". .300..|
000006E0: 0A 31 01 8B 50 24 B2 22 4E 22 A7 42 28 49 29 B2 |.1..P$."N".B(I).|
000006F0: 42 28 49 29 AB 35 30 00 07 0B 36 01 8B 50 24 B2 |B(I).50...6..P$.|
00000700: 22 59 22 A7 33 31 35 00 24 0B 3B 01 99 22 42 41 |"Y".315.$.;.."BA|
00000710: 4E 4B 20 42 41 4C 41 4E 43 45 20 49 53 20 24 22 |NK BALANCE IS $"|
00000720: 42 28 49 29 00 4E 0B 40 01 85 22 48 4F 57 20 4D |B(I).N.@.."HOW M|
00000730: 55 43 48 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 |UCH DO YOU WANT |
00000740: 54 4F 20 54 41 4B 45 20 4F 55 54 22 3B 52 00 6B |TO TAKE OUT";R.k|
00000750: 0B 45 01 8B 52 B1 42 28 49 29 A7 99 22 54 4F 4F |.E..R.B(I).."TOO|
00000760: 20 4D 55 43 48 22 3A 89 33 32 30 00 7B 0B 4A 01 | MUCH":.320.{.J.|
00000770: 42 28 49 29 B2 42 28 49 29 AB 52 00 9B 0B 4F 01 |B(I).B(I).R...O.|
00000780: 99 22 59 4F 55 52 20 4E 45 57 20 42 41 4C 41 4E |."YOUR NEW BALAN|
00000790: 43 45 20 49 53 24 22 42 28 49 29 00 A4 0B 54 01 |CE IS$"B(I)...T.|
000007A0: 89 31 31 35 00 B6 0B 59 01 99 22 93 22 3A 20 81 |.115...Y..".": .|
000007B0: 20 49 B2 31 A4 50 00 C6 0B 5E 01 99 4E 24 28 49 | I.1.P...^..N$(I|
000007C0: 29 2C 42 28 49 29 00 D0 0B 63 01 99 3A 82 20 49 |),B(I)...c..:. I|
000007D0: 00 F1 0B 68 01 99 3A 99 3A 99 22 50 52 45 53 53 |...h..:.:."PRESS|
000007E0: 20 12 43 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | .C. TO CONTINUE|
000007F0: 22 00 0C 0C 6D 01 A1 5A 24 3A 8B 5A 24 B2 22 43 |"...m..Z$:.Z$."C|
00000800: 22 A7 20 51 51 B2 31 3A 89 31 31 35 00 15 0C 72 |". QQ.1:.115...r|
00000810: 01 89 33 36 35 00 38 0C 77 01 99 22 93 11 11 11 |..365.8.w.."....|
00000820: 11 1D 1D 1D 1D 4C 4F 41 4E 53 20 44 45 50 41 52 |.....LOANS DEPAR|
00000830: 54 4D 45 4E 54 22 3A 99 00 55 0C 7C 01 99 22 12 |TMENT":..U.|..".|
00000840: 42 92 4F 52 52 4F 57 20 4F 52 20 12 50 92 41 59 |B.ORROW OR .P.AY|
00000850: 42 41 43 4B 22 00 69 0C 81 01 A1 5A 24 3A 8B 5A |BACK".i....Z$:.Z|
00000860: 24 B2 22 22 A7 89 33 38 35 00 7A 0C 86 01 8B 5A |$.""..385.z....Z|
00000870: 24 B2 22 42 22 20 A7 34 30 35 00 8B 0C 8B 01 8B |$."B" .405......|
00000880: 5A 24 B2 22 50 22 20 A7 34 36 35 00 94 0C 90 01 |Z$."P" .465.....|
00000890: 89 33 38 35 00 B4 0C 95 01 85 22 11 48 4F 57 20 |.385......".HOW |
000008A0: 4D 55 43 48 20 44 4F 20 59 4F 55 20 57 41 4E 54 |MUCH DO YOU WANT|
000008B0: 22 3B 4C 4C 00 DD 0C 9A 01 8B 4C 4C 28 49 29 AA |";LL......LL(I).|
000008C0: 4C 4C B1 31 30 30 30 30 20 A7 99 22 54 4F 4F 20 |LL.10000 .."TOO |
000008D0: 4D 55 43 48 2E 2E 2E 22 3A 89 34 31 35 00 F0 0C |MUCH...":.415...|
000008E0: 9F 01 4C 4C 28 49 29 B2 4C 4C 28 49 29 AA 4C 4C |..LL(I).LL(I).LL|
000008F0: 00 1F 0D A4 01 99 22 44 4F 20 59 4F 55 20 57 41 |......"DO YOU WA|
00000900: 4E 54 20 49 54 20 49 4E 20 12 43 92 41 53 48 20 |NT IT IN .C.ASH |
00000910: 4F 52 20 4F 4E 20 12 41 92 43 4F 55 4E 54 22 00 |OR ON .A.COUNT".|
00000920: 33 0D A9 01 A1 59 24 3A 8B 59 24 B2 22 22 A7 89 |3....Y$:.Y$.""..|
00000930: 34 32 35 00 44 0D AE 01 8B 59 24 B2 22 41 22 A7 |425.D....Y$."A".|
00000940: 89 34 35 30 00 55 0D B3 01 8B 59 24 B2 22 43 22 |.450.U....Y$."C"|
00000950: A7 89 34 34 35 00 73 0D B8 01 99 3A 99 22 12 43 |..445.s....:.".C|
00000960: 92 20 4F 52 20 12 41 92 20 4F 4E 4C 59 22 3A 89 |. OR .A. ONLY":.|
00000970: 34 32 35 00 95 0D BD 01 99 4E 24 28 49 29 22 20 |425......N$(I)" |
00000980: 47 45 54 53 22 4C 4C 22 49 4E 20 43 41 53 48 22 |GETS"LL"IN CASH"|
00000990: 3A 89 34 35 35 00 A9 0D C2 01 42 28 49 29 B2 42 |:.455.....B(I).B|
000009A0: 28 49 29 AA 4C 4C 28 49 29 00 E4 0D C7 01 99 4E |(I).LL(I)......N|
000009B0: 24 28 49 29 22 27 53 20 4E 45 57 20 42 41 4C 41 |$(I)"'S NEW BALA|
000009C0: 4E 43 45 20 49 53 20 24 22 42 28 49 29 3A 99 22 |NCE IS $"B(I):."|
000009D0: 4C 4F 41 4E 20 41 43 43 4F 55 4E 54 20 24 22 4C |LOAN ACCOUNT $"L|
000009E0: 4C 28 49 29 00 F5 0D CC 01 51 51 B2 32 32 35 30 |L(I).....QQ.2250|
000009F0: 3A 89 31 31 35 00 17 0E D1 01 99 22 93 22 3A 99 |:.115......".":.|
00000A00: 4E 24 28 49 29 22 27 53 20 4F 57 45 53 20 24 22 |N$(I)"'S OWES $"|
00000A10: 4C 4C 28 49 29 3A 99 00 33 0E D6 01 99 22 4D 45 |LL(I):..3...."ME|
00000A20: 54 48 4F 44 20 4F 46 20 50 41 59 4D 45 4E 54 3A |THOD OF PAYMENT:|
00000A30: 22 3A 99 00 4A 0E DB 01 85 22 43 41 53 48 2E 2E |":..J...."CASH..|
00000A40: 2E 2E 2E 2E 2E 24 22 3B 43 53 00 61 0E E0 01 85 |.....$";CS.a....|
00000A50: 22 53 41 56 49 4E 47 53 2E 2E 2E 2E 24 22 3B 41 |"SAVINGS....$";A|
00000A60: 43 00 8E 0E E5 01 8B 20 41 43 B1 42 28 49 29 A7 |C...... AC.B(I).|
00000A70: 20 99 22 4E 4F 54 20 45 4E 4F 55 47 48 20 49 4E | ."NOT ENOUGH IN|
00000A80: 20 41 43 43 4F 55 4E 54 22 3A 89 34 37 30 00 9F | ACCOUNT":.470..|
00000A90: 0E EA 01 42 28 49 29 B2 42 28 49 29 AB 41 43 00 |...B(I).B(I).AC.|
00000AA0: B7 0E EF 01 4C 4C 28 49 29 B2 4C 4C 28 49 29 AB |....LL(I).LL(I).|
00000AB0: 28 43 53 AA 41 43 29 00 F8 0E F4 01 8B 20 4C 4C |(CS.AC)...... LL|
00000AC0: 28 49 29 B2 B3 30 A7 99 22 47 4F 4F 44 2E 2E 2E |(I)..0.."GOOD...|
00000AD0: 4C 4F 41 4E 20 50 41 49 44 20 4F 46 46 22 3A 42 |LOAN PAID OFF":B|
00000AE0: 28 49 29 B2 30 AB 4C 4C 28 49 29 AA 42 28 49 29 |(I).0.LL(I).B(I)|
00000AF0: 3A 4C 4C 28 49 29 B2 30 00 35 0F F9 01 99 3A 99 |:LL(I).0.5....:.|
00000B00: 4E 24 28 49 29 22 27 53 20 4E 45 57 20 42 41 4C |N$(I)"'S NEW BAL|
00000B10: 41 4E 43 45 20 49 53 20 24 22 42 28 49 29 3A 99 |ANCE IS $"B(I):.|
00000B20: 22 4C 4F 41 4E 20 41 43 43 4F 55 4E 54 20 24 22 |"LOAN ACCOUNT $"|
00000B30: 4C 4C 28 49 29 00 46 0F FE 01 51 51 B2 33 30 30 |LL(I).F...QQ.300|
00000B40: 30 3A 89 31 31 35 00 4C 0F 03 02 80 00 00 00 |0:.115.L....... |
......."."......:.59468,12.A... .*******
*************************.H... .**** FO
R 40 COL PET ***********..... .*********
***********************......***********
*********************...... BANKER PROGR
AM FOR THE GAME OF PAY
DAY...#.. WRITTEN BY CHRIS HALL.).(..
SEPT 19,1983.L.-.. 3644 - 28TH AVE.
,REGINA,SASK.D.2.. 306-586-6039...7
..********************************.W.<..
"THIS PROGRAM CAN ACT AS THE BANKER FOR
ANY GAME(IE PAYDAY,MONOPOLY......A.:.#.
F..:.".PRESS RETURN. ONLY AFTER ENTERING
DOLLAR AMOUNTS AND NAMES.".).K...M.P.."
HOW MANY PEOPLE ARE PLAYING?".`.U..X$:.X
$.""..85.L.Z.P.E(X$).W._..I.1.P...D..".P
LAYER"I;...I..N$(I)...N.....S..K.1.QQ:.K
:."."...X.QQ.1500:....}.."..............
........PUT IN ZERO TO GET ALL BALANCES.
"......".....WHICH PLAYER?";.+....I.1.P:
.N$:.N$;:.I.O...." .1."," .2."," .3.","
.4."," .5."," .6."," .7."," .8."," .9.".
.....I$:.I$."".145.....I.E(I$)......I.0.
.345... ..I.P..115.Y...."."N$(I)"'S BANK
ACCOUNTS..SAVINGS $"B(I)......"
....LOANS $"LL(I)......K.0.39
:.".";:.K.X....".W.ITHDRAWAL .D.EPOSIT
.P.AYDAY .L.OAN":."..N.EXT ";.K....".
T.ERMINATE".~....X$:.X$."".190...C..X$."
W"..285. .H..X$."L"..375...M..X$."D"..27
0.B.R..X$."P"..240.X.W..X$."T"..".":.120
......X$."N".I.I.1:.225......I.P.I.1....
..165......250.I...B(I).B(I)..1.B(I):B(I
)..(B(I)..5):LL(I).LL(I)..2.LL(I).D...LL
(I)..(LL(I)..5):.255......".W. .D. .P. .
L. .T. .N. ARE THE ONLY LETTERS.":.180..
...."NEW BALANCE FOR "N$(I)" IS $"B(I):.
:."FOR LOANS, YOU OWE $"LL(I).....QQ.225
0:.115......"............DEPOSIT":..=...
."HOW MUCH DO YOU WANT TO DEPOSIT";DP.N.
..B(I).B(I).DP.W....335.J....".WITHDRAWA
L"..."..B(I).0.."YOU DO NOT HAVE ANY MON
EY IN THE BANK":QQ.1500:.115.I.'..: ."IS
IT PAYDAY (Y/N)"...,..P$:.P$."". .300..
.1..P$."N".B(I).B(I).50...6..P$."Y".315.
$.;.."BANK BALANCE IS $"B(I).N.@.."HOW M
UCH DO YOU WANT TO TAKE OUT";R.K.E..R.B(
I).."TOO MUCH":.320.{.J.B(I).B(I).R...O.
."YOUR NEW BALANCE IS$"B(I)...T..115...Y
..".": . I.1.P.F.^..N$(I),B(I).P.C..:. I
...H..:.:."PRESS .C. TO CONTINUE"...M..Z
$:.Z$."C". QQ.1:.115...R..365.8.W.."....
.....LOANS DEPARTMENT":..U.|..".B.ORROW
OR .P.AYBACK".I....Z$:.Z$.""..385.Z....Z
$."B" .405......Z$."P" .465......385....
..".HOW MUCH DO YOU WANT";LL......LL(I).
LL.10000 .."TOO MUCH...":.415.....LL(I).
LL(I).LL......"DO YOU WANT IT IN .C.ASH
OR ON .A.COUNT".3....Y$:.Y$.""..425.D...
.Y$."A"..450.U....Y$."C"..445.S....:.".C
. OR .A. ONLY":.425......N$(I)" GETS"LL"
IN CASH":.455...B.B(I).B(I).LL(I)...G..N
$(I)"'S NEW BALANCE IS $"B(I):."LOAN ACC
OUNT $"LL(I)...L.QQ.2250:.115...Q..".":.
N$(I)"'S OWES $"LL(I):..3.V.."METHOD OF
PAYMENT:":..J...."CASH.......$";CS.A....
"SAVINGS....$";AC...... AC.B(I). ."NOT E
NOUGH IN ACCOUNT":.470.....B(I).B(I).AC.
....LL(I).LL(I).(CS.AC)...... LL(I)..0..
"GOOD...LOAN PAID OFF":B(I).0.LL(I).B(I)
:LL(I).0.5....:.N$(I)"'S NEW BALANCE IS
$"B(I):."LOAN ACCOUNT $"LL(I).F...QQ.300
0:.115.L.......
> CLICK IMAGE PREVIEW FOR FULL MODAL