VARIABLE SAVER
FILE INFORMATION
FILENAME(S): VARIABLE SAVER
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-12-01 01:02:32
APPEARS ON: 1 disk(s)
FILE HASH
2cb111aab32bb3df19aaa7bf5cbd75cf95250be7d87e5214bb8553285c3abc0a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ARBETSDISK NR2 | VARIABLE SAVER | PRG | hedning, German ebay | 16 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2F 08 64 00 8F 22 FF FF FF FF FF FF FF FF |../.d.."........|
00000010: 20 44 55 4D 4D 59 20 4C 49 4E 45 20 46 4F 52 20 | DUMMY LINE FOR |
00000020: 53 41 56 45 44 20 50 4F 49 4E 54 45 52 53 2E 00 |SAVED POINTERS..|
00000030: 59 08 6E 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |Y.n.. **********|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 83 08 78 00 8F 20 |*********...x.. |
00000060: 2A 2A 20 20 48 4F 4D 45 20 20 42 55 44 47 45 54 |** HOME BUDGET|
00000070: 20 20 50 4C 41 4E 4E 49 4E 47 20 20 41 49 44 20 | PLANNING AID |
00000080: 20 2A 2A 00 AD 08 82 00 8F 20 2A 2A 2A 2A 2A 2A | **...... ******|
00000090: 2A 2A 2A 2A 2A 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 00 F1 08 |*************...|
000000B0: 8C 00 8F 20 2A 2A 2A 2A 2A 20 49 46 20 FF 20 53 |... ***** IF . S|
000000C0: 54 49 4C 4C 20 54 48 45 52 45 20 2C 4E 4F 20 56 |TILL THERE ,NO V|
000000D0: 41 52 49 41 42 4C 45 20 50 4F 4F 4C 20 50 4F 49 |ARIABLE POOL POI|
000000E0: 4E 54 45 52 53 20 53 41 56 45 44 20 2A 2A 2A 2A |NTERS SAVED ****|
000000F0: 2A 00 13 09 96 00 8B C2 28 C2 28 34 33 29 AA C2 |*.......(.(43)..|
00000100: 28 34 34 29 AC 32 35 36 AA 37 29 B2 32 35 35 89 |(44).256.7).255.|
00000110: 32 33 30 00 44 09 A0 00 8F 20 2A 2A 2A 2A 2A 20 |230.D.... ***** |
00000120: 52 45 53 54 4F 52 45 20 56 41 52 49 41 42 4C 45 |RESTORE VARIABLE|
00000130: 20 50 4F 4F 4C 20 50 4F 49 4E 54 45 52 53 20 2A | POOL POINTERS *|
00000140: 2A 2A 2A 2A 00 61 09 AA 00 97 34 35 2C C2 28 C2 |****.a....45,.(.|
00000150: 28 34 33 29 AA C2 28 34 34 29 AC 32 35 36 AA 36 |(43)..(44).256.6|
00000160: 29 00 7E 09 B4 00 97 34 36 2C C2 28 C2 28 34 33 |).~....46,.(.(43|
00000170: 29 AA C2 28 34 34 29 AC 32 35 36 AA 37 29 00 9C |)..(44).256.7)..|
00000180: 09 BE 00 50 53 B2 C2 28 34 33 29 AA C2 28 34 34 |...PS..(43)..(44|
00000190: 29 AC 32 35 36 3A 81 58 B2 30 A4 35 00 B2 09 C8 |).256:.X.0.5....|
000001A0: 00 97 34 37 AA 58 2C C2 28 50 53 AA 38 AA 58 29 |..47.X,.(PS.8.X)|
000001B0: 3A 82 00 E4 09 D2 00 97 35 35 2C C2 28 34 35 29 |:.......55,.(45)|
000001C0: 3A 97 35 36 2C C2 28 34 36 29 AA 34 3A 89 32 35 |:.56,.(46).4:.25|
000001D0: 30 3A 8F 20 46 41 53 54 45 52 20 53 41 56 45 2F |0:. FASTER SAVE/|
000001E0: 4C 4F 41 44 00 18 0A DC 00 8F 20 2A 2A 2A 2A 2A |LOAD...... *****|
000001F0: 20 50 45 52 46 4F 52 4D 20 46 49 52 53 54 20 54 | PERFORM FIRST T|
00000200: 49 4D 45 20 49 4E 49 54 49 41 4C 49 5A 41 54 49 |IME INITIALIZATI|
00000210: 4F 4E 20 2A 2A 2A 2A 2A 00 21 0A E6 00 89 35 38 |ON *****.!....58|
00000220: 30 00 48 0A F0 00 8F 20 2A 2A 2A 2A 2A 43 41 4C |0.H.... *****CAL|
00000230: 43 55 4C 41 54 45 20 41 4E 44 20 44 49 53 50 4C |CULATE AND DISPL|
00000240: 41 59 20 2A 2A 2A 2A 2A 00 61 0A FA 00 99 43 53 |AY *****.a....CS|
00000250: 24 3B 3A 55 53 45 44 B2 30 3A 81 49 B2 30 A4 44 |$;:USED.0:.I.0.D|
00000260: 53 00 81 0A 04 01 50 43 B2 28 41 4D 54 28 49 29 |S.....PC.(AMT(I)|
00000270: AD 41 4D 54 28 30 29 AA 2E 30 30 35 29 AC 31 30 |.AMT(0)..005).10|
00000280: 30 00 96 0A 0E 01 49 24 B2 C9 28 C4 28 49 29 AA |0.....I$..(.(I).|
00000290: 22 20 22 2C 33 29 00 B2 0A 18 01 41 24 B2 C9 28 |" ",3).....A$..(|
000002A0: 22 20 20 20 22 AA C4 28 41 4D 54 28 49 29 29 2C |" "..(AMT(I)),|
000002B0: 35 29 00 CC 0A 22 01 50 43 24 B2 C9 28 22 20 22 |5)...".PC$..(" "|
000002C0: AA C4 28 B5 28 50 43 29 29 2C 33 29 00 EB 0A 2C |..(.(PC)),3)...,|
000002D0: 01 99 49 24 3B C8 28 49 54 45 4D 24 28 49 29 AA |..I$;.(ITEM$(I).|
000002E0: 46 53 24 2C 46 53 29 3B 41 24 3B 00 0E 0B 36 01 |FS$,FS);A$;...6.|
000002F0: 8B 49 B1 30 A7 99 50 43 24 22 25 22 3B 3A 55 53 |.I.0..PC$"%";:US|
00000300: 45 44 B2 55 53 45 44 AA 41 4D 54 28 49 29 00 16 |ED.USED.AMT(I)..|
00000310: 0B 40 01 99 3A 82 00 4C 0B 4A 01 99 22 42 55 44 |.@..:..L.J.."BUD|
00000320: 47 45 54 45 44 20 3D 22 55 53 45 44 3B 42 53 24 |GETED ="USED;BS$|
00000330: 3B B5 28 28 55 53 45 44 AD 41 4D 54 28 30 29 29 |;.((USED.AMT(0))|
00000340: AC 31 30 30 29 3B 42 53 24 22 25 22 00 93 0B 54 |.100);BS$"%"...T|
00000350: 01 4C 45 46 54 B2 41 4D 54 28 30 29 AB 55 53 45 |.LEFT.AMT(0).USE|
00000360: 44 3A 99 22 52 45 4D 41 49 4E 49 4E 47 3D 22 4C |D:."REMAINING="L|
00000370: 45 46 54 3B 42 53 24 3B B5 28 28 4C 45 46 54 AD |EFT;BS$;.((LEFT.|
00000380: 41 4D 54 28 30 29 29 AC 31 30 30 29 3B 42 53 24 |AMT(0)).100);BS$|
00000390: 22 25 22 00 BD 0B 5E 01 8F 20 2A 2A 2A 2A 2A 20 |"%"...^.. ***** |
000003A0: 50 52 4F 4D 50 54 20 46 4F 52 20 55 53 45 52 20 |PROMPT FOR USER |
000003B0: 43 48 41 4E 47 45 53 20 2A 2A 2A 2A 2A 00 FE 0B |CHANGES *****...|
000003C0: 68 01 99 52 56 24 22 20 43 48 47 20 22 52 4F 24 |h..RV$" CHG "RO$|
000003D0: 22 49 22 52 56 24 22 54 45 4D 2C 20 22 52 4F 24 |"I"RV$"TEM, "RO$|
000003E0: 22 41 22 52 56 24 22 4D 54 2C 20 22 52 4F 24 22 |"A"RV$"MT, "RO$"|
000003F0: 4E 22 52 56 24 22 4F 4E 45 3F 22 52 4F 24 00 06 |N"RV$"ONE?"RO$..|
00000400: 0C 72 01 A1 42 24 00 17 0C 7C 01 8B 42 24 B2 22 |.r..B$...|..B$."|
00000410: 4E 22 20 89 34 37 30 00 28 0C 86 01 8B 42 24 B2 |N" .470.(....B$.|
00000420: 22 41 22 20 89 34 32 30 00 39 0C 90 01 8B 42 24 |"A" .420.9....B$|
00000430: B2 22 49 22 20 89 34 34 30 00 42 0C 9A 01 89 33 |."I" .440.B....3|
00000440: 37 30 00 74 0C A4 01 99 22 49 54 45 4D 20 23 22 |70.t...."ITEM #"|
00000450: 52 56 24 22 2C 22 52 4F 24 22 41 43 54 55 41 4C |RV$","RO$"ACTUAL|
00000460: 20 41 4D 54 22 3A 85 5A 2C 41 3A 8B 5A B1 44 53 | AMT":.Z,A:.Z.DS|
00000470: A7 34 32 30 00 86 0C AE 01 41 4D 54 28 5A 29 B2 |.420.....AMT(Z).|
00000480: 41 3A 89 32 35 30 00 B9 0C B8 01 99 22 49 54 45 |A:.250......"ITE|
00000490: 4D 20 23 22 52 56 24 22 2C 22 52 4F 24 22 49 54 |M #"RV$","RO$"IT|
000004A0: 45 4D 20 44 45 53 43 2E 22 3A 85 5A 2C 5A 24 3A |EM DESC.":.Z,Z$:|
000004B0: 8B 5A B1 44 53 A7 34 34 30 00 D8 0C C2 01 49 54 |.Z.DS.440.....IT|
000004C0: 45 4D 24 28 5A 29 B2 C8 28 5A 24 AA 46 53 24 2C |EM$(Z)..(Z$.FS$,|
000004D0: 46 53 29 3A 89 32 35 30 00 04 0D CC 01 8F 20 2A |FS):.250...... *|
000004E0: 2A 2A 2A 2A 20 50 52 4F 4D 50 54 20 46 4F 52 20 |**** PROMPT FOR |
000004F0: 53 41 56 45 20 56 41 52 49 41 42 4C 45 53 20 2A |SAVE VARIABLES *|
00000500: 2A 2A 2A 2A 00 27 0D D6 01 99 43 55 24 52 56 24 |****.'....CU$RV$|
00000510: 22 20 53 41 56 45 20 44 41 54 41 2B 50 47 4D 20 |" SAVE DATA+PGM |
00000520: 59 2F 4E 3F 20 20 22 00 62 0D E0 01 A1 58 24 3A |Y/N? ".b....X$:|
00000530: 8B 58 24 B2 22 4E 22 A7 99 43 55 24 52 56 24 22 |.X$."N"..CU$RV$"|
00000540: 53 59 53 22 C4 28 53 52 29 22 20 20 4F 52 20 47 |SYS".(SR)" OR G|
00000550: 4F 54 4F 31 30 30 20 54 4F 20 52 55 4E 2E 22 3B |OTO100 TO RUN.";|
00000560: 3A 80 00 73 0D EA 01 8B 58 24 B3 B1 22 59 22 A7 |:..s....X$.."Y".|
00000570: 34 38 30 00 A1 0D F4 01 8F 20 2A 2A 2A 2A 2A 20 |480...... ***** |
00000580: 53 41 56 45 20 56 41 52 49 41 42 4C 45 20 50 4F |SAVE VARIABLE PO|
00000590: 4F 4C 20 50 4F 49 4E 54 45 52 53 20 2A 2A 2A 2A |OL POINTERS ****|
000005A0: 2A 00 E4 0D FE 01 99 43 53 24 22 52 45 41 44 59 |*......CS$"READY|
000005B0: 20 46 4F 52 20 53 41 56 45 20 4F 46 20 50 52 4F | FOR SAVE OF PRO|
000005C0: 47 52 41 4D 20 41 4E 44 20 56 41 52 49 41 42 4C |GRAM AND VARIABL|
000005D0: 45 53 20 54 4F 20 54 41 50 45 20 4F 52 20 44 49 |ES TO TAPE OR DI|
000005E0: 53 4B 2E 22 00 17 0E 08 02 99 22 41 46 54 45 52 |SK."......"AFTER|
000005F0: 20 53 41 56 45 2C 20 45 4E 54 45 52 20 27 53 59 | SAVE, ENTER 'SY|
00000600: 53 22 53 52 22 27 2C 20 4F 52 20 27 47 4F 54 4F |S"SR"', OR 'GOTO|
00000610: 20 31 30 30 27 2E 22 00 35 0E 12 02 50 53 B2 C2 | 100'.".5...PS..|
00000620: 28 34 33 29 AA C2 28 34 34 29 AC 32 35 36 3A 81 |(43)..(44).256:.|
00000630: 58 B2 30 A4 37 00 4C 0E 1C 02 97 20 50 53 AA 36 |X.0.7.L.... PS.6|
00000640: AA 58 2C C2 28 34 35 AA 58 29 3A 82 00 64 0E 26 |.X,.(45.X):..d.&|
00000650: 02 97 34 35 2C C2 28 35 35 29 3A 97 34 36 2C C2 |..45,.(55):.46,.|
00000660: 28 35 36 29 00 6A 0E 30 02 80 00 9F 0E 3A 02 8F |(56).j.0.....:..|
00000670: 20 2A 2A 2A 2A 2A 20 46 49 52 53 54 20 54 49 4D | ***** FIRST TIM|
00000680: 45 20 56 41 52 49 41 42 4C 45 20 49 4E 49 54 49 |E VARIABLE INITI|
00000690: 41 4C 49 5A 41 54 49 4F 4E 20 2A 2A 2A 2A 2A 00 |ALIZATION *****.|
000006A0: CF 0E 44 02 97 35 35 2C C2 28 34 35 29 3A 97 35 |..D..55,.(45):.5|
000006B0: 36 2C C2 28 34 36 29 AA 34 3A 9C 3A 20 8F 20 46 |6,.(46).4:.: . F|
000006C0: 41 53 54 45 52 20 53 41 56 45 2F 4C 4F 41 44 00 |ASTER SAVE/LOAD.|
000006D0: F3 0E 4E 02 8F 20 32 35 36 2A 34 3D 31 30 32 34 |..N.. 256*4=1024|
000006E0: 20 56 41 52 49 41 42 4C 45 20 50 4F 4F 4C 20 53 | VARIABLE POOL S|
000006F0: 49 5A 45 00 39 0F 62 02 53 52 B2 36 34 37 33 38 |IZE.9.b.SR.64738|
00000700: 3A 44 53 B2 31 39 3A 43 53 24 B2 C7 28 31 34 37 |:DS.19:CS$..(147|
00000710: 29 3A 46 53 B2 32 37 3A 46 53 24 B2 22 2E 2E 2E |):FS.27:FS$."...|
00000720: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000730: 2E 2E 2E 2E 2E 2E 2E 2E 22 00 59 0F 6C 02 99 43 |........".Y.l..C|
00000740: 53 24 22 20 3F 4E 45 54 20 4D 4F 4E 54 48 4C 59 |S$" ?NET MONTHLY|
00000750: 20 49 4E 43 4F 4D 45 3F 22 00 70 0F 76 02 86 41 | INCOME?".p.v..A|
00000760: 4D 54 28 44 53 29 2C 49 54 45 4D 24 28 44 53 29 |MT(DS),ITEM$(DS)|
00000770: 00 7D 0F 80 02 85 20 41 4D 54 28 30 29 00 A7 0F |.}.... AMT(0)...|
00000780: 8A 02 49 54 45 4D 24 28 30 29 B2 22 2A 49 4E 43 |..ITEM$(0)."*INC|
00000790: 4F 4D 45 2A 20 22 3A 41 4D 54 28 30 29 B2 B5 28 |OME* ":AMT(0)..(|
000007A0: 41 4D 54 28 30 29 29 00 CB 0F 94 02 49 54 45 4D |AMT(0)).....ITEM|
000007B0: 24 28 31 29 B2 22 48 4F 55 53 49 4E 47 20 20 22 |$(1)."HOUSING "|
000007C0: 3A 41 4D 54 28 31 29 B2 38 35 30 00 EF 0F 9E 02 |:AMT(1).850.....|
000007D0: 49 54 45 4D 24 28 32 29 B2 22 47 52 4F 43 45 52 |ITEM$(2)."GROCER|
000007E0: 49 45 53 22 3A 41 4D 54 28 32 29 B2 31 30 30 00 |IES":AMT(2).100.|
000007F0: 12 10 A8 02 49 54 45 4D 24 28 33 29 B2 22 47 41 |....ITEM$(3)."GA|
00000800: 53 2F 45 4C 45 43 2E 22 3A 41 4D 54 28 33 29 B2 |S/ELEC.":AMT(3).|
00000810: 35 33 00 35 10 B2 02 49 54 45 4D 24 28 34 29 B2 |53.5...ITEM$(4).|
00000820: 22 54 45 4C 45 50 48 4F 4E 45 22 3A 41 4D 54 28 |"TELEPHONE":AMT(|
00000830: 34 29 B2 31 34 00 59 10 BC 02 49 54 45 4D 24 28 |4).14.Y...ITEM$(|
00000840: 35 29 B2 22 4C 4F 41 4E 20 23 31 20 20 22 3A 41 |5)."LOAN #1 ":A|
00000850: 4D 54 28 35 29 B2 31 35 35 00 7D 10 C6 02 49 54 |MT(5).155.}...IT|
00000860: 45 4D 24 28 36 29 B2 22 4C 4F 41 4E 20 23 32 20 |EM$(6)."LOAN #2 |
00000870: 20 22 3A 41 4D 54 28 36 29 B2 31 34 35 00 A0 10 | ":AMT(6).145...|
00000880: D0 02 49 54 45 4D 24 28 37 29 B2 22 47 41 53 4F |..ITEM$(7)."GASO|
00000890: 4C 49 4E 45 20 22 3A 41 4D 54 28 37 29 B2 32 30 |LINE ":AMT(7).20|
000008A0: 00 C3 10 DA 02 49 54 45 4D 24 28 38 29 B2 22 49 |.....ITEM$(8)."I|
000008B0: 4E 53 55 52 41 4E 43 45 22 3A 41 4D 54 28 38 29 |NSURANCE":AMT(8)|
000008C0: B2 34 33 00 E6 10 E4 02 49 54 45 4D 24 28 39 29 |.43.....ITEM$(9)|
000008D0: B2 22 43 41 52 20 4D 41 49 4E 54 22 3A 41 4D 54 |."CAR MAINT":AMT|
000008E0: 28 39 29 B2 31 32 00 0B 11 EE 02 49 54 45 4D 24 |(9).12.....ITEM$|
000008F0: 28 31 30 29 B2 22 4D 43 20 2F 20 56 49 53 41 22 |(10)."MC / VISA"|
00000900: 3A 41 4D 54 28 31 30 29 B2 37 30 00 30 11 F8 02 |:AMT(10).70.0...|
00000910: 49 54 45 4D 24 28 31 31 29 B2 22 44 4F 4E 41 54 |ITEM$(11)."DONAT|
00000920: 49 4F 4E 53 22 3A 41 4D 54 28 31 31 29 B2 31 30 |IONS":AMT(11).10|
00000930: 00 55 11 02 03 49 54 45 4D 24 28 31 32 29 B2 22 |.U...ITEM$(12)."|
00000940: 43 4C 4F 54 48 49 4E 47 20 22 3A 41 4D 54 28 31 |CLOTHING ":AMT(1|
00000950: 32 29 B2 32 35 00 7A 11 0C 03 49 54 45 4D 24 28 |2).25.z...ITEM$(|
00000960: 31 33 29 B2 22 45 44 55 43 41 54 49 4F 4E 22 3A |13)."EDUCATION":|
00000970: 41 4D 54 28 31 33 29 B2 38 33 00 9F 11 16 03 49 |AMT(13).83.....I|
00000980: 54 45 4D 24 28 31 34 29 B2 22 48 4F 4D 45 20 52 |TEM$(14)."HOME R|
00000990: 45 50 52 22 3A 41 4D 54 28 31 34 29 B2 38 30 00 |EPR":AMT(14).80.|
000009A0: C4 11 20 03 49 54 45 4D 24 28 31 35 29 B2 22 52 |.. .ITEM$(15)."R|
000009B0: 45 43 52 45 41 54 27 4E 22 3A 41 4D 54 28 31 35 |ECREAT'N":AMT(15|
000009C0: 29 B2 36 30 00 EA 11 2A 03 49 54 45 4D 24 28 31 |).60...*.ITEM$(1|
000009D0: 36 29 B2 22 53 41 56 49 4E 47 53 20 20 22 3A 41 |6)."SAVINGS ":A|
000009E0: 4D 54 28 31 36 29 B2 31 30 30 00 0F 12 34 03 49 |MT(16).100...4.I|
000009F0: 54 45 4D 24 28 31 37 29 B2 22 4F 54 48 45 52 20 |TEM$(17)."OTHER |
00000A00: 20 20 20 22 3A 41 4D 54 28 31 37 29 B2 34 35 00 | ":AMT(17).45.|
00000A10: 34 12 48 03 49 54 45 4D 24 28 31 38 29 B2 22 4F |4.H.ITEM$(18)."O|
00000A20: 54 48 45 52 31 20 20 20 22 3A 41 4D 54 28 31 38 |THER1 ":AMT(18|
00000A30: 29 B2 32 33 00 59 12 52 03 49 54 45 4D 24 28 31 |).23.Y.R.ITEM$(1|
00000A40: 39 29 B2 22 4F 54 48 45 52 32 20 20 20 22 3A 41 |9)."OTHER2 ":A|
00000A50: 4D 54 28 31 39 29 B2 31 37 00 89 12 5C 03 42 53 |MT(19).17...\.BS|
00000A60: 24 B2 C7 28 31 35 37 29 3A 43 55 24 B2 C7 28 31 |$..(157):CU$..(1|
00000A70: 34 35 29 3A 52 56 24 B2 C7 28 31 38 29 3A 20 52 |45):RV$..(18): R|
00000A80: 4F 24 B2 C7 28 31 34 36 29 00 92 12 66 03 89 32 |O$..(146)...f..2|
00000A90: 35 30 00 00 00 |50... |
../.D.."........ DUMMY LINE FOR SAVED PO
INTERS..Y.N.. **************************
*********...X.. ** HOME BUDGET PLANNI
NG AID **...... **********************
*************...... ***** IF . STILL THE
RE ,NO VARIABLE POOL POINTERS SAVED ****
*......B(B(43).B(44).256.7).255.230.D. .
. ***** RESTORE VARIABLE POOL POINTERS *
****.A....45,B(B(43).B(44).256.6).~....4
6,B(B(43).B(44).256.7).....PS.B(43).B(44
).256:.X.0.5...H..47.X,B(PS.8.X):....R..
55,B(45):.56,B(46).4:.250:. FASTER SAVE/
LOAD...... ***** PERFORM FIRST TIME INIT
IALIZATION *****.!....580.H.... *****CAL
CULATE AND DISPLAY *****.A....CS$;:USED.
0:.I.0.DS.....PC.(AMT(I).AMT(0)..005).10
0.....I$.I(D(I)." ",3).....A$.I(" ".D(
AMT(I)),5).L.".PC$.I(" ".D(.(PC)),3)...,
..I$;H(ITEM$(I).FS$,FS);A$;...6..I.0..PC
$"%";:USED.USED.AMT(I)...@..:..L.J.."BUD
GETED ="USED;BS$;.((USED.AMT(0)).100);BS
$"%"...T.LEFT.AMT(0).USED:."REMAINING="L
EFT;BS$;.((LEFT.AMT(0)).100);BS$"%"...^.
. ***** PROMPT FOR USER CHANGES *****...
H..RV$" CHG "RO$"I"RV$"TEM, "RO$"A"RV$"M
T, "RO$"N"RV$"ONE?"RO$...R..B$...|..B$."
N" .470.(....B$."A" .420.9....B$."I" .44
0.B....370.T...."ITEM #"RV$","RO$"ACTUAL
AMT":.Z,A:.Z.DS.420.....AMT(Z).A:.250..
...."ITEM #"RV$","RO$"ITEM DESC.":.Z,Z$:
.Z.DS.440.X.B.ITEM$(Z).H(Z$.FS$,FS):.250
...L.. ***** PROMPT FOR SAVE VARIABLES *
****.'.V..CU$RV$" SAVE DATA+PGM Y/N? ".
B....X$:.X$."N"..CU$RV$"SYS"D(SR)" OR G
OTO100 TO RUN.";:..S....X$.."Y".480.....
. ***** SAVE VARIABLE POOL POINTERS ****
*......CS$"READY FOR SAVE OF PROGRAM AND
VARIABLES TO TAPE OR DISK."......"AFTER
SAVE, ENTER 'SYS"SR"', OR 'GOTO 100'.".
5...PS.B(43).B(44).256:.X.0.7.L.... PS.6
.X,B(45.X):..D.&..45,B(55):.46,B(56).J.0
.....:.. ***** FIRST TIME VARIABLE INITI
ALIZATION *****.O.D..55,B(45):.56,B(46).
4:.: . FASTER SAVE/LOAD...N.. 256*4=1024
VARIABLE POOL SIZE.9.B.SR.64738:DS.19:C
S$.G(147):FS.27:FS$."...................
........".Y.L..CS$" ?NET MONTHLY INCOME?
".P.V..AMT(DS),ITEM$(DS).}.... AMT(0)...
..ITEM$(0)."*INCOME* ":AMT(0)..(AMT(0)).
K...ITEM$(1)."HOUSING ":AMT(1).850.....
ITEM$(2)."GROCERIES":AMT(2).100.....ITEM
$(3)."GAS/ELEC.":AMT(3).53.5...ITEM$(4).
"TELEPHONE":AMT(4).14.Y...ITEM$(5)."LOAN
#1 ":AMT(5).155.}.F.ITEM$(6)."LOAN #2
":AMT(6).145. .P.ITEM$(7)."GASOLINE ":A
MT(7).20.C.Z.ITEM$(8)."INSURANCE":AMT(8)
.43.....ITEM$(9)."CAR MAINT":AMT(9).12..
...ITEM$(10)."MC / VISA":AMT(10).70.0...
ITEM$(11)."DONATIONS":AMT(11).10.U...ITE
M$(12)."CLOTHING ":AMT(12).25.Z...ITEM$(
13)."EDUCATION":AMT(13).83.....ITEM$(14)
."HOME REPR":AMT(14).80.D. .ITEM$(15)."R
ECREAT'N":AMT(15).60...*.ITEM$(16)."SAVI
NGS ":AMT(16).100...4.ITEM$(17)."OTHER
":AMT(17).45.4.H.ITEM$(18)."OTHER1
":AMT(18).23.Y.R.ITEM$(19)."OTHER2 ":A
MT(19).17...\.BS$.G(157):CU$.G(145):RV$.
G(18): RO$.G(146)...F..250...
> CLICK IMAGE PREVIEW FOR FULL MODAL