DEMO 2/VIC
FILE INFORMATION
FILENAME(S): DEMO 2/VIC
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-10-19 22:48:38
APPEARS ON: 1 disk(s)
FILE HASH
afd9984cb43d17822e08cd8519786d7c00ba3cc1f42e9f301b2d291f376c43fc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE FEB 86 | DEMO 2/VIC | PRG | Radd Maxx | 8 | 7 | 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 3B 08 6E 00 4E 55 B2 37 00 56 08 78 00 |:..;.n.NU.7.V.x.| 00000040: 56 31 B2 31 3A 56 32 B2 32 3A 43 4F B2 36 34 36 |V1.1:V2.2:CO.646| 00000050: 3A 48 49 B2 32 38 00 67 08 8C 00 97 56 31 2C 30 |:HI.28.g....V1,0| 00000060: 3A 97 56 32 2C 48 49 00 9F 08 96 00 8F 20 2A 2A |:.V2,HI...... **| 00000070: 20 43 48 41 4E 47 45 20 54 48 45 53 45 20 56 41 | CHANGE THESE VA| 00000080: 4C 55 45 53 20 54 4F 20 43 48 41 4E 47 45 20 54 |LUES TO CHANGE T| 00000090: 48 45 20 42 4C 49 4E 4B 20 43 4F 4C 4F 52 53 00 |HE BLINK COLORS.| 000000A0: AB 08 A0 00 86 43 54 28 4E 55 29 00 C4 08 AA 00 |.....CT(NU).....| 000000B0: 81 49 B2 30 A4 4E 55 3A 43 54 28 49 29 B2 4E 55 |.I.0.NU:CT(I).NU| 000000C0: AB 49 3A 82 00 09 09 B4 00 8F 20 2A 2A 20 55 53 |.I:....... ** US| 000000D0: 52 28 29 20 49 53 20 41 54 20 24 43 30 30 30 20 |R() IS AT $C000 | 000000E0: 46 4F 52 20 36 34 2C 20 24 33 43 30 30 20 46 4F |FOR 64, $3C00 FO| 000000F0: 52 20 2B 34 2F 31 36 2C 20 24 31 43 30 30 20 46 |R +4/16, $1C00 F| 00000100: 4F 52 20 56 49 43 20 2A 2A 00 2B 09 BE 00 53 44 |OR VIC **.+...SD| 00000110: B2 31 36 33 38 34 3A 20 8F 20 2A 2A 20 53 45 54 |.16384: . ** SET| 00000120: 20 44 45 4C 41 59 20 46 4C 41 47 00 4C 09 C8 00 | DELAY FLAG.L...| 00000130: 44 42 B2 38 31 39 32 20 3A 20 8F 20 2A 2A 20 44 |DB.8192 : . ** D| 00000140: 49 53 41 42 4C 45 20 42 4C 49 4E 4B 00 6C 09 D2 |ISABLE BLINK.l..| 00000150: 00 45 42 B2 34 30 39 36 20 3A 20 8F 20 2A 2A 20 |.EB.4096 : . ** | 00000160: 45 4E 41 42 4C 45 20 42 4C 49 4E 4B 00 98 09 DC |ENABLE BLINK....| 00000170: 00 53 42 B2 32 30 34 38 20 3A 20 8F 20 2A 2A 20 |.SB.2048 : . ** | 00000180: 53 54 4F 50 20 43 4F 4C 4F 52 20 46 52 4F 4D 20 |STOP COLOR FROM | 00000190: 42 4C 49 4E 4B 49 4E 47 00 C3 09 E6 00 4D 42 B2 |BLINKING.....MB.| 000001A0: 31 30 32 34 20 3A 20 8F 20 2A 2A 20 4D 41 4B 45 |1024 : . ** MAKE| 000001B0: 20 43 4F 4C 4F 52 20 53 54 41 52 54 20 42 4C 49 | COLOR START BLI| 000001C0: 4E 4B 47 00 F5 09 F0 00 56 42 B2 35 31 32 20 20 |NKG.....VB.512 | 000001D0: 3A 20 8F 20 2A 2A 20 52 45 54 55 52 4E 20 56 41 |: . ** RETURN VA| 000001E0: 4C 55 45 20 4F 46 20 42 4C 49 4E 4B 49 4E 47 20 |LUE OF BLINKING | 000001F0: 43 4F 4C 4F 52 00 26 0A FA 00 52 43 B2 32 35 36 |COLOR.&...RC.256| 00000200: 20 20 3A 20 8F 20 2A 2A 20 52 45 53 45 54 20 41 | : . ** RESET A| 00000210: 4C 4C 20 43 4F 4C 4F 52 53 2D 4E 4E 4F 20 42 4C |LL COLORS-NNO BL| 00000220: 49 4E 4B 49 4E 47 00 49 0A 04 01 8F 20 2A 2A 2A |INKING.I.... ***| 00000230: 20 4E 4F 57 20 57 45 20 44 45 4D 4F 4E 53 54 52 | NOW WE DEMONSTR| 00000240: 41 54 45 20 42 4C 49 4E 4B 00 78 0A 0E 01 58 B2 |ATE BLINK.x...X.| 00000250: B7 28 44 42 29 3A 20 8F 20 2A 2A 20 4D 55 53 54 |.(DB): . ** MUST| 00000260: 20 44 49 53 41 42 4C 45 20 42 4C 49 4E 4B 4D 4F | DISABLE BLINKMO| 00000270: 44 45 20 46 49 52 53 54 00 81 0A 18 01 99 22 93 |DE FIRST......".| 00000280: 22 00 AF 0A 22 01 97 35 33 32 38 30 2C 30 3A 97 |"..."..53280,0:.| 00000290: 35 33 32 38 31 2C 30 3A 8F 20 4D 41 4B 45 20 42 |53281,0:. MAKE B| 000002A0: 41 43 4B 47 52 4F 55 4E 44 20 42 4C 41 43 4B 00 |ACKGROUND BLACK.| 000002B0: E5 0A 2C 01 8F 20 46 4F 52 20 2B 34 2F 31 36 20 |..,.. FOR +4/16 | 000002C0: 2D 20 43 4F 4C 4F 52 20 30 2C 31 2C 37 3A 43 4F |- COLOR 0,1,7:CO| 000002D0: 4C 4F 52 20 34 2C 31 2C 37 20 49 4E 20 4C 49 4E |LOR 4,1,7 IN LIN| 000002E0: 45 20 32 39 30 00 0D 0B 36 01 8F 20 46 4F 52 20 |E 290...6.. FOR | 000002F0: 56 49 43 20 2D 20 50 4F 4B 45 33 36 38 37 39 2C |VIC - POKE36879,| 00000300: 38 20 49 4E 20 4C 49 4E 45 20 32 39 30 00 35 0B |8 IN LINE 290.5.| 00000310: 40 01 81 20 4C B2 30 20 A4 20 4E 55 3A 20 8F 20 |@.. L.0 . NU: . | 00000320: 2A 2A 20 53 45 54 20 41 4C 4C 20 54 48 45 20 43 |** SET ALL THE C| 00000330: 4F 4C 4F 52 53 00 42 0B 4A 01 43 4C B2 43 54 28 |OLORS.B.J.CL.CT(| 00000340: 4C 29 00 78 0B 54 01 58 B2 B7 28 4D 42 AA 28 43 |L).x.T.X..(MB.(C| 00000350: 4C AC 31 36 29 AA 4C 29 3A 20 8F 20 2A 2A 20 53 |L.16).L): . ** S| 00000360: 45 54 20 54 48 45 20 43 4F 4C 4F 52 20 54 4F 20 |ET THE COLOR TO | 00000370: 42 4C 49 4E 4B 20 54 4F 00 A1 0B 5E 01 97 43 4F |BLINK TO...^..CO| 00000380: 2C 4C 3A 8F 20 2A 2A 20 43 48 41 4E 47 45 20 43 |,L:. ** CHANGE C| 00000390: 55 52 52 45 4E 54 20 43 4F 4C 4F 52 20 54 4F 20 |URRENT COLOR TO | 000003A0: 58 00 BD 0B 68 01 99 22 42 4C 49 4E 4B 49 4E 47 |X...h.."BLINKING| 000003B0: 20 46 52 4F 4D 22 4C 22 54 4F 22 43 4C 00 C5 0B | FROM"L"TO"CL...| 000003C0: 72 01 82 20 4C 00 F0 0B 7C 01 58 B2 B7 28 53 44 |r.. L...|.X..(SD| 000003D0: AA 36 30 29 3A 20 8F 20 2A 20 53 45 54 20 42 4C |.60): . * SET BL| 000003E0: 49 4E 4B 20 46 4F 52 20 31 20 53 45 43 4F 4E 44 |INK FOR 1 SECOND| 000003F0: 00 0C 0C 86 01 99 3A 99 22 48 49 54 20 41 20 4B |......:."HIT A K| 00000400: 45 59 20 54 4F 20 53 54 41 52 54 22 00 20 0C 90 |EY TO START". ..| 00000410: 01 A1 41 24 3A 8B 41 24 B2 22 22 20 A7 34 30 30 |..A$:.A$."" .400| 00000420: 00 2C 0C 9A 01 58 B2 B7 28 45 42 29 00 32 0C A4 |.,...X..(EB).2..| 00000430: 01 80 00 00 00 |..... |
....C..A.0.A.1:."VBLINKOBJ",8,1.2.D..56, 28:.55,0:..;.N.NU.7.V.X.V1.1:V2.2:CO.646 :HI.28.G....V1,0:.V2,HI...... ** CHANGE THESE VALUES TO CHANGE THE BLINK COLORS. .. ..CT(NU).D....I.0.NU:CT(I).NU.I:..... .. ** USR() IS AT $C000 FOR 64, $3C00 FO R +4/16, $1C00 FOR VIC **.+...SD.16384: . ** SET DELAY FLAG.L.H.DB.8192 : . ** D ISABLE BLINK.L.R.EB.4096 : . ** ENABLE B LINK.....SB.2048 : . ** STOP COLOR FROM BLINKING.C...MB.1024 : . ** MAKE COLOR S TART BLINKG.....VB.512 : . ** RETURN VA LUE OF BLINKING COLOR.&...RC.256 : . ** RESET ALL COLORS-NNO BLINKING.I.... *** NOW WE DEMONSTRATE BLINK.X...X..(DB): . ** MUST DISABLE BLINKMODE FIRST......". "..."..53280,0:.53281,0:. MAKE BACKGROUN D BLACK...,.. FOR +4/16 - COLOR 0,1,7:CO LOR 4,1,7 IN LINE 290...6.. FOR VIC - PO KE36879,8 IN LINE 290.5.@.. L.0 . NU: . ** SET ALL THE COLORS.B.J.CL.CT(L).X.T.X ..(MB.(CL.16).L): . ** SET THE COLOR TO BLINK TO...^..CO,L:. ** CHANGE CURRENT C OLOR TO X...H.."BLINKING FROM"L"TO"CL.E. R.. L...|.X..(SD.60): . * SET BLINK FOR 1 SECOND......:."HIT A KEY TO START". .. ..A$:.A$."" .400.,...X..(EB).2.......
> CLICK IMAGE PREVIEW FOR FULL MODAL