DEMO 1/VIC

FILE INFORMATION

FILENAME(S): DEMO 1/VIC

FILE TYPE(S): PRG

FILE SIZE: 1.6K

FIRST SEEN: 2025-10-19 22:48:38

APPEARS ON: 1 disk(s)

FILE HASH

3a75b77d72a496bc318671a2e91c0790b82f5c7375d5167798d4bb9d730fc8b6

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GAZETTE FEB 86	DEMO 1/VIC	PRG	Radd Maxx	8	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 1F 08 63 00 8B 41  B2 30 A7 41 B2 31 3A 93  |....c..A.0.A.1:.|
00000010: 22 56 42 4C 49 4E 4B 4F  42 4A 22 2C 38 2C 31 00  |"VBLINKOBJ",8,1.|
00000020: 32 08 64 00 97 35 36 2C  32 38 3A 97 35 35 2C 30  |2.d..56,28:.55,0|
00000030: 3A 9C 00 4D 08 6E 00 56  31 B2 31 3A 56 32 B2 32  |:..M.n.V1.1:V2.2|
00000040: 3A 43 4F B2 36 34 36 3A  48 49 B2 32 38 00 5E 08  |:CO.646:HI.28.^.|
00000050: 82 00 97 56 31 2C 30 3A  97 56 32 2C 48 49 00 9F  |...V1,0:.V2,HI..|
00000060: 08 8C 00 8F 20 2A 2A 20  55 53 52 28 29 20 49 53  |.... ** USR() IS|
00000070: 20 41 54 20 24 43 30 30  30 2C 20 24 33 43 30 30  | AT $C000, $3C00|
00000080: 20 4F 4E 20 54 48 45 20  2B 34 2F 31 36 2C 20 24  | ON THE +4/16, $|
00000090: 31 43 30 30 20 46 4F 52  20 56 49 43 20 2A 2A 00  |1C00 FOR VIC **.|
000000A0: C1 08 96 00 53 44 B2 31  36 33 38 34 3A 20 8F 20  |....SD.16384: . |
000000B0: 2A 2A 20 53 45 54 20 44  45 4C 41 59 20 46 4C 41  |** SET DELAY FLA|
000000C0: 47 00 E2 08 A0 00 44 42  B2 38 31 39 32 20 3A 20  |G.....DB.8192 : |
000000D0: 8F 20 2A 2A 20 44 49 53  41 42 4C 45 20 42 4C 49  |. ** DISABLE BLI|
000000E0: 4E 4B 00 02 09 AA 00 45  42 B2 34 30 39 36 20 3A  |NK.....EB.4096 :|
000000F0: 20 8F 20 2A 2A 20 45 4E  41 42 4C 45 20 42 4C 49  | . ** ENABLE BLI|
00000100: 4E 4B 00 2E 09 B4 00 53  42 B2 32 30 34 38 20 3A  |NK.....SB.2048 :|
00000110: 20 8F 20 2A 2A 20 53 54  4F 50 20 43 4F 4C 4F 52  | . ** STOP COLOR|
00000120: 20 46 52 4F 4D 20 42 4C  49 4E 4B 49 4E 47 00 5B  | FROM BLINKING.[|
00000130: 09 BE 00 4D 42 B2 31 30  32 34 20 3A 20 8F 20 2A  |...MB.1024 : . *|
00000140: 2A 20 4D 41 4B 45 20 43  4F 4C 4F 52 20 53 54 41  |* MAKE COLOR STA|
00000150: 52 54 20 42 4C 49 4E 4B  49 4E 47 00 8D 09 C8 00  |RT BLINKING.....|
00000160: 56 42 B2 35 31 32 20 20  3A 20 8F 20 2A 2A 20 52  |VB.512  : . ** R|
00000170: 45 54 55 52 4E 20 56 41  4C 55 45 20 4F 46 20 42  |ETURN VALUE OF B|
00000180: 4C 49 4E 4B 49 4E 47 20  43 4F 4C 4F 52 00 BD 09  |LINKING COLOR...|
00000190: D2 00 52 43 B2 32 35 36  20 20 3A 20 8F 20 2A 2A  |..RC.256  : . **|
000001A0: 20 52 45 53 45 54 20 41  4C 4C 20 43 4F 4C 4F 52  | RESET ALL COLOR|
000001B0: 53 2D 4E 4F 20 42 4C 49  4E 4B 49 4E 47 00 E0 09  |S-NO BLINKING...|
000001C0: DC 00 8F 20 2A 2A 2A 20  4E 4F 57 20 57 45 20 44  |... *** NOW WE D|
000001D0: 45 4D 4F 4E 53 54 52 41  54 45 20 42 4C 49 4E 4B  |EMONSTRATE BLINK|
000001E0: 00 19 0A E6 00 52 44 24  B2 22 DD 90 2A 2A 2A 2A  |.....RD$."..****|
000001F0: 20 52 45 44 20 2A 2A 2A  2A 1F DD 22 3A 47 52 24  | RED ****..":GR$|
00000200: B2 22 DD 90 2A 2A 2A 20  47 52 45 45 4E 20 2A 2A  |."..*** GREEN **|
00000210: 2A 1F DD 22 3A 99 22 93  22 00 26 0A F0 00 97 33  |*..":.".".&....3|
00000220: 36 38 37 39 2C 38 00 54  0A 0E 01 58 B2 B7 28 45  |6879,8.T...X..(E|
00000230: 42 29 3A 8B 20 58 B2 30  20 A7 35 33 30 3A 20 8F  |B):. X.0 .530: .|
00000240: 20 2A 2A 20 45 4E 41 42  4C 45 20 42 4C 49 4E 4B  | ** ENABLE BLINK|
00000250: 4D 4F 44 45 00 5F 0A 18  01 43 24 B2 52 44 24 00  |MODE._...C$.RD$.|
00000260: 68 0A 22 01 8D 34 35 30  00 96 0A 2C 01 58 B2 B7  |h."..450...,.X..|
00000270: 28 4D 42 AA 28 31 36 AC  32 29 AA 30 29 3A 8F 20  |(MB.(16.2).0):. |
00000280: 2A 2A 20 42 4C 41 43 4B  20 42 4C 49 4E 4B 53 20  |** BLACK BLINKS |
00000290: 54 4F 20 52 45 44 00 C4  0A 36 01 58 B2 B7 28 4D  |TO RED...6.X..(M|
000002A0: 42 AA 28 31 36 AC 33 29  AA 31 29 3A 8F 20 2A 20  |B.(16.3).1):. * |
000002B0: 57 48 49 54 45 20 42 4C  49 4E 4B 53 20 54 4F 20  |WHITE BLINKS TO |
000002C0: 43 59 41 4E 00 FA 0A 40  01 58 B2 B7 28 4D 42 AA  |CYAN...@.X..(MB.|
000002D0: 28 31 36 AC 37 29 AA 34  29 3A 8F 20 2A 2A 20 4D  |(16.7).4):. ** M|
000002E0: 41 4B 45 20 50 55 52 50  4C 45 20 42 4C 49 4E 4B  |AKE PURPLE BLINK|
000002F0: 20 54 4F 20 59 45 4C 4C  4F 57 00 1F 0B 4A 01 58  | TO YELLOW...J.X|
00000300: B2 B7 28 53 44 AA 31 34  29 3A 20 8F 20 2A 2A 20  |..(SD.14): . ** |
00000310: 53 45 54 20 42 4C 49 4E  4B 20 53 50 45 45 44 00  |SET BLINK SPEED.|
00000320: 3D 0B 54 01 99 3A 99 22  9C 20 20 20 2A 2A 2A 20  |=.T..:.".   *** |
00000330: 57 41 52 4E 49 4E 47 20  2A 2A 2A 20 22 00 5B 0B  |WARNING *** ".[.|
00000340: 5E 01 99 3A 99 22 05 48  49 54 20 41 20 4B 45 59  |^..:.".HIT A KEY|
00000350: 20 54 4F 20 43 48 41 4E  47 45 22 00 64 0B 68 01  | TO CHANGE".d.h.|
00000360: 8D 35 33 30 00 98 0B 72  01 58 B2 B7 28 53 42 AA  |.530...r.X..(SB.|
00000370: 30 29 3A 8F 20 2A 2A 20  20 53 54 4F 50 20 42 4C  |0):. **  STOP BL|
00000380: 41 43 4B 20 46 52 4F 4D  20 42 4C 49 4E 4B 49 4E  |ACK FROM BLINKIN|
00000390: 47 20 54 4F 20 52 45 44  00 CE 0B 7C 01 58 B2 B7  |G TO RED...|.X..|
000003A0: 28 56 42 AA 30 29 3A 8B  20 58 B3 B1 30 20 A7 33  |(VB.0):. X..0 .3|
000003B0: 38 30 3A 8F 20 2A 2A 20  57 41 49 54 20 55 4E 54  |80:. ** WAIT UNT|
000003C0: 49 4C 20 42 4C 41 43 4B  20 52 45 53 45 54 00 01  |IL BLACK RESET..|
000003D0: 0C 86 01 58 B2 B7 28 4D  42 AA 28 31 36 AC 35 29  |...X..(MB.(16.5)|
000003E0: AA 30 29 3A 8F 20 2A 2A  20 4E 4F 57 20 42 4C 49  |.0):. ** NOW BLI|
000003F0: 4E 4B 20 42 4C 41 43 4B  20 54 4F 20 47 52 45 45  |NK BLACK TO GREE|
00000400: 4E 00 11 0C 90 01 43 24  B2 47 52 24 3A 8D 34 35  |N.....C$.GR$:.45|
00000410: 30 00 1A 0C 9A 01 8D 35  33 30 00 50 0C A4 01 58  |0......530.P...X|
00000420: B2 B7 28 53 42 AA 30 29  3A 8F 20 2A 2A 20 20 53  |..(SB.0):. **  S|
00000430: 54 4F 50 20 42 4C 41 43  4B 20 46 52 4F 4D 20 42  |TOP BLACK FROM B|
00000440: 4C 49 4E 4B 49 4E 47 20  54 4F 20 47 52 45 45 4E  |LINKING TO GREEN|
00000450: 00 86 0C AE 01 58 B2 B7  28 56 42 AA 30 29 3A 8B  |.....X..(VB.0):.|
00000460: 20 58 B3 B1 30 20 A7 34  33 30 3A 8F 20 2A 2A 20  | X..0 .430:. ** |
00000470: 57 41 49 54 20 55 4E 54  49 4C 20 42 4C 41 43 4B  |WAIT UNTIL BLACK|
00000480: 20 52 45 53 45 54 00 8F  0C B8 01 89 32 38 30 00  | RESET......280.|
00000490: B0 0C C2 01 99 22 13 05  41 54 54 45 4E 54 49 4F  |....."..ATTENTIO|
000004A0: 4E 20 2D 20 41 54 54 45  4E 54 49 4F 4E 22 3A 99  |N - ATTENTION":.|
000004B0: 00 CC 0C CC 01 99 22 90  20 20 20 43 4F 4E 44 49  |......".   CONDI|
000004C0: 54 49 4F 4E 20 20 43 4F  44 45 20 22 00 E8 0C D6  |TION  CODE "....|
000004D0: 01 99 22 1F 20 20 20 D5  C0 C0 C0 C0 C0 C0 C0 C0  |..".   .........|
000004E0: C0 C0 C0 C0 C0 C9 20 22  00 04 0D E0 01 99 22 1F  |...... "......".|
000004F0: 20 20 20 DD 20 20 20 20  20 20 20 20 20 20 20 20  |   .            |
00000500: 20 DD 20 22 00 11 0D EA  01 99 22 20 20 20 22 43  | . "......"   "C|
00000510: 24 00 2D 0D F4 01 99 22  1F 20 20 20 DD 20 20 20  |$.-....".   .   |
00000520: 20 20 20 20 20 20 20 20  20 20 DD 20 22 00 49 0D  |          . ".I.|
00000530: FE 01 99 22 1F 20 20 20  CA C0 C0 C0 C0 C0 C0 C0  |...".   ........|
00000540: C0 C0 C0 C0 C0 C0 CB 20  22 00 4F 0D 08 02 8E 00  |....... ".O.....|
00000550: 5F 0D 12 02 54 58 B2 31  30 3A 54 59 B2 32 30 00  |_...TX.10:TY.20.|
00000560: A0 0D 1C 02 A1 20 41 24  3A 54 59 B2 54 59 AB 31  |..... A$:TY.TY.1|
00000570: 3A 8B 20 54 59 B3 30 20  A7 20 54 59 B2 32 30 3A  |:. TY.0 . TY.20:|
00000580: 58 B2 B7 28 53 44 AA 54  58 29 3A 54 58 B2 54 58  |X..(SD.TX):TX.TX|
00000590: AB 31 3A 8B 20 54 58 B2  30 20 A7 20 54 58 B2 31  |.1:. TX.0 . TX.1|
000005A0: 00 C4 0D 26 02 43 54 24  B2 22 20 22 3A 8B 20 54  |...&.CT$." ":. T|
000005B0: 58 AD 32 B2 B5 28 54 58  AD 32 29 A7 20 43 54 24  |X.2..(TX.2). CT$|
000005C0: B2 22 D1 22 00 DD 0D 30  02 99 22 13 11 11 11 11  |."."...0..".....|
000005D0: 11 11 11 11 11 11 11 11  11 11 11 11 22 00 18 0E  |............"...|
000005E0: 3A 02 58 B2 B7 28 56 42  AA 30 29 3A 8F 20 2A 2A  |:.X..(VB.0):. **|
000005F0: 20 4E 4F 57 20 46 49 4E  44 20 54 48 45 20 43 4F  | NOW FIND THE CO|
00000600: 4C 4F 52 20 42 4C 41 43  4B 20 49 53 20 42 4C 49  |LOR BLACK IS BLI|
00000610: 4E 4B 49 4E 47 20 54 4F  00 58 0E 44 02 97 43 4F  |NKING TO.X.D..CO|
00000620: 2C 58 3A 8F 20 2A 2A 20  43 48 41 4E 47 45 20 43  |,X:. ** CHANGE C|
00000630: 55 52 52 45 4E 54 20 43  48 41 52 41 43 54 45 52  |URRENT CHARACTER|
00000640: 20 43 4F 4C 4F 52 20 54  4F 20 42 4C 49 4E 4B 49  | COLOR TO BLINKI|
00000650: 4E 47 20 43 4F 4C 4F 52  00 67 0E 4E 02 99 A3 54  |NG COLOR.g.N...T|
00000660: 59 29 3B 43 54 24 3B 00  78 0E 58 02 8B 20 41 24  |Y);CT$;.x.X.. A$|
00000670: B2 22 22 20 A7 35 34 30  00 89 0E 62 02 58 B2 B7  |."" .540...b.X..|
00000680: 28 53 44 AA 31 34 29 3A  8E 00 00 00              |(SD.14):....    |

