PUMPKIN
FILE INFORMATION
FILENAME(S): PUMPKIN
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-11-30 21:05:44
APPEARS ON: 5 disk(s)
FILE HASH
e0236129ec43e0b770898812c6d35ce25fb7363ec4825731d13df641f7557e05
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LICHTPEN PROG | PUMPKIN | PRG | DuncanTwain | 12 | 7 | DOWNLOAD FILE |
| NR 50 | PUMPKIN | PRG | DuncanTwain | 6 | 9 | DOWNLOAD FILE |
| C64 HULP 30 2 | PUMPKIN | PRG | DuncanTwain | 6 | 9 | DOWNLOAD FILE |
| FLEXIDRAW 3 0 | PUMPKIN | PRG | DuncanTwain | 6 | 9 | DOWNLOAD FILE |
| FLEXIDRAW 3 0 | PUMPKIN | PRG | hedning, Helsinborg | 6 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2F 08 E8 03 8B 4D 31 B3 B1 30 89 31 30 32 |../....M1..0.102|
00000010: 35 3A 8F 20 49 46 20 43 48 41 4E 47 45 20 53 55 |5:. IF CHANGE SU|
00000020: 42 52 4F 55 54 49 4E 45 20 4C 4F 41 44 45 44 00 |BROUTINE LOADED.|
00000030: 60 08 F2 03 97 35 32 2C 38 34 3A 97 35 36 2C 38 |`....52,84:.56,8|
00000040: 34 3A 9C 3A 4D 31 B2 31 3A 97 35 33 32 38 30 2C |4:.:M1.1:.53280,|
00000050: 30 3A 97 35 33 32 38 31 2C 30 3A 8D 31 31 31 30 |0:.53281,0:.1110|
00000060: 00 AD 08 F7 03 8F 20 20 20 20 20 20 20 20 20 20 |...... |
00000070: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 20 53 | **** S|
00000080: 55 42 52 4F 55 54 49 4E 45 20 54 4F 20 43 48 41 |UBROUTINE TO CHA|
00000090: 4E 47 45 20 47 52 4F 55 50 20 43 4F 4C 4F 52 53 |NGE GROUP COLORS|
000000A0: 20 49 4E 20 4D 41 53 53 20 2A 2A 2A 2A 00 C1 08 | IN MASS ****...|
000000B0: FC 03 93 22 53 55 42 52 54 4E 30 32 22 2C 38 2C |..."SUBRTN02",8,|
000000C0: 31 00 DF 08 01 04 8B 4D 31 B2 31 A7 4D 31 B2 32 |1......M1.1.M1.2|
000000D0: 3A 93 22 54 48 55 4E 44 45 52 22 2C 38 2C 31 00 |:."THUNDER",8,1.|
000000E0: 19 09 06 04 4E 41 24 B2 22 50 4B 49 4E 2E 50 49 |....NA$."PKIN.PI|
000000F0: 43 22 3A 97 32 31 37 30 37 2C 38 3A 8F 20 53 45 |C":.21707,8:. SE|
00000100: 54 20 4D 41 50 20 4E 41 4D 45 20 26 20 53 54 4F |T MAP NAME & STO|
00000110: 52 45 20 4C 45 4E 47 54 48 00 56 09 10 04 81 49 |RE LENGTH.V....I|
00000120: B2 31 A4 38 3A 97 32 31 37 30 37 AA 49 2C C6 28 |.1.8:.21707.I,.(|
00000130: CA 28 4E 41 24 2C 49 2C 31 29 29 3A 82 3A 9E 34 |.(NA$,I,1)):.:.4|
00000140: 39 31 35 32 3A 97 35 34 32 39 34 2C 31 31 30 3A |9152:.54294,110:|
00000150: 43 25 B2 31 31 30 00 70 09 1A 04 9E 32 31 37 32 |C%.110.p....2172|
00000160: 39 3A 8B C2 28 32 31 37 30 36 29 B3 B1 30 A7 90 |9:..(21706)..0..|
00000170: 00 A2 09 1F 04 42 44 B2 32 31 35 33 34 3A 8F 20 |.....BD.21534:. |
00000180: 41 44 44 52 45 53 53 20 4F 46 20 42 4F 52 44 45 |ADDRESS OF BORDE|
00000190: 52 20 43 4F 4C 4F 52 20 54 4F 20 42 45 20 55 53 |R COLOR TO BE US|
000001A0: 45 44 00 D8 09 24 04 47 43 B2 32 31 35 33 35 3A |ED...$.GC.21535:|
000001B0: 8F 20 41 44 44 52 45 53 53 20 4F 46 20 47 52 4F |. ADDRESS OF GRO|
000001C0: 55 50 20 43 48 41 4E 47 45 20 43 4F 55 4E 54 20 |UP CHANGE COUNT |
000001D0: 2D 20 4D 41 58 20 31 30 00 0C 0A 2E 04 47 50 B2 |- MAX 10.....GP.|
000001E0: 32 31 35 33 36 3A 8F 20 41 44 44 52 45 53 53 20 |21536:. ADDRESS |
000001F0: 4F 46 20 46 49 52 53 54 20 47 52 4F 55 50 20 54 |OF FIRST GROUP T|
00000200: 4F 20 42 45 20 43 48 41 4E 47 45 44 00 43 0A 38 |O BE CHANGED.C.8|
00000210: 04 43 31 B2 32 31 35 36 30 3A 8F 20 41 44 44 52 |.C1.21560:. ADDR|
00000220: 45 53 53 20 4F 46 20 46 49 52 53 54 20 4F 4E 20 |ESS OF FIRST ON |
00000230: 43 4F 4C 4F 52 20 54 4F 20 42 45 20 43 48 41 4E |COLOR TO BE CHAN|
00000240: 47 45 44 00 7B 0A 42 04 43 32 B2 32 31 35 38 34 |GED.{.B.C2.21584|
00000250: 3A 8F 20 41 44 44 52 45 53 53 20 4F 46 20 46 49 |:. ADDRESS OF FI|
00000260: 52 53 54 20 4F 46 46 20 43 4F 4C 4F 52 20 54 4F |RST OFF COLOR TO|
00000270: 20 42 45 20 43 48 41 4E 47 45 44 00 94 0A 47 04 | BE CHANGED...G.|
00000280: 45 31 B2 31 32 30 3A 45 32 B2 32 30 39 3A 45 4C |E1.120:E2.209:EL|
00000290: B2 31 37 30 00 C1 0A 4C 04 8D 31 39 31 30 3A 57 |.170...L..1910:W|
000002A0: B2 31 3A 89 31 31 34 30 3A 8F 20 4C 4F 41 44 20 |.1:.1140:. LOAD |
000002B0: 53 50 52 49 54 45 53 20 41 4E 44 20 53 54 41 52 |SPRITES AND STAR|
000002C0: 54 00 07 0B 56 04 99 C7 28 31 34 29 22 93 11 11 |T...V...(14)"...|
000002D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 81 C8 20 41 20 4C |............ A L|
000002E0: 20 4C 20 4F 20 57 20 45 20 45 20 4E 22 3A 99 22 | L O W E E N":."|
000002F0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000300: 1D 1D 1D 1E 42 59 22 00 2E 0B 60 04 99 22 11 1D |....BY"...`.."..|
00000310: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 1F C9 41 4E 20 |.............AN |
00000320: C7 2E 20 D3 54 52 41 43 48 41 4E 22 3A 8E 00 42 |.. .TRACHAN":..B|
00000330: 0B 6A 04 8D 31 31 31 30 3A 57 B2 31 3A 8D 31 37 |.j..1110:W.1:.17|
00000340: 33 30 00 79 0B 74 04 99 22 11 11 11 20 20 20 20 |30.y.t.."... |
00000350: 9E 50 49 43 54 55 52 45 20 43 52 45 41 54 45 44 |.PICTURE CREATED|
00000360: 20 57 49 54 48 20 C6 CC C5 D8 C9 C4 D2 C1 D7 20 | WITH ......... |
00000370: D4 CD 22 3A 8D 31 37 33 30 00 AB 0B 7E 04 99 22 |..":.1730...~.."|
00000380: 20 20 20 20 20 43 4F 4C 4F 52 20 41 44 44 45 44 | COLOR ADDED|
00000390: 20 57 49 54 48 20 D0 C5 CE 2D D0 C1 CC C5 D4 D4 | WITH ...-......|
000003A0: C5 20 D4 CD 22 3A 8D 31 37 33 30 00 DB 0B 88 04 |. ..":.1730.....|
000003B0: 99 22 20 20 20 20 20 20 20 20 41 4E 49 4D 41 54 |." ANIMAT|
000003C0: 49 4F 4E 20 57 52 49 54 54 45 4E 20 49 4E 20 C2 |ION WRITTEN IN .|
000003D0: C1 D3 C9 C3 22 3A 8D 31 37 33 30 00 FC 0B 92 04 |....":.1730.....|
000003E0: 8B 42 24 B2 22 43 22 A7 57 B2 35 3A 8D 31 37 33 |.B$."C".W.5:.173|
000003F0: 30 3A 99 22 93 22 3A 89 31 32 32 30 00 29 0C 9C |0:.".":.1220.)..|
00000400: 04 99 22 1F 11 11 11 1D 1D 1D 1D 1D 1D 50 52 45 |.."..........PRE|
00000410: 53 53 20 12 2A 92 20 54 4F 20 41 44 4A 55 53 54 |SS .*. TO ADJUST|
00000420: 20 54 48 55 4E 44 45 52 22 00 51 0C A6 04 99 22 | THUNDER".Q...."|
00000430: 11 1D 1D 1D 1D 1D 1D 1D 1D 50 52 45 53 53 20 12 |.........PRESS .|
00000440: 53 92 20 54 4F 20 53 54 41 52 54 20 4F 4E 43 45 |S. TO START ONCE|
00000450: 22 00 7D 0C B0 04 99 22 11 1D 1D 1D 1D 1D 50 52 |".}...."......PR|
00000460: 45 53 53 20 12 43 92 20 54 4F 20 52 55 4E 20 43 |ESS .C. TO RUN C|
00000470: 4F 4E 54 49 4E 55 4F 55 53 4C 59 9B 22 00 8C 0C |ONTINUOUSLY."...|
00000480: BA 04 8D 31 34 30 30 3A 99 22 93 22 00 C7 0C C4 |...1400:."."....|
00000490: 04 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 2A 2A 2A 2A 20 53 48 4F 57 20 42 49 54 20 4D | **** SHOW BIT M|
000004C0: 41 50 20 2A 2A 2A 2A 00 F7 0C CE 04 97 35 33 32 |AP ****......532|
000004D0: 36 35 2C C2 28 35 33 32 36 35 29 AF 32 33 39 20 |65,.(53265).239 |
000004E0: 20 20 20 20 20 20 20 20 3A 8F 20 42 4C 41 4E 4B | :. BLANK|
000004F0: 20 53 43 52 45 45 4E 00 2D 0D D8 04 97 20 35 36 | SCREEN.-.... 56|
00000500: 35 37 38 2C C2 28 35 36 35 37 38 29 B0 33 20 20 |578,.(56578).3 |
00000510: 20 20 20 20 20 20 20 20 20 3A 8F 20 53 45 54 20 | :. SET |
00000520: 43 49 41 20 54 4F 20 4F 55 54 50 55 54 00 60 0D |CIA TO OUTPUT.`.|
00000530: E2 04 97 20 35 36 35 37 36 2C 28 C2 28 35 36 35 |... 56576,(.(565|
00000540: 37 36 29 AF 32 35 32 29 B0 32 20 20 20 3A 8F 20 |76).252).2 :. |
00000550: 43 48 41 4E 47 45 20 54 4F 20 42 41 4E 4B 20 31 |CHANGE TO BANK 1|
00000560: 00 A4 0D EC 04 97 20 35 33 32 37 32 2C 28 C2 28 |...... 53272,(.(|
00000570: 35 33 32 37 32 29 AF 31 29 B0 31 32 30 20 20 20 |53272).1).120 |
00000580: 3A 8F 20 53 43 52 45 45 4E 20 54 4F 20 32 33 35 |:. SCREEN TO 235|
00000590: 35 32 20 20 42 49 54 20 4D 41 50 20 54 4F 20 32 |52 BIT MAP TO 2|
000005A0: 34 35 37 36 00 E3 0D F6 04 97 20 36 34 38 2C 39 |4576...... 648,9|
000005B0: 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |2 |
000005C0: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 50 4F 49 | :. POI|
000005D0: 4E 54 20 4B 45 52 4E 41 4C 20 54 4F 20 53 43 52 |NT KERNAL TO SCR|
000005E0: 45 45 4E 00 1C 0E 00 05 97 20 35 33 32 36 35 2C |EEN...... 53265,|
000005F0: C2 28 35 33 32 36 35 29 B0 33 32 20 20 20 20 20 |.(53265).32 |
00000600: 20 20 20 20 20 20 3A 8F 20 53 45 54 20 4F 4E 20 | :. SET ON |
00000610: 42 49 54 20 4D 41 50 20 4D 4F 44 45 00 56 0E 0A |BIT MAP MODE.V..|
00000620: 05 57 B2 33 3A 8D 31 37 33 30 3A 97 35 33 32 36 |.W.3:.1730:.5326|
00000630: 35 2C C2 28 35 33 32 36 35 29 B0 31 36 3A 8F 20 |5,.(53265).16:. |
00000640: 57 41 49 54 20 33 2C 20 54 55 52 4E 20 4F 4E 20 |WAIT 3, TURN ON |
00000650: 53 43 52 45 45 4E 00 93 0E 14 05 8D 31 34 33 30 |SCREEN......1430|
00000660: 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. |
00000670: 20 20 20 20 20 20 20 2A 2A 2A 2A 20 50 45 52 46 | **** PERF|
00000680: 4F 52 4D 20 43 59 43 4C 45 20 4F 4E 43 45 20 2A |ORM CYCLE ONCE *|
00000690: 2A 2A 2A 00 CC 0E 1E 05 97 35 33 32 36 35 2C C2 |***......53265,.|
000006A0: 28 35 33 32 36 35 29 AF 32 33 39 3A 57 B2 32 3A |(53265).239:W.2:|
000006B0: 8D 31 37 33 30 3A 8F 20 42 4C 41 4E 4B 20 53 43 |.1730:. BLANK SC|
000006C0: 52 45 45 4E 2C 20 57 41 49 54 20 32 00 06 0F 23 |REEN, WAIT 2...#|
000006D0: 05 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006F0: 20 2A 2A 2A 2A 20 53 48 4F 57 20 53 43 52 45 45 | **** SHOW SCREE|
00000700: 4E 20 2A 2A 2A 2A 00 23 0F 28 05 8F 20 52 45 53 |N ****.#.(.. RES|
00000710: 45 54 20 54 4F 20 4E 4F 52 4D 41 4C 20 53 43 52 |ET TO NORMAL SCR|
00000720: 45 45 4E 00 3A 0F 32 05 97 20 35 36 35 37 38 2C |EEN.:.2.. 56578,|
00000730: C2 28 35 36 35 37 38 29 B0 33 00 57 0F 3C 05 97 |.(56578).3.W.<..|
00000740: 20 35 36 35 37 36 2C 28 C2 28 35 36 35 37 36 29 | 56576,(.(56576)|
00000750: AF 32 35 32 29 B0 33 00 73 0F 46 05 97 20 35 33 |.252).3.s.F.. 53|
00000760: 32 37 32 2C 28 C2 28 35 33 32 37 32 29 AF 31 29 |272,(.(53272).1)|
00000770: B0 32 30 00 8C 0F 50 05 97 20 35 33 32 36 35 2C |.20...P.. 53265,|
00000780: C2 28 35 33 32 36 35 29 AF 32 32 33 00 98 0F 5A |.(53265).223...Z|
00000790: 05 97 20 36 34 38 2C 34 00 B0 0F 64 05 97 20 35 |.. 648,4...d.. 5|
000007A0: 33 32 36 35 2C C2 28 35 33 32 36 35 29 B0 31 36 |3265,.(53265).16|
000007B0: 00 BA 0F 6E 05 89 31 31 33 30 00 DE 0F 78 05 97 |...n..1130...x..|
000007C0: 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 42 24 |198,0:.198,1:.B$|
000007D0: 3A 8B 42 24 B2 22 2A 22 A7 8D 32 30 30 30 00 F8 |:.B$."*"..2000..|
000007E0: 0F 82 05 8B 42 24 B3 B1 22 53 22 AF 42 24 B3 B1 |....B$.."S".B$..|
000007F0: 22 43 22 89 31 34 30 30 00 FE 0F 8C 05 8E 00 3B |"C".1400.......;|
00000800: 10 91 05 8F 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00000810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000820: 20 20 20 2A 2A 2A 2A 20 4D 41 49 4E 4C 49 4E 45 | **** MAINLINE|
00000830: 20 4C 4F 47 49 43 20 2A 2A 2A 2A 00 6C 10 96 05 | LOGIC ****.l...|
00000840: 57 B2 35 3A 8D 31 37 33 30 3A 57 54 B2 31 3A 4C |W.5:.1730:WT.1:L|
00000850: B2 31 3A 8D 31 38 30 30 3A 57 B2 32 3A 8D 31 37 |.1:.1800:W.2:.17|
00000860: 33 30 3A 4C B2 32 3A 8D 31 38 30 30 00 84 10 A0 |30:L.2:.1800....|
00000870: 05 57 B2 33 3A 8D 31 37 33 30 3A 4C B2 31 3A 8D |.W.3:.1730:L.1:.|
00000880: 31 38 30 30 00 92 10 AA 05 57 B2 30 3A 8D 31 37 |1800.....W.0:.17|
00000890: 33 30 00 D0 10 B4 05 54 43 B2 38 3A 4D 43 B2 30 |30.....TC.8:MC.0|
000008A0: 3A 8D 31 36 30 30 3A 8F 20 20 20 20 20 20 20 20 |:.1600:. |
000008B0: 20 20 20 2A 2A 2A 2A 20 54 45 45 54 48 2D 4F 52 | **** TEETH-OR|
000008C0: 41 4E 47 45 20 4D 4F 55 54 48 2D 42 4C 41 43 4B |ANGE MOUTH-BLACK|
000008D0: 00 FE 10 BE 05 57 B2 32 3A 8D 31 37 33 30 3A 4D |.....W.2:.1730:M|
000008E0: 43 B2 37 3A 8D 31 36 30 30 3A 8F 20 20 2A 2A 2A |C.7:.1600:. ***|
000008F0: 2A 20 4D 4F 55 54 48 20 59 45 4C 4C 4F 57 00 31 |* MOUTH YELLOW.1|
00000900: 11 C8 05 57 B2 33 3A 8D 31 37 33 30 3A 8F 20 20 |...W.3:.1730:. |
00000910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000920: 2A 2A 2A 20 4E 4F 57 20 42 4C 49 4E 4B 20 45 59 |*** NOW BLINK EY|
00000930: 45 00 4F 11 D2 05 97 47 50 2C 31 30 3A 97 43 32 |E.O....GP,10:.C2|
00000940: 2C 38 3A 97 47 43 2C 31 3A 9E 32 31 35 30 34 00 |,8:.GC,1:.21504.|
00000950: 6C 11 DC 05 57 B2 2E 32 35 3A 8D 31 37 33 30 3A |l...W..25:.1730:|
00000960: 97 43 32 2C 37 3A 9E 32 31 35 30 34 00 95 11 E6 |.C2,7:.21504....|
00000970: 05 57 B2 33 3A 8D 31 37 33 30 3A 8D 31 38 30 30 |.W.3:.1730:.1800|
00000980: 3A 57 B2 30 3A 8D 31 37 33 30 3A 4D 43 B2 37 3A |:W.0:.1730:MC.7:|
00000990: 54 43 B2 31 35 00 CD 11 F0 05 97 47 50 2C 36 3A |TC.15......GP,6:|
000009A0: 97 43 31 2C 54 43 3A 97 43 32 2C 4D 43 3A 97 47 |.C1,TC:.C2,MC:.G|
000009B0: 43 2C 31 3A 9E 32 31 35 30 34 3A 8F 20 2A 2A 20 |C,1:.21504:. ** |
000009C0: 53 48 4F 57 20 54 45 45 54 48 20 2A 2A 00 EB 11 |SHOW TEETH **...|
000009D0: FA 05 57 B2 32 3A 8D 31 37 33 30 3A 4C B2 32 3A |..W.2:.1730:L.2:|
000009E0: 8D 31 38 30 30 3A 54 48 25 B2 31 00 12 12 04 06 |.1800:TH%.1.....|
000009F0: 57 B2 34 3A 8D 31 37 33 30 3A 57 54 B2 32 3A 4C |W.4:.1730:WT.2:L|
00000A00: B2 31 3A 8D 31 38 30 30 3A 57 B2 30 3A 8D 31 37 |.1:.1800:W.0:.17|
00000A10: 33 30 00 43 12 0E 06 4D 43 B2 30 3A 8D 31 36 30 |30.C...MC.0:.160|
00000A20: 30 3A 97 35 33 32 36 39 2C 33 3A 8F 20 20 20 20 |0:.53269,3:. |
00000A30: 2A 2A 2A 2A 20 30 20 3D 20 42 4C 41 43 4B 20 2A |**** 0 = BLACK *|
00000A40: 2A 2A 2A 00 73 12 18 06 57 B2 32 3A 8D 31 37 33 |***.s...W.2:.173|
00000A50: 30 3A 45 25 B2 35 30 3A 8D 31 36 36 30 3A 57 B2 |0:E%.50:.1660:W.|
00000A60: 31 3A 8D 31 37 33 30 3A 45 25 B2 32 30 3A 8D 31 |1:.1730:E%.20:.1|
00000A70: 36 36 30 00 9A 12 22 06 57 B2 31 3A 8D 31 37 33 |660...".W.1:.173|
00000A80: 30 3A 57 54 B2 31 3A 4C B2 31 3A 8D 31 38 30 30 |0:WT.1:L.1:.1800|
00000A90: 3A 4C B2 32 3A 8D 31 38 30 30 00 DB 12 2C 06 54 |:L.2:.1800...,.T|
00000AA0: 48 25 B2 30 3A 4D 43 B2 38 3A 54 43 B2 38 3A 8D |H%.0:MC.8:TC.8:.|
00000AB0: 31 36 30 30 3A 97 35 33 32 36 39 2C 30 3A 8F 20 |1600:.53269,0:. |
00000AC0: 20 20 2A 2A 20 52 45 53 45 54 20 54 4F 20 41 4C | ** RESET TO AL|
00000AD0: 4C 20 4F 52 41 4E 47 45 20 2A 2A 00 EB 12 36 06 |L ORANGE **...6.|
00000AE0: 57 B2 33 3A 8D 31 37 33 30 3A 8E 00 2D 13 40 06 |W.3:.1730:..-.@.|
00000AF0: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B10: 2A 2A 2A 2A 20 43 48 41 4E 47 45 20 46 41 43 45 |**** CHANGE FACE|
00000B20: 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 00 5D 13 | ROUTINE ****.].|
00000B30: 4A 06 97 47 50 20 20 2C 31 30 3A 97 43 31 20 20 |J..GP ,10:.C1 |
00000B40: 2C 38 3A 97 43 32 20 20 2C 4D 43 3A 8F 20 20 2A |,8:.C2 ,MC:. *|
00000B50: 2A 20 4C 45 46 54 20 45 59 45 20 2A 2A 00 95 13 |* LEFT EYE **...|
00000B60: 54 06 97 47 50 AA 31 2C 31 31 3A 97 43 31 AA 31 |T..GP.1,11:.C1.1|
00000B70: 2C 38 3A 97 43 32 AA 31 2C 4D 43 3A 8F 20 20 2A |,8:.C2.1,MC:. *|
00000B80: 2A 20 52 49 47 48 54 20 45 59 45 20 26 20 4E 4F |* RIGHT EYE & NO|
00000B90: 53 45 20 2A 2A 00 C2 13 5E 06 97 47 50 AA 32 2C |SE **...^..GP.2,|
00000BA0: 20 35 3A 97 43 31 AA 32 2C 38 3A 97 43 32 AA 32 | 5:.C1.2,8:.C2.2|
00000BB0: 2C 4D 43 3A 8F 20 20 2A 2A 20 4D 4F 55 54 48 20 |,MC:. ** MOUTH |
00000BC0: 2A 2A 00 EF 13 68 06 97 47 50 AA 33 2C 20 36 3A |**...h..GP.3, 6:|
00000BD0: 97 43 31 AA 33 2C 54 43 3A 97 43 32 AA 33 2C 4D |.C1.3,TC:.C2.3,M|
00000BE0: 43 3A 8F 20 2A 2A 20 54 45 45 54 48 20 2A 2A 00 |C:. ** TEETH **.|
00000BF0: 02 14 72 06 97 47 43 2C 34 3A 9E 32 31 35 30 34 |..r..GC,4:.21504|
00000C00: 3A 8E 00 45 14 7C 06 8F 20 20 20 20 20 20 20 20 |:..E.|.. |
00000C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C20: 20 20 20 20 20 20 20 2A 2A 2A 2A 20 45 59 45 20 | **** EYE |
00000C30: 4D 4F 56 45 4D 45 4E 54 20 52 4F 55 54 49 4E 45 |MOVEMENT ROUTINE|
00000C40: 20 2A 2A 2A 2A 00 5E 14 86 06 81 49 49 B2 AB 31 | ****.^....II..1|
00000C50: A4 AB 36 A9 AB 31 3A 8D 31 37 31 30 3A 82 00 7E |..6..1:.1710:..~|
00000C60: 14 8B 06 4E 56 B2 45 4C AA 31 3A 97 35 33 32 34 |...NV.EL.1:.5324|
00000C70: 39 2C 4E 56 3A 97 35 33 32 35 31 2C 4E 56 00 9A |9,NV:.53251,NV..|
00000C80: 14 90 06 81 49 49 B2 AB 36 A4 36 20 20 20 20 20 |....II..6.6 |
00000C90: 20 20 3A 8D 31 37 31 30 3A 82 00 B2 14 95 06 97 | :.1710:.......|
00000CA0: 35 33 32 34 39 2C 45 4C 3A 97 35 33 32 35 31 2C |53249,EL:.53251,|
00000CB0: 45 4C 00 CC 14 9A 06 81 49 49 B2 20 36 A4 20 20 |EL......II. 6. |
00000CC0: 30 A9 AB 31 3A 8D 31 37 31 30 3A 82 00 D2 14 A4 |0..1:.1710:.....|
00000CD0: 06 8E 00 EC 14 AE 06 81 49 4C B2 31 A4 45 25 3A |........IL.1.E%:|
00000CE0: 8B 54 48 B3 54 49 A7 8D 31 37 36 30 00 0E 15 B8 |.TH.TI..1760....|
00000CF0: 06 82 3A 97 35 33 32 34 38 2C 45 31 AA 49 49 3A |..:.53248,E1.II:|
00000D00: 97 35 33 32 35 30 2C 45 32 AA 49 49 3A 8E 00 2A |.53250,E2.II:..*|
00000D10: 15 C2 06 81 49 B2 31 A4 32 30 30 AC 57 3A 8B 54 |....I.1.200.W:.T|
00000D20: 48 B3 54 49 A7 8D 31 37 36 30 00 32 15 CC 06 82 |H.TI..1760.2....|
00000D30: 3A 8E 00 73 15 D6 06 8F 20 20 20 20 20 20 20 20 |:..s.... |
00000D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D50: 20 20 20 20 20 20 20 2A 2A 2A 2A 20 54 4F 4F 54 | **** TOOT|
00000D60: 48 20 42 49 54 45 20 52 4F 55 54 49 4E 45 20 2A |H BITE ROUTINE *|
00000D70: 2A 2A 2A 00 89 15 E0 06 54 48 B2 54 49 AA 32 30 |***.....TH.TI.20|
00000D80: 3A 8B 54 48 25 B2 30 A7 8E 00 A5 15 EA 06 8B 54 |:.TH%.0........T|
00000D90: 53 B2 30 A7 54 53 B2 31 3A 54 43 25 B2 54 43 3A |S.0.TS.1:TC%.TC:|
00000DA0: 89 31 37 39 30 00 B5 15 F4 06 54 53 B2 30 3A 54 |.1790.....TS.0:T|
00000DB0: 43 25 B2 4D 43 00 DD 15 FE 06 97 47 50 2C 36 3A |C%.MC......GP,6:|
00000DC0: 97 43 31 2C 54 43 3A 97 43 32 2C 54 43 25 3A 97 |.C1,TC:.C2,TC%:.|
00000DD0: 47 43 2C 31 3A 9E 32 31 35 30 34 3A 8E 00 1D 16 |GC,1:.21504:....|
00000DE0: 08 07 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00000DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E00: 20 20 2A 2A 2A 2A 20 4C 49 47 48 54 4E 49 4E 47 | **** LIGHTNING|
00000E10: 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 00 31 16 | ROUTINE ****.1.|
00000E20: 12 07 59 B2 31 3A 42 47 B2 31 32 3A 8D 31 38 37 |..Y.1:BG.12:.187|
00000E30: 30 00 45 16 1C 07 59 B2 31 32 3A 42 47 B2 30 3A |0.E...Y.12:BG.0:|
00000E40: 8D 31 38 37 30 00 59 16 26 07 59 B2 31 3A 42 47 |.1870.Y.&.Y.1:BG|
00000E50: B2 31 32 3A 8D 31 38 37 30 00 6E 16 30 07 59 B2 |.12:.1870.n.0.Y.|
00000E60: 31 35 3A 42 47 B2 31 31 3A 8D 31 38 37 30 00 81 |15:BG.11:.1870..|
00000E70: 16 3A 07 59 B2 30 3A 42 47 B2 30 3A 8D 31 38 37 |.:.Y.0:BG.0:.187|
00000E80: 30 00 8E 16 44 07 9E 34 39 31 35 32 3A 8E 00 B8 |0...D..49152:...|
00000E90: 16 4E 07 97 47 50 20 20 2C 32 3A 97 43 31 20 20 |.N..GP ,2:.C1 |
00000EA0: 2C 59 3A 97 43 32 20 20 2C 42 47 20 20 3A 8F 20 |,Y:.C2 ,BG :. |
00000EB0: 20 47 52 4F 55 50 20 42 00 E2 16 58 07 97 47 50 | GROUP B...X..GP|
00000EC0: AA 31 2C 33 3A 97 43 31 AA 31 2C 42 47 3A 97 43 |.1,3:.C1.1,BG:.C|
00000ED0: 32 AA 31 2C 42 47 20 3A 8F 20 20 47 52 4F 55 50 |2.1,BG :. GROUP|
00000EE0: 20 43 00 0C 17 5C 07 97 47 50 AA 32 2C 31 3A 97 | C...\..GP.2,1:.|
00000EF0: 43 31 AA 32 2C 38 3A 97 43 32 AA 32 2C 42 47 20 |C1.2,8:.C2.2,BG |
00000F00: 20 3A 8F 20 20 47 52 4F 55 50 20 41 00 36 17 5E | :. GROUP A.6.^|
00000F10: 07 97 47 50 AA 33 2C 38 3A 97 43 31 AA 33 2C 35 |..GP.3,8:.C1.3,5|
00000F20: 3A 97 43 32 AA 33 2C 42 47 20 20 3A 8F 20 20 47 |:.C2.3,BG :. G|
00000F30: 52 4F 55 50 20 48 00 61 17 60 07 97 47 50 AA 34 |ROUP H.a.`..GP.4|
00000F40: 2C 30 3A 97 43 31 AA 34 2C 42 47 3A 97 43 32 AA |,0:.C1.4,BG:.C2.|
00000F50: 34 2C 42 47 20 20 3A 8F 20 20 47 52 4F 55 50 20 |4,BG :. GROUP |
00000F60: 30 00 8B 17 61 07 97 47 50 AA 35 2C 37 3A 97 43 |0...a..GP.5,7:.C|
00000F70: 31 AA 35 2C 39 3A 97 43 32 AA 35 2C 42 47 20 20 |1.5,9:.C2.5,BG |
00000F80: 3A 8F 20 20 47 52 4F 55 50 20 47 00 B5 17 62 07 |:. GROUP G...b.|
00000F90: 97 47 50 AA 36 2C 31 32 3A 97 43 31 AA 36 2C 42 |.GP.6,12:.C1.6,B|
00000FA0: 47 3A 97 43 32 AA 36 2C 42 47 3A 8F 20 20 47 52 |G:.C2.6,BG:. GR|
00000FB0: 4F 55 50 20 4C 00 DF 17 63 07 97 47 50 AA 37 2C |OUP L...c..GP.7,|
00000FC0: 31 33 3A 97 43 31 AA 37 2C 42 47 3A 97 43 32 AA |13:.C1.7,BG:.C2.|
00000FD0: 37 2C 42 47 3A 8F 20 20 47 52 4F 55 50 20 4D 00 |7,BG:. GROUP M.|
00000FE0: F0 17 67 07 8B 4C B2 32 A7 97 43 31 AA 31 2C 59 |..g..L.2..C1.1,Y|
00000FF0: 00 0F 18 68 07 8B 57 54 B2 32 AF 42 47 B1 30 A7 |...h..WT.2.BG.0.|
00001000: 97 43 31 AA 36 2C 30 3A 97 43 31 AA 37 2C 37 00 |.C1.6,0:.C1.7,7.|
00001010: 34 18 6C 07 97 42 44 2C 42 47 3A 97 47 43 2C 38 |4.l..BD,BG:.GC,8|
00001020: 3A 9E 32 31 35 30 34 3A 8B 54 48 B3 54 49 A7 8D |:.21504:.TH.TI..|
00001030: 31 37 36 30 00 3A 18 71 07 8E 00 79 18 76 07 8F |1760.:.q...y.v..|
00001040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00001060: 2A 2A 2A 20 4C 4F 41 44 20 53 50 52 49 54 45 20 |*** LOAD SPRITE |
00001070: 44 41 54 41 20 2A 2A 2A 2A 00 97 18 80 07 81 49 |DATA ****......I|
00001080: B2 30 A4 36 32 3A 87 4E 56 3A 97 32 31 38 38 38 |.0.62:.NV:.21888|
00001090: AA 49 2C 4E 56 3A 82 00 C1 18 8A 07 97 32 34 35 |.I,NV:.......245|
000010A0: 36 38 2C 38 36 3A 97 32 34 35 36 39 2C 38 36 3A |68,86:.24569,86:|
000010B0: 97 35 33 32 38 37 2C 36 3A 97 35 33 32 38 38 2C |.53287,6:.53288,|
000010C0: 36 00 ED 18 94 07 97 35 33 32 34 38 2C 45 31 3A |6......53248,E1:|
000010D0: 97 35 33 32 34 39 2C 45 4C 3A 97 35 33 32 35 30 |.53249,EL:.53250|
000010E0: 2C 45 32 3A 97 35 33 32 35 31 2C 45 4C 00 05 19 |,E2:.53251,EL...|
000010F0: 9E 07 97 35 33 32 37 35 2C 33 3A 97 35 33 32 37 |...53275,3:.5327|
00001100: 39 2C 33 3A 8E 00 4E 19 A8 07 83 20 30 2C 32 38 |9,3:..N.... 0,28|
00001110: 2C 30 2C 30 2C 36 32 2C 30 2C 30 2C 31 32 37 2C |,0,0,62,0,0,127,|
00001120: 30 2C 30 2C 32 34 37 2C 31 32 38 2C 31 2C 32 32 |0,0,247,128,1,22|
00001130: 37 2C 31 39 32 2C 30 2C 32 34 37 2C 31 32 38 2C |7,192,0,247,128,|
00001140: 30 2C 31 32 37 2C 30 2C 30 2C 36 32 2C 30 00 97 |0,127,0,0,62,0..|
00001150: 19 B2 07 83 20 30 2C 32 38 2C 30 2C 30 2C 30 2C |.... 0,28,0,0,0,|
00001160: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00001170: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00001180: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00001190: 30 2C 30 2C 30 2C 30 00 A9 19 BC 07 83 20 30 2C |0,0,0,0...... 0,|
000011A0: 30 2C 30 2C 30 2C 30 2C 30 00 F7 19 D0 07 8F 20 |0,0,0,0,0...... |
000011B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
000011D0: 2A 2A 20 52 4F 55 54 49 4E 45 20 54 4F 20 41 44 |** ROUTINE TO AD|
000011E0: 4A 55 53 54 20 54 48 55 4E 44 45 52 20 43 55 54 |JUST THUNDER CUT|
000011F0: 4F 46 46 20 46 52 51 00 2B 1A DA 07 99 22 93 11 |OFF FRQ.+...."..|
00001200: 1E D4 48 45 20 54 48 55 4E 44 45 52 20 55 53 45 |..HE THUNDER USE|
00001210: 44 20 57 49 54 48 20 54 48 49 53 20 44 45 4D 4F |D WITH THIS DEMO|
00001220: 4E 53 54 52 41 54 49 4F 4E 22 3B 00 57 1A E4 07 |NSTRATION";.W...|
00001230: 99 22 55 53 45 53 20 41 20 46 52 45 51 55 45 4E |."USES A FREQUEN|
00001240: 43 59 20 43 55 54 4F 46 46 20 54 4F 20 45 4C 49 |CY CUTOFF TO ELI|
00001250: 4D 49 4E 41 54 45 22 00 86 1A EE 07 99 22 54 48 |MINATE"......"TH|
00001260: 45 20 54 49 4E 4E 59 20 53 4F 55 4E 44 20 4F 46 |E TINNY SOUND OF|
00001270: 20 54 48 45 20 4E 4F 49 53 45 20 47 45 4E 45 52 | THE NOISE GENER|
00001280: 41 54 4F 52 2E 22 00 B6 1A F8 07 99 22 11 C4 49 |ATOR."......"..I|
00001290: 46 46 45 52 45 4E 54 20 36 34 27 53 20 52 45 51 |FFERENT 64'S REQ|
000012A0: 55 49 52 45 20 44 49 46 46 45 52 45 4E 54 20 56 |UIRE DIFFERENT V|
000012B0: 41 4C 55 45 53 22 00 E2 1A 02 08 99 22 46 4F 52 |ALUES"......"FOR|
000012C0: 20 54 48 45 20 27 43 55 54 4F 46 46 27 20 46 52 | THE 'CUTOFF' FR|
000012D0: 45 51 55 45 4E 43 59 2E 20 20 D5 53 45 20 54 48 |EQUENCY. .SE TH|
000012E0: 45 22 00 11 1B 0C 08 99 22 46 52 45 51 55 45 4E |E"......"FREQUEN|
000012F0: 43 59 20 56 41 4C 55 45 20 57 48 49 43 48 20 50 |CY VALUE WHICH P|
00001300: 52 4F 44 55 43 45 53 20 54 48 45 20 4D 4F 53 54 |RODUCES THE MOST|
00001310: 22 00 3E 1B 16 08 99 22 52 45 41 4C 49 53 54 49 |".>...."REALISTI|
00001320: 43 20 53 4F 55 4E 44 20 28 50 52 4F 42 41 42 4C |C SOUND (PROBABL|
00001330: 59 20 37 35 20 54 4F 20 31 36 30 29 2E 22 00 67 |Y 75 TO 160).".g|
00001340: 1B 20 08 99 22 11 20 20 20 20 20 20 20 20 20 2A |. ..". *|
00001350: 2A 2A 20 45 4E 54 45 52 20 30 20 54 4F 20 45 58 |** ENTER 0 TO EX|
00001360: 49 54 20 2A 2A 2A 22 00 A0 1B 2A 08 99 22 11 20 |IT ***"...*..". |
00001370: 20 2A 2A 20 50 52 45 53 53 12 A1 52 45 54 55 52 | ** PRESS..RETUR|
00001380: 4E 92 B5 46 4F 52 20 43 55 52 52 45 4E 54 20 54 |N..FOR CURRENT T|
00001390: 48 55 4E 44 45 52 20 2A 2A 22 3A 4E 25 B2 43 25 |HUNDER **":N%.C%|
000013A0: 00 DB 1B 34 08 99 22 13 11 11 11 11 11 11 11 11 |...4..".........|
000013B0: 11 11 11 11 11 11 11 11 11 20 43 55 52 52 45 4E |......... CURREN|
000013C0: 54 20 43 55 54 4F 46 46 20 56 41 4C 55 45 3A 20 |T CUTOFF VALUE: |
000013D0: 20 20 20 14 14 14 14 22 3B 43 25 00 11 1C 3E 08 | ....";C%...>.|
000013E0: 9E 34 39 31 35 32 3A 85 22 11 20 4E 45 57 20 56 |.49152:.". NEW V|
000013F0: 41 4C 55 45 20 20 20 20 20 14 14 14 14 14 22 3B |ALUE .....";|
00001400: 4E 25 3A 8B 4E 25 B2 30 A7 42 24 B2 22 53 22 3A |N%:.N%.0.B$."S":|
00001410: 8E 00 2B 1C 48 08 43 25 B2 4E 25 3A 97 35 34 32 |..+.H.C%.N%:.542|
00001420: 39 34 2C 43 25 3A 89 32 31 30 30 00 00 00 |94,C%:.2100... |
../....M1..0.1025:. IF CHANGE SUBROUTINE
LOADED.`....52,84:.56,84:.:M1.1:.53280,
0:.53281,0:.1110......
**** SUBROUTINE TO CHANGE GROUP COLORS
IN MASS ****.A...."SUBRTN02",8,1......M
1.1.M1.2:."THUNDER",8,1.....NA$."PKIN.PI
C":.21707,8:. SET MAP NAME & STORE LENGT
H.V....I.1.8:.21707.I,F(J(NA$,I,1)):.:.4
9152:.54294,110:C%.110.P....21729:.B(217
06)..0.......BD.21534:. ADDRESS OF BORDE
R COLOR TO BE USED.X.$.GC.21535:. ADDRES
S OF GROUP CHANGE COUNT - MAX 10.....GP.
21536:. ADDRESS OF FIRST GROUP TO BE CHA
NGED.C.8.C1.21560:. ADDRESS OF FIRST ON
COLOR TO BE CHANGED.{.B.C2.21584:. ADDRE
SS OF FIRST OFF COLOR TO BE CHANGED...G.
E1.120:E2.209:EL.170.A.L..1910:W.1:.1140
:. LOAD SPRITES AND START...V..G(14)"...
...........H A L L O W E E N":."........
............BY"...`.."..............IAN
G. STRACHAN":..B.J..1110:W.1:.1730.Y.T..
"... .PICTURE CREATED WITH FLEXIDRAW
TM":.1730...~.." COLOR ADDED WITH PE
N-PALETTE TM":.1730......" ANIMAT
ION WRITTEN IN BASIC":.1730......B$."C".
W.5:.1730:.".":.1220.)...."..........PRE
SS .*. TO ADJUST THUNDER".Q...."........
.PRESS .S. TO START ONCE".}...."......PR
ESS .C. TO RUN CONTINUOUSLY."......1400:
.".".G.D..
**** SHOW BIT MAP ****...N..53265,B(532
65).239 :. BLANK SCREEN.-.X.. 56
578,B(56578).3 :. SET CIA TO O
UTPUT.`.... 56576,(B(56576).252).2 :.
CHANGE TO BANK 1...... 53272,(B(53272).1
).120 :. SCREEN TO 23552 BIT MAP TO 2
4576...... 648,92
:. POINT KERNAL TO SCREEN...... 53265,
B(53265).32 :. SET ON BIT MAP
MODE.V...W.3:.1730:.53265,B(53265).16:.
WAIT 3, TURN ON SCREEN......1430:.
**** PERFORM CYCLE ONCE *
***.L....53265,B(53265).239:W.2:.1730:.
BLANK SCREEN, WAIT 2...#..
**** SHOW SCREEN ****.#
.(.. RESET TO NORMAL SCREEN.:.2.. 56578,
B(56578).3.W.<.. 56576,(B(56576).252).3.
S.F.. 53272,(B(53272).1).20...P.. 53265,
B(53265).223...Z.. 648,4...D.. 53265,B(5
3265).16...N..1130...X..198,0:.198,1:.B$
:.B$."*"..2000......B$.."S".B$.."C".1400
.......;....
**** MAINLINE LOGIC ****.L...W.5:.173
0:WT.1:L.1:.1800:W.2:.1730:L.2:.1800...
.W.3:.1730:L.1:.1800.....W.0:.1730.P...T
C.8:MC.0:.1600:. **** TEETH-OR
ANGE MOUTH-BLACK.....W.2:.1730:MC.7:.160
0:. **** MOUTH YELLOW.1.H.W.3:.1730:.
**** NOW BLINK EYE.O.R..G
P,10:.C2,8:.GC,1:.21504.L...W..25:.1730:
.C2,7:.21504.....W.3:.1730:.1800:W.0:.17
30:MC.7:TC.15.M....GP,6:.C1,TC:.C2,MC:.G
C,1:.21504:. ** SHOW TEETH **.....W.2:.1
730:L.2:.1800:TH%.1.....W.4:.1730:WT.2:L
.1:.1800:W.0:.1730.C...MC.0:.1600:.53269
,3:. **** 0 = BLACK ****.S...W.2:.173
0:E%.50:.1660:W.1:.1730:E%.20:.1660...".
W.1:.1730:WT.1:L.1:.1800:L.2:.1800...,.T
H%.0:MC.8:TC.8:.1600:.53269,0:. ** RES
ET TO ALL ORANGE **...6.W.3:.1730:..-.@.
. **** CHA
NGE FACE ROUTINE ****.].J..GP ,10:.C1
,8:.C2 ,MC:. ** LEFT EYE **...T..GP.1,
11:.C1.1,8:.C2.1,MC:. ** RIGHT EYE & NO
SE **.B.^..GP.2, 5:.C1.2,8:.C2.2,MC:. *
* MOUTH **...H..GP.3, 6:.C1.3,TC:.C2.3,M
C:. ** TEETH **...R..GC,4:.21504:..E.|..
**** EYE
MOVEMENT ROUTINE ****.^....II..1..6..1:.
1710:..~...NV.EL.1:.53249,NV:.53251,NV..
....II..6.6 :.1710:.......53249,EL
:.53251,EL.L....II. 6. 0..1:.1710:..R..
........IL.1.E%:.TH.TI..1760......:.5324
8,E1.II:.53250,E2.II:..*.B..I.1.200.W:.T
H.TI..1760.2.L..:..S.V..
**** TOOTH BITE ROUTINE *
***.....TH.TI.20:.TH%.0........TS.0.TS.1
:TC%.TC:.1790.....TS.0:TC%.MC......GP,6:
.C1,TC:.C2,TC%:.GC,1:.21504:.......
**** LIGHTNING
ROUTINE ****.1...Y.1:BG.12:.1870.E...Y.
12:BG.0:.1870.Y.&.Y.1:BG.12:.1870.N.0.Y.
15:BG.11:.1870...:.Y.0:BG.0:.1870...D..4
9152:....N..GP ,2:.C1 ,Y:.C2 ,BG :.
GROUP B...X..GP.1,3:.C1.1,BG:.C2.1,BG :
. GROUP C...\..GP.2,1:.C1.2,8:.C2.2,BG
:. GROUP A.6.^..GP.3,8:.C1.3,5:.C2.3,B
G :. GROUP H.A.`..GP.4,0:.C1.4,BG:.C2.
4,BG :. GROUP 0...A..GP.5,7:.C1.5,9:.C
2.5,BG :. GROUP G...B..GP.6,12:.C1.6,B
G:.C2.6,BG:. GROUP L...C..GP.7,13:.C1.7
,BG:.C2.7,BG:. GROUP M...G..L.2..C1.1,Y
...H..WT.2.BG.0..C1.6,0:.C1.7,7.4.L..BD,
BG:.GC,8:.21504:.TH.TI..1760.:.Q...Y.V..
**** LOAD
SPRITE DATA ****......I.0.62:.NV:.21888
.I,NV:..A....24568,86:.24569,86:.53287,6
:.53288,6......53248,E1:.53249,EL:.53250
,E2:.53251,EL......53275,3:.53279,3:..N.
... 0,28,0,0,62,0,0,127,0,0,247,128,1,22
7,192,0,247,128,0,127,0,0,62,0...... 0,2
8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0...... 0,0,0,0,0,
0...P.. *
** ROUTINE TO ADJUST THUNDER CUTOFF FRQ.
+.Z.."...THE THUNDER USED WITH THIS DEMO
NSTRATION";.W...."USES A FREQUENCY CUTOF
F TO ELIMINATE"......"THE TINNY SOUND OF
THE NOISE GENERATOR."......".DIFFERENT
64'S REQUIRE DIFFERENT VALUES"......"FOR
THE 'CUTOFF' FREQUENCY. USE THE"......
"FREQUENCY VALUE WHICH PRODUCES THE MOST
".>...."REALISTIC SOUND (PROBABLY 75 TO
160).".G. ..". *** ENTER 0 TO EX
IT ***". .*..". ** PRESS..RETURN..FOR C
URRENT THUNDER **":N%.C%...4..".........
......... CURRENT CUTOFF VALUE: ...."
;C%...>..49152:.". NEW VALUE .....";
N%:.N%.0.B$."S":..+.H.C%.N%:.54294,C%:.2
100...
> CLICK IMAGE PREVIEW FOR FULL MODAL