SPACE CADET

FILE INFORMATION

FILENAME(S): SPACE CADET

FILE TYPE(S): PRG

FILE SIZE: 2.8K

FIRST SEEN: 2025-11-30 21:05:44

APPEARS ON: 5 disk(s)

FILE HASH

ba6ae38be39618128f25def4a0c146d6fbe2245f694d89b1ab1443e532815b6b

FOUND ON DISKS (5 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LICHTPEN PROG	SPACE CADET	PRG	DuncanTwain	24	0	DOWNLOAD FILE
NR 50	SPACE CADET	PRG	DuncanTwain	30	4	DOWNLOAD FILE
C64 HULP 30 2	SPACE CADET	PRG	DuncanTwain	30	4	DOWNLOAD FILE
FLEXIDRAW 3 0	SPACE CADET	PRG	DuncanTwain	30	4	DOWNLOAD FILE
FLEXIDRAW 3 0	SPACE CADET	PRG	hedning, Helsinborg	30	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 25 08 01 00 8F 20  43 4F 4C 4F 52 20 41 4E  |..%.... COLOR AN|
00000010: 49 4D 41 54 49 4F 4E 20  44 45 4D 4F 4E 53 54 52  |IMATION DEMONSTR|
00000020: 41 54 49 4F 4E 00 3F 08  05 00 8F 20 42 59 20 4D  |ATION.?.... BY M|
00000030: 49 43 48 41 45 4C 20 41  2E 20 45 53 4B 49 4E 00  |ICHAEL A. ESKIN.|
00000040: 67 08 06 00 8F 20 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |g.... **********|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000060: 2A 2A 2A 2A 2A 2A 2A 00  8D 08 07 00 8F 20 55 53  |*******...... US|
00000070: 45 20 54 48 49 53 20 50  52 4F 47 52 41 4D 20 41  |E THIS PROGRAM A|
00000080: 53 20 41 20 4D 4F 44 45  4C 20 46 4F 52 00 AF 08  |S A MODEL FOR...|
00000090: 08 00 8F 20 59 4F 55 52  20 4F 57 4E 20 41 4E 49  |... YOUR OWN ANI|
000000A0: 4D 41 54 49 4F 4E 20 50  52 4F 47 52 41 4D 53 00  |MATION PROGRAMS.|
000000B0: D7 08 09 00 8F 20 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..... **********|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000D0: 2A 2A 2A 2A 2A 2A 2A 00  FD 08 0A 00 8B 20 53 B2  |*******...... S.|
000000E0: 31 20 A7 20 33 30 3A 8F  20 49 46 20 46 49 4C 45  |1 . 30:. IF FILE|
000000F0: 20 4C 4F 41 44 45 44 2C  20 4A 55 4D 50 00 40 09  | LOADED, JUMP.@.|
00000100: 0F 00 8F 20 52 45 53 45  52 56 45 20 4D 45 4D 4F  |... RESERVE MEMO|
00000110: 52 59 20 46 4F 52 20 47  52 41 50 48 49 43 53 2C  |RY FOR GRAPHICS,|
00000120: 20 4C 4F 41 44 20 49 4E  20 43 4F 4C 4F 52 20 41  | LOAD IN COLOR A|
00000130: 4E 49 4D 41 54 49 4F 4E  20 52 4F 55 54 49 4E 45  |NIMATION ROUTINE|
00000140: 00 6B 09 14 00 97 20 35  32 2C 38 34 3A 97 20 35  |.k.... 52,84:. 5|
00000150: 36 2C 38 34 3A 9C 3A 53  B2 31 3A 93 20 22 53 55  |6,84:.:S.1:. "SU|
00000160: 42 52 54 4E 30 32 22 2C  38 2C 31 00 98 09 19 00  |BRTN02",8,1.....|
00000170: 8F 20 53 45 54 55 50 20  50 4F 49 4E 54 45 52 53  |. SETUP POINTERS|
00000180: 20 54 4F 20 43 4F 4C 4F  52 20 43 48 41 4E 47 45  | TO COLOR CHANGE|
00000190: 20 52 4F 55 54 49 4E 45  00 B9 09 1E 00 42 44 B2  | ROUTINE.....BD.|
000001A0: 32 31 35 33 34 20 3A 8F  20 4E 45 57 20 42 4F 52  |21534 :. NEW BOR|
000001B0: 44 45 52 20 43 4F 4C 4F  52 00 F0 09 28 00 47 43  |DER COLOR...(.GC|
000001C0: B2 32 31 35 33 35 20 3A  8F 20 4E 55 4D 42 45 52  |.21535 :. NUMBER|
000001D0: 20 4F 46 20 47 52 4F 55  50 53 20 54 4F 20 43 48  | OF GROUPS TO CH|
000001E0: 41 4E 47 45 20 28 4D 41  58 20 4F 46 20 31 30 29  |ANGE (MAX OF 10)|
000001F0: 00 21 0A 32 00 47 50 B2  32 31 35 33 36 20 3A 8F  |.!.2.GP.21536 :.|
00000200: 20 41 44 44 52 45 53 53  20 4F 46 20 46 49 52 53  | ADDRESS OF FIRS|
00000210: 54 20 47 52 4F 55 50 20  54 4F 20 43 48 41 4E 47  |T GROUP TO CHANG|
00000220: 45 00 53 0A 3C 00 43 31  B2 32 31 35 36 30 20 3A  |E.S.<.C1.21560 :|
00000230: 8F 20 41 44 44 52 45 53  53 20 4F 46 20 46 49 52  |. ADDRESS OF FIR|
00000240: 53 54 20 46 4F 52 45 47  52 4F 55 4E 44 20 43 4F  |ST FOREGROUND CO|
00000250: 4C 4F 52 00 85 0A 46 00  43 32 B2 32 31 35 38 34  |LOR...F.C2.21584|
00000260: 20 3A 8F 20 41 44 44 52  45 53 53 20 4F 46 20 46  | :. ADDRESS OF F|
00000270: 49 52 53 54 20 42 41 43  4B 47 52 4F 55 4E 44 20  |IRST BACKGROUND |
00000280: 43 4F 4C 4F 52 00 A4 0A  4B 00 8F 20 4E 4F 57 20  |COLOR...K.. NOW |
00000290: 4C 4F 41 44 20 49 4E 20  50 49 43 54 55 52 45 20  |LOAD IN PICTURE |
000002A0: 46 49 4C 45 00 C4 0A 50  00 4E 41 24 B2 22 4D 49  |FILE...P.NA$."MI|
000002B0: 43 48 41 45 4C 2E 50 49  43 22 3A 4E 4C B2 C3 28  |CHAEL.PIC":NL..(|
000002C0: 4E 41 24 29 00 F0 0A 55  00 8F 20 50 4F 4B 45 20  |NA$)...U.. POKE |
000002D0: 46 49 4C 45 20 4E 41 4D  45 20 41 4E 44 20 4C 45  |FILE NAME AND LE|
000002E0: 4E 47 54 48 20 49 4E 54  4F 20 4D 45 4D 4F 52 59  |NGTH INTO MEMORY|
000002F0: 00 0A 0B 5A 00 97 20 32  31 37 30 37 2C 4E 4C 3A  |...Z.. 21707,NL:|
00000300: 81 20 49 B2 31 20 A4 20  4E 4C 00 28 0B 64 00 97  |. I.1 . NL.(.d..|
00000310: 20 32 31 37 30 37 AA 49  2C C6 28 CA 28 4E 41 24  | 21707.I,.(.(NA$|
00000320: 2C 49 2C 31 29 29 3A 82  00 4D 0B 69 00 8F 20 47  |,I,1)):..M.i.. G|
00000330: 4F 20 4C 4F 41 44 20 50  49 43 54 55 52 45 20 41  |O LOAD PICTURE A|
00000340: 4E 44 20 43 4F 4C 4F 52  20 46 49 4C 45 00 6B 0B  |ND COLOR FILE.k.|
00000350: 6E 00 9E 20 32 31 37 32  39 3A 8B 20 C2 28 32 31  |n.. 21729:. .(21|
00000360: 37 30 36 29 B3 B1 30 20  A7 20 90 00 97 0B 70 00  |706)..0 . ....p.|
00000370: 8F 20 52 45 41 44 20 43  4F 4C 4F 52 20 41 52 52  |. READ COLOR ARR|
00000380: 41 59 20 46 52 4F 4D 20  44 41 54 41 20 53 54 41  |AY FROM DATA STA|
00000390: 54 45 4D 45 4E 54 53 00  AF 0B 73 00 81 20 49 B2  |TEMENTS...s.. I.|
000003A0: 31 20 A4 20 31 30 3A 87  20 43 28 49 29 3A 82 00  |1 . 10:. C(I):..|
000003B0: CD 0B 75 00 8D 20 33 30  30 30 20 3A 8F 20 43 4C  |..u.. 3000 :. CL|
000003C0: 45 41 52 20 4D 45 4E 55  20 41 52 45 41 00 EB 0B  |EAR MENU AREA...|
000003D0: 78 00 8D 20 31 30 30 30  20 3A 8F 20 54 55 52 4E  |x.. 1000 :. TURN|
000003E0: 20 4F 4E 20 42 49 54 20  4D 41 50 00 19 0C 7D 00  | ON BIT MAP...}.|
000003F0: 81 20 49 B2 31 20 A4 20  31 30 20 3A 8F 20 4C 4F  |. I.1 . 10 :. LO|
00000400: 4F 50 20 46 4F 52 20 41  4C 4C 20 52 41 49 4E 42  |OP FOR ALL RAINB|
00000410: 4F 57 20 43 4F 4C 4F 52  53 00 39 0C 82 00 97 20  |OW COLORS.9.... |
00000420: 47 50 2C 39 20 20 20 20  3A 8F 20 47 52 4F 55 50  |GP,9    :. GROUP|
00000430: 20 49 20 28 45 59 45 53  29 00 55 0C 8C 00 97 20  | I (EYES).U.... |
00000440: 43 31 2C 43 28 49 29 20  3A 8F 20 4E 45 58 54 20  |C1,C(I) :. NEXT |
00000450: 43 4F 4C 4F 52 00 77 0C  96 00 97 20 43 32 2C 31  |COLOR.w.... C2,1|
00000460: 20 20 20 20 3A 8F 20 57  48 49 54 45 20 42 41 43  |    :. WHITE BAC|
00000470: 4B 47 52 4F 55 4E 44 00  98 0C A0 00 97 20 47 50  |KGROUND...... GP|
00000480: AA 31 2C 34 20 20 20 3A  8F 20 47 52 4F 55 50 20  |.1,4   :. GROUP |
00000490: 44 20 28 48 41 49 52 29  00 AB 0C AA 00 97 20 43  |D (HAIR)...... C|
000004A0: 31 AA 31 2C 43 28 31 31  AB 49 29 00 CD 0C B4 00  |1.1,C(11.I).....|
000004B0: 97 20 43 32 AA 31 2C 31  20 20 3A 8F 20 57 48 49  |. C2.1,1  :. WHI|
000004C0: 54 45 20 42 41 43 4B 47  52 4F 55 4E 44 00 ED 0C  |TE BACKGROUND...|
000004D0: BE 00 97 20 47 50 AA 32  2C 33 20 20 3A 8F 20 47  |... GP.2,3  :. G|
000004E0: 52 4F 55 50 20 43 20 28  4C 49 50 53 29 00 11 0D  |ROUP C (LIPS)...|
000004F0: C8 00 97 20 43 31 AA 32  2C BB 28 31 29 AC 31 34  |... C1.2,.(1).14|
00000500: AA 32 3A 8F 20 52 41 4E  44 4F 4D 20 43 4F 4C 4F  |.2:. RANDOM COLO|
00000510: 52 00 33 0D D2 00 97 20  43 32 AA 32 2C 31 20 20  |R.3.... C2.2,1  |
00000520: 3A 8F 20 57 48 49 54 45  20 42 41 43 4B 47 52 4F  |:. WHITE BACKGRO|
00000530: 55 4E 44 00 53 0D DC 00  97 20 47 50 AA 33 2C 37  |UND.S.... GP.3,7|
00000540: 20 20 3A 8F 20 47 52 4F  55 50 20 47 20 28 4C 4F  |  :. GROUP G (LO|
00000550: 47 4F 29 00 74 0D E6 00  97 20 43 31 AA 33 2C 36  |GO).t.... C1.3,6|
00000560: 20 20 3A 8F 20 42 4C 55  45 20 46 4F 52 45 47 52  |  :. BLUE FOREGR|
00000570: 4F 55 4E 44 00 99 0D F0  00 97 20 43 32 AA 33 2C  |OUND...... C2.3,|
00000580: BB 28 31 29 AC 31 34 AA  32 20 3A 8F 20 52 41 4E  |.(1).14.2 :. RAN|
00000590: 44 4F 4D 20 43 4F 4C 4F  52 00 BA 0D FA 00 97 20  |DOM COLOR...... |
000005A0: 47 43 2C 34 20 20 20 20  3A 8F 20 43 48 41 4E 47  |GC,4    :. CHANG|
000005B0: 45 20 34 20 47 52 4F 55  50 53 00 D8 0D 04 01 97  |E 4 GROUPS......|
000005C0: 20 42 44 2C 30 20 20 20  20 3A 8F 20 57 48 49 54  | BD,0    :. WHIT|
000005D0: 45 20 42 4F 52 44 45 52  00 FD 0D 0E 01 9E 20 32  |E BORDER...... 2|
000005E0: 31 35 30 34 20 20 20 20  3A 8F 20 47 4F 20 44 4F  |1504    :. GO DO|
000005F0: 20 43 4F 4C 4F 52 20 43  48 41 4E 47 45 00 2E 0E  | COLOR CHANGE...|
00000600: 18 01 A1 20 41 24 3A 8B  20 41 24 B3 B1 22 22 20  |... A$:. A$.."" |
00000610: A7 20 33 31 30 3A 8F 20  49 46 20 41 20 4B 45 59  |. 310:. IF A KEY|
00000620: 20 50 52 45 53 53 45 44  2C 20 53 54 4F 50 00 45  | PRESSED, STOP.E|
00000630: 0E 22 01 82 20 49 3A 8F  20 4B 45 45 50 20 4C 4F  |.".. I:. KEEP LO|
00000640: 4F 50 49 4E 47 00 4F 0E  2C 01 89 20 31 32 35 00  |OPING.O.,.. 125.|
00000650: 70 0E 36 01 8D 20 32 30  30 30 20 3A 20 8F 20 45  |p.6.. 2000 : . E|
00000660: 58 49 54 20 46 52 4F 4D  20 42 49 54 20 4D 41 50  |XIT FROM BIT MAP|
00000670: 00 82 0E 40 01 90 20 3A  8F 20 41 4E 44 20 51 55  |...@.. :. AND QU|
00000680: 49 54 00 9E 0E E8 03 8F  20 53 45 54 55 50 20 42  |IT...... SETUP B|
00000690: 49 54 4D 41 50 20 47 52  41 50 48 49 43 53 00 A4  |ITMAP GRAPHICS..|
000006A0: 0E E9 03 8F 00 B7 0E ED  03 8F 20 42 4C 41 4E 4B  |.......... BLANK|
000006B0: 20 53 43 52 45 45 4E 00  D2 0E F2 03 97 20 35 33  | SCREEN...... 53|
000006C0: 32 36 35 2C C2 28 35 33  32 36 35 29 20 AF 20 32  |265,.(53265) . 2|
000006D0: 33 39 00 EA 0E F7 03 8F  20 53 45 54 20 43 49 41  |39...... SET CIA|
000006E0: 20 54 4F 20 4F 55 54 50  55 54 00 03 0F FC 03 97  | TO OUTPUT......|
000006F0: 20 35 36 35 37 38 2C C2  28 35 36 35 37 38 29 20  | 56578,.(56578) |
00000700: B0 20 33 00 29 0F 01 04  8F 20 43 48 41 4E 47 45  |. 3.).... CHANGE|
00000710: 20 56 49 43 2D 49 49 20  41 44 44 52 45 53 53 20  | VIC-II ADDRESS |
00000720: 54 4F 20 42 41 4E 4B 20  31 00 46 0F 06 04 97 20  |TO BANK 1.F.... |
00000730: 35 36 35 37 36 2C 28 C2  28 35 36 35 37 36 29 AF  |56576,(.(56576).|
00000740: 32 35 32 29 B0 32 00 71  0F 0B 04 8F 20 53 43 52  |252).2.q.... SCR|
00000750: 45 45 4E 20 52 41 4D 20  41 54 20 32 33 35 35 32  |EEN RAM AT 23552|
00000760: 2C 20 42 49 54 4D 41 50  20 41 54 20 32 34 35 37  |, BITMAP AT 2457|
00000770: 36 00 8E 0F 10 04 97 20  35 33 32 37 32 2C 28 C2  |6...... 53272,(.|
00000780: 28 35 33 32 37 32 29 AF  31 29 B0 31 32 30 00 AB  |(53272).1).120..|
00000790: 0F 15 04 8F 20 50 4F 49  4E 54 20 4B 45 52 4E 41  |.... POINT KERNA|
000007A0: 4C 20 54 4F 20 53 43 52  45 45 4E 00 B8 0F 1A 04  |L TO SCREEN.....|
000007B0: 97 20 36 34 38 2C 39 32  00 D2 0F 1F 04 8F 20 54  |. 648,92...... T|
000007C0: 55 52 4E 20 4F 4E 20 42  49 54 4D 41 50 20 4D 4F  |URN ON BITMAP MO|
000007D0: 44 45 00 EC 0F 24 04 97  20 35 33 32 36 35 2C C2  |DE...$.. 53265,.|
000007E0: 28 35 33 32 36 35 29 20  B0 20 33 32 00 01 10 29  |(53265) . 32...)|
000007F0: 04 8F 20 55 4E 42 4C 41  4E 4B 20 53 43 52 45 45  |.. UNBLANK SCREE|
00000800: 4E 00 1B 10 2E 04 97 20  35 33 32 36 35 2C C2 28  |N...... 53265,.(|
00000810: 35 33 32 36 35 29 20 B0  20 31 36 00 2E 10 33 04  |53265) . 16...3.|
00000820: 8F 20 45 4E 44 20 4F 46  20 53 45 54 55 50 00 34  |. END OF SETUP.4|
00000830: 10 38 04 8E 00 3A 10 42  04 8F 00 5A 10 D0 07 8F  |.8...:.B...Z....|
00000840: 20 45 58 49 54 20 46 52  4F 4D 20 42 49 54 4D 41  | EXIT FROM BITMA|
00000850: 50 20 47 52 41 50 48 49  43 53 00 60 10 D1 07 8F  |P GRAPHICS.`....|
00000860: 00 73 10 D5 07 8F 20 42  4C 41 4E 4B 20 53 43 52  |.s.... BLANK SCR|
00000870: 45 45 4E 00 8E 10 DA 07  97 20 35 33 32 36 35 2C  |EEN...... 53265,|
00000880: C2 28 35 33 32 36 35 29  20 AF 20 32 33 39 00 B6  |.(53265) . 239..|
00000890: 10 DF 07 8F 20 53 45 54  20 43 49 41 20 54 4F 20  |.... SET CIA TO |
000008A0: 4F 55 54 50 55 54 20 46  4F 52 20 42 41 4E 4B 20  |OUTPUT FOR BANK |
000008B0: 53 57 49 54 43 48 00 CF  10 E4 07 97 20 35 36 35  |SWITCH...... 565|
000008C0: 37 38 2C C2 28 35 36 35  37 38 29 20 B0 20 33 00  |78,.(56578) . 3.|
000008D0: E6 10 E9 07 8F 20 43 48  41 4E 47 45 20 54 4F 20  |..... CHANGE TO |
000008E0: 42 41 4E 4B 20 31 00 07  11 EE 07 97 20 35 36 35  |BANK 1...... 565|
000008F0: 37 36 2C 28 C2 28 35 36  35 37 36 29 20 AF 20 32  |76,(.(56576) . 2|
00000900: 35 32 29 20 B0 20 33 00  2B 11 F3 07 8F 20 52 45  |52) . 3.+.... RE|
00000910: 53 45 54 20 4E 4F 52 4D  41 4C 20 44 4F 54 20 44  |SET NORMAL DOT D|
00000920: 41 54 41 20 41 44 44 52  45 53 53 00 47 11 F8 07  |ATA ADDRESS.G...|
00000930: 97 20 35 33 32 37 32 2C  28 C2 28 35 33 32 37 32  |. 53272,(.(53272|
00000940: 29 AF 31 29 B0 32 30 00  5E 11 FD 07 8F 20 45 58  |).1).20.^.... EX|
00000950: 49 54 20 42 49 54 4D 41  50 20 4D 4F 44 45 00 79  |IT BITMAP MODE.y|
00000960: 11 02 08 97 20 35 33 32  36 35 2C C2 28 35 33 32  |.... 53265,.(532|
00000970: 36 35 29 20 AF 20 32 32  33 00 96 11 07 08 8F 20  |65) . 223...... |
00000980: 50 4F 49 4E 54 20 4B 45  52 4E 41 4C 20 54 4F 20  |POINT KERNAL TO |
00000990: 53 43 52 45 45 4E 00 A2  11 0C 08 97 20 36 34 38  |SCREEN...... 648|
000009A0: 2C 34 00 B7 11 11 08 8F  20 55 4E 42 4C 41 4E 4B  |,4...... UNBLANK|
000009B0: 20 53 43 52 45 45 4E 00  D1 11 16 08 97 20 35 33  | SCREEN...... 53|
000009C0: 32 36 35 2C C2 28 35 33  32 36 35 29 20 B0 20 31  |265,.(53265) . 1|
000009D0: 36 00 D7 11 20 08 8E 00  DD 11 B8 0B 8F 00 06 12  |6... ...........|
000009E0: BD 0B 8F 20 4D 41 4B 45  20 4D 45 4E 55 20 41 52  |... MAKE MENU AR|
000009F0: 45 41 20 57 48 49 54 45  2C 20 42 4F 52 44 45 52  |EA WHITE, BORDER|
00000A00: 20 42 4C 41 43 4B 00 1F  12 C2 0B 97 20 47 50 2C  | BLACK...... GP,|
00000A10: 30 20 20 3A 8F 20 4D 45  4E 55 20 41 52 45 41 00  |0  :. MENU AREA.|
00000A20: 3F 12 CC 0B 97 20 43 31  2C 31 20 20 3A 8F 20 46  |?.... C1,1  :. F|
00000A30: 4F 52 45 47 52 4F 55 4E  44 20 57 48 49 54 45 00  |OREGROUND WHITE.|
00000A40: 5F 12 D6 0B 97 20 43 32  2C 31 20 20 3A 8F 20 42  |_.... C2,1  :. B|
00000A50: 41 43 4B 47 52 4F 55 4E  44 20 57 48 49 54 45 00  |ACKGROUND WHITE.|
00000A60: 7F 12 E0 0B 97 20 47 43  2C 31 20 20 3A 8F 20 43  |..... GC,1  :. C|
00000A70: 48 41 4E 47 45 20 4F 4E  45 20 47 52 4F 55 50 00  |HANGE ONE GROUP.|
00000A80: 9B 12 EA 0B 97 20 42 44  2C 30 20 20 3A 8F 20 42  |..... BD,0  :. B|
00000A90: 4C 41 43 4B 20 42 4F 52  44 45 52 00 B9 12 F4 0B  |LACK BORDER.....|
00000AA0: 9E 20 32 31 35 30 34 20  20 3A 8F 20 44 4F 20 54  |. 21504  :. DO T|
00000AB0: 48 45 20 43 48 41 4E 47  45 00 CB 12 FE 0B 8E 20  |HE CHANGE...... |
00000AC0: 20 20 20 20 3A 8F 20 45  58 49 54 00 E3 12 28 23  |    :. EXIT...(#|
00000AD0: 8F 20 44 41 54 41 20 46  4F 52 20 52 41 49 4E 42  |. DATA FOR RAINB|
00000AE0: 4F 57 53 00 00 13 32 23  83 20 34 2C 36 2C 31 34  |OWS...2#. 4,6,14|
00000AF0: 2C 33 2C 35 2C 31 33 2C  37 2C 38 2C 31 30 2C 32  |,3,5,13,7,8,10,2|
00000B00: 00 06 13 3C 23 80 00 00  00                       |...<#....       |

..%.... COLOR ANIMATION DEMONSTRATION.?.
... BY MICHAEL A. ESKIN.G.... **********
***********************...... USE THIS P
ROGRAM AS A MODEL FOR...... YOUR OWN ANI
MATION PROGRAMS.W.... ******************
***************...... S.1 . 30:. IF FILE
 LOADED, JUMP.@.... RESERVE MEMORY FOR G
RAPHICS, LOAD IN COLOR ANIMATION ROUTINE
.K.... 52,84:. 56,84:.:S.1:. "SUBRTN02",
8,1...... SETUP POINTERS TO COLOR CHANGE
 ROUTINE.....BD.21534 :. NEW BORDER COLO
R...(.GC.21535 :. NUMBER OF GROUPS TO CH
ANGE (MAX OF 10).!.2.GP.21536 :. ADDRESS
 OF FIRST GROUP TO CHANGE.S.<.C1.21560 :
. ADDRESS OF FIRST FOREGROUND COLOR...F.
C2.21584 :. ADDRESS OF FIRST BACKGROUND 
COLOR...K.. NOW LOAD IN PICTURE FILE.D.P
.NA$."MICHAEL.PIC":NL.C(NA$)...U.. POKE 
FILE NAME AND LENGTH INTO MEMORY...Z.. 2
1707,NL:. I.1 . NL.(.D.. 21707.I,F(J(NA$
,I,1)):..M.I.. GO LOAD PICTURE AND COLOR
 FILE.K.N.. 21729:. B(21706)..0 . ....P.
. READ COLOR ARRAY FROM DATA STATEMENTS.
..S.. I.1 . 10:. C(I):..M.U.. 3000 :. CL
EAR MENU AREA...X.. 1000 :. TURN ON BIT 
MAP...}.. I.1 . 10 :. LOOP FOR ALL RAINB
OW COLORS.9.... GP,9    :. GROUP I (EYES
).U.... C1,C(I) :. NEXT COLOR.W.... C2,1
    :. WHITE BACKGROUND... .. GP.1,4   :
. GROUP D (HAIR)...... C1.1,C(11.I).M...
. C2.1,1  :. WHITE BACKGROUND...... GP.2
,3  :. GROUP C (LIPS)...H.. C1.2,.(1).14
.2:. RANDOM COLOR.3.R.. C2.2,1  :. WHITE
 BACKGROUND.S.... GP.3,7  :. GROUP G (LO
GO).T.... C1.3,6  :. BLUE FOREGROUND....
.. C2.3,.(1).14.2 :. RANDOM COLOR...... 
GC,4    :. CHANGE 4 GROUPS.X.... BD,0   
 :. WHITE BORDER...... 21504    :. GO DO
 COLOR CHANGE...... A$:. A$.."" . 310:. 
IF A KEY PRESSED, STOP.E.".. I:. KEEP LO
OPING.O.,.. 125.P.6.. 2000 : . EXIT FROM
 BIT MAP...@.. :. AND QUIT...... SETUP B
ITMAP GRAPHICS............ BLANK SCREEN.
R.... 53265,B(53265) . 239...... SET CIA
 TO OUTPUT...... 56578,B(56578) . 3.)...
. CHANGE VIC-II ADDRESS TO BANK 1.F.... 
56576,(B(56576).252).2.Q.... SCREEN RAM 
AT 23552, BITMAP AT 24576...... 53272,(B
(53272).1).120...... POINT KERNAL TO SCR
EEN...... 648,92.R.... TURN ON BITMAP MO
DE...$.. 53265,B(53265) . 32...).. UNBLA
NK SCREEN...... 53265,B(53265) . 16...3.
. END OF SETUP.4.8...:.B...Z.P.. EXIT FR
OM BITMAP GRAPHICS.`.Q...S.U.. BLANK SCR
EEN...Z.. 53265,B(53265) . 239...... SET
 CIA TO OUTPUT FOR BANK SWITCH.O.... 565
78,B(56578) . 3...... CHANGE TO BANK 1..
.... 56576,(B(56576) . 252) . 3.+.... RE
SET NORMAL DOT DATA ADDRESS.G.... 53272,
(B(53272).1).20.^.... EXIT BITMAP MODE.Y
.... 53265,B(53265) . 223...... POINT KE
RNAL TO SCREEN...... 648,4...... UNBLANK
 SCREEN.Q.... 53265,B(53265) . 16.W. ...
........... MAKE MENU AREA WHITE, BORDER
 BLACK...B.. GP,0  :. MENU AREA.?.L.. C1
,1  :. FOREGROUND WHITE._.V.. C2,1  :. B
ACKGROUND WHITE..... GC,1  :. CHANGE ON
E GROUP...... BD,0  :. BLACK BORDER.....
. 21504  :. DO THE CHANGE.K....     :. E
XIT...(#. DATA FOR RAINBOWS...2#. 4,6,14
,3,5,13,7,8,10,2...<#....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL