00000000: 01 04 16 04 64 00 8F 20 53 41 56 45 22 30 3A 50 |....d.. SAVE"0:P|
00000010: 47 4D 34 22 2C 38 00 2C 04 6E 00 8F 20 2D 2D 20 |GM4",8.,.n.. -- |
00000020: 50 52 4F 47 52 41 4D 20 34 20 2D 2D 00 4A 04 78 |PROGRAM 4 --.J.x|
00000030: 00 8F 20 20 4C 4F 41 44 53 20 41 4E 44 20 52 55 |.. LOADS AND RU|
00000040: 4E 53 20 52 4E 44 47 45 4E 32 00 73 04 82 00 8F |NS RNDGEN2.s....|
00000050: 20 20 54 4F 20 44 45 4D 4F 20 52 41 4E 44 4F 4D | TO DEMO RANDOM|
00000060: 20 23 20 47 45 4E 45 52 41 54 4F 52 20 4F 55 54 | # GENERATOR OUT|
00000070: 50 55 54 00 8C 04 8C 00 8F 20 2D 2D 20 42 41 53 |PUT...... -- BAS|
00000080: 49 43 20 4C 4F 41 44 45 52 20 2D 2D 00 9B 04 96 |IC LOADER --....|
00000090: 00 81 20 41 B2 30 20 A4 20 39 30 00 A3 04 A0 00 |.. A.0 . 90.....|
000000A0: 87 20 42 00 B2 04 AA 00 97 20 39 30 30 39 AA 41 |. B...... 9009.A|
000000B0: 2C 42 00 B8 04 B4 00 82 00 DC 04 BE 00 8F 20 2D |,B............ -|
000000C0: 2D 20 52 4E 44 47 45 4E 32 20 44 45 4D 4F 20 46 |- RNDGEN2 DEMO F|
000000D0: 52 4F 4D 20 42 41 53 49 43 20 2D 2D 00 E2 04 C8 |ROM BASIC --....|
000000E0: 00 8F 00 FF 04 D2 00 99 20 22 3D 3D 3D 20 35 20 |........ "=== 5 |
000000F0: 44 49 47 49 54 20 53 45 45 44 20 3D 3D 3D 22 00 |DIGIT SEED ===".|
00000100: 0D 05 DC 00 81 20 41 B2 30 20 A4 20 34 00 25 05 |..... A.0 . 4.%.|
00000110: E6 00 A1 20 4B 24 3A 20 8B 20 4B 24 B2 22 22 20 |... K$: . K$."" |
00000120: A7 20 32 33 30 00 32 05 F0 00 4A 24 B2 4A 24 AA |. 230.2...J$.J$.|
00000130: 4B 24 00 67 05 FA 00 97 20 39 30 30 34 AA 41 2C |K$.g.... 9004.A,|
00000140: C5 28 4B 24 29 3A 20 8F 20 43 45 4C 4C 53 20 31 |.(K$): . CELLS 1|
00000150: 20 54 48 52 55 20 35 20 47 45 54 20 53 45 45 44 | THRU 5 GET SEED|
00000160: 20 4C 4F 41 44 45 44 00 77 05 04 01 99 20 C7 28 | LOADED.w.... .(|
00000170: 31 34 37 29 3B 4A 24 00 7D 05 0E 01 82 00 92 05 |147);J$.}.......|
00000180: 18 01 9E 20 39 30 32 35 3A 20 8F 20 3D 24 32 33 |... 9025: . =$23|
00000190: 34 31 00 A7 05 22 01 9E 20 39 30 33 34 3A 20 8F |41...".. 9034: .|
000001A0: 20 3D 24 32 33 34 41 00 C0 05 2C 01 99 20 C2 28 | =$234A...,.. .(|
000001B0: 39 30 30 34 29 3B 3A 20 8F 20 3D 24 32 33 32 43 |9004);: . =$232C|
000001C0: 00 CA 05 36 01 89 20 32 39 30 00 D0 05 40 01 8F |...6.. 290...@..|
000001D0: 00 E6 05 4A 01 8F 20 2D 2D 20 4C 4F 41 44 20 44 |...J.. -- LOAD D|
000001E0: 41 54 41 20 2D 2D 00 14 06 54 01 83 20 20 20 20 |ATA --...T.. |
000001F0: 33 2C 20 20 20 35 2C 20 20 20 39 2C 20 20 20 34 |3, 5, 9, 4|
00000200: 2C 20 20 20 37 2C 20 20 20 31 2C 20 20 20 34 2C |, 7, 1, 4,|
00000210: 20 20 20 36 00 42 06 5E 01 83 20 20 20 20 33 2C | 6.B.^.. 3,|
00000220: 20 20 20 32 2C 20 20 20 30 2C 20 20 20 35 2C 20 | 2, 0, 5, |
00000230: 20 20 37 2C 20 20 20 34 2C 20 20 20 39 2C 20 20 | 7, 4, 9, |
00000240: 20 38 00 70 06 68 01 83 20 20 31 36 39 2C 20 20 | 8.p.h.. 169, |
00000250: 20 30 2C 20 31 34 31 2C 20 20 34 30 2C 20 20 33 | 0, 141, 40, 3|
00000260: 35 2C 20 31 34 31 2C 20 20 34 31 2C 20 20 33 35 |5, 141, 41, 35|
00000270: 00 9E 06 72 01 83 20 20 31 36 38 2C 20 20 32 34 |...r.. 168, 24|
00000280: 2C 20 31 37 33 2C 20 20 36 34 2C 20 20 33 35 2C |, 173, 64, 35,|
00000290: 20 31 30 39 2C 20 20 34 35 2C 20 20 33 35 00 CC | 109, 45, 35..|
000002A0: 06 7C 01 83 20 20 32 30 31 2C 20 20 31 30 2C 20 |.|.. 201, 10, |
000002B0: 31 34 34 2C 20 20 20 32 2C 20 32 33 33 2C 20 20 |144, 2, 233, |
000002C0: 31 30 2C 20 31 34 31 2C 20 20 34 32 00 FA 06 86 |10, 141, 42....|
000002D0: 01 83 20 20 20 33 35 2C 20 31 36 32 2C 20 20 32 |.. 35, 162, 2|
000002E0: 30 2C 20 31 38 39 2C 20 20 34 33 2C 20 20 33 35 |0, 189, 43, 35|
000002F0: 2C 20 31 35 37 2C 20 20 34 34 00 28 07 90 01 83 |, 157, 44.(....|
00000300: 20 20 20 33 35 2C 20 32 30 32 2C 20 32 32 34 2C | 35, 202, 224,|
00000310: 20 20 20 30 2C 20 32 30 38 2C 20 32 34 35 2C 20 | 0, 208, 245, |
00000320: 31 37 33 2C 20 20 34 32 00 56 07 9A 01 83 20 20 |173, 42.V.... |
00000330: 20 33 35 2C 20 31 34 31 2C 20 20 34 34 2C 20 20 | 35, 141, 44, |
00000340: 33 35 2C 20 31 37 33 2C 20 20 34 31 2C 20 20 33 |35, 173, 41, 3|
00000350: 35 2C 20 32 30 31 00 84 07 A4 01 83 20 20 32 35 |5, 201...... 25|
00000360: 35 2C 20 32 30 38 2C 20 20 20 31 2C 20 20 39 36 |5, 208, 1, 96|
00000370: 2C 20 32 30 30 2C 20 31 39 32 2C 20 20 20 30 2C |, 200, 192, 0,|
00000380: 20 32 30 38 00 B2 07 AE 01 83 20 20 32 30 38 2C | 208...... 208,|
00000390: 20 32 33 38 2C 20 20 34 30 2C 20 20 33 35 2C 20 | 238, 40, 35, |
000003A0: 31 37 33 2C 20 20 34 30 2C 20 20 33 35 2C 20 32 |173, 40, 35, 2|
000003B0: 30 31 00 E0 07 B8 01 83 20 20 20 31 30 2C 20 32 |01...... 10, 2|
000003C0: 30 38 2C 20 31 39 38 2C 20 31 36 39 2C 20 32 35 |08, 198, 169, 25|
000003D0: 35 2C 20 31 34 31 2C 20 20 34 31 2C 20 20 33 35 |5, 141, 41, 35|
000003E0: 00 F5 07 C2 01 83 20 20 20 37 36 2C 20 20 37 34 |...... 76, 74|
000003F0: 2C 20 20 33 35 00 00 00 |, 35... |
....D.. SAVE"0:PGM4",8.,.N.. -- PROGRAM
4 --.J.X.. LOADS AND RUNS RNDGEN2.S....
TO DEMO RANDOM # GENERATOR OUTPUT.....
. -- BASIC LOADER --...... A.0 . 90... .
. B...... 9009.A,B............ -- RNDGEN
2 DEMO FROM BASIC --...H.....R.. "=== 5
DIGIT SEED ==="...... A.0 . 4.%.... K$:
. K$."" . 230.2...J$.J$.K$.G.... 9004.A,
E(K$): . CELLS 1 THRU 5 GET SEED LOADED.
W.... G(147);J$.}.......... 9025: . =$23
41...".. 9034: . =$234A...,.. B(9004);:
. =$232C.J.6.. 290.P.@.....J.. -- LOAD D
ATA --...T.. 3, 5, 9, 4, 7,
1, 4, 6.B.^.. 3, 2, 0, 5,
7, 4, 9, 8.P.H.. 169, 0, 141,
40, 35, 141, 41, 35...R.. 168, 24
, 173, 64, 35, 109, 45, 35.L.|.. 20
1, 10, 144, 2, 233, 10, 141, 42....
.. 35, 162, 20, 189, 43, 35, 157,
44.(.... 35, 202, 224, 0, 208, 245,
173, 42.V.... 35, 141, 44, 35, 173,
41, 35, 201...... 255, 208, 1, 96
, 200, 192, 0, 208...... 208, 238, 4
0, 35, 173, 40, 35, 201...... 10, 2
08, 198, 169, 255, 141, 41, 35...B..
76, 74, 35...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL