FIFO.C3
FILE INFORMATION
FILENAME(S): FIFO.C3
FILE TYPE(S): PRG
FILE SIZE: 7.9K
FIRST SEEN: 2025-12-01 13:51:02
APPEARS ON: 1 disk(s)
FILE HASH
a1404447ca62d8752b9d0df526830b6725c95bc2a449f8421f84076a3fffbb44
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CX015 | FIFO.C3 | PRG | hedning, Knutsson | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....| 00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY | 00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....| 00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .| 00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....| 00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh| 00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`| 00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh| 00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4| 00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU| 000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **| 000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO| 000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..| 000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I| 000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++| 000000F0: 00 09 09 28 00 55 52 24 B2 22 22 3A 55 49 24 B2 |...(.UR$."":UI$.| 00000100: 22 22 3A 97 20 55 4F 2C 30 00 19 09 2A 00 8B 55 |"":. UO,0...*..U| 00000110: 4C B2 30 A7 55 4C B2 38 30 00 2C 09 2D 00 99 22 |L.0.UL.80.,.-.."| 00000120: 20 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 40 09 32 | ..";:.UC,0.@.2| 00000130: 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 |..UI$:.UI$."".50| 00000140: 00 6A 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF |.j.7..UI$..(13).| 00000150: C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A |.(UR$)..1..UC,1:| 00000160: 99 22 20 9D 22 3B 3A 89 38 35 00 7D 09 3C 00 8B |." .";:.85.}.<..| 00000170: 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 91 09 |UI$..(20).105...| 00000180: 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 |>.. .(UR$)..UL.5| 00000190: 30 00 B6 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 |0...A..120:. CHE| 000001A0: 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 |CK FOR VALID CHA| 000001B0: 52 41 43 54 45 52 00 C6 09 46 00 55 52 24 B2 55 |RACTER...F.UR$.U| 000001C0: 52 24 AA 55 49 24 00 D0 09 4B 00 99 55 49 24 3B |R$.UI$...K..UI$;| 000001D0: 00 D8 09 50 00 89 35 30 00 FD 09 55 00 8F 20 2B |...P..50...U.. +| 000001E0: 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C |++ CHECK FOR HEL| 000001F0: 50 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 25 0A |P REQUEST +++.%.| 00000200: 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F |Z..UR$.UX$.195:.| 00000210: 20 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F | EXIT TO HELP RO| 00000220: 55 54 49 4E 45 00 34 0A 5F 00 8B 55 46 B2 31 A7 |UTINE.4._..UF.1.| 00000230: 8D 32 34 30 00 41 0A 64 00 55 46 B2 30 3A 99 3A |.240.A.d.UF.0:.:| 00000240: 8E 00 5A 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B |..Z.f.. ++ CHECK| 00000250: 20 44 45 4C 45 54 45 20 2B 2B 00 6B 0A 69 00 8B | DELETE ++.k.i..| 00000260: C3 28 55 52 24 29 B3 31 A7 35 30 00 83 0A 6E 00 |.(UR$).1.50...n.| 00000270: 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 |UR$..(UR$,.(UR$)| 00000280: AB 31 29 00 95 0A 73 00 99 22 9D 20 20 9D 9D 22 |.1)...s..". .."| 00000290: 3B 3A 89 35 30 00 BC 0A 78 00 8F 20 2B 2B 20 43 |;:.50...x.. ++ C| 000002A0: 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 |HECK FOR VALID C| 000002B0: 48 41 52 41 43 54 45 52 53 20 2B 2B 00 CE 0A 7D |HARACTERS ++...}| 000002C0: 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DF |...(US$).0.150..| 000002D0: 0A 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 |....US.1..(US$).| 000002E0: F6 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 |.....UI$..(US$,U| 000002F0: 53 2C 31 29 A7 8E 00 FC 0A 8C 00 82 00 09 0B 91 |S,1)............| 00000300: 00 55 49 24 B2 22 22 3A 8E 00 24 0B 96 00 8F 20 |.UI$."":..$.... | 00000310: 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 |** STANDARD INPU| 00000320: 54 20 2A 2A 00 35 0B 98 00 8B C6 28 55 49 24 29 |T **.5.....(UI$)| 00000330: B2 34 36 A7 8E 00 46 0B 9B 00 8B 55 49 24 B2 C7 |.46...F....UI$..| 00000340: 28 33 32 29 A7 8E 00 63 0B A0 00 8B C6 28 55 49 |(32)...c.....(UI| 00000350: 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 |$).48..(UI$).57.| 00000360: 31 37 30 00 69 0B A5 00 8E 00 86 0B AA 00 8B C6 |170.i...........| 00000370: 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 |(UI$).65..(UI$).| 00000380: 39 30 A7 31 38 30 00 8C 0B AF 00 8E 00 B0 0B B4 |90.180..........| 00000390: 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 |...(UI$).193..(U| 000003A0: 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E |I$).218.UI$."":.| 000003B0: 00 D3 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 |.......(UT).UU%.| 000003C0: 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 |UI$..(.(UI$).128| 000003D0: 29 3A 8E 00 D9 0B BB 00 8E 00 E6 0B BE 00 55 49 |):............UI| 000003E0: 24 B2 22 22 3A 8E 00 0B 0C C3 00 55 46 B2 31 3A |$."":......UF.1:| 000003F0: 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 |. +++ HELP ROUTI| 00000400: 4E 45 20 45 58 49 54 20 2B 2B 2B 00 14 0C C5 00 |NE EXIT +++.....| 00000410: 8D 32 35 30 00 1D 0C C8 00 8D 32 34 35 00 3C 0C |.250......245.<.| 00000420: CD 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 |...UQ.UB.(U2%.25| 00000430: 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 58 0C D2 |6.U1%.U3%.2).X..| 00000440: 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 |.UQ%(UQ.UB)..(UQ| 00000450: 29 3A 82 3A 99 22 93 22 00 6B 0C D7 00 55 5A B2 |):.:.".".k...UZ.| 00000460: 31 3A 55 56 25 B2 C2 28 55 54 29 00 74 0C D8 00 |1:UV%..(UT).t...| 00000470: 89 33 30 30 00 99 0C D9 00 55 5A B2 30 3A 55 53 |.300.....UZ.0:US| 00000480: 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 |$.UJ$:UG$.UK$:UP| 00000490: B2 55 4A 3A 55 4C B2 55 4B 00 D0 0C DA 00 8B C2 |.UJ:UL.UK.......| 000004A0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281| 000004B0: 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C |,1:.".";:.53281,| 000004C0: 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 |6:.53280,14:.220| 000004D0: 00 DA 0C DB 00 99 22 93 22 3B 00 09 0D DC 00 55 |......".";.....U| 000004E0: 54 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 |T$.UL$:.UT,UV%:.| 000004F0: 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 |UQ.UB.(U2%.256.U| 00000500: 31 25 AA 55 33 25 AB 33 29 00 1E 0D E1 00 97 55 |1%.U3%.3)......U| 00000510: 51 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 2A |Q,UQ%(UQ.UB):..*| 00000520: 0D E6 00 97 55 31 2C 55 31 25 00 36 0D E8 00 97 |....U1,U1%.6....| 00000530: 55 32 2C 55 32 25 00 42 0D E9 00 97 55 34 2C 55 |U2,U2%.B....U4,U| 00000540: 34 25 00 50 0D EA 00 97 55 33 2C 55 33 25 AB 31 |4%.P....U3,U3%.1| 00000550: 00 58 0D EB 00 89 33 35 00 8A 0D F0 00 55 44 25 |.X....35.....UD%| 00000560: B2 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |.((U2%.256.U1%.U| 00000570: 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 |3%).UB).40:..(UD| 00000580: 24 2C 55 44 25 AA 31 29 3A 8E 00 C5 0D F5 00 99 |$,UD%.1):.......| 00000590: C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 |.(UD$,24);" | 000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005B0: 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 | . HELP COMING .| 000005C0: 20 20 22 3A 8E 00 F1 0D FA 00 55 31 25 B2 C2 28 | ":......U1%..(| 000005D0: 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 |U1):U2%..(U2):U3| 000005E0: 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 |%..(U3):U4%..(U4| 000005F0: 29 00 19 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B |).....UJ$.US$:UK| 00000600: 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A |$.UG$:UL$.UT$:UJ| 00000610: B2 55 50 3A 55 4B B2 55 4C 00 1F 0E FF 00 8E 00 |.UP:UK.UL.......| 00000620: 30 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A |0.,.. ** MENU **| 00000630: 00 36 0E 2D 01 3A 00 65 0E 2E 01 99 22 93 22 3A |.6.-.:.e....".":| 00000640: 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 |.UT,UU%:..(50003| 00000650: 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 |).0..53281,9:.53| 00000660: 32 38 30 2C 38 00 6B 0E 2F 01 3A 00 88 0E 31 01 |280,8.k./.:...1.| 00000670: 99 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". | 00000680: 20 20 20 4D 45 4E 55 22 00 B7 0E 36 01 99 22 20 | MENU"...6.." | 00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006B0: 2D 2D 2D 2D 2D 2D 22 00 DF 0E 3B 01 99 22 11 11 |------"...;.."..| 000006C0: 20 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 | 1. BEGI| 000006D0: 4E 20 46 2E 49 2E 46 2E 4F 20 20 20 20 20 22 00 |N F.I.F.O ".| 000006E0: 09 0F 40 01 99 22 11 11 20 20 20 20 20 20 20 32 |..@..".. 2| 000006F0: 2E 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 |. STUDENT INST| 00000700: 52 55 43 54 49 4F 4E 53 22 00 33 0F 45 01 99 22 |RUCTIONS".3.E.."| 00000710: 11 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 |.. 3. TE| 00000720: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO| 00000730: 4E 53 22 00 4F 0F 4F 01 99 22 11 11 20 20 20 20 |NS".O.O..".. | 00000740: 20 20 20 34 2E 20 20 20 51 55 49 54 11 11 22 00 | 4. QUIT..".| 00000750: 7E 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |~.T.." ---------| 00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A9 |-------------"..| 00000780: 0F 59 01 99 22 11 11 20 20 20 20 20 20 20 50 52 |.Y..".. PR| 00000790: 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 |ESS A NUMBER KEY| 000007A0: 20 28 31 2D 34 29 20 22 3B 00 D1 0F 5E 01 55 4C | (1-4) ";...^.UL| 000007B0: B2 31 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 |.1:US$."1234":.3| 000007C0: 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E |5:. INPUT ROUTIN| 000007D0: 45 00 DC 0F 60 01 55 53 24 B2 22 22 00 F9 0F 63 |E...`.US$.""...c| 000007E0: 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 |...(UR$).1000,40| 000007F0: 30 2C 35 30 30 2C 33 39 36 00 02 10 68 01 89 33 |0,500,396...h..3| 00000800: 30 30 00 29 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 |00.).... ** RE-E| 00000810: 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 |NABLE STOP KEY A| 00000820: 4E 44 20 45 4E 44 20 2A 2A 00 58 10 8C 01 8B C2 |ND END **.X.....| 00000830: 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 |(50003)..1..(500| 00000840: 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 |03)..160..(50003| 00000850: 29 B3 B1 30 A7 33 39 39 00 82 10 8D 01 9E 55 55 |)..0.399......UU| 00000860: AA 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |.71:..(50003).0.| 00000870: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,| 00000880: 31 34 00 8E 10 8E 01 99 22 9A 93 22 3A 80 00 99 |14......"..":...| 00000890: 10 8F 01 8D 38 37 35 3A 8E 00 BA 10 90 01 8F 20 |....875:....... | 000008A0: 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 |** STUDENT INSTR| 000008B0: 55 43 54 49 4F 4E 53 20 2A 2A 00 E9 10 95 01 99 |UCTIONS **......| 000008C0: 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 |".":.UT,UL%:..(5| 000008D0: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 |0003).0..53281,0| 000008E0: 3A 97 35 33 32 38 30 2C 30 00 0F 11 9A 01 55 48 |:.53280,0.....UH| 000008F0: B2 31 3A 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 |.1:UP.0:UG$.".TU| 00000900: 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 |DENT .NST":.850.| 00000910: 3C 11 9E 01 99 22 11 11 20 20 20 D9 4F 55 20 57 |<....".. .OU W| 00000920: 49 4C 4C 20 53 54 41 52 54 20 57 49 54 48 20 33 |ILL START WITH 3| 00000930: 36 35 20 55 4E 49 54 53 20 4F 46 22 00 69 11 A0 |65 UNITS OF".i..| 00000940: 01 99 22 11 20 20 20 20 43 41 52 47 4F 20 41 4E |..". CARGO AN| 00000950: 44 20 54 48 45 20 43 4F 4D 50 55 54 45 52 20 57 |D THE COMPUTER W| 00000960: 49 4C 4C 20 53 48 49 50 22 00 8E 11 A2 01 99 22 |ILL SHIP"......"| 00000970: 11 20 20 20 20 4F 55 54 20 54 48 45 20 41 4D 4F |. OUT THE AMO| 00000980: 55 4E 54 20 59 4F 55 20 57 41 4E 54 2E 22 00 B6 |UNT YOU WANT."..| 00000990: 11 A4 01 99 22 11 11 20 20 20 C5 41 43 48 20 54 |....".. .ACH T| 000009A0: 49 4D 45 20 59 4F 55 20 53 48 49 50 20 4F 55 54 |IME YOU SHIP OUT| 000009B0: 20 54 48 45 20 22 00 E2 11 A6 01 99 22 11 20 20 | THE "......". | 000009C0: 20 20 43 41 52 47 4F 20 54 48 45 20 4E 45 57 20 | CARGO THE NEW | 000009D0: 49 4E 56 45 4E 54 4F 52 59 20 57 49 4C 4C 20 42 |INVENTORY WILL B| 000009E0: 45 22 00 07 12 A8 01 99 22 11 20 20 20 20 44 49 |E"......". DI| 000009F0: 53 50 4C 41 59 45 44 20 4F 4E 20 54 48 45 20 53 |SPLAYED ON THE S| 00000A00: 43 52 45 45 4E 2E 22 00 11 12 AD 01 8D 20 38 33 |CREEN."...... 83| 00000A10: 35 00 1F 12 AE 01 55 48 B2 31 3A 8D 38 35 30 00 |5.....UH.1:.850.| 00000A20: 4E 12 C8 01 99 22 11 11 20 20 20 20 C9 46 20 41 |N....".. .F A| 00000A30: 54 20 41 4E 59 20 54 49 4D 45 20 59 4F 55 20 57 |T ANY TIME YOU W| 00000A40: 49 53 48 20 54 4F 20 52 45 54 55 52 4E 22 00 73 |ISH TO RETURN".s| 00000A50: 12 C9 01 99 22 11 20 20 20 20 54 4F 20 54 48 45 |....". TO THE| 00000A60: 20 4D 45 4E 55 2C 20 45 4E 54 45 52 20 27 45 4E | MENU, ENTER 'EN| 00000A70: 44 27 22 00 9B 12 CA 01 99 22 11 20 20 20 20 41 |D'"......". A| 00000A80: 53 20 59 4F 55 52 20 27 51 55 41 4E 54 49 54 59 |S YOUR 'QUANTITY| 00000A90: 20 52 45 4D 4F 56 45 44 27 2E 22 00 C5 12 CB 01 | REMOVED'.".....| 00000AA0: 99 22 11 11 20 20 20 20 C5 4E 54 45 52 49 4E 47 |.".. .NTERING| 00000AB0: 20 41 4E 59 20 4E 55 4D 42 45 52 20 49 4E 20 45 | ANY NUMBER IN E| 00000AC0: 58 43 45 53 53 00 ED 12 CC 01 99 22 11 20 20 20 |XCESS......". | 00000AD0: 20 4F 46 20 59 4F 55 52 20 52 45 4D 41 49 4E 49 | OF YOUR REMAINI| 00000AE0: 4E 47 20 49 4E 56 45 4E 54 4F 52 59 22 00 1D 13 |NG INVENTORY"...| 00000AF0: CE 01 99 22 11 20 20 20 20 57 49 4C 4C 20 45 4E |...". WILL EN| 00000B00: 44 20 4F 4E 45 20 49 4E 56 45 4E 54 4F 52 59 20 |D ONE INVENTORY | 00000B10: 41 4E 44 20 47 49 56 45 20 59 4F 55 22 00 48 13 |AND GIVE YOU".H.| 00000B20: D0 01 99 22 11 20 20 20 20 54 48 45 20 43 48 41 |...". THE CHA| 00000B30: 4E 43 45 20 54 4F 20 53 54 41 52 54 20 41 20 4E |NCE TO START A N| 00000B40: 45 57 20 4F 4E 45 2E 22 00 52 13 D2 01 8D 20 38 |EW ONE.".R.... 8| 00000B50: 33 35 00 61 13 D6 01 55 48 B2 33 3A 8D 20 38 35 |35.a...UH.3:. 85| 00000B60: 30 00 92 13 E3 01 99 22 20 20 20 11 11 CE 4F 54 |0......" ...OT| 00000B70: 45 3A 11 11 11 D4 4F 20 41 44 56 41 4E 43 45 20 |E:....O ADVANCE | 00000B80: 46 52 4F 4D 20 4F 4E 45 20 51 55 45 53 54 49 4F |FROM ONE QUESTIO| 00000B90: 4E 22 00 BE 13 E4 01 99 22 11 20 20 20 20 54 4F |N"......". TO| 00000BA0: 20 54 48 45 20 4E 45 58 54 20 50 52 45 53 53 20 | THE NEXT PRESS | 00000BB0: 54 48 45 20 D3 D0 C1 C3 C5 20 42 41 52 22 00 C7 |THE ..... BAR"..| 00000BC0: 13 E5 01 8D 38 33 35 00 DB 13 EA 01 8B 55 5A B2 |....835......UZ.| 00000BD0: 31 A7 9E 55 50 25 3A 89 32 31 37 00 E1 13 F3 01 |1..UP%:.217.....| 00000BE0: 8E 00 02 14 F4 01 8F 20 2A 2A 20 54 45 41 43 48 |....... ** TEACH| 00000BF0: 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |ER INSTRUCTIONS | 00000C00: 2A 2A 00 32 14 F5 01 99 22 93 22 3A 97 55 54 2C |**.2....".":.UT,| 00000C10: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.| 00000C20: 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C |.53281,2:.53280,| 00000C30: 31 30 00 58 14 F6 01 55 48 B2 31 3A 55 50 B2 30 |10.X...UH.1:UP.0| 00000C40: 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E |:UG$.".EACHER .N| 00000C50: 53 54 22 3A 8D 38 35 30 00 86 14 F7 01 99 22 11 |ST":.850......".| 00000C60: 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 |. .O THE BE| 00000C70: 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 |ST OF OUR KNOWLE| 00000C80: 44 47 45 2C 11 22 00 AF 14 F8 01 99 22 20 20 20 |DGE,."......" | 00000C90: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 |THIS PROGRAM IS | 00000CA0: 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 |IN THE PUBLIC.".| 00000CB0: DB 14 F9 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E |....." DOMAIN.| 00000CC0: 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 | .F THIS IS NOT| 00000CD0: 20 54 48 45 20 43 41 53 45 11 22 00 F8 14 FA 01 | THE CASE.".....| 00000CE0: 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 |." PLEASE CONT| 00000CF0: 41 43 54 3A 11 11 11 22 00 22 15 FB 01 99 22 20 |ACT:..."."...." | 00000D00: 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 | .OMMODORE .| 00000D10: 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 |USINESS .ACHINES| 00000D20: 11 22 00 45 15 FC 01 99 22 20 20 20 20 20 20 20 |.".E...." | 00000D30: 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 59 | 3370 .HARMACY| 00000D40: 20 C1 56 45 2E 00 69 15 FD 01 99 22 20 20 20 20 | .VE..i...." | 00000D50: 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C | .GINCOURT,| 00000D60: 20 CF 4E 54 41 52 49 4F 22 00 8B 15 FE 01 99 22 | .NTARIO"......"| 00000D70: 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 | .ANADA| 00000D80: 20 20 20 CD 31 D7 20 32 CB 34 22 00 AB 15 FF 01 | .1. 2.4".....| 00000D90: 99 22 20 20 20 20 20 20 20 20 20 20 28 34 31 36 |." (416| 00000DA0: 29 20 34 39 39 2D 34 32 39 32 22 00 C1 15 00 02 |) 499-4292".....| 00000DB0: 55 48 B2 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 |UH.1:. 835:. 850| 00000DC0: 3A 00 EB 15 01 02 99 22 20 20 20 20 20 11 11 D0 |:......" ...| 00000DD0: 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 C6 2E C9 |ROGRAM .AME: ...| 00000DE0: 2E C6 2E CF 2E 20 20 20 20 20 11 00 11 16 02 02 |..... ......| 00000DF0: 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 |." .RITTEN .| 00000E00: 59 20 20 3A 20 C1 4E 44 59 20 C7 41 4D 42 4C 45 |Y : .NDY .AMBLE| 00000E10: 11 00 2C 16 03 02 99 22 20 20 20 20 20 D5 50 47 |..,...." .PG| 00000E20: 52 41 44 45 44 20 C2 59 20 3A 20 11 00 57 16 04 |RADED .Y : ..W..| 00000E30: 02 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 |.." ..HIS PR| 00000E40: 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F |OGRAM WILL RUN O| 00000E50: 4E 20 41 4E 59 11 11 00 77 16 07 02 99 22 20 20 |N ANY...w...." | 00000E60: 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 C3 CF | ... 64 ..| 00000E70: CD D0 D5 D4 C5 D2 11 00 9C 16 08 02 99 22 20 20 |............." | 00000E80: 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 | .........| 00000E90: 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 A5 16 09 | 64 ............| 00000EA0: 02 8D 38 33 35 00 B4 16 0C 02 55 48 B2 31 3A 8D |..835.....UH.1:.| 00000EB0: 20 38 35 30 00 E0 16 12 02 99 22 20 20 20 11 11 | 850......" ..| 00000EC0: D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C |.HIS PROGRAM WIL| 00000ED0: 4C 20 48 45 4C 50 20 41 20 53 54 55 44 45 4E 54 |L HELP A STUDENT| 00000EE0: 00 0B 17 13 02 99 22 11 20 20 20 57 49 54 48 20 |......". WITH | 00000EF0: 41 43 43 4F 55 4E 54 49 4E 47 20 41 4E 44 20 42 |ACCOUNTING AND B| 00000F00: 41 53 49 43 20 4D 41 54 48 2E 22 00 3B 17 14 02 |ASIC MATH.".;...| 00000F10: 99 22 11 20 20 20 D4 48 45 20 C3 36 34 20 47 49 |.". .HE .64 GI| 00000F20: 56 45 53 20 54 48 45 20 53 54 55 44 45 4E 54 20 |VES THE STUDENT | 00000F30: 41 20 51 55 41 4E 54 49 54 59 22 00 68 17 15 02 |A QUANTITY".h...| 00000F40: 99 22 11 20 20 20 4F 46 20 53 55 50 50 4C 49 45 |.". OF SUPPLIE| 00000F50: 53 2C 20 41 4E 44 20 48 45 20 57 49 4C 4C 20 44 |S, AND HE WILL D| 00000F60: 49 53 50 45 52 53 45 22 00 93 17 16 02 99 22 11 |ISPERSE"......".| 00000F70: 20 20 20 54 48 45 4D 20 41 20 43 45 52 54 41 49 | THEM A CERTAI| 00000F80: 4E 20 41 4D 4F 55 4E 54 20 41 54 20 41 20 54 49 |N AMOUNT AT A TI| 00000F90: 4D 45 22 00 C0 17 17 02 99 22 11 20 20 20 55 4E |ME"......". UN| 00000FA0: 54 49 4C 20 48 45 20 48 41 53 20 45 58 48 41 55 |TIL HE HAS EXHAU| 00000FB0: 53 54 45 44 20 54 48 45 20 45 4E 54 49 52 45 22 |STED THE ENTIRE"| 00000FC0: 00 DC 17 18 02 99 22 11 20 20 20 53 55 50 50 4C |......". SUPPL| 00000FD0: 59 20 4F 46 20 47 4F 4F 44 53 2E 22 00 E5 17 44 |Y OF GOODS."...D| 00000FE0: 02 8D 38 33 35 00 F9 17 4E 02 8B 55 5A B2 31 A7 |..835...N..UZ.1.| 00000FF0: 9E 55 50 25 3A 89 32 31 37 00 FF 17 57 02 8E 00 |.UP%:.217...W...| 00001000: 24 18 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 |$.... ** TO USE | 00001010: 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 |8032 LOAD CBM403| 00001020: 32 20 2A 2A 00 5A 18 C6 02 99 22 93 11 11 11 05 |2 **.Z....".....| 00001030: 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 |BEFORE RUNNING T| 00001040: 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 |HIS PROGRAM ON A| 00001050: 4E 20 38 30 33 32 20 20 11 11 00 90 18 D0 02 99 |N 8032 ........| 00001060: 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 |" LOAD THE | 00001070: 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 |'CBM 4032' PROGR| 00001080: 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |AM............."| 00001090: 00 9B 18 DA 02 9E 55 55 AA 37 31 00 A1 18 E4 02 |......UU.71.....| 000010A0: 80 00 C1 18 20 03 8F 20 2A 2A 20 54 20 49 20 54 |.... .. ** T I T| 000010B0: 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 20 2A | L E P A G E *| 000010C0: 2A 00 F5 18 22 03 99 22 93 11 1D 05 22 3B 3A 97 |*...".."....";:.| 000010D0: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)| 000010E0: B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 |.0..53280,14:.53| 000010F0: 32 38 31 2C 36 00 0B 19 24 03 81 49 B2 31 A4 33 |281,6...$..I.1.3| 00001100: 38 3A 99 22 12 A6 92 22 3B 3A 82 00 23 19 26 03 |8:."...";:..#.&.| 00001110: 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 |.I.1.22:."....."| 00001120: 3B 3A 82 00 3B 19 28 03 81 49 B2 31 A4 33 37 3A |;:..;.(..I.1.37:| 00001130: 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 53 19 2A 03 |.".....";:..S.*.| 00001140: 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 |.I.1.22:."....."| 00001150: 3B 3A 82 00 78 19 2C 03 99 22 13 11 11 11 11 11 |;:..x.,.."......| 00001160: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001170: 1D 1D 1D 12 A9 20 20 92 00 9A 19 2E 03 99 22 1D |..... .......".| 00001180: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001190: 1D 12 20 92 20 20 12 20 92 A9 00 BB 19 30 03 99 |.. . . .....0..| 000011A0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............| 000011B0: 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 D9 19 32 03 |.... . ......2.| 000011C0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............| 000011D0: 1D 1D 1D 1D DF 12 20 20 92 00 01 1A 34 03 99 22 |...... ....4.."| 000011E0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 |..............C | 000011F0: 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 |O M M O D O R E.| 00001200: 11 00 24 1A 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..$.6.."........| 00001210: 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E |.......EDUCATION| 00001220: 41 4C 11 11 00 43 1A 38 03 99 22 1D 1D 1D 1D 1D |AL...C.8..".....| 00001230: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 |...........SOFTW| 00001240: 41 52 45 00 5E 1A 3A 03 8F 20 2A 2A 20 43 4F 4D |ARE.^.:.. ** COM| 00001250: 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 96 |MODORE LOGO **..| 00001260: 1A 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D |.;...(UD$,24);".| 00001270: 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 |.........PRESS S| 00001280: 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 |PACE BAR OR WAIT| 00001290: 92 22 3A 49 B2 30 00 B8 1A 3C 03 A1 41 24 3A 8B |.":I.0...<..A$:.| 000012A0: 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 |A$.." ".I.I.1:.I| 000012B0: B3 32 35 30 A7 38 32 38 00 DC 1A 3E 03 54 31 24 |.250.828...>.T1$| 000012C0: B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 |."":T2$."":T3$."| 000012D0: 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 E5 1A 40 |":T4$."":I.0...@| 000012E0: 03 89 33 30 30 00 01 1B 43 03 8F 20 2A 2A 20 53 |..300...C.. ** S| 000012F0: 50 41 43 45 20 42 41 52 20 50 52 45 53 53 20 2A |PACE BAR PRESS *| 00001300: 2A 00 3D 1B 48 03 97 20 55 4F 2C 30 3A 99 C8 28 |*.=.H.. UO,0:..(| 00001310: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 |UD$,24);".......| 00001320: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR | 00001330: 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 54 1B |TO CONTINUE.".T.| 00001340: 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 |L..UI$:.UI$.." "| 00001350: A7 38 34 34 00 5A 1B 4E 03 8E 00 7A 1B 52 03 8F |.844.Z.N...z.R..| 00001360: 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 | ** PAGE DESIGN | 00001370: 52 4F 55 54 49 4E 45 20 2A 2A 00 86 1B 54 03 55 |ROUTINE **...T.U| 00001380: 50 B2 55 50 AA 31 00 B0 1B 57 03 99 22 93 22 C8 |P.UP.1...W..".".| 00001390: 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 |(UT$.UP$,21);.(U| 000013A0: 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 |P$.UG$..(UP),18)| 000013B0: 00 DF 1B 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |...\.." --------| 000013C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000013D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".| 000013E0: EE 1B 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 22 |..`..UH..0.870."| 000013F0: 1C 61 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 |.a...(UD$,24);.(| 00001400: 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 |UP$,7);"HELP - P| 00001410: 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 52 4E |RESS H <RETURN| 00001420: 3E 22 00 33 1C 66 03 55 48 B2 30 3A 99 22 13 11 |>".3.f.UH.0:."..| 00001430: 22 3A 8E 00 52 1C 6B 03 8F 20 2A 2A 20 50 4C 45 |":..R.k.. ** PLE| 00001440: 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 |ASE WAIT REMARK | 00001450: 2A 2A 00 88 1C 70 03 99 C8 28 55 44 24 2C 32 34 |**...p...(UD$,24| 00001460: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F 4E |);" ON| 00001470: 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E |E MOMENT PLEASE.| 00001480: 2E 2E 20 20 20 20 20 22 00 8E 1C 75 03 8E 00 AB |.. "...u....| 00001490: 1C 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 |.... ** SET UP V| 000014A0: 41 52 49 41 42 4C 45 53 20 2A 2A 00 F6 1C 85 03 |ARIABLES **.....| 000014B0: 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 30 |UX$."H":.UQ%(100| 000014C0: 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 |0):UB.32768:U1.1| 000014D0: 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 |96:U2.197:U3.198| 000014E0: 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 |:U4.216:UC.167:U| 000014F0: 55 B2 31 30 32 34 00 34 1D 86 03 55 54 B2 35 39 |U.1024.4...UT.59| 00001500: 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 |468:UU%.12:UL%.1| 00001510: 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 |4:UP%.1146:UM.32| 00001520: 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 |768:UO.158:. 500| 00001530: 30 33 2C 30 00 77 1D 87 03 8B C2 28 35 30 30 30 |03,0.w.....(5000| 00001540: 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 |3).0.UB.1024:U1.| 00001550: 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 |209:U2.210:U3.21| 00001560: 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A |1:U4.214:UC.204:| 00001570: 55 55 B2 32 30 34 38 00 B6 1D 88 03 8B C2 28 35 |UU.2048.......(5| 00001580: 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 |0003).0.UT.53272| 00001590: 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 |:UU%.21:UL%.23:U| 000015A0: 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 3A |P%.2139:UM.1024:| 000015B0: 55 4F B2 31 39 38 00 DA 1D 89 03 55 44 24 B2 22 |UO.198.....UD$."| 000015C0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000015D0: 11 11 11 11 11 11 11 11 11 22 00 0C 1E 8A 03 55 |.........".....U| 000015E0: 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |P$." | 000015F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001600: 20 20 20 20 20 20 20 20 20 20 20 22 00 5A 1E 8B | ".Z..| 00001610: 03 55 54 24 B2 22 20 C6 2E C9 2E C6 2E CF 2E 20 |.UT$." ........ | 00001620: 20 20 20 A0 A0 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 | ......":. PLA| 00001630: 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 |CE PROGRAM TITLE| 00001640: 20 48 45 52 45 20 21 21 21 21 21 21 21 21 21 21 | HERE !!!!!!!!!!| 00001650: 21 21 21 21 21 21 21 2A 2A 2A 00 60 1E 8C 03 8E |!!!!!!!***.`....| 00001660: 00 7A 1E 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 |.z.... ** SET VA| 00001670: 52 49 41 42 4C 45 53 20 2A 2A 00 83 1E 93 03 8D |RIABLES **......| 00001680: 39 30 30 00 9E 1E 98 03 8F 20 2A 2A 20 43 48 45 |900...... ** CHE| 00001690: 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 BC |CK FOR 8032 **..| 000016A0: 1E 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 |....".":.".":. S| 000016B0: 48 49 46 54 45 44 20 53 50 41 43 45 00 D3 1E A2 |HIFTED SPACE....| 000016C0: 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D |...(UB.40)..96..| 000016D0: 37 30 30 00 EC 1E A3 03 8F 20 2A 2A 20 4D 45 4D |700...... ** MEM| 000016E0: 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 00 1F A4 |ORY CHECK **....| 000016F0: 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 |.. .(0).2000.937| 00001700: 00 2E 1F A5 03 99 22 93 11 11 05 54 48 49 53 20 |......"....THIS | 00001710: 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 |MACHINE DOES NOT| 00001720: 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 52 | HAVE ENOUGH.".R| 00001730: 1F A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 |...."MEMORY TO R| 00001740: 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |UN THIS PROGRAM | 00001750: 21 22 00 5D 1F A7 03 9E 55 55 AA 37 31 00 63 1F |!".]....UU.71.c.| 00001760: A8 03 80 00 7D 1F A9 03 99 22 93 05 22 3A 8B C2 |....}...."..":..| 00001770: 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 AC 1F |(50003).0.962...| 00001780: AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 |... ** BASIC 2.0| 00001790: 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 | OR 4.0 OR C| 000017A0: 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 EA 1F AD |-64 SETUP **....| 000017B0: 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 |..1075,133:.1076| 000017C0: 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 |,144:.1077,234:.| 000017D0: 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 |1079,4:.1080,133| 000017E0: 3A 97 31 30 38 31 2C 31 34 35 00 20 20 AE 03 97 |:.1081,145. ...| 000017F0: 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 |1091,155:.1098,1| 00001800: 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 |33:.1099,144:.11| 00001810: 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 |00,234:.1103,133| 00001820: 00 42 20 AF 03 97 31 31 30 34 2C 31 34 35 3A 97 |.B ...1104,145:.| 00001830: 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 |1105,234:.1082,2| 00001840: 33 34 00 59 20 B1 03 8B C2 28 35 30 30 30 33 29 |34.Y ....(50003)| 00001850: B3 B1 31 36 30 A7 39 35 35 00 88 20 B6 03 97 31 |..160.955.. ...1| 00001860: 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 |093,88:.1094,228| 00001870: 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C |:.1097,85:.1102,| 00001880: 32 32 38 3A 89 39 36 35 00 9D 20 BB 03 8B C2 28 |228:.965.. ....(| 00001890: 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 CC 20 |50003)..1.990.. | 000018A0: C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 |...1093,49:.1094| 000018B0: 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 |,230:.1097,46:.1| 000018C0: 31 30 32 2C 32 33 30 3A 89 39 36 35 00 06 21 C2 |102,230:.965..!.| 000018D0: 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 |..2099,141:.2100| 000018E0: 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 |,20:.2101,3:.210| 000018F0: 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 |3,8:.2104,141:.2| 00001900: 31 30 35 2C 32 31 00 42 21 C3 03 97 32 31 30 36 |105,21.B!...2106| 00001910: 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 |,3:.2115,145:.21| 00001920: 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A |17,52:.2118,234:| 00001930: 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 |.2121,49:.2122,1| 00001940: 34 31 00 7C 21 C4 03 97 32 31 32 33 2C 32 30 3A |41.|!...2123,20:| 00001950: 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 |.2124,3:.2126,23| 00001960: 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 |4:.2127,141:.212| 00001970: 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 9A 21 C5 |8,21:.2129,3..!.| 00001980: 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C |..UU.48:. DISABL| 00001990: 45 20 53 54 4F 50 20 4B 45 59 00 AB 21 CA 03 8D |E STOP KEY..!...| 000019A0: 38 30 30 3A 8F 20 54 49 54 4C 45 00 BB 21 D4 03 |800:. TITLE..!..| 000019B0: 89 33 30 30 3A 8F 20 4D 45 4E 55 00 EC 21 DE 03 |.300:. MENU..!..| 000019C0: 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 |.".THE PGM WILL | 000019D0: 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 |NOT WORK ON THIS| 000019E0: 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 21 22 E8 | MACHINE!":..!".| 000019F0: 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 |..UZ.1..UP%:.UP%| 00001A00: 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 |:UZ.0:. ** PROGR| 00001A10: 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 2A |AM STARTS HERE *| 00001A20: 2A 00 4D 22 E9 03 99 22 93 05 22 3B 3A 8C 3A 8B |*.M"..."..";:.:.| 00001A30: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328| 00001A40: 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 5F 22 |1,6:.53280,14._"| 00001A50: ED 03 97 20 55 54 2C 55 4C 25 3A 55 50 B2 30 00 |... UT,UL%:UP.0.| 00001A60: 76 22 F2 03 8F 20 46 49 46 4F 3A 20 48 55 4E 54 |v"... FIFO: HUNT| 00001A70: 49 4E 47 54 4F 4E 00 9C 22 FC 03 8F 20 46 49 54 |INGTON.."... FIT| 00001A80: 20 54 4F 20 50 45 54 20 42 59 20 41 4E 44 59 20 | TO PET BY ANDY | 00001A90: 47 41 4D 42 4C 45 20 46 45 42 38 30 00 B3 22 06 |GAMBLE FEB80..".| 00001AA0: 04 8F 20 43 4F 4C 55 4D 42 49 41 20 43 4F 4C 4C |.. COLUMBIA COLL| 00001AB0: 45 47 45 00 D3 22 10 04 8F 20 31 36 31 39 20 57 |EGE.."... 1619 W| 00001AC0: 31 30 20 41 56 45 20 56 41 4E 43 4F 55 56 45 52 |10 AVE VANCOUVER| 00001AD0: 20 42 43 00 F4 22 1A 04 55 47 24 B2 22 C9 4E 56 | BC.."..UG$.".NV| 00001AE0: 45 4E 54 4F 52 59 22 3A 55 50 B2 55 50 AA 31 3A |ENTORY":UP.UP.1:| 00001AF0: 8D 38 35 30 00 18 23 1F 04 99 22 20 20 20 20 20 |.850..#..." | 00001B00: 20 20 20 20 20 20 20 20 12 C6 2E C9 2E C6 2E CF | ........| 00001B10: 2E C3 30 22 3A 99 3A 99 00 49 23 24 04 99 22 11 |..0":.:..I#$..".| 00001B20: 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 44 45 | .HIS PROGRAM DE| 00001B30: 4D 4F 4E 53 54 52 41 54 45 53 20 54 48 45 20 C6 |MONSTRATES THE .| 00001B40: 49 52 53 54 2D C9 4E 20 22 00 76 23 2E 04 99 22 |IRST-.N ".v#..."| 00001B50: 20 C6 49 52 53 54 2D CF 55 54 20 28 C6 C9 C6 CF | .IRST-.UT (....| 00001B60: 29 20 4D 45 54 48 4F 44 20 4F 46 20 49 4E 56 45 |) METHOD OF INVE| 00001B70: 4E 54 4F 52 59 22 00 A0 23 38 04 99 22 11 20 45 |NTORY"..#8..". E| 00001B80: 56 41 4C 55 41 54 49 4F 4E 20 54 48 41 54 20 49 |VALUATION THAT I| 00001B90: 53 20 55 53 45 44 20 49 4E 20 4D 41 4E 59 20 22 |S USED IN MANY "| 00001BA0: 00 B5 23 42 04 99 22 11 20 42 55 53 49 4E 45 53 |..#B..". BUSINES| 00001BB0: 53 45 53 2E 22 00 BE 23 4C 04 8D 38 33 35 00 CB |SES."..#L..835..| 00001BC0: 23 60 04 99 C7 28 31 34 37 29 3B 00 DD 23 6A 04 |#`...(147);..#j.| 00001BD0: 54 31 B2 30 3A 54 B2 30 3A 8D 38 35 30 00 FB 23 |T1.0:T.0:.850..#| 00001BE0: 74 04 81 58 B2 31 A4 36 3A 87 51 28 58 29 2C 50 |t..X.1.6:.Q(X),P| 00001BF0: 28 58 29 3A 82 3A 53 B2 58 AB 31 00 01 24 7E 04 |(X):.:S.X.1..$~.| 00001C00: 8C 00 0B 24 88 04 8D 31 32 34 35 00 4F 24 8D 04 |...$...1245.O$..| 00001C10: 99 22 20 D1 55 41 4E 54 49 54 59 20 D2 45 4D 4F |." .UANTITY .EMO| 00001C20: 56 45 44 3F 20 22 3B 3A 55 53 24 B2 22 30 31 32 |VED? ";:US$."012| 00001C30: 33 34 35 36 37 38 39 45 4E 44 48 22 3A 55 4C B2 |3456789ENDH":UL.| 00001C40: 33 20 3A 8D 33 35 3A 57 B2 C5 28 55 52 24 29 00 |3 :.35:W..(UR$).| 00001C50: 65 24 8E 04 8B 20 55 52 24 B2 22 45 4E 44 22 20 |e$... UR$."END" | 00001C60: A7 20 33 30 30 00 7E 24 8F 04 81 20 54 B2 31 20 |. 300.~$... T.1 | 00001C70: A4 20 31 30 30 3A 82 20 54 3A 99 22 93 22 00 99 |. 100:. T:."."..| 00001C80: 24 90 04 8D 38 35 30 3A 99 22 20 12 D3 48 49 50 |$...850:." ..HIP| 00001C90: 50 45 44 20 CF 55 54 3A 22 00 BD 24 92 04 99 3A |PED .UT:"..$...:| 00001CA0: 99 22 20 12 CE 55 4D 42 45 52 22 2C 22 12 D0 52 |." ..UMBER","..R| 00001CB0: 49 43 45 22 2C 22 12 D4 4F 54 41 4C 22 00 C3 24 |ICE","..OTAL"..$| 00001CC0: 9C 04 99 00 DB 24 A6 04 81 58 B2 31 A4 53 3A 8B |.....$...X.1.S:.| 00001CD0: 51 28 58 29 B2 30 A7 31 32 33 30 00 EE 24 B0 04 |Q(X).0.1230..$..| 00001CE0: 8B 51 28 58 29 AB 57 B1 30 A7 31 33 32 30 00 0D |.Q(X).W.0.1320..| 00001CF0: 25 BA 04 99 22 20 22 3B 51 28 58 29 2C 50 28 58 |%..." ";Q(X),P(X| 00001D00: 29 2C 28 51 28 58 29 AC 50 28 58 29 29 00 33 25 |),(Q(X).P(X)).3%| 00001D10: C4 04 54 31 B2 54 31 AA 28 51 28 58 29 AC 50 28 |..T1.T1.(Q(X).P(| 00001D20: 58 29 29 3A 57 B2 57 AB 51 28 58 29 3A 51 28 58 |X)):W.W.Q(X):Q(X| 00001D30: 29 B2 30 00 49 25 CE 04 82 3A 8B 51 28 58 AA 31 |).0.I%...:.Q(X.1| 00001D40: 29 B3 B2 30 A7 31 33 35 30 00 71 25 DD 04 99 3A |)..0.1350.q%...:| 00001D50: 99 22 20 20 20 20 20 20 12 D2 45 4D 41 49 4E 49 |." ..EMAINI| 00001D60: 4E 47 20 49 4E 56 45 4E 54 4F 52 59 22 3A 54 B2 |NG INVENTORY":T.| 00001D70: 30 00 93 25 E2 04 99 22 20 12 CE 55 4D 42 45 52 |0..%..." ..UMBER| 00001D80: 22 2C 22 12 D0 52 49 43 45 22 2C 22 12 D4 4F 54 |","..RICE","..OT| 00001D90: 41 4C 22 00 99 25 EC 04 99 00 B2 25 F6 04 81 58 |AL"..%.....%...X| 00001DA0: B2 31 A4 53 3A 8B 51 28 58 29 B3 B2 30 A7 31 33 |.1.S:.Q(X)..0.13| 00001DB0: 30 30 00 D1 25 00 05 99 22 20 22 3B 51 28 58 29 |00..%..." ";Q(X)| 00001DC0: 2C 50 28 58 29 2C 28 51 28 58 29 AC 50 28 58 29 |,P(X),(Q(X).P(X)| 00001DD0: 29 00 E5 25 0A 05 54 B2 54 AA 28 51 28 58 29 AC |)..%..T.T.(Q(X).| 00001DE0: 50 28 58 29 29 00 EB 25 14 05 82 00 0F 26 1E 05 |P(X))..%.....&..| 00001DF0: 99 3A 99 22 20 20 20 20 20 20 12 20 D4 4F 54 41 |.:." . .OTA| 00001E00: 4C 20 D6 41 4C 55 45 20 3D 22 54 3A 99 3A 8E 00 |L .ALUE ="T:.:..| 00001E10: 36 26 28 05 99 22 20 20 22 3B 57 2C 50 28 58 29 |6&(.." ";W,P(X)| 00001E20: 2C 57 AC 50 28 58 29 3A 54 31 B2 54 31 AA 28 57 |,W.P(X):T1.T1.(W| 00001E30: AC 50 28 58 29 29 00 3C 26 32 05 99 00 72 26 3C |.P(X)).<&2...r&<| 00001E40: 05 99 22 20 20 20 20 20 20 12 D3 48 49 50 50 45 |.." ..HIPPE| 00001E50: 44 20 D6 41 4C 55 45 20 3D 22 54 31 3A 54 B2 30 |D .ALUE ="T1:T.0| 00001E60: 3A 51 28 58 29 B2 51 28 58 29 AB 57 3A 89 31 31 |:Q(X).Q(X).W:.11| 00001E70: 36 30 00 78 26 46 05 8F 00 AE 26 4B 05 99 3A 99 |60.x&F....&K..:.| 00001E80: 22 20 12 CF 55 54 20 4F 46 20 49 4E 56 45 4E 54 |" ..UT OF INVENT| 00001E90: 4F 52 59 22 3A 99 3A 99 20 22 20 12 D3 48 49 50 |ORY":.:. " ..HIP| 00001EA0: 50 45 44 20 D6 41 4C 55 45 20 3D 22 54 31 00 B4 |PED .ALUE ="T1..| 00001EB0: 26 50 05 99 00 EB 26 55 05 99 22 20 C1 4E 4F 54 |&P....&U.." .NOT| 00001EC0: 48 45 52 20 52 55 4E 20 28 59 2F 4E 29 3F 20 22 |HER RUN (Y/N)? "| 00001ED0: 3B 3A 55 53 24 B2 22 59 4E 22 3A 55 4C B2 31 3A |;:US$."YN":UL.1:| 00001EE0: 8D 33 35 3A 5A 5A 24 B2 55 52 24 00 FD 26 5A 05 |.35:ZZ$.UR$..&Z.| 00001EF0: 8B 5A 5A 24 B2 22 59 22 A7 31 31 32 30 00 31 27 |.ZZ$."Y".1120.1'| 00001F00: 64 05 83 33 35 2C 31 31 2E 32 35 2C 36 30 2C 31 |d..35,11.25,60,1| 00001F10: 32 2C 31 30 30 2C 31 32 2E 35 2C 35 30 2C 31 33 |2,100,12.5,50,13| 00001F20: 2C 38 30 2C 31 33 2E 35 2C 34 30 2C 31 34 2E 32 |,80,13.5,40,14.2| 00001F30: 35 00 3A 27 69 05 89 33 30 30 00 40 27 6E 05 80 |5.:'i..300.@'n..| 00001F40: 00 67 27 EA 11 99 22 20 11 C5 4E 54 45 52 20 27 |.g'..." ..NTER '| 00001F50: 39 39 39 39 39 39 27 20 28 53 49 58 20 4E 49 4E |999999' (SIX NIN| 00001F60: 45 53 29 20 41 53 22 00 00 00 |ES) AS"... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(.UR$."":UI$."":. UO,0...*..UL.0.UL.8
0.,.-.." ..";:.UC,0.@.2..UI$:.UI$."".50
.J.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.
85.}.<..UI$.G(20).105...>.. C(UR$)..UL.5
0...A..120:. CHECK FOR VALID CHARACTER.F
.F.UR$.UR$.UI$.P.K..UI$;.X.P..50...U.. +
++ CHECK FOR HELP REQUEST +++.%.Z..UR$.U
X$.195:. EXIT TO HELP ROUTINE.4._..UF.1.
.240.A.D.UF.0:.:..Z.F.. ++ CHECK DELETE
++.K.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$)
.1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.N.}..C(US$).0.150..
....US.1.C(US$)......UI$.J(US$,US,1)....
.........UI$."":..$.... ** STANDARD INPU
T **.5....F(UI$).46...F....UI$.G(32)...C
. ..F(UI$).48.F(UI$).57.170.I..........F
(UI$).65.F(UI$).90.180............F(UI$)
.193.F(UI$).218.UI$."":..S....B(UT).UU%.
UI$.G(F(UI$).128):..Y.........UI$."":...
.C.UF.1:. +++ HELP ROUTINE EXIT +++...E.
.250...H..245.<.M..UQ.UB.(U2%.256.U1%.U3
%.2).X.R.UQ%(UQ.UB).B(UQ):.:.".".K.W.UZ.
1:UV%.B(UT).T.X..300...Y.UZ.0:US$.UJ$:UG
$.UK$:UP.UJ:UL.UK.P.Z..B(50003).0..53281
,1:.".";:.53281,6:.53280,14:.220.Z....".
";.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U
1%.U3%.3)......UQ,UQ%(UQ.UB):..*....U1,U
1%.6....U2,U2%.B....U4,U4%.P....U3,U3%.1
.X....35.....UD%.((U2%.256.U1%.U3%).UB).
40:.H(UD$,UD%.1):..E....H(UD$,24);"
. HELP COMING . ":....
..U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4
).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.U
L.......0.,.. ** MENU **.6.-.:.E....".":
.UT,UU%:.B(50003).0..53281,9:.53280,8.K.
/.:...1..". MENU"...6.."
--------------------------------------".
..;..".. 1. BEGIN F.I.F.O ".
..@..".. 2. STUDENT INSTRUCTIONS
".3.E..".. 3. TEACHER INSTRUCTIO
NS".O.O..".. 4. QUIT..".~.T.." -
-------------------------------------"..
.Y..".. PRESS A NUMBER KEY (1-4) "
;.Q.^.UL.1:US$."1234":.35:. INPUT ROUTIN
E...`.US$.""...C..E(UR$).1000,400,500,39
6...H..300.).... ** RE-ENABLE STOP KEY A
ND END **.X....B(50003)..1.B(50003)..160
.B(50003)..0.399......UU.71:.B(50003).0.
.53281,6:.53280,14......"..":.......875:
....... ** STUDENT INSTRUCTIONS **......
".":.UT,UL%:.B(50003).0..53281,0:.53280,
0.....UH.1:UP.0:UG$."STUDENT INST":.850.
<....".. YOU WILL START WITH 365 UNITS
OF".I. ..". CARGO AND THE COMPUTER W
ILL SHIP"......". OUT THE AMOUNT YOU
WANT."......".. EACH TIME YOU SHIP OUT
THE "......". CARGO THE NEW INVENTOR
Y WILL BE"......". DISPLAYED ON THE S
CREEN."...... 835.....UH.1:.850.N.H.."..
IF AT ANY TIME YOU WISH TO RETURN".S
.I..". TO THE MENU, ENTER 'END'"...J.
.". AS YOUR 'QUANTITY REMOVED'.".E.K.
.".. ENTERING ANY NUMBER IN EXCESS...
L..". OF YOUR REMAINING INVENTORY"...
N..". WILL END ONE INVENTORY AND GIVE
YOU".H.P..". THE CHANCE TO START A N
EW ONE.".R.R.. 835.A.V.UH.3:. 850......"
..NOTE:...TO ADVANCE FROM ONE QUESTIO
N"......". TO THE NEXT PRESS THE SPAC
E BAR".G....835......UZ.1..UP%:.217.....
....... ** TEACHER INSTRUCTIONS **.2....
".":.UT,UL%:.B(50003).0..53281,2:.53280,
10.X...UH.1:UP.0:UG$."TEACHER INST":.850
......".. TO THE BEST OF OUR KNOWLE
DGE,."......" THIS PROGRAM IS IN THE P
UBLIC."......" DOMAIN. IF THIS IS NOT
THE CASE."......" PLEASE CONTACT:..."
."...." COMMODORE BUSINESS MACHINES
.".E...." 3370 PHARMACY AVE..I.
..." AGINCOURT, ONTARIO"......"
CANADA M1W 2K4"......"
(416) 499-4292".A...UH.1:. 835:. 850
:......" ..PROGRAM NAME: F.I.F.O.
......." WRITTEN BY : ANDY GAMBLE
..,...." UPGRADED BY : ..W...."
.THIS PROGRAM WILL RUN ON ANY...W...."
PET 64 COMPUTER......." C
OMMODORE 64 COMPUTER......835.....UH.1:.
850......" ..THIS PROGRAM WILL HELP A
STUDENT......". WITH ACCOUNTING AND B
ASIC MATH.".;....". THE C64 GIVES THE
STUDENT A QUANTITY".H....". OF SUPPLIE
S, AND HE WILL DISPERSE"......". THEM
A CERTAIN AMOUNT AT A TIME"......". UN
TIL HE HAS EXHAUSTED THE ENTIRE"......".
SUPPLY OF GOODS."...D..835...N..UZ.1.
.UP%:.217...W...$.... ** TO USE 8032 LOA
D CBM4032 **.Z.F..".....BEFORE RUNNING T
HIS PROGRAM ON AN 8032 .....P.." L
OAD THE 'CBM 4032' PROGRAM............."
...Z..UU.71.......A. .. ** T I T L E P
A G E **...".."....";:.UT,UU%:.B(50003)
.0..53280,14:.53281,6...$..I.1.38:."..."
;:..#.&..I.1.22:.".....";:..;.(..I.1.37:
.".....";:..S.*..I.1.22:.".....";:..X.,.
."........................... .......".
.................. . . .....0..".......
............ . ....Y.2.."..............
...... ....4.."..............C O M M O
D O R E...$.6.."...............EDUCATION
AL...C.8.."................SOFTWARE.^.:.
. ** COMMODORE LOGO **...;..H(UD$,24);".
.........PRESS SPACE BAR OR WAIT.":I.0..
.<..A$:.A$.." ".I.I.1:.I.250.828...>.T1$
."":T2$."":T3$."":T4$."":I.0...@..300...
C.. ** SPACE BAR PRESS **.=.H.. UO,0:.H(
UD$,24);".......PRESS SPACE BAR TO CONTI
NUE.".T.L..UI$:.UI$.." ".844.Z.N...Z.R..
** PAGE DESIGN ROUTINE **...T.UP.UP.1..
.W.."."H(UT$.UP$,21);I(UP$.UG$.D(UP),18)
...\.." --------------------------------
------"...`..UH..0.870.".A..H(UD$,24);H(
UP$,7);"HELP - PRESS H <RETURN>".3.F.U
H.0:."..":..R.K.. ** PLEASE WAIT REMARK
**...P..H(UD$,24);" ONE MOMENT
PLEASE... "...U........ ** SET UP V
ARIABLES **.....UX$."H":.UQ%(1000):UB.32
768:U1.196:U2.197:U3.198:U4.216:UC.167:U
U.1024.4...UT.59468:UU%.12:UL%.14:UP%.11
46:UM.32768:UO.158:. 50003,0.W....B(5000
3).0.UB.1024:U1.209:U2.210:U3.211:U4.214
:UC.204:UU.2048......B(50003).0.UT.53272
:UU%.21:UL%.23:UP%.2139:UM.1024:UO.198.Z
...UD$.".........................".....U
P$."
".Z...UT$." F.I.F.O. ":. PLA
CE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*
**.`.....Z.... ** SET VARIABLES **......
900...... ** CHECK FOR 8032 **......".":
." ":. SHIFTED SPACE.S....B(UB.40)..96..
700...... ** MEMORY CHECK **...... .(0).
2000.937......"....THIS MACHINE DOES NOT
HAVE ENOUGH.".R...."MEMORY TO RUN THIS
PROGRAM !".]....UU.71.C.....}...."..":.B
(50003).0.962...... ** BASIC 2.0 OR 4.
0 OR C-64 SETUP **......1075,133:.1076
,144:.1077,234:.1079,4:.1080,133:.1081,1
45. ...1091,155:.1098,133:.1099,144:.11
00,234:.1103,133.B ...1104,145:.1105,234
:.1082,234.Y ...B(50003)..160.955.. ...1
093,88:.1094,228:.1097,85:.1102,228:.965
.. ...B(50003)..1.990.L ...1093,49:.1094
,230:.1097,46:.1102,230:.965..!B..2099,1
41:.2100,20:.2101,3:.2103,8:.2104,141:.2
105,21.B!C..2106,3:.2115,145:.2117,52:.2
118,234:.2121,49:.2122,141.|!D..2123,20:
.2124,3:.2126,234:.2127,141:.2128,21:.21
29,3..!E..UU.48:. DISABLE STOP KEY..!J..
800:. TITLE..!T..300:. MENU..!...".THE P
GM WILL NOT WORK ON THIS MACHINE!":..!".
..UZ.1..UP%:.UP%:UZ.0:. ** PROGRAM START
S HERE **.M"..."..";:.:.B(50003).0..5328
1,6:.53280,14._"... UT,UL%:UP.0.V"... FI
FO: HUNTINGTON.."... FIT TO PET BY ANDY
GAMBLE FEB80.."... COLUMBIA COLLEGE.S"..
. 1619 W10 AVE VANCOUVER BC.."..UG$."INV
ENTORY":UP.UP.1:.850..#..."
.F.I.F.O.C0":.:..I#$..". THIS PROGRAM DE
MONSTRATES THE FIRST-IN ".V#..." FIRST-O
UT (FIFO) METHOD OF INVENTORY". #8..". E
VALUATION THAT IS USED IN MANY "..#B..".
BUSINESSES."..#L..835.K#`..G(147);..#J.
T1.0:T.0:.850..#T..X.1.6:.Q(X),P(X):.:S.
X.1..$~....$...1245.O$..." QUANTITY REMO
VED? ";:US$."0123456789ENDH":UL.3 :.35:W
.E(UR$).E$... UR$."END" . 300.~$... T.1
. 100:. T:."."..$...850:." .SHIPPED OUT:
"..$...:." .NUMBER",".PRICE",".TOTAL".C$
.....$...X.1.S:.Q(X).0.1230..$...Q(X).W.
0.1320..%..." ";Q(X),P(X),(Q(X).P(X)).3%
D.T1.T1.(Q(X).P(X)):W.W.Q(X):Q(X).0.I%N.
.:.Q(X.1)..0.1350.Q%...:." .REMAINI
NG INVENTORY":T.0..%..." .NUMBER",".PRIC
E",".TOTAL"..%.....%...X.1.S:.Q(X)..0.13
00.Q%..." ";Q(X),P(X),(Q(X).P(X))..%..T.
T.(Q(X).P(X))..%.....&...:." . TOTA
L VALUE ="T:.:..6&(.." ";W,P(X),W.P(X):
T1.T1.(W.P(X)).<&2...R&<.." .SHIPPE
D VALUE ="T1:T.0:Q(X).Q(X).W:.1160.X&F..
..&K..:." .OUT OF INVENTORY":.:. " .SHIP
PED VALUE ="T1..&P....&U.." ANOTHER RUN
(Y/N)? ";:US$."YN":UL.1:.35:ZZ$.UR$..&Z.
.ZZ$."Y".1120.1'D..35,11.25,60,12,100,12
.5,50,13,80,13.5,40,14.25.:'I..300.@'N..
.G'..." .ENTER '999999' (SIX NINES) AS".
..
> CLICK IMAGE PREVIEW FOR FULL MODAL