> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 10 08 01 00 8F 20 53 45 51 55 45 4E 43 45 |....... SEQUENCE|
00000010: 00 16 08 02 00 8F 00 38 08 03 00 8F 20 2A 2A 2A |.......8.... ***|
00000020: 2A 20 56 41 4E 20 44 45 20 50 45 54 20 55 53 45 |* VAN DE PET USE|
00000030: 52 53 20 47 52 4F 55 50 00 55 08 04 00 8F 20 2A |RS GROUP.U.... *|
00000040: 2A 2A 2A 20 53 4F 46 54 57 41 52 45 20 45 58 43 |*** SOFTWARE EXC|
00000050: 48 41 4E 47 45 00 6C 08 05 00 8F 20 2A 2A 2A 2A |HANGE.l.... ****|
00000060: 20 50 4F 53 54 42 55 53 20 33 37 31 00 94 08 06 | POSTBUS 371....|
00000070: 00 8F 20 2A 2A 2A 2A 20 4D 4F 54 47 4F 4D 4D 45 |.. **** MOTGOMME|
00000080: 52 56 49 4C 4C 45 2C 20 50 41 20 31 38 39 33 36 |RVILLE, PA 18936|
00000090: 20 55 53 41 00 9A 08 07 00 8F 00 A0 08 08 00 8F | USA............|
000000A0: 00 AD 08 32 00 86 20 41 24 28 32 36 29 00 D1 08 |...2.. A$(26)...|
000000B0: 64 00 5A 24 B2 22 41 42 43 44 45 46 47 48 49 4A |d.Z$."ABCDEFGHIJ|
000000C0: 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A |KLMNOPQRSTUVWXYZ|
000000D0: 22 00 F6 08 6E 00 5A 49 24 B2 22 31 32 33 34 35 |"...n.ZI$."12345|
000000E0: 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 |6789012345678901|
000000F0: 32 33 34 35 36 22 00 31 09 C8 00 99 20 22 93 11 |23456".1.... "..|
00000100: 11 4C 45 4E 47 54 45 20 56 41 4E 20 44 45 20 53 |.LENGTE VAN DE S|
00000110: 54 52 49 4E 47 20 44 49 45 20 41 46 47 45 5A 4F |TRING DIE AFGEZO|
00000120: 43 48 54 20 4D 4F 45 54 20 57 4F 52 44 45 4E 11 |CHT MOET WORDEN.|
00000130: 22 00 53 09 DC 00 85 20 22 4D 41 58 49 4D 55 4D |".S.... "MAXIMUM|
00000140: 20 4C 45 4E 47 54 45 20 49 53 20 32 36 20 20 22 | LENGTE IS 26 "|
00000150: 3B 53 24 00 68 09 E6 00 8B 20 53 24 B3 B1 22 32 |;S$.h.... S$.."2|
00000160: 36 22 20 A7 20 32 30 30 00 70 09 F0 00 53 B2 53 |6" . 200.p...S.S|
00000170: 00 7E 09 2C 01 81 20 49 B2 31 20 A4 20 53 00 92 |.~.,.. I.1 . S..|
00000180: 09 36 01 41 24 28 31 29 B2 CA 28 5A 24 2C 49 2C |.6.A$(1)..(Z$,I,|
00000190: 31 29 00 9A 09 40 01 82 20 49 00 B1 09 90 01 8F |1)...@.. I......|
000001A0: 20 52 41 4E 44 4F 4D 49 5A 45 20 53 54 52 49 4E | RANDOMIZE STRIN|
000001B0: 47 00 BF 09 A4 01 81 20 49 B2 31 20 A4 20 35 00 |G...... I.1 . 5.|
000001C0: D1 09 AE 01 4B B2 B5 28 BB 28 31 29 AC 53 AA 31 |....K..(.(1).S.1|
000001D0: 29 00 DE 09 B8 01 54 24 B2 41 24 28 4B 29 00 EE |).....T$.A$(K)..|
000001E0: 09 C2 01 41 24 28 49 29 B2 41 24 28 4B 29 00 FB |...A$(I).A$(K)..|
000001F0: 09 CC 01 41 24 28 4B 29 B2 54 24 00 01 0A D6 01 |...A$(K).T$.....|
00000200: 82 00 09 0A 53 02 54 B2 30 00 21 0A 58 02 8F 20 |....S.T.0.!.X.. |
00000210: 4B 45 45 52 20 53 55 42 53 54 52 49 4E 47 20 4F |KEER SUBSTRING O|
00000220: 4D 00 2F 0A 5D 02 54 B2 54 AA 31 3A 99 20 54 00 |M./.].T.T.1:. T.|
00000230: 50 0A 62 02 85 22 48 4F 45 56 45 45 4C 20 4B 45 |P.b.."HOEVEEL KE|
00000240: 45 52 20 4F 4D 44 52 41 41 49 45 4E 22 3B 52 24 |ER OMDRAAIEN";R$|
00000250: 00 63 0A 6C 02 8B 20 52 24 B2 22 30 22 20 A7 20 |.c.l.. R$."0" . |
00000260: 39 30 30 00 7F 0A 76 02 8B 20 52 24 B1 22 30 22 |900...v.. R$."0"|
00000270: 20 AF 52 24 B3 B2 22 53 22 20 A7 20 36 35 30 00 | .R$.."S" . 650.|
00000280: A7 0A 80 02 99 20 22 4D 4F 45 54 20 54 55 53 53 |..... "MOET TUSS|
00000290: 45 4E 20 31 20 45 4E 20 22 3B 53 22 5A 49 4A 4E |EN 1 EN ";S"ZIJN|
000002A0: 22 3A 89 20 36 31 30 00 00 00 |":. 610... |
....... SEQUENCE.......8.... **** VAN DE
PET USERS GROUP.U.... **** SOFTWARE EXC
HANGE.L.... **** POSTBUS 371...... ****
MOTGOMMERVILLE, PA 18936 USA....... ....
...2.. A$(26).Q.D.Z$."ABCDEFGHIJKLMNOPQR
STUVWXYZ"...N.ZI$."123456789012345678901
23456".1.H.. "...LENGTE VAN DE STRING DI
E AFGEZOCHT MOET WORDEN.".S.... "MAXIMUM
LENGTE IS 26 ";S$.H.... S$.."26" . 200
.P...S.S.~.,.. I.1 . S...6.A$(1).J(Z$,I,
1)...@.. I...... RANDOMIZE STRING......
I.1 . 5.Q...K..(.(1).S.1).....T$.A$(K)..
.B.A$(I).A$(K)...L.A$(K).T$...V.....S.T.
0.!.X.. KEER SUBSTRING OM./.].T.T.1:. T.
P.B.."HOEVEEL KEER OMDRAAIEN";R$.C.L.. R
$."0" . 900..V.. R$."0" .R$.."S" . 650.
..... "MOET TUSSEN 1 EN ";S"ZIJN":. 610.
..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL