RND GENERATOR.C3
FILE INFORMATION
FILENAME(S): RND GENERATOR.C3
FILE TYPE(S): PRG
FILE SIZE: 7.3K
FIRST SEEN: 2025-11-30 01:08:28
APPEARS ON: 4 disk(s)
FILE HASH
f9b758326c117c7d5325f2dd753a5ddfe163eee9e2f9a0db6779b57f357a9125
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT NR | RND GENERATOR.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 0 | DOWNLOAD FILE |
| FREESOFT NR | RND GENERATOR.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 20 | 4 | DOWNLOAD FILE |
| FREESOFT DISK NR | RND GENERATOR.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 20 | 4 | DOWNLOAD FILE |
| PD DISK 17 | RND GENERATOR.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 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 E4 08 23 00 8F 20 2B |UTINE **...#.. +|
000000D0: 2B 2B 20 49 4E 50 55 54 20 53 45 43 54 49 4F 4E |++ INPUT SECTION|
000000E0: 20 2B 2B 2B 00 FC 08 28 00 97 55 4F 2C 30 3A 55 | +++...(..UO,0:U|
000000F0: 52 24 B2 22 22 3A 55 49 24 B2 22 22 00 0C 09 2A |R$."":UI$.""...*|
00000100: 00 8B 55 4C B2 30 A7 55 4C B2 38 30 00 1F 09 2D |..UL.0.UL.80...-|
00000110: 00 99 22 20 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 |.." ..";:.UC,0.|
00000120: 33 09 32 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 |3.2..UI$:.UI$.""|
00000130: A7 35 30 00 5D 09 37 00 8B 55 49 24 B2 C7 28 31 |.50.].7..UI$..(1|
00000140: 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 |3)..(UR$)..1..UC|
00000150: 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 00 70 09 |,1:." .";:.85.p.|
00000160: 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 |<..UI$..(20).105|
00000170: 00 84 09 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 |...>.. .(UR$)..U|
00000180: 4C A7 35 30 00 A9 09 41 00 8D 31 32 30 3A 8F 20 |L.50...A..120:. |
00000190: 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 |CHECK FOR VALID |
000001A0: 43 48 41 52 41 43 54 45 52 00 B9 09 46 00 55 52 |CHARACTER...F.UR|
000001B0: 24 B2 55 52 24 AA 55 49 24 00 C3 09 4B 00 99 55 |$.UR$.UI$...K..U|
000001C0: 49 24 3B 00 CB 09 50 00 89 35 30 00 F0 09 55 00 |I$;...P..50...U.|
000001D0: 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 |. +++ CHECK FOR |
000001E0: 48 45 4C 50 20 52 45 51 55 45 53 54 20 2B 2B 2B |HELP REQUEST +++|
000001F0: 00 18 0A 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 |...Z..UR$.UX$.19|
00000200: 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 4C 50 |5:. EXIT TO HELP|
00000210: 20 52 4F 55 54 49 4E 45 00 27 0A 5F 00 8B 55 46 | ROUTINE.'._..UF|
00000220: B2 31 A7 8D 32 34 30 00 34 0A 64 00 55 46 B2 30 |.1..240.4.d.UF.0|
00000230: 3A 99 3A 8E 00 4D 0A 66 00 8F 20 2B 2B 20 43 48 |:.:..M.f.. ++ CH|
00000240: 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B 00 5E 0A |ECK DELETE ++.^.|
00000250: 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 76 |i...(UR$).1.50.v|
00000260: 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 |.n.UR$..(UR$,.(U|
00000270: 52 24 29 AB 31 29 00 88 0A 73 00 99 22 9D 20 20 |R$).1)...s..". |
00000280: 9D 9D 22 3B 3A 89 35 30 00 AF 0A 78 00 8F 20 2B |..";:.50...x.. +|
00000290: 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 |+ CHECK FOR VALI|
000002A0: 44 20 43 48 41 52 41 43 54 45 52 53 20 2B 2B 00 |D CHARACTERS ++.|
000002B0: C1 0A 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 |..}...(US$).0.15|
000002C0: 30 00 D2 0A 82 00 81 55 53 B2 31 A4 C3 28 55 53 |0......US.1..(US|
000002D0: 24 29 00 E9 0A 87 00 8B 55 49 24 B2 CA 28 55 53 |$)......UI$..(US|
000002E0: 24 2C 55 53 2C 31 29 A7 8E 00 EF 0A 8C 00 82 00 |$,US,1).........|
000002F0: FC 0A 91 00 55 49 24 B2 22 22 3A 8E 00 17 0B 96 |....UI$."":.....|
00000300: 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 |.. ** STANDARD I|
00000310: 4E 50 55 54 20 2A 2A 00 28 0B 98 00 8B C6 28 55 |NPUT **.(.....(U|
00000320: 49 24 29 B2 34 36 A7 8E 00 39 0B 9B 00 8B 55 49 |I$).46...9....UI|
00000330: 24 B2 C7 28 33 32 29 A7 8E 00 56 0B A0 00 8B C6 |$..(32)...V.....|
00000340: 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 |(UI$).48..(UI$).|
00000350: 35 37 A7 31 37 30 00 5C 0B A5 00 8E 00 79 0B AA |57.170.\.....y..|
00000360: 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 |...(UI$).65..(UI|
00000370: 24 29 B1 39 30 A7 31 38 30 00 7F 0B AF 00 8E 00 |$).90.180.......|
00000380: A3 0B B4 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 |......(UI$).193.|
00000390: C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 |.(UI$).218.UI$."|
000003A0: 22 3A 8E 00 C6 0B B9 00 8B C2 28 55 54 29 B2 55 |":........(UT).U|
000003B0: 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB |U%.UI$..(.(UI$).|
000003C0: 31 32 38 29 3A 8E 00 CC 0B BB 00 8E 00 D9 0B BE |128):...........|
000003D0: 00 55 49 24 B2 22 22 3A 8E 00 FE 0B C3 00 55 46 |.UI$."":......UF|
000003E0: B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F |.1:. +++ HELP RO|
000003F0: 55 54 49 4E 45 20 45 58 49 54 20 2B 2B 2B 00 07 |UTINE EXIT +++..|
00000400: 0C C5 00 8D 32 35 30 00 10 0C C8 00 8D 32 34 35 |....250......245|
00000410: 00 2F 0C CD 00 81 55 51 B2 55 42 A4 28 55 32 25 |./....UQ.UB.(U2%|
00000420: AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 |.256.U1%.U3%.2).|
00000430: 4B 0C D2 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 |K...UQ%(UQ.UB)..|
00000440: 28 55 51 29 3A 82 3A 99 22 93 22 00 5E 0C D7 00 |(UQ):.:.".".^...|
00000450: 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 67 |UZ.1:UV%..(UT).g|
00000460: 0C D8 00 89 33 30 30 00 8C 0C D9 00 55 5A B2 30 |....300.....UZ.0|
00000470: 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 |:US$.UJ$:UG$.UK$|
00000480: 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 C3 0C DA |:UP.UJ:UL.UK....|
00000490: 00 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |...(50003).0..53|
000004A0: 32 38 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 |281,1:.".";:.532|
000004B0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 |81,6:.53280,14:.|
000004C0: 32 32 30 00 CD 0C DB 00 99 22 93 22 3B 00 FC 0C |220......".";...|
000004D0: DC 00 55 54 24 B2 55 4C 24 3A 97 55 54 2C 55 56 |..UT$.UL$:.UT,UV|
000004E0: 25 3A 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 |%:.UQ.UB.(U2%.25|
000004F0: 36 AA 55 31 25 AA 55 33 25 AB 33 29 00 11 0D E1 |6.U1%.U3%.3)....|
00000500: 00 97 55 51 2C 55 51 25 28 55 51 AB 55 42 29 3A |..UQ,UQ%(UQ.UB):|
00000510: 82 00 1D 0D E6 00 97 55 31 2C 55 31 25 00 29 0D |.......U1,U1%.).|
00000520: E8 00 97 55 32 2C 55 32 25 00 35 0D E9 00 97 55 |...U2,U2%.5....U|
00000530: 34 2C 55 34 25 00 43 0D EA 00 97 55 33 2C 55 33 |4,U4%.C....U3,U3|
00000540: 25 AB 31 00 4B 0D EB 00 89 33 35 00 7D 0D F0 00 |%.1.K....35.}...|
00000550: 55 44 25 B2 28 28 55 32 25 AC 32 35 36 AA 55 31 |UD%.((U2%.256.U1|
00000560: 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 |%.U3%).UB).40:..|
00000570: 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 B8 0D |(UD$,UD%.1):....|
00000580: F5 00 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 |....(UD$,24);" |
00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005A0: 20 20 20 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E | . HELP COMIN|
000005B0: 47 20 92 20 20 22 3A 8E 00 E4 0D FA 00 55 31 25 |G . ":......U1%|
000005C0: B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 |..(U1):U2%..(U2)|
000005D0: 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 |:U3%..(U3):U4%..|
000005E0: 28 55 34 29 00 0C 0E FB 00 55 4A 24 B2 55 53 24 |(U4).....UJ$.US$|
000005F0: 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 |:UK$.UG$:UL$.UT$|
00000600: 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 12 0E FF |:UJ.UP:UK.UL....|
00000610: 00 8E 00 23 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 |...#.,.. ** MENU|
00000620: 20 2A 2A 00 29 0E 2D 01 3A 00 58 0E 2E 01 99 22 | **.).-.:.X...."|
00000630: 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |.":.UT,UU%:..(50|
00000640: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A |003).0..53281,9:|
00000650: 97 35 33 32 38 30 2C 38 00 5E 0E 2F 01 3A 00 7B |.53280,8.^./.:.{|
00000660: 0E 31 01 99 22 13 20 20 20 20 20 20 20 20 20 20 |.1..". |
00000670: 20 20 20 20 20 20 4D 45 4E 55 22 00 AA 0E 36 01 | MENU"...6.|
00000680: 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |." -------------|
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 22 00 D4 0E 3B 01 99 |---------"...;..|
000006B0: 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 20 52 |".. 1. R|
000006C0: 4E 44 20 47 45 4E 45 52 41 54 4F 52 20 44 49 53 |ND GENERATOR DIS|
000006D0: 50 4C 41 59 00 FE 0E 40 01 99 22 11 11 20 20 20 |PLAY...@..".. |
000006E0: 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E 54 | 2. STUDENT|
000006F0: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 28 | INSTRUCTIONS".(|
00000700: 0F 45 01 99 22 11 11 20 20 20 20 20 20 20 33 2E |.E..".. 3.|
00000710: 20 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 | TEACHER INSTR|
00000720: 55 43 54 49 4F 4E 53 22 00 44 0F 4F 01 99 22 11 |UCTIONS".D.O..".|
00000730: 11 20 20 20 20 20 20 20 34 2E 20 20 20 51 55 49 |. 4. QUI|
00000740: 54 11 11 22 00 73 0F 54 01 99 22 20 2D 2D 2D 2D |T..".s.T.." ----|
00000750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 22 00 9E 0F 59 01 99 22 11 11 20 20 20 20 |--"...Y..".. |
00000780: 20 20 20 50 52 45 53 53 20 41 20 4E 55 4D 42 45 | PRESS A NUMBE|
00000790: 52 20 4B 45 59 20 28 31 2D 34 29 20 22 3B 00 C6 |R KEY (1-4) ";..|
000007A0: 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 33 |.^.UL.1:US$."123|
000007B0: 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 20 52 |4":.35:. INPUT R|
000007C0: 4F 55 54 49 4E 45 00 D8 0F 5F 01 8B C3 28 55 52 |OUTINE..._...(UR|
000007D0: 24 29 B1 31 A7 33 30 30 00 E3 0F 60 01 55 53 24 |$).1.300...`.US$|
000007E0: B2 22 22 00 00 10 63 01 91 C5 28 55 52 24 29 8D |.""...c...(UR$).|
000007F0: 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 39 36 |1000,400,500,396|
00000800: 00 09 10 68 01 89 33 30 30 00 30 10 8B 01 8F 20 |...h..300.0.... |
00000810: 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 4F |** RE-ENABLE STO|
00000820: 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A 2A |P KEY AND END **|
00000830: 00 5F 10 8C 01 8B C2 28 35 30 30 30 33 29 B3 B1 |._.....(50003)..|
00000840: 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 AF |1..(50003)..160.|
00000850: C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 00 |.(50003)..0.399.|
00000860: 89 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 30 |.....UU.71:..(50|
00000870: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A |003).0..53281,6:|
00000880: 97 35 33 32 38 30 2C 31 34 00 95 10 8E 01 99 22 |.53280,14......"|
00000890: 9A 93 22 3A 80 00 A0 10 8F 01 8D 38 37 35 3A 8E |..":.......875:.|
000008A0: 00 C1 10 90 01 8F 20 2A 2A 20 53 54 55 44 45 4E |...... ** STUDEN|
000008B0: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A |T INSTRUCTIONS *|
000008C0: 2A 00 F0 10 95 01 99 22 93 22 3A 97 55 54 2C 55 |*......".":.UT,U|
000008D0: 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |L%:..(50003).0..|
000008E0: 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 |53281,0:.53280,0|
000008F0: 00 0C 11 9A 01 55 50 B2 30 3A 55 47 24 B2 22 D3 |.....UP.0:UG$.".|
00000900: 54 55 44 45 4E 54 20 C9 4E 53 54 22 00 1A 11 A4 |TUDENT .NST"....|
00000910: 01 97 35 39 34 36 38 2C 31 34 00 3D 11 AE 01 55 |..59468,14.=...U|
00000920: 47 24 B2 22 20 20 20 C5 58 50 4C 41 4E 41 54 49 |G$." .XPLANATI|
00000930: 4F 4E 22 3A 55 50 B2 31 3A 8D 38 35 30 00 69 11 |ON":UP.1:.850.i.|
00000940: B8 01 99 22 11 11 20 20 20 20 D4 48 49 53 20 49 |...".. .HIS I|
00000950: 53 20 41 20 44 49 53 50 4C 41 59 20 4F 46 20 54 |S A DISPLAY OF T|
00000960: 48 45 20 C3 36 34 27 53 22 00 97 11 BD 01 99 22 |HE .64'S"......"|
00000970: 11 20 52 41 4E 44 4F 4D 20 4E 55 4D 42 45 52 20 |. RANDOM NUMBER |
00000980: 47 45 4E 45 52 41 54 4F 52 2E 20 D4 48 45 20 50 |GENERATOR. .HE P|
00000990: 52 4F 47 52 41 4D 22 00 C5 11 C2 01 99 22 11 20 |ROGRAM"......". |
000009A0: 53 48 4F 57 53 20 54 48 45 20 46 4F 52 4D 41 54 |SHOWS THE FORMAT|
000009B0: 20 4F 46 20 41 20 53 54 41 54 45 4D 45 4E 54 20 | OF A STATEMENT |
000009C0: 54 48 41 54 22 00 F4 11 C7 01 99 22 11 20 47 45 |THAT"......". GE|
000009D0: 4E 45 52 41 54 45 53 20 52 41 4E 44 4F 4D 20 4E |NERATES RANDOM N|
000009E0: 55 4D 42 45 52 53 2E 20 D4 48 45 20 50 52 4F 47 |UMBERS. .HE PROG|
000009F0: 52 41 4D 22 00 21 12 CC 01 99 22 11 20 41 4C 4C |RAM".!....". ALL|
00000A00: 4F 57 53 20 54 48 45 20 55 53 45 52 20 54 4F 20 |OWS THE USER TO |
00000A10: 45 58 50 45 52 49 4D 45 4E 54 20 57 49 54 48 20 |EXPERIMENT WITH |
00000A20: 22 00 4E 12 D1 01 99 22 11 20 54 48 45 20 53 54 |".N....". THE ST|
00000A30: 41 54 45 4D 45 4E 54 20 42 59 20 41 53 4B 49 4E |ATEMENT BY ASKIN|
00000A40: 47 20 46 4F 52 20 4E 55 4D 42 45 52 53 22 00 70 |G FOR NUMBERS".p|
00000A50: 12 D6 01 99 22 11 20 54 4F 20 55 53 45 20 49 4E |....". TO USE IN|
00000A60: 20 54 48 45 20 53 54 41 54 45 4D 45 4E 54 2E 22 | THE STATEMENT."|
00000A70: 00 79 12 DB 01 8D 38 33 35 00 8D 12 EA 01 8B 55 |.y....835......U|
00000A80: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 93 12 |Z.1..UP%:.217...|
00000A90: F3 01 8E 00 B4 12 F4 01 8F 20 2A 2A 20 54 45 41 |......... ** TEA|
00000AA0: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION|
00000AB0: 53 20 2A 2A 00 E4 12 F5 01 99 22 93 22 3A 97 55 |S **......".":.U|
00000AC0: 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UL%:..(50003).|
00000AD0: 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 |0..53281,2:.5328|
00000AE0: 30 2C 31 30 00 05 13 F6 01 55 50 B2 30 3A 55 47 |0,10.....UP.0:UG|
00000AF0: 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 22 |$.".EACHER .NST"|
00000B00: 3A 8D 38 35 30 00 33 13 F7 01 99 22 11 11 20 20 |:.850.3....".. |
00000B10: 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 | .O THE BEST |
00000B20: 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 |OF OUR KNOWLEDGE|
00000B30: 2C 11 22 00 5C 13 F8 01 99 22 20 20 20 54 48 49 |,.".\...." THI|
00000B40: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 |S PROGRAM IS IN |
00000B50: 54 48 45 20 50 55 42 4C 49 43 11 22 00 88 13 F9 |THE PUBLIC."....|
00000B60: 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 |.." DOMAIN. .|
00000B70: 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 |F THIS IS NOT TH|
00000B80: 45 20 43 41 53 45 11 22 00 A5 13 FA 01 99 22 20 |E CASE."......" |
00000B90: 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 | PLEASE CONTACT|
00000BA0: 3A 11 11 11 22 00 CF 13 FB 01 99 22 20 20 20 20 |:..."......" |
00000BB0: 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 | .OMMODORE .USI|
00000BC0: 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 |NESS .ACHINES.".|
00000BD0: F2 13 FC 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000BE0: 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 |3370 .HARMACY .V|
00000BF0: 45 2E 00 16 14 FD 01 99 22 20 20 20 20 20 20 20 |E......." |
00000C00: 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E | .GINCOURT, .N|
00000C10: 54 41 52 49 4F 22 00 38 14 FE 01 99 22 20 20 20 |TARIO".8...." |
00000C20: 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 | .ANADA |
00000C30: CD 31 D7 20 32 CB 34 22 00 58 14 FF 01 99 22 20 |.1. 2.4".X...." |
00000C40: 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 34 | (416) 4|
00000C50: 39 39 2D 34 32 39 32 22 00 6E 14 00 02 55 50 B2 |99-4292".n...UP.|
00000C60: 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 98 |1:. 835:. 850:..|
00000C70: 14 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 |...." ...ROG|
00000C80: 52 41 4D 20 CE 41 4D 45 3A 20 D2 CE C4 20 C7 45 |RAM .AME: ... .E|
00000C90: 4E 45 52 41 54 4F 52 11 00 C1 14 02 02 99 22 20 |NERATOR......." |
00000CA0: 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 | .RITTEN .Y |
00000CB0: 3A 20 D3 54 45 50 48 45 4E 20 C6 45 4E 54 4F 4E |: .TEPHEN .ENTON|
00000CC0: 11 00 E8 14 03 02 99 22 20 20 20 20 20 D5 50 47 |......." .PG|
00000CD0: 52 41 44 45 44 20 C2 59 20 3A 20 D3 54 45 56 45 |RADED .Y : .TEVE|
00000CE0: 20 C8 55 52 52 45 4C 11 00 13 15 04 02 99 22 20 | .URREL......." |
00000CF0: 20 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 | ..HIS PROGRA|
00000D00: 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E |M WILL RUN ON AN|
00000D10: 59 11 11 00 33 15 07 02 99 22 20 20 20 20 20 20 |Y...3...." |
00000D20: 20 20 20 D0 C5 D4 A0 36 34 20 C3 CF CD D0 D5 D4 | ....64 ......|
00000D30: C5 D2 11 00 58 15 08 02 99 22 20 20 20 20 20 20 |....X...." |
00000D40: 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 | ......... 64 |
00000D50: C3 CF CD D0 D5 D4 C5 D2 00 61 15 09 02 8D 38 33 |.........a....83|
00000D60: 35 00 75 15 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 |5.u.N..UZ.1..UP%|
00000D70: 3A 89 32 31 37 00 7B 15 57 02 8E 00 A1 15 58 02 |:.217.{.W.....X.|
00000D80: 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 |. ** PROGRAM MOD|
00000D90: 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A |IFICATION INST *|
00000DA0: 2A 00 B2 15 59 02 99 22 93 22 3A 97 55 54 2C 55 |*...Y..".":.UT,U|
00000DB0: 4C 25 00 D2 15 5D 02 55 50 B2 30 3A 55 47 24 B2 |L%...].UP.0:UG$.|
00000DC0: 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 |".ROGRAM .OD":.8|
00000DD0: 35 30 00 DB 15 94 02 8D 38 33 35 00 EF 15 B2 02 |50......835.....|
00000DE0: 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 |.UZ.1..UP%:.217.|
00000DF0: F5 15 BB 02 8E 00 1A 16 BC 02 8F 20 2A 2A 20 54 |........... ** T|
00000E00: 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 |O USE 8032 LOAD |
00000E10: 43 42 4D 34 30 33 32 20 2A 2A 00 50 16 C6 02 99 |CBM4032 **.P....|
00000E20: 22 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E |".....BEFORE RUN|
00000E30: 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 |NING THIS PROGRA|
00000E40: 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 |M ON AN 8032 ..|
00000E50: 00 86 16 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 |......" LOA|
00000E60: 44 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 |D THE 'CBM 4032'|
00000E70: 20 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 | PROGRAM........|
00000E80: 11 11 11 11 11 22 00 91 16 DA 02 9E 55 55 AA 37 |....."......UU.7|
00000E90: 31 00 97 16 E4 02 80 00 BC 16 1D 03 8F 20 2A 2A |1............ **|
00000EA0: 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 | TO USE 8032 LOA|
00000EB0: 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 07 17 1E |D CBM4032 **....|
00000EC0: 03 99 22 93 11 11 11 42 45 46 4F 52 45 20 52 55 |.."....BEFORE RU|
00000ED0: 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 |NNING THIS PROGR|
00000EE0: 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 |AM ON AN 8032 .|
00000EF0: 11 4C 4F 41 44 20 43 42 4D 20 34 30 33 32 20 50 |.LOAD CBM 4032 P|
00000F00: 52 4F 47 52 41 4D 22 00 13 17 1F 03 9E 31 30 39 |ROGRAM"......109|
00000F10: 33 3A 80 00 33 17 20 03 8F 20 2A 2A 20 54 20 49 |3:..3. .. ** T I|
00000F20: 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 | T L E P A G E|
00000F30: 20 2A 2A 00 67 17 22 03 99 22 93 11 1D 05 22 3B | **.g.".."....";|
00000F40: 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 |:.UT,UU%:..(5000|
00000F50: 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 |3).0..53280,14:.|
00000F60: 35 33 32 38 31 2C 36 00 7D 17 24 03 81 49 B2 31 |53281,6.}.$..I.1|
00000F70: A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 95 17 |.38:."...";:....|
00000F80: 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 |&..I.1.22:."....|
00000F90: 92 22 3B 3A 82 00 AD 17 28 03 81 49 B2 31 A4 33 |.";:....(..I.1.3|
00000FA0: 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 C5 17 |7:.".....";:....|
00000FB0: 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 |*..I.1.22:."....|
00000FC0: 92 22 3B 3A 82 00 EA 17 2C 03 99 22 13 11 11 11 |.";:....,.."....|
00000FD0: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000FE0: 1D 1D 1D 1D 1D 12 A9 20 20 92 00 0C 18 2E 03 99 |....... .......|
00000FF0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001000: 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 2D 18 30 |.... . . ...-.0|
00001010: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001020: 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 4B 18 |...... . ....K.|
00001030: 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |2.."............|
00001040: 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 73 18 34 03 |........ ..s.4.|
00001050: 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001060: 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 |C O M M O D O R |
00001070: 45 11 11 00 96 18 36 03 99 22 1D 1D 1D 1D 1D 1D |E.....6.."......|
00001080: 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 |.........EDUCATI|
00001090: 4F 4E 41 4C 11 11 00 B5 18 38 03 99 22 1D 1D 1D |ONAL.....8.."...|
000010A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 |.............SOF|
000010B0: 54 57 41 52 45 00 D0 18 3A 03 8F 20 2A 2A 20 43 |TWARE...:.. ** C|
000010C0: 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A |OMMODORE LOGO **|
000010D0: 00 08 19 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B |...;...(UD$,24);|
000010E0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 |"..........PRESS|
000010F0: 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 | SPACE BAR OR WA|
00001100: 49 54 92 22 3A 49 B2 30 00 2A 19 3C 03 A1 41 24 |IT.":I.0.*.<..A$|
00001110: 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A |:.A$.." ".I.I.1:|
00001120: 8B 49 B3 32 35 30 A7 38 32 38 00 4E 19 3E 03 54 |.I.250.828.N.>.T|
00001130: 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 |1$."":T2$."":T3$|
00001140: B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 57 |."":T4$."":I.0.W|
00001150: 19 40 03 89 33 30 30 00 73 19 43 03 8F 20 2A 2A |.@..300.s.C.. **|
00001160: 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 53 | SPACE BAR PRESS|
00001170: 20 2A 2A 00 AE 19 48 03 97 55 4F 2C 30 3A 99 C8 | **...H..UO,0:..|
00001180: 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D |(UD$,24);"......|
00001190: 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 |.PRESS SPACE BAR|
000011A0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 C5 | TO CONTINUE."..|
000011B0: 19 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 |.L..UI$:.UI$.." |
000011C0: 22 A7 38 34 34 00 CB 19 4E 03 8E 00 EB 19 52 03 |".844...N.....R.|
000011D0: 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E |. ** PAGE DESIGN|
000011E0: 20 52 4F 55 54 49 4E 45 20 2A 2A 00 F7 19 54 03 | ROUTINE **...T.|
000011F0: 55 50 B2 55 50 AA 31 00 21 1A 57 03 99 22 93 22 |UP.UP.1.!.W.."."|
00001200: C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 |.(UT$.UP$,21);.(|
00001210: 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 |UP$.UG$..(UP),18|
00001220: 29 00 50 1A 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D |).P.\.." -------|
00001230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00001250: 00 5F 1A 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 |._.`..UH..0.870.|
00001260: 93 1A 61 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 |..a...(UD$,24);.|
00001270: 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D 20 |(UP$,7);"HELP - |
00001280: 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 52 |PRESS H <RETUR|
00001290: 4E 3E 22 00 A5 1A 66 03 97 55 4F 2C 30 3A 99 22 |N>"...f..UO,0:."|
000012A0: 13 11 22 3A 8E 00 C4 1A 6B 03 8F 20 2A 2A 20 50 |..":....k.. ** P|
000012B0: 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 |LEASE WAIT REMAR|
000012C0: 4B 20 2A 2A 00 FA 1A 70 03 99 C8 28 55 44 24 2C |K **...p...(UD$,|
000012D0: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
000012E0: 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 |ONE MOMENT PLEAS|
000012F0: 45 2E 2E 2E 20 20 20 20 20 22 00 00 1B 75 03 8E |E... "...u..|
00001300: 00 1D 1B 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 |...... ** SET UP|
00001310: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 68 1B | VARIABLES **.h.|
00001320: 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 |..UX$."H":.UQ%(1|
00001330: 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 |000):UB.32768:U1|
00001340: B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 |.196:U2.197:U3.1|
00001350: 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 |98:U4.216:UC.167|
00001360: 3A 55 55 B2 31 30 32 34 00 A6 1B 86 03 55 54 B2 |:UU.1024.....UT.|
00001370: 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 |59468:UU%.12:UL%|
00001380: B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 |.14:UP%.1146:UM.|
00001390: 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 |32768:UO.158:. 5|
000013A0: 30 30 30 33 2C 30 00 E9 1B 87 03 8B C2 28 35 30 |0003,0.......(50|
000013B0: 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 |003).0.UB.1024:U|
000013C0: 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 |1.209:U2.210:U3.|
000013D0: 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 |211:U4.214:UC.20|
000013E0: 34 3A 55 55 B2 32 30 34 38 00 28 1C 88 03 8B C2 |4:UU.2048.(.....|
000013F0: 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 |(50003).0.UT.532|
00001400: 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 |72:UU%.21:UL%.23|
00001410: 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 |:UP%.2139:UM.102|
00001420: 34 3A 55 4F B2 31 39 38 00 4C 1C 89 03 55 44 24 |4:UO.198.L...UD$|
00001430: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001440: 11 11 11 11 11 11 11 11 11 11 11 22 00 7E 1C 8A |...........".~..|
00001450: 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.UP$." |
00001460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001470: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 A7 | "..|
00001480: 1C 8B 03 55 54 24 B2 22 20 D2 CE C4 20 C7 45 4E |...UT$." ... .EN|
00001490: 45 52 41 54 4F 52 22 3A 8F 20 50 52 4F 47 52 41 |ERATOR":. PROGRA|
000014A0: 4D 20 54 49 54 4C 45 00 AD 1C 8C 03 8E 00 C7 1C |M TITLE.........|
000014B0: 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 |... ** SET VARIA|
000014C0: 42 4C 45 53 20 2A 2A 00 D0 1C 93 03 8D 39 30 30 |BLES **......900|
000014D0: 00 D6 1C 94 03 3A 00 DC 1C 95 03 3A 00 F7 1C 98 |.....:.....:....|
000014E0: 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 |.. ** CHECK FOR |
000014F0: 38 30 33 32 20 2A 2A 00 15 1D 9D 03 99 22 93 22 |8032 **......"."|
00001500: 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 |:.".":. SHIFTED |
00001510: 53 50 41 43 45 00 2C 1D A2 03 8B C2 28 55 42 AA |SPACE.,.....(UB.|
00001520: 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 45 1D A3 |40)..96..700.E..|
00001530: 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 |.. ** MEMORY CHE|
00001540: 43 4B 20 2A 2A 00 59 1D A4 03 8B 20 B8 28 30 29 |CK **.Y.... .(0)|
00001550: B1 32 30 30 30 A7 39 33 37 00 87 1D A5 03 99 22 |.2000.937......"|
00001560: 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 |....THIS MACHINE|
00001570: 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 | DOES NOT HAVE E|
00001580: 4E 4F 55 47 48 11 22 00 AB 1D A6 03 99 22 4D 45 |NOUGH."......"ME|
00001590: 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 |MORY TO RUN THIS|
000015A0: 20 50 52 4F 47 52 41 4D 20 21 22 00 B6 1D A7 03 | PROGRAM !".....|
000015B0: 9E 55 55 AA 37 31 00 BC 1D A8 03 80 00 D6 1D A9 |.UU.71..........|
000015C0: 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 |.."..":..(50003)|
000015D0: B2 30 A7 39 36 32 00 05 1E AC 03 8F 20 2A 2A 20 |.0.962...... ** |
000015E0: 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 |BASIC 2.0 OR 4|
000015F0: 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 |.0 OR C-64 SET|
00001600: 55 50 20 2A 2A 00 43 1E AD 03 97 31 30 37 35 2C |UP **.C....1075,|
00001610: 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 |133:.1076,144:.1|
00001620: 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A |077,234:.1079,4:|
00001630: 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C |.1080,133:.1081,|
00001640: 31 34 35 00 79 1E AE 03 97 31 30 39 31 2C 31 35 |145.y....1091,15|
00001650: 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 |5:.1098,133:.109|
00001660: 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A |9,144:.1100,234:|
00001670: 97 31 31 30 33 2C 31 33 33 00 9B 1E AF 03 97 31 |.1103,133......1|
00001680: 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 |104,145:.1105,23|
00001690: 34 3A 97 31 30 38 32 2C 32 33 34 00 B2 1E B1 03 |4:.1082,234.....|
000016A0: 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 |..(50003)..160.9|
000016B0: 35 35 00 E1 1E B6 03 97 31 30 39 33 2C 38 38 3A |55......1093,88:|
000016C0: 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C |.1094,228:.1097,|
000016D0: 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 |85:.1102,228:.96|
000016E0: 35 00 F6 1E BB 03 8B C2 28 35 30 30 30 33 29 B3 |5.......(50003).|
000016F0: B1 31 A7 39 39 30 00 25 1F C0 03 97 31 30 39 33 |.1.990.%....1093|
00001700: 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 |,49:.1094,230:.1|
00001710: 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 |097,46:.1102,230|
00001720: 3A 89 39 36 35 00 5F 1F C2 03 97 32 30 39 39 2C |:.965._....2099,|
00001730: 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 |141:.2100,20:.21|
00001740: 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 |01,3:.2103,8:.21|
00001750: 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 |04,141:.2105,21.|
00001760: 9B 1F C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 |.....2106,3:.211|
00001770: 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 |5,145:.2117,52:.|
00001780: 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 |2118,234:.2121,4|
00001790: 39 3A 97 32 31 32 32 2C 31 34 31 00 D5 1F C4 03 |9:.2122,141.....|
000017A0: 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 |.2123,20:.2124,3|
000017B0: 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 |:.2126,234:.2127|
000017C0: 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 |,141:.2128,21:.2|
000017D0: 31 32 39 2C 33 00 F3 1F C5 03 9E 55 55 AA 34 38 |129,3......UU.48|
000017E0: 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 |:. DISABLE STOP |
000017F0: 4B 45 59 00 04 20 CA 03 8D 38 30 30 3A 8F 20 54 |KEY.. ...800:. T|
00001800: 49 54 4C 45 00 14 20 D4 03 89 33 30 30 3A 8F 20 |ITLE.. ...300:. |
00001810: 4D 45 4E 55 00 45 20 DE 03 99 22 93 54 48 45 20 |MENU.E ...".THE |
00001820: 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 |PGM WILL NOT WOR|
00001830: 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E |K ON THIS MACHIN|
00001840: 45 21 22 3A 80 00 7A 20 E8 03 8B 55 5A B2 31 A7 |E!":..z ...UZ.1.|
00001850: 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F |.UP%:.UP%:UZ.0:.|
00001860: 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 | ** PROGRAM STAR|
00001870: 54 53 20 48 45 52 45 20 2A 2A 00 A6 20 E9 03 99 |TS HERE **.. ...|
00001880: 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 |"..";:.:..(50003|
00001890: 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 |).0..53281,6:.53|
000018A0: 32 38 30 2C 31 34 00 AF 20 4C 04 99 22 93 22 00 |280,14.. L..".".|
000018B0: E0 20 A6 04 99 22 93 11 20 4A 55 53 54 20 54 48 |. ...".. JUST TH|
000018C0: 49 4E 4B 20 48 4F 57 20 42 4F 52 49 4E 47 20 4D |INK HOW BORING M|
000018D0: 4F 53 54 20 47 41 4D 45 53 20 57 4F 55 4C 44 22 |OST GAMES WOULD"|
000018E0: 00 0D 21 B0 04 99 22 11 20 42 45 20 57 49 54 48 |..!...". BE WITH|
000018F0: 4F 55 54 20 41 4E 59 20 53 4F 52 54 20 4F 46 20 |OUT ANY SORT OF |
00001900: 43 48 41 4C 4C 45 4E 47 45 20 54 4F 22 00 3D 21 |CHALLENGE TO".=!|
00001910: BA 04 99 22 11 20 54 48 45 4D 2E 20 42 55 54 20 |...". THEM. BUT |
00001920: 4C 55 43 4B 49 4C 59 20 54 48 45 52 45 20 49 53 |LUCKILY THERE IS|
00001930: 20 41 20 53 54 41 54 45 4D 45 4E 54 22 00 6D 21 | A STATEMENT".m!|
00001940: C4 04 99 22 11 20 49 4E 20 42 41 53 49 43 20 54 |...". IN BASIC T|
00001950: 48 41 54 20 41 44 44 53 20 41 20 53 4C 49 47 48 |HAT ADDS A SLIGH|
00001960: 54 20 44 49 46 46 45 52 45 4E 43 45 22 00 97 21 |T DIFFERENCE"..!|
00001970: CE 04 99 22 11 20 54 4F 20 41 20 47 41 4D 45 2E |...". TO A GAME.|
00001980: 20 54 48 49 53 20 53 54 41 54 45 4D 45 4E 54 20 | THIS STATEMENT |
00001990: 49 53 20 54 48 45 22 00 B9 21 D8 04 99 22 11 20 |IS THE"..!...". |
000019A0: 52 41 4E 44 4F 4D 20 4E 55 4D 42 45 52 20 47 45 |RANDOM NUMBER GE|
000019B0: 4E 45 52 41 54 4F 52 2E 22 00 EA 21 E2 04 99 22 |NERATOR."..!..."|
000019C0: 11 11 11 11 1D 1D 1D 1D 1D 54 48 45 20 53 54 41 |.........THE STA|
000019D0: 54 45 4D 45 4E 54 20 4C 4F 4F 4B 53 20 4C 49 4B |TEMENT LOOKS LIK|
000019E0: 45 20 54 48 49 53 3A 20 20 22 00 09 22 EC 04 99 |E THIS: ".."...|
000019F0: A3 31 30 29 22 11 11 41 3D 49 4E 54 28 42 2B 52 |.10)"..A=INT(B+R|
00001A00: 4E 44 28 31 29 2A 43 29 22 00 12 22 F6 04 8D 38 |ND(1)*C)".."...8|
00001A10: 33 35 00 1B 22 0A 05 99 22 93 22 00 38 22 14 05 |35.."...".".8"..|
00001A20: 99 A3 31 30 29 22 41 3D 49 4E 54 28 42 2B 52 4E |..10)"A=INT(B+RN|
00001A30: 44 28 31 29 2A 43 29 22 00 5C 22 1E 05 99 A3 35 |D(1)*C)".\"....5|
00001A40: 29 22 11 41 20 49 53 20 54 48 45 20 52 41 4E 44 |)".A IS THE RAND|
00001A50: 4F 4D 20 56 41 52 49 41 42 4C 45 22 00 7F 22 28 |OM VARIABLE".."(|
00001A60: 05 99 A3 35 29 22 11 42 20 49 53 20 54 48 45 20 |...5)".B IS THE |
00001A70: 4C 4F 57 45 53 54 20 41 20 56 41 4C 55 45 22 00 |LOWEST A VALUE".|
00001A80: AC 22 32 05 99 A3 35 29 22 11 43 2C 20 4C 45 53 |."2...5)".C, LES|
00001A90: 53 20 4F 4E 45 2C 20 50 4C 55 53 20 42 20 45 51 |S ONE, PLUS B EQ|
00001AA0: 55 41 4C 53 20 54 48 45 20 20 20 22 00 C5 22 3C |UALS THE ".."<|
00001AB0: 05 99 A3 35 29 22 11 48 49 47 48 45 53 54 20 56 |...5)".HIGHEST V|
00001AC0: 41 4C 55 45 22 00 F6 22 46 05 99 22 11 20 54 48 |ALUE".."F..". TH|
00001AD0: 45 52 45 46 4F 52 45 2C 49 46 20 57 45 20 53 55 |EREFORE,IF WE SU|
00001AE0: 42 53 54 49 54 55 54 45 20 53 4F 4D 45 20 4E 55 |BSTITUTE SOME NU|
00001AF0: 4D 42 45 52 53 22 00 24 23 50 05 99 22 20 46 4F |MBERS".$#P.." FO|
00001B00: 52 20 41 2C 20 42 20 41 4E 44 20 43 20 57 45 20 |R A, B AND C WE |
00001B10: 57 49 4C 4C 20 48 41 56 45 20 41 20 57 4F 52 4B |WILL HAVE A WORK|
00001B20: 49 4E 47 22 00 46 23 5A 05 99 22 11 20 52 41 4E |ING".F#Z..". RAN|
00001B30: 44 4F 4D 20 4E 55 4D 42 45 52 20 47 45 4E 45 52 |DOM NUMBER GENER|
00001B40: 41 54 4F 52 2E 22 00 64 23 64 05 99 A3 31 30 29 |ATOR.".d#d...10)|
00001B50: 22 11 41 3D 49 4E 54 28 31 2B 52 4E 44 28 31 29 |".A=INT(1+RND(1)|
00001B60: 2A 31 30 29 00 95 23 6E 05 99 22 11 20 54 48 49 |*10)..#n..". THI|
00001B70: 53 20 53 54 41 54 45 4D 45 4E 54 20 57 49 4C 4C |S STATEMENT WILL|
00001B80: 20 47 49 56 45 20 59 4F 55 20 4E 55 4D 42 45 52 | GIVE YOU NUMBER|
00001B90: 53 20 4E 4F 22 00 C4 23 78 05 99 22 20 47 52 45 |S NO"..#x.." GRE|
00001BA0: 41 54 45 52 20 54 48 41 4E 20 54 45 4E 20 41 4E |ATER THAN TEN AN|
00001BB0: 44 20 4E 4F 20 4C 45 53 53 20 54 48 41 4E 20 4F |D NO LESS THAN O|
00001BC0: 4E 45 2E 22 00 CD 23 82 05 8D 38 33 35 00 E5 23 |NE."..#...835..#|
00001BD0: 96 05 99 22 93 22 3A 42 B2 31 3A 43 B2 31 30 3A |...".":B.1:C.10:|
00001BE0: 8D 31 35 32 30 00 16 24 A0 05 99 22 11 20 4E 4F |.1520..$...". NO|
00001BF0: 57 20 49 54 53 20 59 4F 55 52 20 54 55 52 4E 20 |W ITS YOUR TURN |
00001C00: 54 4F 20 4D 4F 44 49 46 59 20 54 48 45 20 42 20 |TO MODIFY THE B |
00001C10: 41 4E 44 20 43 22 00 41 24 AA 05 99 22 11 20 12 |AND C".A$...". .|
00001C20: 20 54 4F 20 51 55 49 54 20 45 4E 54 45 52 20 5A | TO QUIT ENTER Z|
00001C30: 45 52 4F 20 46 4F 52 20 42 20 41 4E 44 20 43 92 |ERO FOR B AND C.|
00001C40: 22 00 87 24 B4 05 99 22 11 20 49 4E 50 55 54 20 |"..$...". INPUT |
00001C50: 41 20 4E 55 4D 42 45 52 20 46 4F 52 20 42 3A 20 |A NUMBER FOR B: |
00001C60: 22 3B 3A 55 53 24 B2 22 2D 30 31 32 33 34 35 36 |";:US$."-0123456|
00001C70: 37 38 39 48 22 3A 55 4C B2 35 3A 8D 33 35 3A 42 |789H":UL.5:.35:B|
00001C80: B2 C5 28 55 52 24 29 00 B5 24 BE 05 99 22 11 20 |..(UR$)..$...". |
00001C90: 49 4E 50 55 54 20 41 20 4E 55 4D 42 45 52 20 46 |INPUT A NUMBER F|
00001CA0: 4F 52 20 43 3A 20 22 3B 3A 8D 33 35 3A 43 B2 C5 |OR C: ";:.35:C..|
00001CB0: 28 55 52 24 29 00 BE 24 C8 05 99 22 93 22 00 D0 |(UR$)..$..."."..|
00001CC0: 24 D2 05 8B 42 B2 30 AF 43 B2 30 A7 31 35 31 30 |$...B.0.C.0.1510|
00001CD0: 00 E0 24 DC 05 8D 31 35 32 30 3A 89 31 34 36 30 |..$...1520:.1460|
00001CE0: 00 E6 24 E6 05 8E 00 0C 25 F0 05 99 22 11 20 48 |..$.....%...". H|
00001CF0: 45 52 45 20 41 52 45 20 54 45 4E 20 52 41 4E 44 |ERE ARE TEN RAND|
00001D00: 4F 4D 20 4E 55 4D 42 45 52 53 11 22 00 26 25 FA |OM NUMBERS.".&%.|
00001D10: 05 81 54 B2 31 A4 31 30 3A 41 B2 B5 28 42 AA BB |..T.1.10:A..(B..|
00001D20: 28 31 29 AC 43 29 00 53 25 04 06 99 41 3B 3A 82 |(1).C).S%...A;:.|
00001D30: 54 3A 99 3A 99 22 11 20 57 48 45 4E 20 42 20 3D |T:.:.". WHEN B =|
00001D40: 22 3B 42 3B 22 41 4E 44 20 43 20 3D 22 3B 43 3B |";B;"AND C =";C;|
00001D50: 22 2E 22 00 59 25 0E 06 8E 00 00 00 |".".Y%...... |
.......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 **
...#.. +++ INPUT SECTION +++...(..UO,0:U
R$."":UI$.""...*..UL.0.UL.80...-.." .."
;:.UC,0.3.2..UI$:.UI$."".50.].7..UI$.G(1
3).C(UR$)..1..UC,1:." .";:.85.P.<..UI$.G
(20).105...>.. C(UR$)..UL.50...A..120:.
CHECK FOR VALID CHARACTER...F.UR$.UR$.UI
$.C.K..UI$;.K.P..50...U.. +++ CHECK FOR
HELP REQUEST +++...Z..UR$.UX$.195:. EXIT
TO HELP ROUTINE.'._..UF.1..240.4.D.UF.0
:.:..M.F.. ++ CHECK DELETE ++.^.I..C(UR$
).1.50.V.N.UR$.H(UR$,C(UR$).1)...S..".
..";:.50...X.. ++ CHECK FOR VALID CHARAC
TERS ++.A.}..C(US$).0.150.R....US.1.C(US
$)......UI$.J(US$,US,1).............UI$.
"":....... ** STANDARD INPUT **.(....F(U
I$).46...9....UI$.G(32)...V. ..F(UI$).48
.F(UI$).57.170.\.....Y....F(UI$).65.F(UI
$).90.180...........F(UI$).193.F(UI$).2
18.UI$."":..F....B(UT).UU%.UI$.G(F(UI$).
128):..L.....Y...UI$."":....C.UF.1:. +++
HELP ROUTINE EXIT +++...E..250...H..245
./.M..UQ.UB.(U2%.256.U1%.U3%.2).K.R.UQ%(
UQ.UB).B(UQ):.:.".".^.W.UZ.1:UV%.B(UT).G
.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:U
L.UK.C.Z..B(50003).0..53281,1:.".";:.532
81,6:.53280,14:.220.M....".";.....UT$.UL
$:.UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.3)....
..UQ,UQ%(UQ.UB):.......U1,U1%.)....U2,U2
%.5....U4,U4%.C....U3,U3%.1.K....35.}...
UD%.((U2%.256.U1%.U3%).UB).40:.H(UD$,UD%
.1):.......H(UD$,24);"
. HELP COMING . ":......U1%.B(U1):U
2%.B(U2):U3%.B(U3):U4%.B(U4).....UJ$.US$
:UK$.UG$:UL$.UT$:UJ.UP:UK.UL.......#.,..
** MENU **.).-.:.X....".":.UT,UU%:.B(50
003).0..53281,9:.53280,8.^./.:.{.1..".
MENU"...6.." -------------
-------------------------".T.;.."..
1. RND GENERATOR DISPLAY...@.."..
2. STUDENT INSTRUCTIONS".(.E.."..
3. TEACHER INSTRUCTIONS".D.O..".
. 4. QUIT..".S.T.." ------------
--------------------------"...Y.."..
PRESS A NUMBER KEY (1-4) ";.F.^.UL.1:
US$."1234":.35:. INPUT ROUTINE.X._..C(UR
$).1.300...`.US$.""...C..E(UR$).1000,400
,500,396...H..300.0.... ** RE-ENABLE STO
P KEY AND END **._....B(50003)..1.B(5000
3)..160.B(50003)..0.399......UU.71:.B(50
003).0..53281,6:.53280,14......"..":.. .
...875:..A.... ** STUDENT INSTRUCTIONS *
*......".":.UT,UL%:.B(50003).0..53281,0:
.53280,0.....UP.0:UG$."STUDENT INST"....
..59468,14.=...UG$." EXPLANATION":UP.1
:.850.I....".. THIS IS A DISPLAY OF T
HE C64'S"......". RANDOM NUMBER GENERATO
R. THE PROGRAM".E.B..". SHOWS THE FORMAT
OF A STATEMENT THAT"...G..". GENERATES
RANDOM NUMBERS. THE PROGRAM".!.L..". ALL
OWS THE USER TO EXPERIMENT WITH ".N.Q.."
. THE STATEMENT BY ASKING FOR NUMBERS".P
.V..". TO USE IN THE STATEMENT.".Y....83
5......UZ.1..UP%:.217............ ** TEA
CHER INSTRUCTIONS **......".":.UT,UL%:.B
(50003).0..53281,2:.53280,10.....UP.0:UG
$."TEACHER INST":.850.3....".. TO T
HE BEST OF OUR KNOWLEDGE,.".\...." THI
S PROGRAM IS IN THE PUBLIC."......" DO
MAIN. IF THIS IS NOT THE CASE."......"
PLEASE CONTACT:...".O...." COMMOD
ORE BUSINESS MACHINES."......"
3370 PHARMACY AVE......." AGINC
OURT, ONTARIO".8...." CANADA
M1W 2K4".X...." (416) 499-4292"
.N...UP.1:. 835:. 850:......" ..PROG
RAM NAME: RND GENERATOR..A...." WRIT
TEN BY : STEPHEN FENTON......." UPG
RADED BY : STEVE HURREL......." .THI
S PROGRAM WILL RUN ON ANY...3...."
PET 64 COMPUTER..X...." COMMO
DORE 64 COMPUTER.A....835.U.N..UZ.1..UP%
:.217.{.W.....X.. ** PROGRAM MODIFICATIO
N INST **...Y..".":.UT,UL%.R.].UP.0:UG$.
"PROGRAM MOD":.850......835......UZ.1..U
P%:.217............ ** TO USE 8032 LOAD
CBM4032 **.P.F..".....BEFORE RUNNING THI
S PROGRAM ON AN 8032 .....P.." LOA
D THE 'CBM 4032' PROGRAM............."..
.Z..UU.71............ ** TO USE 8032 LOA
D CBM4032 **......"....BEFORE RUNNING TH
IS PROGRAM ON AN 8032 ..LOAD CBM 4032 P
ROGRAM"......1093:..3. .. ** T I T L E
P A G E **.G.".."....";:.UT,UU%:.B(5000
3).0..53280,14:.53281,6.}.$..I.1.38:."..
.";:....&..I.1.22:.".....";:....(..I.1.3
7:.".....";:..E.*..I.1.22:.".....";:....
,.."........................... .......
"................... . . ...-.0..".....
.............. . ....K.2.."............
........ ..S.4.."..............C O M M
O D O R E.....6.."...............EDUCATI
ONAL.....8.."................SOFTWARE.P.
:.. ** COMMODORE LOGO **...;..H(UD$,24);
"..........PRESS SPACE BAR OR WAIT.":I.0
.*.<..A$:.A$.." ".I.I.1:.I.250.828.N.>.T
1$."":T2$."":T3$."":T4$."":I.0.W.@..300.
S.C.. ** SPACE BAR PRESS **...H..UO,0:.H
(UD$,24);".......PRESS SPACE BAR TO CONT
INUE.".E.L..UI$:.UI$.." ".844.K.N.....R.
. ** PAGE DESIGN ROUTINE **...T.UP.UP.1.
!.W.."."H(UT$.UP$,21);I(UP$.UG$.D(UP),18
).P.\.." -------------------------------
-------"._.`..UH..0.870...A..H(UD$,24);H
(UP$,7);"HELP - PRESS H <RETURN>"...F.
.UO,0:."..":..D.K.. ** PLEASE WAIT REMAR
K **...P..H(UD$,24);" ONE MOME
NT PLEASE... "...U........ ** SET UP
VARIABLES **.H...UX$."H":.UQ%(1000):UB.
32768:U1.196:U2.197:U3.198:U4.216:UC.167
:UU.1024.....UT.59468:UU%.12:UL%.14:UP%.
1146:UM.32768:UO.158:. 50003,0......B(50
003).0.UB.1024:U1.209:U2.210:U3.211:U4.2
14:UC.204:UU.2048.(....B(50003).0.UT.532
72:UU%.21:UL%.23:UP%.2139:UM.1024:UO.198
.L...UD$.".........................".~..
.UP$."
".....UT$." RND GENERATOR":. PROGRA
M TITLE.......G.... ** SET VARIABLES **.
P....900.V...:.....:...... ** CHECK FOR
8032 **......".":." ":. SHIFTED SPACE.,.
...B(UB.40)..96..700.E.... ** MEMORY CHE
CK **.Y.... .(0).2000.937......"....THIS
MACHINE DOES NOT HAVE ENOUGH."......"ME
MORY TO RUN THIS PROGRAM !"......UU.71..
.....V...."..":.B(50003).0.962...... **
BASIC 2.0 OR 4.0 OR C-64 SETUP **.C.
...1075,133:.1076,144:.1077,234:.1079,4:
.1080,133:.1081,145.Y....1091,155:.1098,
133:.1099,144:.1100,234:.1103,133......1
104,145:.1105,234:.1082,234......B(50003
)..160.955......1093,88:.1094,228:.1097,
85:.1102,228:.965......B(50003)..1.990.%
....1093,49:.1094,230:.1097,46:.1102,230
:.965._.B..2099,141:.2100,20:.2101,3:.21
03,8:.2104,141:.2105,21...C..2106,3:.211
5,145:.2117,52:.2118,234:.2121,49:.2122,
141.U.D..2123,20:.2124,3:.2126,234:.2127
,141:.2128,21:.2129,3...E..UU.48:. DISAB
LE STOP KEY.. J..800:. TITLE.. T..300:.
MENU.E ...".THE PGM WILL NOT WORK ON THI
S MACHINE!":..Z ...UZ.1..UP%:.UP%:UZ.0:.
** PROGRAM STARTS HERE **.. ..."..";:.:
.B(50003).0..53281,6:.53280,14.. L..".".
. ...".. JUST THINK HOW BORING MOST GAME
S WOULD"..!...". BE WITHOUT ANY SORT OF
CHALLENGE TO".=!...". THEM. BUT LUCKILY
THERE IS A STATEMENT".M!D..". IN BASIC T
HAT ADDS A SLIGHT DIFFERENCE"..!N..". TO
A GAME. THIS STATEMENT IS THE"..!X..".
RANDOM NUMBER GENERATOR."..!..."........
.THE STATEMENT LOOKS LIKE THIS: ".."...
.10)"..A=INT(B+RND(1)*C)".."...835.."...
".".8"....10)"A=INT(B+RND(1)*C)".\"....5
)".A IS THE RANDOM VARIABLE"."(...5)".B
IS THE LOWEST A VALUE".."2...5)".C, LES
S ONE, PLUS B EQUALS THE ".E"<...5)".H
IGHEST VALUE".."F..". THEREFORE,IF WE SU
BSTITUTE SOME NUMBERS".$#P.." FOR A, B A
ND C WE WILL HAVE A WORKING".F#Z..". RAN
DOM NUMBER GENERATOR.".D#D...10)".A=INT(
1+RND(1)*10)..#N..". THIS STATEMENT WILL
GIVE YOU NUMBERS NO".D#X.." GREATER THA
N TEN AND NO LESS THAN ONE.".M#...835..#
...".":B.1:C.10:.1520..$ ..". NOW ITS YO
UR TURN TO MODIFY THE B AND C".A$...". .
TO QUIT ENTER ZERO FOR B AND C."..$..."
. INPUT A NUMBER FOR B: ";:US$."-0123456
789H":UL.5:.35:B.E(UR$)..$...". INPUT A
NUMBER FOR C: ";:.35:C.E(UR$)..$H..".".P
$R..B.0.C.0.1510..$...1520:.1460..$.....
%...". HERE ARE TEN RANDOM NUMBERS.".&%.
..T.1.10:A..(B..(1).C).S%...A;:.T:.:.".
WHEN B =";B;"AND C =";C;".".Y%......
> CLICK IMAGE PREVIEW FOR FULL MODAL