_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

DEALING CARDS.C

FILE INFORMATION

FILENAME(S): DEALING CARDS.C

FILE TYPE(S): PRG

FILE SIZE: 804b

FIRST SEEN: 2025-11-30 21:07:08

APPEARS ON: 1 disk(s)

FILE HASH

2aa57f3eb90dde776b0959fc6a85a4f2d49a70b1e19aafd42b2f54eef1a53814

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TPUGMORENOV842 C DEALING CARDS.C PRG DuncanTwain 2 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 21 08 0A 00 8F 20  2A 20 2A 20 53 4F 55 4E  |..!.... * * SOUN|
00000010: 44 20 50 52 4F 47 52 41  4D 20 46 4F 52 20 2A 20  |D PROGRAM FOR * |
00000020: 2A 00 42 08 14 00 8F 20  2A 20 2A 20 44 45 41 4C  |*.B.... * * DEAL|
00000030: 49 4E 47 20 43 41 52 44  53 20 4F 4E 54 4F 20 2A  |ING CARDS ONTO *|
00000040: 20 2A 00 60 08 1E 00 8F  20 2A 20 2A 20 41 20 53  | *.`.... * * A S|
00000050: 4F 4C 49 44 20 53 55 52  46 41 43 45 20 2A 20 2A  |OLID SURFACE * *|
00000060: 00 70 08 28 00 81 54 B2  31 A4 38 30 30 3A 82 54  |.p.(..T.1.800:.T|
00000070: 00 8C 08 32 00 56 B2 35  34 32 39 36 3A 57 B2 35  |...2.V.54296:W.5|
00000080: 34 32 37 36 3A 41 B2 35  34 32 37 37 00 A2 08 3C  |4276:A.54277...<|
00000090: 00 48 46 B2 35 34 32 37  33 3A 4C 46 B2 35 34 32  |.HF.54273:LF.542|
000000A0: 37 32 00 AD 08 46 00 81  59 B2 31 A4 37 00 C4 08  |72...F..Y.1.7...|
000000B0: 50 00 97 56 2C 31 35 3A  97 57 2C 31 32 39 3A 97  |P..V,15:.W,129:.|
000000C0: 41 2C 36 37 00 D7 08 5A  00 97 48 46 2C 37 30 3A  |A,67...Z..HF,70:|
000000D0: 97 4C 46 2C 31 32 35 00  E7 08 64 00 81 58 B2 31  |.LF,125...d..X.1|
000000E0: A4 36 30 30 3A 82 58 00  FC 08 6E 00 97 48 46 2C  |.600:.X...n..HF,|
000000F0: 30 3A 97 4C 46 2C 30 3A  97 57 2C 30 00 03 09 78  |0:.LF,0:.W,0...x|
00000100: 00 82 59 00 25 09 82 00  99 22 93 22 3A 97 35 33  |..Y.%....".":.53|
00000110: 32 38 30 2C 31 31 3A 97  35 33 32 38 31 2C 31 31  |280,11:.53281,11|
00000120: 3A 99 22 9B 22 00 53 09  8C 00 99 22 20 20 49 46  |:.".".S...."  IF|
00000130: 20 59 4F 55 20 4C 49 53  54 20 54 48 49 53 20 50  | YOU LIST THIS P|
00000140: 52 4F 47 52 41 4D 2C 20  59 4F 55 20 57 49 4C 4C  |ROGRAM, YOU WILL|
00000150: 22 3A 99 00 7D 09 96 00  99 22 20 20 53 45 45 20  |":..}...."  SEE |
00000160: 54 48 41 54 20 54 48 45  20 53 45 56 45 4E 20 43  |THAT THE SEVEN C|
00000170: 41 52 44 53 20 53 4F 55  4E 44 22 3A 99 00 AC 09  |ARDS SOUND":....|
00000180: A0 00 99 22 20 20 45 46  46 45 43 54 20 43 4F 4D  |..."  EFFECT COM|
00000190: 45 53 20 46 52 4F 4D 20  4C 49 4E 45 53 20 37 30  |ES FROM LINES 70|
000001A0: 20 41 4E 44 20 31 32 30  2E 22 3A 99 00 DC 09 AA  | AND 120.":.....|
000001B0: 00 99 22 20 20 49 4E 20  41 43 54 55 41 4C 20 55  |.."  IN ACTUAL U|
000001C0: 53 45 2C 20 52 45 4D 4F  56 45 20 54 48 45 53 45  |SE, REMOVE THESE|
000001D0: 20 54 57 4F 20 4C 49 4E  45 53 2C 22 00 0A 0A B4  | TWO LINES,"....|
000001E0: 00 99 22 20 20 41 4E 44  20 4D 41 4B 45 20 54 48  |.."  AND MAKE TH|
000001F0: 49 53 20 53 48 4F 52 54  20 50 52 4F 47 52 41 4D  |IS SHORT PROGRAM|
00000200: 20 41 20 53 55 42 2D 22  3A 99 00 39 0A BE 00 99  | A SUB-":..9....|
00000210: 22 20 20 52 4F 55 54 49  4E 45 20 54 48 41 54 20  |"  ROUTINE THAT |
00000220: 59 4F 55 20 43 41 4C 4C  20 55 50 20 41 46 54 45  |YOU CALL UP AFTE|
00000230: 52 20 45 41 43 48 22 3A  99 00 65 0A C8 00 99 22  |R EACH":..e...."|
00000240: 20 20 43 41 52 44 20 49  53 20 50 55 54 20 4F 4E  |  CARD IS PUT ON|
00000250: 20 54 48 45 20 53 43 52  45 45 4E 2E 20 20 54 48  | THE SCREEN.  TH|
00000260: 49 53 22 3A 99 00 8E 0A  D2 00 99 22 20 20 53 4F  |IS":......."  SO|
00000270: 55 4E 44 20 45 46 46 45  43 54 20 41 44 44 53 20  |UND EFFECT ADDS |
00000280: 52 45 41 4C 49 53 49 4D  20 54 4F 22 3A 99 00 B9  |REALISIM TO":...|
00000290: 0A DC 00 99 22 20 20 54  4F 20 59 4F 55 52 20 43  |...."  TO YOUR C|
000002A0: 41 52 44 20 47 41 4D 45  20 57 48 45 4E 20 44 45  |ARD GAME WHEN DE|
000002B0: 41 4C 49 4E 47 2E 22 3A  99 00 E7 0A E6 00 99 22  |ALING.":......."|
000002C0: 20 20 4F 4E 4C 59 20 4C  49 4E 45 53 20 35 30 2C  |  ONLY LINES 50,|
000002D0: 20 36 30 2C 20 38 30 2C  20 39 30 2C 20 31 30 30  | 60, 80, 90, 100|
000002E0: 20 41 4E 44 22 3A 99 00  10 0B F0 00 99 22 20 20  | AND":......."  |
000002F0: 31 31 30 20 41 52 45 20  4E 45 45 44 45 44 20 46  |110 ARE NEEDED F|
00000300: 4F 52 20 54 48 45 20 52  4F 55 54 49 4E 45 2E 22  |OR THE ROUTINE."|
00000310: 00 21 0B FA 00 81 54 B2  31 A4 38 30 30 30 3A 82  |.!....T.1.8000:.|
00000320: 54 00 00 00                                       |T...            |
..!.... * * SOUND PROGRAM FOR * *.B.... 
* * DEALING CARDS ONTO * *.`.... * * A S
OLID SURFACE * *.P.(..T.1.800:.T...2.V.5
4296:W.54276:A.54277...<.HF.54273:LF.542
72...F..Y.1.7.D.P..V,15:.W,129:.A,67.W.Z
..HF,70:.LF,125...D..X.1.600:.X...N..HF,
0:.LF,0:.W,0...X..Y.%....".":.53280,11:.
53281,11:.".".S...."  IF YOU LIST THIS P
ROGRAM, YOU WILL":..}...."  SEE THAT THE
 SEVEN CARDS SOUND":.... .."  EFFECT COM
ES FROM LINES 70 AND 120.":......."  IN 
ACTUAL USE, REMOVE THESE TWO LINES,"....
.."  AND MAKE THIS SHORT PROGRAM A SUB-"
:..9...."  ROUTINE THAT YOU CALL UP AFTE
R EACH":..E.H.."  CARD IS PUT ON THE SCR
EEN.  THIS":....R.."  SOUND EFFECT ADDS 
REALISIM TO":......."  TO YOUR CARD GAME
 WHEN DEALING.":......."  ONLY LINES 50,
 60, 80, 90, 100 AND":......."  110 ARE 
NEEDED FOR THE ROUTINE.".!....T.1.8000:.
T...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL