BASICS
FILE INFORMATION
FILENAME(S): BASICS
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 18:12:07
APPEARS ON: 1 disk(s)
FILE HASH
cfaaca3aa252154dfd32c15e0c2a8bba6c78c848cee12e251f6bd63beaf0806a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 64 S 1 | BASICS | PRG | Sailor, Ganheden | 1 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 48 08 64 00 86 43 41 54 24 28 31 31 29 2C |..H.d..CAT$(11),| 00000010: 41 4D 4F 55 4E 54 24 28 31 31 29 3A 81 49 B2 31 |AMOUNT$(11):.I.1| 00000020: A4 31 31 3A 43 41 24 28 49 29 B2 22 CE 4F 54 20 |.11:CA$(I).".OT | 00000030: 44 45 46 49 4E 45 44 22 3A 41 4D 24 28 49 29 B2 |DEFINED":AM$(I).| 00000040: 22 30 2E 30 30 22 3A 82 00 6C 08 6E 00 43 41 24 |"0.00":..l.n.CA$| 00000050: 28 31 31 29 B2 22 C5 4E 54 45 52 20 D7 41 47 45 |(11).".NTER .AGE| 00000060: 53 20 2D 3E 22 3A 4D 4F 44 45 B2 30 00 85 08 78 |S ->":MODE.0...x| 00000070: 00 57 4C 24 B2 22 D7 48 41 54 27 53 20 4C 45 46 |.WL$.".HAT'S LEF| 00000080: 54 20 2D 3E 22 00 A6 08 82 00 97 35 33 32 38 31 |T ->"......53281| 00000090: 2C 31 35 3A 97 35 33 32 38 30 2C 31 35 3A 99 22 |,15:.53280,15:."| 000000A0: 93 0E 08 90 22 3B 00 D7 08 8C 00 53 50 24 B2 22 |....";.....SP$."| 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 20 20 20 20 20 22 00 E2 08 96 00 8F 20 4D 45 | "...... ME| 000000E0: 4E 55 00 13 09 A0 00 99 22 B0 C0 C0 C0 C0 C0 C0 |NU......".......| 000000F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000110: AE 22 3B 00 46 09 AA 00 99 22 DD 12 20 20 20 20 |.";.F....".. | 00000120: 20 20 20 20 C3 20 C8 A0 C5 A0 C1 A0 D0 A0 A0 A0 | . ..........| 00000130: C3 A0 C1 A0 CC A0 C3 20 20 20 20 20 20 20 20 20 |....... | 00000140: 20 20 92 DD 22 3B 00 7F 09 B4 00 81 49 B2 31 A4 | ..";......I.1.| 00000150: 31 31 3A 99 22 AB C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |11:."...........| 00000160: C0 C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 C0 C0 |................| 00000170: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B3 22 3B 00 |.............";.| 00000180: B2 09 BE 00 99 22 DD 20 20 20 20 20 20 20 20 20 |.....". | 00000190: 20 20 20 20 20 20 20 20 20 DD 20 20 20 20 20 20 | . | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 22 3B | .";| 000001B0: 3A 82 00 ED 09 C8 00 99 22 AD C0 C0 C0 C0 C0 C0 |:.......".......| 000001C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 |................| 000001D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000001E0: 13 22 3B 3A 97 32 30 32 33 2C 31 32 35 00 FF 09 |.";:.2023,125...| 000001F0: D2 00 97 35 36 32 39 35 2C C2 28 36 34 36 29 00 |...56295,.(646).| 00000200: 16 0A DC 00 8F 20 43 4C 45 41 52 20 4C 49 4E 45 |..... CLEAR LINE| 00000210: 20 4C 49 4E 4B 53 00 33 0A E6 00 81 49 B2 32 31 | LINKS.3....I.21| 00000220: 37 A4 32 34 32 3A 97 49 2C C2 28 49 29 B0 31 32 |7.242:.I,.(I).12| 00000230: 38 3A 82 00 46 0A F0 00 8F 20 4D 41 49 4E 20 50 |8:..F.... MAIN P| 00000240: 52 4F 47 52 41 4D 00 61 0A FA 00 49 54 45 4D B2 |ROGRAM.a...ITEM.| 00000250: 31 31 3A 97 36 33 31 2C 31 33 3A 97 31 39 38 2C |11:.631,13:.198,| 00000260: 31 00 8F 0A 04 01 81 49 B2 31 A4 31 31 3A 97 32 |1......I.1.11:.2| 00000270: 31 31 2C 31 3A 97 32 31 34 2C 31 AA 32 AC 49 3A |11,1:.214,1.2.I:| 00000280: 9E 35 38 37 33 32 3A 99 43 41 24 28 49 29 3B 00 |.58732:.CA$(I);.| 00000290: B5 0A 0E 01 99 A3 33 30 AB C3 28 41 4D 24 28 49 |......30..(AM$(I| 000002A0: 29 29 29 22 20 20 20 20 20 20 20 20 22 41 4D 24 |)))" "AM$| 000002B0: 28 49 29 3A 82 00 CD 0A 18 01 A1 41 24 3A 8D 33 |(I):.......A$:.3| 000002C0: 37 30 3A 8B 41 24 B2 22 22 A7 32 38 30 00 E7 0A |70:.A$."".280...| 000002D0: 22 01 8B 41 24 B2 22 11 22 AF C2 28 36 35 33 29 |"..A$."."..(653)| 000002E0: B2 34 A7 8D 37 30 30 00 1A 0B 2C 01 8B 41 24 B2 |.4..700...,..A$.| 000002F0: 22 11 22 AF C2 28 36 35 33 29 B2 30 A7 54 B2 AB |"."..(653).0.T..| 00000300: 31 3A 8D 33 38 30 3A 49 54 B2 49 54 AA 31 3A 8B |1:.380:IT.IT.1:.| 00000310: 49 54 B1 31 31 A7 49 54 B2 31 00 44 0B 36 01 8B |IT.11.IT.1.D.6..| 00000320: 41 24 B2 22 91 22 A7 54 B2 AB 31 3A 8D 33 38 30 |A$.".".T..1:.380| 00000330: 3A 49 54 B2 49 54 AB 31 3A 8B 49 54 B3 31 A7 49 |:IT.IT.1:.IT.1.I| 00000340: 54 B2 31 31 00 6D 0B 40 01 8B 41 24 B2 22 1D 22 |T.11.m.@..A$."."| 00000350: B0 41 24 B2 22 9D 22 A7 54 B2 AB 31 3A 8D 33 38 |.A$.".".T..1:.38| 00000360: 30 3A 4D 4F 44 45 B2 A8 20 4D 4F 44 45 00 84 0B |0:MODE.. MODE...| 00000370: 4A 01 8B 49 54 B2 31 31 AF 4D 4F 44 45 B2 AB 31 |J..IT.11.MODE..1| 00000380: A7 33 35 30 00 96 0B 54 01 8B 41 24 B2 C7 28 31 |.350...T..A$..(1| 00000390: 33 29 A7 35 36 30 00 A3 0B 5E 01 54 B2 30 3A 8D |3).560...^.T.0:.| 000003A0: 33 38 30 00 AC 0B 68 01 89 32 38 30 00 B9 0B 72 |380...h..280...r| 000003B0: 01 8B 54 49 B3 31 35 A7 8E 00 EF 0B 7C 01 54 B2 |..TI.15.....|.T.| 000003C0: A8 54 3A 97 31 39 39 2C AB 54 3A 97 32 31 31 2C |.T:.199,.T:.211,| 000003D0: 31 3A 97 32 31 34 2C 31 AA 32 AC 49 54 3A 9E 35 |1:.214,1.2.IT:.5| 000003E0: 38 37 33 32 3A 8B AB 4D 4F 44 45 A7 34 30 30 00 |8732:..MODE.400.| 000003F0: 1A 0C 86 01 99 A3 33 38 AB C3 28 41 4D 24 28 49 |......38..(AM$(I| 00000400: 54 29 29 29 41 4D 24 28 49 54 29 3A 54 49 24 B2 |T)))AM$(IT):TI$.| 00000410: 22 30 30 30 30 30 30 22 3A 8E 00 36 0C 90 01 99 |"000000":..6....| 00000420: 43 41 24 28 49 54 29 3A 54 49 24 B2 22 30 30 30 |CA$(IT):TI$."000| 00000430: 30 30 30 22 3A 8E 00 4A 0C 9A 01 8F 20 49 4E 50 |000":..J.... INP| 00000440: 55 54 20 52 4F 55 54 49 4E 45 00 74 0C A4 01 57 |UT ROUTINE.t...W| 00000450: 24 B2 22 22 3A 99 22 12 3E 92 9D 22 3B 3A 4C 49 |$."":.".>..";:LI| 00000460: 4D 49 54 B2 38 3A 8B 4D 4F 44 45 B2 AB 31 A7 4C |MIT.8:.MODE..1.L| 00000470: 49 B2 31 38 00 B1 0C AE 01 A1 41 24 3A 8B 41 24 |I.18......A$:.A$| 00000480: B2 22 91 22 B0 41 24 B2 22 11 22 B0 41 24 B2 22 |.".".A$.".".A$."| 00000490: 9D 22 B0 41 24 B2 22 1D 22 B0 41 24 B2 22 13 22 |.".A$.".".A$."."| 000004A0: B0 41 24 B2 22 93 22 B0 41 24 B2 22 22 A7 34 33 |.A$.".".A$."".43| 000004B0: 30 00 DF 0C B8 01 4C 57 B2 C3 28 57 24 29 3A 41 |0.....LW..(W$):A| 000004C0: 53 B2 C6 28 41 24 29 3A 8B 41 53 B2 31 33 B0 41 |S..(A$):.AS.13.A| 000004D0: 53 B2 31 34 31 B0 41 53 B2 32 30 A7 34 39 30 00 |S.141.AS.20.490.| 000004E0: FB 0C BD 01 8B A8 4D 4F 44 45 A7 8B 41 53 B3 34 |......MODE..AS.4| 000004F0: 33 B0 41 53 B1 35 37 A7 34 32 30 00 1D 0D C2 01 |3.AS.57.420.....| 00000500: 8B C2 28 36 35 33 29 B2 FF B0 C2 28 36 35 33 29 |..(653)....(653)| 00000510: B2 34 B0 41 53 B2 31 34 38 A7 34 33 30 00 48 0D |.4.AS.148.430.H.| 00000520: CC 01 8B 4C 57 B2 4C 49 4D 49 54 20 AF 28 41 53 |...LW.LIMIT .(AS| 00000530: B3 B1 32 30 AF 41 53 B3 B1 31 33 AF 41 53 B3 B1 |..20.AS..13.AS..| 00000540: 31 34 31 29 A7 34 33 30 00 78 0D D6 01 8B 41 53 |141).430.x....AS| 00000550: B2 33 34 B0 28 41 53 B1 B2 31 33 33 AF 41 53 B3 |.34.(AS..133.AS.| 00000560: B2 31 34 30 29 B0 28 41 53 B1 B2 31 AF 41 53 B3 |.140).(AS..1.AS.| 00000570: B2 FF 31 29 A7 34 33 30 00 9E 0D E0 01 57 24 B2 |..1).430.....W$.| 00000580: 57 24 AA 41 24 3A 99 41 24 22 12 3E 92 9D 22 3B |W$.A$:.A$".>..";| 00000590: 3A 4C 57 B2 C3 28 57 24 29 3A 89 34 33 30 00 CF |:LW..(W$):.430..| 000005A0: 0D EA 01 8B 41 53 B2 32 30 AF 57 24 B3 B1 22 22 |....AS.20.W$..""| 000005B0: A7 57 24 B2 C8 28 57 26 2C 4C 57 AB 31 29 3A 99 |.W$..(W&,LW.1):.| 000005C0: 22 9D 12 3C 92 20 9D 9D 22 3B 3A 89 34 33 30 00 |"..<. ..";:.430.| 000005D0: E4 0D F4 01 8B 41 53 B2 32 30 AF 57 24 B2 22 22 |.....AS.20.W$.""| 000005E0: A7 34 33 30 00 00 0E FE 01 8B 41 53 B2 31 33 A7 |.430......AS.13.| 000005F0: 99 22 20 23 3B 3A 4C 57 B2 C3 28 57 24 29 3A 8E |." #;:LW..(W$):.| 00000600: 00 16 0E 08 02 8F 20 43 41 4C 43 55 4C 41 54 45 |...... CALCULATE| 00000610: 20 54 4F 54 41 4C 00 3E 0E 12 02 54 54 B2 C5 28 | TOTAL.>...TT..(| 00000620: 54 54 24 29 3A 81 49 B2 31 A4 31 30 3A 54 54 B2 |TT$):.I.1.10:TT.| 00000630: 54 54 AB C5 28 41 4D 24 28 49 29 29 3A 82 00 5D |TT..(AM$(I)):..]| 00000640: 0E 1C 02 41 24 B2 C4 28 54 54 29 3A 8D 36 32 30 |...A$..(TT):.620| 00000650: 3A 41 4D 24 28 31 31 29 B2 41 24 3A 8E 00 6E 0E |:AM$(11).A$:..n.| 00000660: 26 02 8F 20 45 4E 54 45 52 20 44 41 54 41 00 96 |&.. ENTER DATA..| 00000670: 0E 30 02 97 32 31 31 2C 31 AB 28 4D 4F B2 30 29 |.0..211,1.(MO.0)| 00000680: AC 32 37 3A 97 32 31 34 2C 32 AC 49 54 AA 31 3A |.27:.214,2.IT.1:| 00000690: 9E 35 38 37 33 32 00 BA 0E 3A 02 99 22 20 20 20 |.58732...:.." | 000006A0: 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D | ........| 000006B0: 9D 9D 9D 22 3B 3A 8D 34 32 30 00 DC 0E 44 02 8B |...";:.420...D..| 000006C0: 4D 4F 44 45 A7 8B 57 24 B3 B1 22 22 A7 43 41 24 |MODE..W$.."".CA$| 000006D0: 28 49 54 29 B2 57 24 3A 89 32 36 30 00 1D 0F 4E |(IT).W$:.260...N| 000006E0: 02 8B 57 24 B3 B1 22 22 A7 41 24 B2 57 24 3A 8D |..W$.."".A$.W$:.| 000006F0: 36 32 30 3A 41 4D 24 28 49 54 29 B2 41 24 3A 8B |620:AM$(IT).A$:.| 00000700: 49 54 B2 31 31 A7 54 54 24 B2 41 24 3A 43 41 24 |IT.11.TT$.A$:CA$| 00000710: 28 31 31 29 B2 57 4C 24 3A 49 54 B2 31 00 2B 0F |(11).WL$:IT.1.+.| 00000720: 58 02 8D 35 33 30 3A 8D 37 39 30 00 34 0F 62 02 |X..530:.790.4.b.| 00000730: 89 32 36 30 00 54 0F 6C 02 8F 20 52 4F 55 4E 44 |.260.T.l.. ROUND| 00000740: 20 41 24 20 54 4F 20 4E 45 41 52 45 53 54 20 50 | A$ TO NEAREST P| 00000750: 45 4E 4E 59 00 72 0F 76 02 41 24 B2 C4 28 B5 28 |ENNY.r.v.A$..(.(| 00000760: C5 28 41 24 29 AC 31 30 30 AA 2E 35 29 AD 31 30 |.(A$).100..5).10| 00000770: 30 29 00 8A 0F 80 02 8B 41 24 B2 22 20 30 22 A7 |0)......A$." 0".| 00000780: 41 24 B2 22 20 30 2E 30 30 22 00 B8 0F 8A 02 8B |A$." 0.00"......| 00000790: C5 28 41 24 29 B1 2E 39 39 AF C5 28 41 24 29 B3 |.(A$)..99..(A$).| 000007A0: 31 30 2E 31 A7 8B C5 28 41 24 29 B2 B5 28 C5 28 |10.1...(A$)..(.(| 000007B0: 41 24 29 29 A7 36 38 30 00 D3 0F 94 02 8B CA 28 |A$)).680.......(| 000007C0: 41 24 2C C3 28 41 24 29 AB 32 2C 31 29 B2 22 2E |A$,.(A$).2,1).".| 000007D0: 22 A7 8E 00 F8 0F 9E 02 8B CA 28 41 24 2C C3 28 |".........(A$,.(| 000007E0: 41 24 29 AB 31 2C 31 29 B2 22 2E 22 A7 41 24 B2 |A$).1,1).".".A$.| 000007F0: 41 24 AA 22 30 22 3A 8E 00 0A 10 A8 02 41 24 B2 |A$."0":......A$.| 00000800: 41 24 AA 22 2E 30 30 22 3A 8E 00 21 10 B2 02 8F |A$.".00":..!....| 00000810: 20 47 45 54 20 54 57 4F 20 43 54 52 4C 2D 51 27 | GET TWO CTRL-Q'| 00000820: 53 00 46 10 BC 02 97 31 39 38 2C 30 3A 97 35 33 |S.F....198,0:.53| 00000830: 32 38 31 2C 31 3A 92 31 39 38 2C 31 3A 97 35 33 |281,1:.198,1:.53| 00000840: 32 38 31 2C 31 35 00 63 10 C6 02 A1 41 24 3A 8B |281,15.c....A$:.| 00000850: 41 24 B3 B1 22 11 22 B0 C2 28 36 35 33 29 B3 B1 |A$.."."..(653)..| 00000860: 34 A7 8E 00 7C 10 D0 02 8F 20 52 45 54 55 52 4E |4...|.... RETURN| 00000870: 20 54 4F 20 4C 4F 41 44 53 54 41 52 00 B5 10 DA | TO LOADSTAR....| 00000880: 02 9F 31 35 2C 38 2C 31 35 2C 22 52 30 3A 48 45 |..15,8,15,"R0:HE| 00000890: 4C 4C 4F 20 43 4F 4E 4E 45 43 54 3D 48 45 4C 4C |LLO CONNECT=HELL| 000008A0: 4F 20 43 4F 4E 4E 45 43 54 22 3A 84 31 35 2C 45 |O CONNECT":.15,E| 000008B0: 52 3A A0 31 35 00 CB 10 E4 02 8B 20 45 52 B3 B1 |R:.15...... ER..| 000008C0: 36 33 20 A7 20 99 22 93 22 3A 80 00 FE 10 EE 02 |63 . .".":......| 000008D0: 41 24 B2 22 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 |A$."HELLO CONNEC| 000008E0: 54 22 3A 51 24 B2 C7 28 33 34 29 3A 99 22 93 22 |T":Q$..(34):."."| 000008F0: 3A 97 36 34 36 2C C2 28 35 33 32 38 31 29 00 18 |:.646,.(53281)..| 00000900: 11 F8 02 99 22 13 11 11 11 4C 4F 41 44 22 51 24 |...."....LOAD"Q$| 00000910: 41 24 51 24 22 2C 38 22 00 41 11 02 03 99 22 11 |A$Q$",8".A....".| 00000920: 11 11 11 52 55 4E 13 22 3A 97 36 33 31 2C 31 33 |...RUN.":.631,13| 00000930: 3A 97 36 33 32 2C 31 33 3A 97 31 39 38 2C 32 3A |:.632,13:.198,2:| 00000940: 80 00 5A 11 0C 03 8F 20 55 50 44 41 54 45 20 54 |..Z.... UPDATE T| 00000950: 4F 50 20 4F 46 20 4D 45 4E 55 00 94 11 16 03 41 |OP OF MENU.....A| 00000960: 24 B2 C4 28 C5 28 54 54 24 29 AB C5 28 41 4D 24 |$..(.(TT$)..(AM$| 00000970: 28 31 31 29 29 29 3A 8D 36 33 30 3A 8F 20 43 41 |(11))):.630:. CA| 00000980: 4C 43 55 4C 41 54 45 20 45 58 50 45 4E 44 49 54 |LCULATE EXPENDIT| 00000990: 55 52 45 53 00 CE 11 20 03 99 22 13 11 1D 12 C5 |URES... ..".....| 000009A0: 58 50 45 4E 44 49 54 55 52 45 53 3A 24 22 41 24 |XPENDITURES:$"A$| 000009B0: 22 20 20 20 20 13 11 22 A3 32 35 29 22 C3 D4 D2 |" ..".25)"...| 000009C0: CC 2D D1 20 54 4F 20 51 55 49 54 22 3A 8E 00 00 |.-. TO QUIT":...| 000009D0: 00 |. |
..H.D..CAT$(11),AMOUNT$(11):.I.1.11:CA$(
I)."NOT DEFINED":AM$(I)."0.00":..L.N.CA$
(11)."ENTER WAGES ->":MODE.0...X.WL$."WH
AT'S LEFT ->"......53281,15:.53280,15:."
....";.W...SP$."
"...... MENU... ..".......
.................................";.F...
.".. C H E A P C A L C
..";.....I.1.11:."...................
.....................";......".
. .";:....H..
".......................................
.";:.2023,125...R..56295,B(646)...... CL
EAR LINE LINKS.3....I.217.242:.I,B(I).12
8:..F.... MAIN PROGRAM.A...ITEM.11:.631,
13:.198,1......I.1.11:.211,1:.214,1.2.I:
.58732:.CA$(I);.......30.C(AM$(I)))"
"AM$(I):..M....A$:.370:.A$."".280...
"..A$.".".B(653).4..700...,..A$.".".B(65
3).0.T..1:.380:IT.IT.1:.IT.11.IT.1.D.6..
A$.".".T..1:.380:IT.IT.1:.IT.1.IT.11.M.@
..A$.".".A$.".".T..1:.380:MODE.. MODE...
J..IT.11.MODE..1.350...T..A$.G(13).560..
.^.T.0:.380...H..280...R..TI.15.....|.T.
.T:.199,.T:.211,1:.214,1.2.IT:.58732:..M
ODE.400.......38.C(AM$(IT)))AM$(IT):TI$.
"000000":..6....CA$(IT):TI$."000000":..J
.... INPUT ROUTINE.T...W$."":.".>..";:LI
MIT.8:.MODE..1.LI.18......A$:.A$.".".A$.
".".A$.".".A$.".".A$.".".A$.".".A$."".43
0.....LW.C(W$):AS.F(A$):.AS.13.AS.141.AS
.20.490.......MODE..AS.43.AS.57.420...B.
.B(653)...B(653).4.AS.148.430.H.L..LW.LI
MIT .(AS..20.AS..13.AS..141).430.X.V..AS
.34.(AS..133.AS..140).(AS..1.AS...1).430
.....W$.W$.A$:.A$".>..";:LW.C(W$):.430.O
....AS.20.W$.."".W$.H(W&,LW.1):."..<. ..
";:.430......AS.20.W$."".430......AS.13.
." #;:LW.C(W$):....... CALCULATE TOTAL.>
...TT.E(TT$):.I.1.10:TT.TT.E(AM$(I)):..]
...A$.D(TT):.620:AM$(11).A$:..N.&.. ENTE
R DATA...0..211,1.(MO.0).27:.214,2.IT.1:
.58732...:.." ...........";:.4
20...D..MODE..W$.."".CA$(IT).W$:.260...N
..W$.."".A$.W$:.620:AM$(IT).A$:.IT.11.TT
$.A$:CA$(11).WL$:IT.1.+.X..530:.790.4.B.
.260.T.L.. ROUND A$ TO NEAREST PENNY.R.V
.A$.D(.(E(A$).100..5).100)......A$." 0".
A$." 0.00"......E(A$)..99.E(A$).10.1..E(
A$)..(E(A$)).680.S....J(A$,C(A$).2,1).".
"........J(A$,C(A$).1,1).".".A$.A$."0":.
.....A$.A$.".00":..!.... GET TWO CTRL-Q'
S.F....198,0:.53281,1:.198,1:.53281,15.C
.F..A$:.A$..".".B(653)..4...|.P.. RETURN
TO LOADSTAR...Z..15,8,15,"R0:HELLO CONN
ECT=HELLO CONNECT":.15,ER: 15.K.... ER..
63 . .".":......A$."HELLO CONNECT":Q$.G(
34):.".":.646,B(53281)......"....LOAD"Q$
A$Q$",8".A...."....RUN.":.631,13:.632,13
:.198,2:..Z.... UPDATE TOP OF MENU.....A
$.D(E(TT$).E(AM$(11))):.630:. CALCULATE
EXPENDITURES.N. .."....EXPENDITURES:$"A$
" ..".25)"CTRL-Q TO QUIT":....
> CLICK IMAGE PREVIEW FOR FULL MODAL