....C..A.0.A.1:."VBLINKOBJ",8,1.2.D..56,
28:.55,0:..M.N.V1.1:V2.2:CO.646:HI.28.^.
...V1,0:.V2,HI...... ** USR() IS AT $C00
0, $3C00 ON THE +4/16, $1C00 FOR VIC **.
A...SD.16384: . ** SET DELAY FLAG... .DB
.8192 : . ** DISABLE BLINK.....EB.4096 :
 . ** ENABLE BLINK.....SB.2048 : . ** ST
OP COLOR FROM BLINKING.[...MB.1024 : . *
* MAKE COLOR START BLINKING...H.VB.512  
: . ** RETURN VALUE OF BLINKING COLOR...
R.RC.256  : . ** RESET ALL COLORS-NO BLI
NKING...... *** NOW WE DEMONSTRATE BLINK
.....RD$."..**** RED ****..":GR$."..*** 
GREEN ***..":.".".&....36879,8.T...X..(E
B):. X.0 .530: . ** ENABLE BLINKMODE._..
.C$.RD$.H."..450...,.X..(MB.(16.2).0):. 
** BLACK BLINKS TO RED.D.6.X..(MB.(16.3)
.1):. * WHITE BLINKS TO CYAN...@.X..(MB.
(16.7).4):. ** MAKE PURPLE BLINK TO YELL
OW...J.X..(SD.14): . ** SET BLINK SPEED.
=.T..:.".   *** WARNING *** ".[.^..:.".H
IT A KEY TO CHANGE".D.H..530...R.X..(SB.
0):. **  STOP BLACK FROM BLINKING TO RED
.N.|.X..(VB.0):. X..0 .380:. ** WAIT UNT
IL BLACK RESET.....X..(MB.(16.5).0):. **
 NOW BLINK BLACK TO GREEN.....C$.GR$:.45
0......530.P...X..(SB.0):. **  STOP BLAC
K FROM BLINKING TO GREEN.....X..(VB.0):.
 X..0 .430:. ** WAIT UNTIL BLACK RESET..
....280...B.."..ATTENTION - ATTENTION":.
.L.L..".   CONDITION  CODE "...V..".   U
.............I "......".   .            
 . "......"   "C$.-....".   .           
  . ".I....".   J.............K ".O.....
_...TX.10:TY.20. .... A$:TY.TY.1:. TY.0 
. TY.20:X..(SD.TX):TX.TX.1:. TX.0 . TX.1
.D.&.CT$." ":. TX.2..(TX.2). CT$."Q"...0
.."................."...:.X..(VB.0):. **
 NOW FIND THE COLOR BLACK IS BLINKING TO
.X.D..CO,X:. ** CHANGE CURRENT CHARACTER
 COLOR TO BLINKING COLOR.G.N...TY);CT$;.
X.X.. A$."" .540...B.X..(SD.14):....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL