DEMO 1
FILE INFORMATION
FILENAME(S): DEMO 1
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-10-19 22:48:38
APPEARS ON: 1 disk(s)
FILE HASH
37f1d6cc11d15dd9b2ed390fa96ec6cbd9cbeec356b4f152ad58b87d4df32386
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE FEB 86 | DEMO 1 | PRG | Radd Maxx | 11 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 63 00 8B 41 B2 30 A7 41 B2 31 3A 93 |....c..A.0.A.1:.| 00000010: 22 42 4C 49 4E 4B 4F 42 4A 22 2C 38 2C 31 00 65 |"BLINKOBJ",8,1.e| 00000020: 08 64 00 8F 20 50 4F 4B 45 35 36 2C 32 38 3A 50 |.d.. POKE56,28:P| 00000030: 4F 4B 45 35 35 2C 30 3A 43 4C 52 20 46 4F 52 20 |OKE55,0:CLR FOR | 00000040: 56 49 43 2C 20 50 4F 4B 45 35 36 2C 36 30 3A 50 |VIC, POKE56,60:P| 00000050: 4F 4B 45 35 35 2C 30 3A 43 4C 52 20 46 4F 52 20 |OKE55,0:CLR FOR | 00000060: 2B 34 2F 31 36 00 B0 08 6E 00 56 31 B2 37 38 35 |+4/16...n.V1.785| 00000070: 3A 56 32 B2 37 38 36 3A 43 4F B2 36 34 36 3A 48 |:V2.786:CO.646:H| 00000080: 49 B2 31 39 32 3A 8F 20 46 4F 52 20 2B 34 2F 31 |I.192:. FOR +4/1| 00000090: 36 2C 20 56 31 3D 31 32 38 31 3A 56 32 3D 31 32 |6, V1=1281:V2=12| 000000A0: 38 32 3A 43 4F 3D 31 33 33 39 3A 48 49 3D 36 30 |82:CO=1339:HI=60| 000000B0: 00 D5 08 78 00 8F 20 46 4F 52 20 56 49 43 20 56 |...x.. FOR VIC V| 000000C0: 31 3D 31 3A 56 32 3D 32 3A 43 4F 3D 36 34 36 3A |1=1:V2=2:CO=646:| 000000D0: 48 49 3D 32 38 00 E6 08 82 00 97 56 31 2C 30 3A |HI=28......V1,0:| 000000E0: 97 56 32 2C 48 49 00 27 09 8C 00 8F 20 2A 2A 20 |.V2,HI.'.... ** | 000000F0: 55 53 52 28 29 20 49 53 20 41 54 20 24 43 30 30 |USR() IS AT $C00| 00000100: 30 2C 20 24 33 43 30 30 20 4F 4E 20 54 48 45 20 |0, $3C00 ON THE | 00000110: 2B 34 2F 31 36 2C 20 24 31 43 30 30 20 46 4F 52 |+4/16, $1C00 FOR| 00000120: 20 56 49 43 20 2A 2A 00 49 09 96 00 53 44 B2 31 | VIC **.I...SD.1| 00000130: 36 33 38 34 3A 20 8F 20 2A 2A 20 53 45 54 20 44 |6384: . ** SET D| 00000140: 45 4C 41 59 20 46 4C 41 47 00 6A 09 A0 00 44 42 |ELAY FLAG.j...DB| 00000150: B2 38 31 39 32 20 3A 20 8F 20 2A 2A 20 44 49 53 |.8192 : . ** DIS| 00000160: 41 42 4C 45 20 42 4C 49 4E 4B 00 8A 09 AA 00 45 |ABLE BLINK.....E| 00000170: 42 B2 34 30 39 36 20 3A 20 8F 20 2A 2A 20 45 4E |B.4096 : . ** EN| 00000180: 41 42 4C 45 20 42 4C 49 4E 4B 00 B6 09 B4 00 53 |ABLE BLINK.....S| 00000190: 42 B2 32 30 34 38 20 3A 20 8F 20 2A 2A 20 53 54 |B.2048 : . ** ST| 000001A0: 4F 50 20 43 4F 4C 4F 52 20 46 52 4F 4D 20 42 4C |OP COLOR FROM BL| 000001B0: 49 4E 4B 49 4E 47 00 E3 09 BE 00 4D 42 B2 31 30 |INKING.....MB.10| 000001C0: 32 34 20 3A 20 8F 20 2A 2A 20 4D 41 4B 45 20 43 |24 : . ** MAKE C| 000001D0: 4F 4C 4F 52 20 53 54 41 52 54 20 42 4C 49 4E 4B |OLOR START BLINK| 000001E0: 49 4E 47 00 15 0A C8 00 56 42 B2 35 31 32 20 20 |ING.....VB.512 | 000001F0: 3A 20 8F 20 2A 2A 20 52 45 54 55 52 4E 20 56 41 |: . ** RETURN VA| 00000200: 4C 55 45 20 4F 46 20 42 4C 49 4E 4B 49 4E 47 20 |LUE OF BLINKING | 00000210: 43 4F 4C 4F 52 00 45 0A D2 00 52 43 B2 32 35 36 |COLOR.E...RC.256| 00000220: 20 20 3A 20 8F 20 2A 2A 20 52 45 53 45 54 20 41 | : . ** RESET A| 00000230: 4C 4C 20 43 4F 4C 4F 52 53 2D 4E 4F 20 42 4C 49 |LL COLORS-NO BLI| 00000240: 4E 4B 49 4E 47 00 68 0A DC 00 8F 20 2A 2A 2A 20 |NKING.h.... *** | 00000250: 4E 4F 57 20 57 45 20 44 45 4D 4F 4E 53 54 52 41 |NOW WE DEMONSTRA| 00000260: 54 45 20 42 4C 49 4E 4B 00 A1 0A E6 00 52 44 24 |TE BLINK.....RD$| 00000270: B2 22 DD 90 2A 2A 2A 2A 20 52 45 44 20 2A 2A 2A |."..**** RED ***| 00000280: 2A 1F DD 22 3A 47 52 24 B2 22 DD 90 2A 2A 2A 20 |*..":GR$."..*** | 00000290: 47 52 45 45 4E 20 2A 2A 2A 1F DD 22 3A 99 22 93 |GREEN ***..":.".| 000002A0: 22 00 D1 0A F0 00 97 20 35 33 32 38 31 2C 30 3A |"...... 53281,0:| 000002B0: 97 20 35 33 32 38 30 2C 30 3A 8F 20 4D 41 4B 45 |. 53280,0:. MAKE| 000002C0: 20 42 41 43 4B 47 52 4F 55 4E 44 20 42 4C 41 43 | BACKGROUND BLAC| 000002D0: 4B 00 05 0B FA 00 8F 20 43 4F 4C 4F 52 20 30 2C |K...... COLOR 0,| 000002E0: 31 2C 37 3A 43 4F 4C 4F 52 20 34 2C 31 2C 37 20 |1,7:COLOR 4,1,7 | 000002F0: 46 4F 52 20 2B 34 2F 31 36 20 49 4E 20 4C 49 4E |FOR +4/16 IN LIN| 00000300: 45 20 32 34 30 00 2B 0B 04 01 8F 20 50 4F 4B 45 |E 240.+.... POKE| 00000310: 33 36 38 37 39 2C 38 20 46 4F 52 20 56 49 43 20 |36879,8 FOR VIC | 00000320: 49 4E 20 4C 49 4E 45 20 32 34 30 00 59 0B 0E 01 |IN LINE 240.Y...| 00000330: 58 B2 B7 28 45 42 29 3A 8B 20 58 B2 30 20 A7 35 |X..(EB):. X.0 .5| 00000340: 33 30 3A 20 8F 20 2A 2A 20 45 4E 41 42 4C 45 20 |30: . ** ENABLE | 00000350: 42 4C 49 4E 4B 4D 4F 44 45 00 64 0B 18 01 43 24 |BLINKMODE.d...C$| 00000360: B2 52 44 24 00 6D 0B 22 01 8D 34 35 30 00 9B 0B |.RD$.m."..450...| 00000370: 2C 01 58 B2 B7 28 4D 42 AA 28 31 36 AC 32 29 AA |,.X..(MB.(16.2).| 00000380: 30 29 3A 8F 20 2A 2A 20 42 4C 41 43 4B 20 42 4C |0):. ** BLACK BL| 00000390: 49 4E 4B 53 20 54 4F 20 52 45 44 00 C9 0B 36 01 |INKS TO RED...6.| 000003A0: 58 B2 B7 28 4D 42 AA 28 31 36 AC 33 29 AA 31 29 |X..(MB.(16.3).1)| 000003B0: 3A 8F 20 2A 20 57 48 49 54 45 20 42 4C 49 4E 4B |:. * WHITE BLINK| 000003C0: 53 20 54 4F 20 43 59 41 4E 00 FF 0B 40 01 58 B2 |S TO CYAN...@.X.| 000003D0: B7 28 4D 42 AA 28 31 36 AC 37 29 AA 34 29 3A 8F |.(MB.(16.7).4):.| 000003E0: 20 2A 2A 20 4D 41 4B 45 20 50 55 52 50 4C 45 20 | ** MAKE PURPLE | 000003F0: 42 4C 49 4E 4B 20 54 4F 20 59 45 4C 4C 4F 57 00 |BLINK TO YELLOW.| 00000400: 24 0C 4A 01 58 B2 B7 28 53 44 AA 31 34 29 3A 20 |$.J.X..(SD.14): | 00000410: 8F 20 2A 2A 20 53 45 54 20 42 4C 49 4E 4B 20 53 |. ** SET BLINK S| 00000420: 50 45 45 44 00 42 0C 54 01 99 3A 99 22 9C 20 20 |PEED.B.T..:.". | 00000430: 20 2A 2A 2A 20 57 41 52 4E 49 4E 47 20 2A 2A 2A | *** WARNING ***| 00000440: 20 22 00 60 0C 5E 01 99 3A 99 22 05 48 49 54 20 | ".`.^..:.".HIT | 00000450: 41 20 4B 45 59 20 54 4F 20 43 48 41 4E 47 45 22 |A KEY TO CHANGE"| 00000460: 00 69 0C 68 01 8D 35 33 30 00 9D 0C 72 01 58 B2 |.i.h..530...r.X.| 00000470: B7 28 53 42 AA 30 29 3A 8F 20 2A 2A 20 20 53 54 |.(SB.0):. ** ST| 00000480: 4F 50 20 42 4C 41 43 4B 20 46 52 4F 4D 20 42 4C |OP BLACK FROM BL| 00000490: 49 4E 4B 49 4E 47 20 54 4F 20 52 45 44 00 D3 0C |INKING TO RED...| 000004A0: 7C 01 58 B2 B7 28 56 42 AA 30 29 3A 8B 20 58 B3 ||.X..(VB.0):. X.| 000004B0: B1 30 20 A7 33 38 30 3A 8F 20 2A 2A 20 57 41 49 |.0 .380:. ** WAI| 000004C0: 54 20 55 4E 54 49 4C 20 42 4C 41 43 4B 20 52 45 |T UNTIL BLACK RE| 000004D0: 53 45 54 00 06 0D 86 01 58 B2 B7 28 4D 42 AA 28 |SET.....X..(MB.(| 000004E0: 31 36 AC 35 29 AA 30 29 3A 8F 20 2A 2A 20 4E 4F |16.5).0):. ** NO| 000004F0: 57 20 42 4C 49 4E 4B 20 42 4C 41 43 4B 20 54 4F |W BLINK BLACK TO| 00000500: 20 47 52 45 45 4E 00 16 0D 90 01 43 24 B2 47 52 | GREEN.....C$.GR| 00000510: 24 3A 8D 34 35 30 00 1F 0D 9A 01 8D 35 33 30 00 |$:.450......530.| 00000520: 55 0D A4 01 58 B2 B7 28 53 42 AA 30 29 3A 8F 20 |U...X..(SB.0):. | 00000530: 2A 2A 20 20 53 54 4F 50 20 42 4C 41 43 4B 20 46 |** STOP BLACK F| 00000540: 52 4F 4D 20 42 4C 49 4E 4B 49 4E 47 20 54 4F 20 |ROM BLINKING TO | 00000550: 47 52 45 45 4E 00 8B 0D AE 01 58 B2 B7 28 56 42 |GREEN.....X..(VB| 00000560: AA 30 29 3A 8B 20 58 B3 B1 30 20 A7 34 33 30 3A |.0):. X..0 .430:| 00000570: 8F 20 2A 2A 20 57 41 49 54 20 55 4E 54 49 4C 20 |. ** WAIT UNTIL | 00000580: 42 4C 41 43 4B 20 52 45 53 45 54 00 94 0D B8 01 |BLACK RESET.....| 00000590: 89 32 38 30 00 B5 0D C2 01 99 22 13 05 41 54 54 |.280......"..ATT| 000005A0: 45 4E 54 49 4F 4E 20 2D 20 41 54 54 45 4E 54 49 |ENTION - ATTENTI| 000005B0: 4F 4E 22 3A 99 00 D1 0D CC 01 99 22 90 20 20 20 |ON":.......". | 000005C0: 43 4F 4E 44 49 54 49 4F 4E 20 20 43 4F 44 45 20 |CONDITION CODE | 000005D0: 22 00 ED 0D D6 01 99 22 1F 20 20 20 D5 C0 C0 C0 |"......". ....| 000005E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 20 22 00 09 0E |........... "...| 000005F0: E0 01 99 22 1F 20 20 20 DD 20 20 20 20 20 20 20 |...". . | 00000600: 20 20 20 20 20 20 DD 20 22 00 16 0E EA 01 99 22 | . "......"| 00000610: 20 20 20 22 43 24 00 32 0E F4 01 99 22 1F 20 20 | "C$.2....". | 00000620: 20 DD 20 20 20 20 20 20 20 20 20 20 20 20 20 DD | . .| 00000630: 20 22 00 4E 0E FE 01 99 22 1F 20 20 20 CA C0 C0 | ".N....". ...| 00000640: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 20 22 00 54 |............ ".T| 00000650: 0E 08 02 8E 00 64 0E 12 02 54 58 B2 31 30 3A 54 |.....d...TX.10:T| 00000660: 59 B2 32 30 00 A5 0E 1C 02 A1 20 41 24 3A 54 59 |Y.20...... A$:TY| 00000670: B2 54 59 AB 31 3A 8B 20 54 59 B3 30 20 A7 20 54 |.TY.1:. TY.0 . T| 00000680: 59 B2 32 30 3A 58 B2 B7 28 53 44 AA 54 58 29 3A |Y.20:X..(SD.TX):| 00000690: 54 58 B2 54 58 AB 31 3A 8B 20 54 58 B2 30 20 A7 |TX.TX.1:. TX.0 .| 000006A0: 20 54 58 B2 31 00 C9 0E 26 02 43 54 24 B2 22 20 | TX.1...&.CT$." | 000006B0: 22 3A 8B 20 54 58 AD 32 B2 B5 28 54 58 AD 32 29 |":. TX.2..(TX.2)| 000006C0: A7 20 43 54 24 B2 22 D1 22 00 E2 0E 30 02 99 22 |. CT$."."...0.."| 000006D0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000006E0: 11 22 00 1D 0F 3A 02 58 B2 B7 28 56 42 AA 30 29 |."...:.X..(VB.0)| 000006F0: 3A 8F 20 2A 2A 20 4E 4F 57 20 46 49 4E 44 20 54 |:. ** NOW FIND T| 00000700: 48 45 20 43 4F 4C 4F 52 20 42 4C 41 43 4B 20 49 |HE COLOR BLACK I| 00000710: 53 20 42 4C 49 4E 4B 49 4E 47 20 54 4F 00 5D 0F |S BLINKING TO.].| 00000720: 44 02 97 43 4F 2C 58 3A 8F 20 2A 2A 20 43 48 41 |D..CO,X:. ** CHA| 00000730: 4E 47 45 20 43 55 52 52 45 4E 54 20 43 48 41 52 |NGE CURRENT CHAR| 00000740: 41 43 54 45 52 20 43 4F 4C 4F 52 20 54 4F 20 42 |ACTER COLOR TO B| 00000750: 4C 49 4E 4B 49 4E 47 20 43 4F 4C 4F 52 00 6C 0F |LINKING COLOR.l.| 00000760: 4E 02 99 A3 54 59 29 3B 43 54 24 3B 00 7D 0F 58 |N...TY);CT$;.}.X| 00000770: 02 8B 20 41 24 B2 22 22 20 A7 35 34 30 00 8E 0F |.. A$."" .540...| 00000780: 62 02 58 B2 B7 28 53 44 AA 31 34 29 3A 8E 00 00 |b.X..(SD.14):...| 00000790: 00 |. |
....C..A.0.A.1:."BLINKOBJ",8,1.E.D.. POK E56,28:POKE55,0:CLR FOR VIC, POKE56,60:P OKE55,0:CLR FOR +4/16...N.V1.785:V2.786: CO.646:HI.192:. FOR +4/16, V1=1281:V2=12 82:CO=1339:HI=60.U.X.. FOR VIC V1=1:V2=2 :CO=646:HI=28......V1,0:.V2,HI.'.... ** USR() IS AT $C000, $3C00 ON THE +4/16, $ 1C00 FOR VIC **.I...SD.16384: . ** SET D ELAY FLAG.J. .DB.8192 : . ** DISABLE BLI NK.....EB.4096 : . ** ENABLE BLINK.....S B.2048 : . ** STOP COLOR FROM BLINKING.. ...MB.1024 : . ** MAKE COLOR START BLINK ING...H.VB.512 : . ** RETURN VALUE OF B LINKING COLOR.E.R.RC.256 : . ** RESET A LL COLORS-NO BLINKING.H.... *** NOW WE D EMONSTRATE BLINK.....RD$."..**** RED *** *..":GR$."..*** GREEN ***..":.".".Q.... 53281,0:. 53280,0:. MAKE BACKGROUND BLAC K...... COLOR 0,1,7:COLOR 4,1,7 FOR +4/1 6 IN LINE 240.+.... POKE36879,8 FOR VIC IN LINE 240.Y...X..(EB):. X.0 .530: . ** ENABLE BLINKMODE.D...C$.RD$.M."..450... ,.X..(MB.(16.2).0):. ** BLACK BLINKS TO RED.I.6.X..(MB.(16.3).1):. * WHITE BLINK S TO CYAN...@.X..(MB.(16.7).4):. ** MAKE PURPLE BLINK TO YELLOW.$.J.X..(SD.14): . ** SET BLINK SPEED.B.T..:.". *** WAR NING *** ".`.^..:.".HIT A KEY TO CHANGE" .I.H..530...R.X..(SB.0):. ** STOP BLACK FROM BLINKING TO RED.S.|.X..(VB.0):. X. .0 .380:. ** WAIT UNTIL BLACK RESET..... X..(MB.(16.5).0):. ** NOW BLINK BLACK TO GREEN.....C$.GR$:.450......530.U...X..( SB.0):. ** STOP BLACK FROM BLINKING TO GREEN.....X..(VB.0):. X..0 .430:. ** WAI T UNTIL BLACK RESET......280...B.."..ATT ENTION - ATTENTION":..Q.L..". CONDITIO N CODE "...V..". U.............I "... ...". . . "......" "C$.2 ....". . . ".N....". J.. ...........K ".T.....D...TX.10:TY.20.... .. A$:TY.TY.1:. TY.0 . TY.20:X..(SD.TX): TX.TX.1:. TX.0 . TX.1.I.&.CT$." ":. TX.2 ..(TX.2). CT$."Q"...0.."................ ."...:.X..(VB.0):. ** NOW FIND THE COLOR BLACK IS BLINKING TO.].D..CO,X:. ** CHA NGE CURRENT CHARACTER COLOR TO BLINKING COLOR.L.N...TY);CT$;.}.X.. A$."" .540... B.X..(SD.14):....
> CLICK IMAGE PREVIEW FOR FULL MODAL