4-15
FILE INFORMATION
FILENAME(S): 4-15
FILE TYPE(S): PRG
FILE SIZE: 733b
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
9913a97502c3242e2be5268761b832920cb648736f3d37bc6a01f5ba866c5074
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 4-15 | PRG | DuncanTwain | 16 | 1 | DOWNLOAD FILE |
| PROG 64 WEST | 4-15 | PRG | DuncanTwain | 16 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 00 00 8F 20 20 20 20 2A 2A 2A 20 53 |..'.... *** S|
00000010: 48 55 46 46 4C 45 20 43 41 52 44 53 20 46 4F 52 |HUFFLE CARDS FOR|
00000020: 20 36 34 20 2A 2A 2A 00 2D 08 01 00 3A 00 56 08 | 64 ***.-...:.V.|
00000030: 0A 00 97 20 35 33 32 38 30 2C 31 3A 20 97 20 35 |... 53280,1: . 5|
00000040: 33 32 38 31 2C 31 3A 20 8F 20 57 48 49 54 45 20 |3281,1: . WHITE |
00000050: 53 43 52 45 45 4E 00 89 08 63 00 8F 20 2A 2A 20 |SCREEN...c.. ** |
00000060: 53 45 54 20 55 50 2C 20 54 48 45 4E 20 53 48 55 |SET UP, THEN SHU|
00000070: 46 46 4C 45 2C 20 4E 55 4D 42 45 52 53 20 31 20 |FFLE, NUMBERS 1 |
00000080: 54 48 52 55 20 35 32 3A 2D 00 AC 08 64 00 86 20 |THRU 52:-...d.. |
00000090: 53 28 35 32 29 3A 20 81 20 4A B2 31 20 A4 20 35 |S(52): . J.1 . 5|
000000A0: 32 3A 20 53 28 4A 29 B2 4A 3A 20 82 00 D2 08 6B |2: S(J).J: ....k|
000000B0: 00 8F 20 2A 2A 20 53 48 55 46 46 4C 45 20 57 4F |.. ** SHUFFLE WO|
000000C0: 52 4B 53 20 42 59 20 45 58 43 48 41 4E 47 49 4E |RKS BY EXCHANGIN|
000000D0: 47 3B 00 FE 08 6C 00 8F 20 2A 2A 20 41 54 20 45 |G;...l.. ** AT E|
000000E0: 41 43 48 20 53 54 41 47 45 20 52 45 4D 41 49 4E |ACH STAGE REMAIN|
000000F0: 49 4E 47 20 43 41 52 44 53 20 48 41 56 45 00 2B |ING CARDS HAVE.+|
00000100: 09 6D 00 8F 20 2A 2A 20 41 4E 20 45 51 55 41 4C |.m.. ** AN EQUAL|
00000110: 20 43 4E 41 4E 43 45 20 4F 46 20 42 45 49 4E 47 | CNANCE OF BEING|
00000120: 20 53 45 4C 45 43 54 45 44 3A 2D 00 3A 09 6E 00 | SELECTED:-.:.n.|
00000130: 81 20 4A B2 31 20 A4 20 35 31 00 56 09 78 00 4A |. J.1 . 51.V.x.J|
00000140: 25 20 B2 20 4A 20 AA 20 B5 28 BB 28 31 29 AC 28 |% . J . .(.(1).(|
00000150: 35 33 AB 4A 29 29 00 7C 09 82 00 54 45 4D 50 B2 |53.J)).|...TEMP.|
00000160: 53 28 4A 29 3A 20 53 28 4A 29 B2 53 28 4A 25 29 |S(J): S(J).S(J%)|
00000170: 3A 20 53 28 4A 25 29 B2 54 45 4D 50 00 82 09 8C |: S(J%).TEMP....|
00000180: 00 82 00 B6 09 2B 01 8F 20 20 2A 2A 20 43 4F 4E |.....+.. ** CON|
00000190: 56 45 52 54 20 31 2D 35 32 20 54 4F 20 53 55 49 |VERT 1-52 TO SUI|
000001A0: 54 3B 20 50 52 49 4E 54 20 49 54 20 49 4E 20 43 |T; PRINT IT IN C|
000001B0: 4F 4C 4F 52 3A 2D 00 C5 09 2C 01 81 20 4A B2 31 |OLOR:-...,.. J.1|
000001C0: 20 A4 20 35 32 00 D2 09 36 01 4E B2 53 28 4A 29 | . 52...6.N.S(J)|
000001D0: AB 31 00 E0 09 90 01 53 B2 B5 28 4E AD 31 33 29 |.1.....S..(N.13)|
000001E0: 00 FD 09 9A 01 99 20 CA 28 22 90 C1 1C D3 1C DA |...... .("......|
000001F0: 90 D8 22 2C 53 AC 32 AA 31 2C 32 29 3B 00 2B 0A |..",S.2.1,2);.+.|
00000200: F3 01 8F 20 20 2A 2A 20 50 52 49 4E 54 20 56 41 |... ** PRINT VA|
00000210: 4C 55 45 20 4F 46 20 43 41 52 44 20 49 4E 20 53 |LUE OF CARD IN S|
00000220: 41 4D 45 20 43 4F 4C 4F 52 3A 2D 00 40 0A F4 01 |AME COLOR:-.@...|
00000230: 56 B2 4E 20 AB 20 B5 28 4E AD 31 33 29 AC 31 33 |V.N . .(N.13).13|
00000240: 00 5D 0A FE 01 8B 20 56 B2 31 20 20 A7 20 99 20 |.].... V.1 . . |
00000250: 22 41 2C 20 22 3B 3A 20 89 20 36 30 30 00 7A 0A |"A, ";: . 600.z.|
00000260: 08 02 8B 20 56 B2 31 31 20 A7 20 99 20 22 4A 2C |... V.11 . . "J,|
00000270: 20 22 3B 3A 20 89 20 36 30 30 00 97 0A 12 02 8B | ";: . 600......|
00000280: 20 56 B2 31 32 20 A7 20 99 20 22 51 2C 20 22 3B | V.12 . . "Q, ";|
00000290: 3A 20 89 20 36 30 30 00 B4 0A 1C 02 8B 20 56 B2 |: . 600...... V.|
000002A0: 30 20 20 A7 20 99 20 22 4B 2C 20 22 3B 3A 20 89 |0 . . "K, ";: .|
000002B0: 20 36 30 30 00 D4 0A 26 02 99 20 CA 28 C4 28 56 | 600...&.. .(.(V|
000002C0: 29 2C 32 2C C3 28 C4 28 56 29 29 AB 31 29 22 90 |),2,.(.(V)).1)".|
000002D0: 2C 20 22 3B 00 DA 0A 58 02 82 00 00 00 |, ";...X..... |
..'.... *** SHUFFLE CARDS FOR 64 ***.
-...:.V.... 53280,1: . 53281,1: . WHITE
SCREEN...C.. ** SET UP, THEN SHUFFLE, NU
MBERS 1 THRU 52:-...D.. S(52): . J.1 . 5
2: S(J).J: ..R.K.. ** SHUFFLE WORKS BY E
XCHANGING;...L.. ** AT EACH STAGE REMAIN
ING CARDS HAVE.+.M.. ** AN EQUAL CNANCE
OF BEING SELECTED:-.:.N.. J.1 . 51.V.X.J
% . J . .(.(1).(53.J)).|...TEMP.S(J): S(
J).S(J%): S(J%).TEMP.........+.. ** CON
VERT 1-52 TO SUIT; PRINT IT IN COLOR:-.E
.,.. J.1 . 52.R.6.N.S(J).1.....S..(N.13)
...... J(".A.S.Z.X",S.2.1,2);.+.... **
PRINT VALUE OF CARD IN SAME COLOR:-.@...
V.N . .(N.13).13.].... V.1 . . "A, ";:
. 600.Z.... V.11 . . "J, ";: . 600......
V.12 . . "Q, ";: . 600...... V.0 . . "
K, ";: . 600.T.&.. J(D(V),2,C(D(V)).1)".
, ";.Z.X.....
> CLICK IMAGE PREVIEW FOR FULL MODAL