GRAPHIUTILTY
FILE INFORMATION
FILENAME(S): GRAPHIUTILTY
FILE TYPE(S): PRG
FILE SIZE: 11.4K
FIRST SEEN: 2025-12-01 01:08:01
APPEARS ON: 1 disk(s)
FILE HASH
df59d214a84b974a289d20779c0df6b3aef23fa4831f89a284a9c8beeef0846b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0116B | GRAPHIUTILTY | PRG | hedning, Kaevlinge | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 00 00 8F 20 50 4A 20 38 33 2D 30 37 |....... PJ 83-07|
00000010: 2D 31 34 2D 2D 38 33 00 3F 08 01 00 8F 20 2A 2A |-14--83.?.... **|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000040: 7B 08 02 00 8F 20 4F 50 45 4E 20 52 53 2D 32 33 |{.... OPEN RS-23|
00000050: 32 43 20 49 2F 4F 20 43 48 41 4E 4E 45 4C 20 28 |2C I/O CHANNEL (|
00000060: 56 49 43 2D 31 30 31 31 41 20 52 53 2D 32 33 32 |VIC-1011A RS-232|
00000070: 20 43 41 52 54 52 49 44 47 45 29 00 A3 08 03 00 | CARTRIDGE).....|
00000080: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000A0: 2A 2A 2A 00 CD 08 05 00 8F 20 4F 50 45 4E 32 30 |***...... OPEN20|
000000B0: 30 2C 32 2C 33 2C 43 48 52 24 28 33 32 2B 36 29 |0,2,3,CHR$(32+6)|
000000C0: 2B 43 48 52 24 28 33 32 2B 31 32 38 29 00 D5 08 |+CHR$(32+128)...|
000000D0: 0A 00 89 38 30 00 FC 08 0C 00 8F 20 2A 2A 2A 2A |...80...... ****|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 49 09 0D |************.I..|
00000100: 00 8F 20 55 4E 50 41 43 4B 20 42 49 54 20 56 41 |.. UNPACK BIT VA|
00000110: 4C 55 45 53 20 46 4F 52 20 45 41 43 48 20 42 59 |LUES FOR EACH BY|
00000120: 54 45 20 4F 46 20 41 20 36 33 20 42 59 54 45 20 |TE OF A 63 BYTE |
00000130: 41 52 52 41 59 2C 20 49 46 20 42 49 54 20 49 53 |ARRAY, IF BIT IS|
00000140: 20 53 45 54 20 54 48 45 4E 00 93 09 0E 00 8F 20 | SET THEN...... |
00000150: 50 4F 4B 45 20 47 52 41 50 48 49 43 20 43 48 41 |POKE GRAPHIC CHA|
00000160: 52 41 43 54 45 52 20 49 4E 20 53 43 52 45 45 4E |RACTER IN SCREEN|
00000170: 20 4D 45 4D 4F 52 59 20 54 4F 20 52 45 43 4F 4E | MEMORY TO RECON|
00000180: 53 54 52 55 43 54 20 53 50 52 49 54 45 20 49 4D |STRUCT SPRITE IM|
00000190: 41 47 45 00 B6 09 0F 00 8F 20 43 41 4C 4C 45 44 |AGE...... CALLED|
000001A0: 20 42 59 20 52 45 44 49 53 50 4C 41 59 20 52 4F | BY REDISPLAY RO|
000001B0: 55 54 49 4E 45 2E 00 DD 09 10 00 8F 20 2A 2A 2A |UTINE....... ***|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F4 09 |*************...|
000001E0: 14 00 4C B2 31 30 37 36 3A 4A B2 31 3A 81 49 B2 |..L.1076:J.1:.I.|
000001F0: 31 A4 32 31 00 0A 0A 17 00 81 58 B2 31 A4 33 3A |1.21......X.1.3:|
00000200: 41 B2 53 44 28 53 4E 2C 4A 29 00 31 0A 19 00 81 |A.SD(SN,J).1....|
00000210: 59 B2 31 A4 38 3A 8B 41 AF 44 43 28 59 29 A7 97 |Y.1.8:.A.DC(Y)..|
00000220: 4C AA 59 2C 31 36 30 3A 97 4C AA 59 AA 4F 46 2C |L.Y,160:.L.Y.OF,|
00000230: 30 00 38 0A 1A 00 82 59 00 4B 0A 25 00 4C B2 4C |0.8....Y.K.%.L.L|
00000240: AA 38 3A 4A B2 4A AA 31 3A 82 58 00 59 0A 28 00 |.8:J.J.1:.X.Y.(.|
00000250: 4C B2 4C AA 31 36 3A 82 49 00 5F 0A 2A 00 8E 00 |L.L.16:.I._.*...|
00000260: 86 0A 2D 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..-.. **********|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000280: 2A 2A 2A 2A 2A 2A 00 CE 0A 2E 00 8F 20 50 52 49 |******...... PRI|
00000290: 4E 54 20 43 48 41 52 41 43 54 45 52 20 53 54 52 |NT CHARACTER STR|
000002A0: 49 4E 47 20 42 24 20 4F 4E 20 53 43 52 45 45 4E |ING B$ ON SCREEN|
000002B0: 20 53 54 41 52 54 49 4E 47 20 41 54 20 53 43 52 | STARTING AT SCR|
000002C0: 45 45 4E 20 41 44 44 52 45 53 53 20 4C 32 00 F5 |EEN ADDRESS L2..|
000002D0: 0A 2F 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |./.. ***********|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002F0: 2A 2A 2A 2A 2A 00 28 0B 32 00 81 58 B2 30 A4 C3 |*****.(.2..X.0..|
00000300: 28 42 24 29 AB 31 3A 43 48 B2 C6 28 CA 28 42 24 |(B$).1:CH..(.(B$|
00000310: 2C 58 AA 31 2C 31 29 29 3A 8B 43 48 B1 36 34 A7 |,X.1,1)):.CH.64.|
00000320: 43 48 B2 43 48 AB 36 34 00 44 0B 34 00 97 4C 32 |CH.CH.64.D.4..L2|
00000330: AA 58 2C 43 48 3A 97 4C 32 AA 58 AA 4F 46 2C 31 |.X,CH:.L2.X.OF,1|
00000340: 31 3A 82 58 00 4A 0B 36 00 8E 00 71 0B 37 00 8F |1:.X.J.6...q.7..|
00000350: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000370: 2A 00 BE 0B 38 00 8F 20 43 52 45 41 54 45 20 36 |*...8.. CREATE 6|
00000380: 33 20 42 59 54 45 20 42 49 54 20 50 41 43 4B 45 |3 BYTE BIT PACKE|
00000390: 44 20 41 52 52 41 59 20 20 46 52 4F 4D 20 53 43 |D ARRAY FROM SC|
000003A0: 52 45 45 4E 20 49 4D 41 47 45 20 57 48 45 4E 20 |REEN IMAGE WHEN |
000003B0: 43 41 4C 4C 45 44 20 42 59 20 53 41 56 45 00 E5 |CALLED BY SAVE..|
000003C0: 0B 39 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.9.. ***********|
000003D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003E0: 2A 2A 2A 2A 2A 00 1A 0C 3C 00 56 B2 35 33 32 34 |*****...<.V.5324|
000003F0: 38 3A 97 56 AA 32 31 2C 34 3A 97 32 30 34 32 2C |8:.V.21,4:.2042,|
00000400: 31 33 3A 97 56 AA 34 2C 34 35 3A 97 56 AA 35 2C |13:.V.4,45:.V.5,|
00000410: 36 30 3A 97 56 AA 34 31 2C 30 00 55 0C 3E 00 4C |60:.V.41,0.U.>.L|
00000420: B2 31 30 37 36 3A 4A B2 31 3A 81 58 B2 31 A4 32 |.1076:J.1:.X.1.2|
00000430: 31 3A 81 49 B2 31 A4 33 3A 81 59 B2 31 A4 38 3A |1:.I.1.3:.Y.1.8:|
00000440: 8B C2 28 4C AA 59 29 B2 31 36 30 A7 44 B2 44 AA |..(L.Y).160.D.D.|
00000450: 44 43 28 59 29 00 82 0C 3F 00 82 59 3A 97 38 33 |DC(Y)...?..Y:.83|
00000460: 31 AA 4A 2C 44 3A 44 B2 30 3A 4C B2 4C AA 38 3A |1.J,D:D.0:L.L.8:|
00000470: 4A B2 4A AA 31 3A 82 49 3A 4C B2 4C AA 31 36 3A |J.J.1:.I:L.L.16:|
00000480: 82 58 00 88 0C 41 00 8E 00 AF 0C 4B 00 8F 20 2A |.X...A.....K.. *|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000004B0: F3 0C 4C 00 8F 20 53 45 54 20 55 50 20 53 43 52 |..L.. SET UP SCR|
000004C0: 45 45 4E 20 43 4F 4C 4F 52 53 2C 20 44 49 4D 45 |EEN COLORS, DIME|
000004D0: 4E 53 49 4F 4E 20 20 41 52 52 41 59 53 2C 20 41 |NSION ARRAYS, A|
000004E0: 4E 44 20 49 4E 49 54 49 41 4C 49 5A 45 20 46 4C |ND INITIALIZE FL|
000004F0: 41 47 53 00 1A 0D 4D 00 8F 20 2A 2A 2A 2A 2A 2A |AGS...M.. ******|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4B 0D 50 00 97 |**********.K.P..|
00000520: 35 33 32 38 31 2C 31 35 3A 97 35 33 32 38 31 2C |53281,15:.53281,|
00000530: 31 3A 97 36 34 36 2C 31 32 3A 53 4E B2 30 3A 52 |1:.646,12:SN.0:R|
00000540: 45 B2 30 3A 56 B2 35 33 32 34 38 00 6C 0D 55 00 |E.0:V.53248.l.U.|
00000550: 99 C7 28 31 34 37 29 3A 97 35 33 32 34 38 AA 32 |..(147):.53248.2|
00000560: 31 2C 30 3A 4F 46 B2 35 34 32 37 32 00 9E 0D 56 |1,0:OF.54272...V|
00000570: 00 86 53 44 28 38 2C 36 33 29 2C 54 44 28 36 33 |..SD(8,63),TD(63|
00000580: 29 2C 44 43 28 38 29 2C 53 53 28 38 29 2C 54 4E |),DC(8),SS(8),TN|
00000590: 28 38 29 2C 44 52 28 33 29 2C 47 28 33 29 00 C5 |(8),DR(3),G(3)..|
000005A0: 0D 57 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.W.. ***********|
000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005C0: 2A 2A 2A 2A 2A 00 E0 0D 58 00 8F 20 4C 4F 41 44 |*****...X.. LOAD|
000005D0: 20 42 49 54 20 56 41 4C 55 45 20 41 52 52 41 59 | BIT VALUE ARRAY|
000005E0: 00 07 0E 59 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...Y.. *********|
000005F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000600: 2A 2A 2A 2A 2A 2A 2A 00 2C 0E 5B 00 43 B2 32 35 |*******.,.[.C.25|
00000610: 36 3A 81 58 B2 31 A4 38 3A 44 43 28 58 29 B2 43 |6:.X.1.8:DC(X).C|
00000620: AD 32 3A 43 B2 44 43 28 58 29 3A 82 00 53 0E 62 |.2:C.DC(X):..S.b|
00000630: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000650: 2A 2A 2A 00 70 0E 63 00 8F 20 50 52 49 4E 54 20 |***.p.c.. PRINT |
00000660: 4D 45 4E 55 20 4F 46 20 43 4F 4D 4D 41 4E 44 53 |MENU OF COMMANDS|
00000670: 00 96 0E 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...d.. *********|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000690: 2A 2A 2A 2A 2A 2A 00 C6 0E 65 00 99 22 2A 2A 2A |******...e.."***|
000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006C0: 2A 2A 2A 2A 2A 22 00 F6 0E 66 00 99 22 2A 20 20 |*****"...f.."* |
000006D0: 20 20 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 20 20 20 2A 22 00 26 0F 67 00 99 22 2A 20 20 | *".&.g.."* |
00000700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000720: 20 20 20 20 2A 22 00 56 0F 68 00 99 22 2A 20 20 | *".V.h.."* |
00000730: 20 43 4F 4D 4D 41 4E 44 45 52 20 36 34 20 53 50 | COMMANDER 64 SP|
00000740: 52 49 54 45 20 47 52 41 50 48 49 43 53 20 20 20 |RITE GRAPHICS |
00000750: 20 20 20 20 2A 22 00 86 0F 69 00 99 22 2A 20 20 | *"...i.."* |
00000760: 20 55 54 49 4C 49 54 59 20 20 20 20 20 20 20 20 | UTILITY |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000780: 20 20 20 20 2A 22 00 B6 0F 6A 00 99 22 2A 20 20 | *"...j.."* |
00000790: 20 57 49 5A 41 52 44 57 4F 52 4B 53 20 53 4F 46 | WIZARDWORKS SOF|
000007A0: 54 57 41 52 45 20 45 4E 47 49 4E 45 45 52 49 4E |TWARE ENGINEERIN|
000007B0: 47 20 20 20 2A 22 00 E6 0F 6B 00 99 22 2A 20 20 |G *"...k.."* |
000007C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007E0: 20 20 20 20 2A 22 00 16 10 6C 00 99 22 2A 20 20 | *"...l.."* |
000007F0: 20 57 52 49 54 54 45 4E 20 42 59 20 47 41 52 59 | WRITTEN BY GARY|
00000800: 20 44 20 4D 43 43 4C 45 4C 4C 41 4E 20 20 20 20 | D MCCLELLAN |
00000810: 20 20 20 20 2A 22 00 46 10 6D 00 99 22 2A 20 20 | *".F.m.."* |
00000820: 20 50 2E 4F 2E 20 42 4F 58 20 31 37 35 30 20 20 | P.O. BOX 1750 |
00000830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000840: 20 20 20 20 2A 22 00 76 10 6E 00 99 22 2A 20 20 | *".v.n.."* |
00000850: 20 46 4C 41 47 53 54 41 46 46 2E 41 5A 20 20 38 | FLAGSTAFF.AZ 8|
00000860: 36 30 30 32 20 20 20 20 20 20 20 20 20 20 20 20 |6002 |
00000870: 20 20 20 20 2A 22 00 A6 10 70 00 99 22 2A 20 20 | *"...p.."* |
00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008A0: 20 20 20 20 2A 22 00 D6 10 71 00 99 22 2A 2A 2A | *"...q.."***|
000008B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008D0: 2A 2A 2A 2A 2A 22 00 E6 10 73 00 81 58 B2 31 A4 |*****"...s..X.1.|
000008E0: 35 30 30 30 3A 82 00 18 11 C8 00 99 C7 28 31 34 |5000:........(14|
000008F0: 37 29 3A 99 22 20 20 20 2A 2A 2A 20 20 20 53 50 |7):." *** SP|
00000900: 52 49 54 45 20 55 54 49 4C 49 54 59 20 4D 45 4E |RITE UTILITY MEN|
00000910: 55 20 20 20 2A 2A 2A 22 00 22 11 CD 00 99 3A 99 |U ***"."....:.|
00000920: 3A 99 00 3F 11 D2 00 99 22 20 20 27 43 27 20 43 |:..?...." 'C' C|
00000930: 52 45 41 54 45 53 20 53 50 52 49 54 45 53 22 00 |REATES SPRITES".|
00000940: 7D 11 D3 00 99 22 20 20 27 41 27 20 57 49 4C 4C |}...." 'A' WILL|
00000950: 20 41 4E 49 4D 41 54 45 20 41 4E 59 20 4F 46 20 | ANIMATE ANY OF |
00000960: 59 4F 55 52 20 53 50 52 49 54 45 20 20 20 20 20 |YOUR SPRITE |
00000970: 20 20 20 43 52 45 41 54 49 4F 4E 53 22 00 C3 11 | CREATIONS"...|
00000980: D4 00 99 22 20 20 27 4C 27 20 4C 4F 41 44 53 20 |..." 'L' LOADS |
00000990: 53 50 52 49 54 45 20 44 41 54 41 20 46 52 4F 4D |SPRITE DATA FROM|
000009A0: 20 54 41 50 45 20 49 4E 54 4F 20 20 20 20 20 20 | TAPE INTO |
000009B0: 20 53 50 52 49 54 45 20 44 41 54 41 20 41 52 52 | SPRITE DATA ARR|
000009C0: 41 59 22 00 FC 11 D5 00 99 22 20 20 27 45 27 20 |AY"......" 'E' |
000009D0: 45 58 49 54 53 20 41 4E 59 20 46 55 4E 43 54 49 |EXITS ANY FUNCTI|
000009E0: 4F 4E 53 20 41 4E 44 20 52 45 54 55 52 4E 53 20 |ONS AND RETURNS |
000009F0: 54 4F 20 20 20 20 20 4D 45 4E 55 22 00 29 12 D6 |TO MENU".)..|
00000A00: 00 99 22 20 20 27 53 27 20 53 41 56 45 53 20 53 |.." 'S' SAVES S|
00000A10: 50 52 49 54 45 20 44 41 54 41 20 41 52 52 41 59 |PRITE DATA ARRAY|
00000A20: 20 4F 4E 20 54 41 50 45 22 00 69 12 D7 00 99 22 | ON TAPE".i...."|
00000A30: 20 20 27 44 27 20 44 49 53 50 4C 41 59 53 20 36 | 'D' DISPLAYS 6|
00000A40: 33 20 42 59 54 45 20 44 41 54 41 20 44 45 53 43 |3 BYTE DATA DESC|
00000A50: 52 49 50 54 49 4F 4E 20 20 20 20 20 20 4F 46 20 |RIPTION OF |
00000A60: 41 20 53 50 52 49 54 45 22 00 A5 12 D9 00 99 22 |A SPRITE"......"|
00000A70: 20 20 27 4E 27 20 44 49 53 50 4C 41 59 53 20 4E | 'N' DISPLAYS N|
00000A80: 55 4D 42 45 52 20 4F 46 20 53 50 52 49 54 45 53 |UMBER OF SPRITES|
00000A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 52 45 | CRE|
00000AA0: 41 54 45 44 22 00 ED 12 DA 00 99 22 20 20 27 52 |ATED"......" 'R|
00000AB0: 27 20 57 49 4C 4C 20 52 45 44 49 53 50 4C 41 59 |' WILL REDISPLAY|
00000AC0: 20 41 20 43 52 45 41 54 45 44 20 53 50 52 49 54 | A CREATED SPRIT|
00000AD0: 45 20 20 20 20 20 20 20 20 46 4F 52 20 47 52 41 |E FOR GRA|
00000AE0: 50 48 49 43 20 45 44 49 54 49 4E 47 22 00 12 13 |PHIC EDITING"...|
00000AF0: DB 00 99 22 20 20 27 51 27 20 28 51 55 49 54 29 |..." 'Q' (QUIT)|
00000B00: 20 57 49 4C 4C 20 45 4E 44 20 50 52 4F 47 52 41 | WILL END PROGRA|
00000B10: 4D 22 00 38 13 DC 00 8F 20 2A 2A 2A 2A 2A 2A 2A |M".8.... *******|
00000B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B30: 2A 2A 2A 2A 2A 2A 2A 2A 00 6C 13 DD 00 8F 20 52 |********.l.... R|
00000B40: 45 41 44 20 4B 45 59 42 4F 41 52 44 20 41 4E 44 |EAD KEYBOARD AND|
00000B50: 20 42 52 41 4E 53 43 48 20 54 4F 20 52 45 51 55 | BRANSCH TO REQU|
00000B60: 45 53 54 45 44 20 4D 4F 44 55 4C 45 00 92 13 DE |ESTED MODULE....|
00000B70: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B90: 2A 2A 00 AC 13 DF 00 99 3A 99 3A 99 22 45 4E 54 |**......:.:."ENT|
00000BA0: 45 52 20 52 45 51 55 45 53 54 22 3B 00 B4 13 E0 |ER REQUEST";....|
00000BB0: 00 85 41 24 00 C0 13 E1 00 99 C7 28 31 34 37 29 |..A$.......(147)|
00000BC0: 00 D0 13 E6 00 8B 41 24 B2 22 43 22 89 34 30 30 |......A$."C".400|
00000BD0: 00 E0 13 F0 00 8B 41 24 B2 22 41 22 89 39 30 30 |......A$."A".900|
00000BE0: 00 F0 13 FA 00 8B 41 24 B2 22 4C 22 89 38 30 30 |......A$."L".800|
00000BF0: 00 00 14 04 01 8B 41 24 B2 22 45 22 89 32 30 30 |......A$."E".200|
00000C00: 00 11 14 0E 01 8B 41 24 B2 22 53 22 89 31 30 30 |......A$."S".100|
00000C10: 30 00 21 14 13 01 8B 41 24 B2 22 44 22 89 36 30 |0.!....A$."D".60|
00000C20: 30 00 31 14 14 01 8B 41 24 B2 22 4E 22 89 33 30 |0.1....A$."N".30|
00000C30: 30 00 47 14 15 01 8B 41 24 B2 22 52 22 A7 52 45 |0.G....A$."R".RE|
00000C40: B2 31 3A 89 34 30 30 00 5A 14 17 01 8B 41 24 B2 |.1:.400.Z....A$.|
00000C50: 22 51 22 A7 A0 32 30 30 3A 80 00 63 14 18 01 89 |"Q"..200:..c....|
00000C60: 32 30 30 00 89 14 22 01 8F 20 2A 2A 2A 2A 2A 2A |200...".. ******|
00000C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CB 14 23 01 8F 20 |*********...#.. |
00000C90: 44 49 53 50 4C 41 59 20 53 50 52 49 54 45 20 49 |DISPLAY SPRITE I|
00000CA0: 4D 41 47 45 53 20 43 52 45 41 54 45 44 20 28 53 |MAGES CREATED (S|
00000CB0: 54 41 54 55 53 20 4F 46 20 53 50 52 49 54 45 20 |TATUS OF SPRITE |
00000CC0: 44 41 54 41 20 41 52 52 41 59 29 00 F1 14 24 01 |DATA ARRAY)...$.|
00000CD0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CF0: 2A 00 FD 14 2C 01 81 58 B2 31 A4 38 3A 00 3A 15 |*...,..X.1.8:.:.|
00000D00: 36 01 8B 53 53 28 58 29 B2 31 A7 99 22 53 50 52 |6..SS(X).1.."SPR|
00000D10: 49 54 45 20 4E 55 4D 42 45 52 22 3B 58 3B 22 49 |ITE NUMBER";X;"I|
00000D20: 4E 20 53 50 52 49 54 45 20 44 41 54 41 20 41 52 |N SPRITE DATA AR|
00000D30: 52 41 59 2E 22 3A 89 33 34 30 00 60 15 40 01 99 |RAY.":.340.`.@..|
00000D40: 22 53 50 52 49 54 45 20 4E 55 4D 42 45 52 22 3B |"SPRITE NUMBER";|
00000D50: 58 3B 22 4E 4F 54 20 43 52 45 41 54 45 44 2E 22 |X;"NOT CREATED."|
00000D60: 00 67 15 54 01 82 58 00 92 15 5E 01 85 22 45 4E |.g.T..X...^.."EN|
00000D70: 54 45 52 20 41 4E 59 20 43 48 41 52 41 43 54 45 |TER ANY CHARACTE|
00000D80: 52 20 54 4F 20 45 58 49 54 22 3B 41 24 3A 89 32 |R TO EXIT";A$:.2|
00000D90: 30 30 00 B8 15 7C 01 8F 20 2A 2A 2A 2A 2A 2A 2A |00...|.. *******|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DB0: 2A 2A 2A 2A 2A 2A 2A 2A 00 FF 15 7D 01 8F 20 50 |********...}.. P|
00000DC0: 52 49 4E 54 20 4F 50 45 52 41 54 4F 52 20 43 4F |RINT OPERATOR CO|
00000DD0: 4D 4D 41 4E 44 53 20 41 4E 44 20 49 4E 53 54 52 |MMANDS AND INSTR|
00000DE0: 55 43 54 49 4F 4E 53 20 46 4F 52 20 53 50 52 49 |UCTIONS FOR SPRI|
00000DF0: 54 45 20 44 52 41 57 20 52 4F 55 54 49 4E 45 00 |TE DRAW ROUTINE.|
00000E00: 25 16 7E 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |%.~.. **********|
00000E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E20: 2A 2A 2A 2A 2A 00 71 16 90 01 99 22 43 52 45 41 |*****.q...."CREA|
00000E30: 54 45 20 53 50 52 49 54 45 20 49 4D 41 47 45 53 |TE SPRITE IMAGES|
00000E40: 20 42 59 20 4D 4F 56 49 4E 47 20 59 4F 55 52 20 | BY MOVING YOUR |
00000E50: 50 45 4E 20 57 49 54 48 20 54 48 45 20 43 55 52 |PEN WITH THE CUR|
00000E60: 53 4F 52 20 4B 45 59 53 2E 20 46 33 20 3D 20 22 |SOR KEYS. F3 = "|
00000E70: 3B 00 B3 16 91 01 99 22 50 45 4E 20 55 50 20 28 |;......"PEN UP (|
00000E80: 22 3B C7 28 31 32 33 29 3B 22 29 2E 20 20 46 35 |";.(123);"). F5|
00000E90: 20 3D 20 45 52 41 53 45 20 28 22 C7 28 31 31 39 | = ERASE (".(119|
00000EA0: 29 3B 22 29 2E 20 46 37 20 3D 20 44 52 41 57 20 |);"). F7 = DRAW |
00000EB0: 28 22 3B 00 FB 16 92 01 99 C7 28 31 31 33 29 3B |(";.......(113);|
00000EC0: 22 29 2E 41 20 4A 4F 59 53 54 49 43 4B 20 49 4E |").A JOYSTICK IN|
00000ED0: 20 50 4F 52 54 20 32 20 57 49 4C 4C 20 41 4C 53 | PORT 2 WILL ALS|
00000EE0: 4F 20 4D 4F 56 45 20 54 48 45 20 50 45 4E 2E 20 |O MOVE THE PEN. |
00000EF0: 50 52 45 53 53 20 54 48 45 22 3B 00 33 17 93 01 |PRESS THE";.3...|
00000F00: 99 22 20 46 49 52 45 20 42 55 54 54 4F 4E 20 54 |." FIRE BUTTON T|
00000F10: 4F 20 53 45 4C 45 43 54 20 50 45 4E 20 55 50 2C |O SELECT PEN UP,|
00000F20: 20 45 52 41 53 45 2C 20 4F 52 20 44 52 41 57 2E | ERASE, OR DRAW.|
00000F30: 22 3A 99 00 7B 17 94 01 99 22 20 20 20 20 20 50 |":..{...." P|
00000F40: 52 45 53 53 20 27 51 27 20 54 4F 20 45 58 49 54 |RESS 'Q' TO EXIT|
00000F50: 20 54 48 45 20 52 4F 55 54 49 4E 45 20 57 48 45 | THE ROUTINE WHE|
00000F60: 4E 20 59 4F 55 52 20 53 50 52 49 54 45 20 49 53 |N YOUR SPRITE IS|
00000F70: 20 43 4F 4D 50 4C 45 54 45 2E 22 00 8B 17 95 01 | COMPLETE.".....|
00000F80: 99 3A 8B 52 45 B2 30 89 34 31 31 00 B1 17 96 01 |.:.RE.0.411.....|
00000F90: 85 22 45 4E 54 45 52 20 53 50 52 49 54 45 23 20 |."ENTER SPRITE# |
00000FA0: 54 4F 20 52 45 44 49 53 50 4C 41 59 2D 22 3B 53 |TO REDISPLAY-";S|
00000FB0: 4E 00 D9 17 97 01 8B 53 4E B3 31 B0 53 4E B1 38 |N......SN.1.SN.8|
00000FC0: A7 99 22 31 20 54 48 52 55 20 38 20 50 4C 45 41 |.."1 THRU 8 PLEA|
00000FD0: 53 45 2E 22 3A 89 34 30 36 00 1B 18 98 01 8B 53 |SE.":.406......S|
00000FE0: 53 28 53 4E 29 B2 30 A7 99 22 53 4F 52 52 59 2D |S(SN).0.."SORRY-|
00000FF0: 20 53 50 52 49 54 45 20 4E 55 4D 42 45 52 22 3B | SPRITE NUMBER";|
00001000: 53 4E 3B 22 4E 4F 54 20 43 52 45 41 54 45 44 2E |SN;"NOT CREATED.|
00001010: 22 3A 52 45 B2 30 3A 89 34 30 30 00 51 18 99 01 |":RE.0:.400.Q...|
00001020: 99 3A 99 22 20 20 20 20 20 54 4F 20 52 45 44 49 |.:." TO REDI|
00001030: 53 50 4C 41 59 20 53 50 52 49 54 45 20 4E 55 4D |SPLAY SPRITE NUM|
00001040: 42 45 52 22 3B 53 4E 3B 22 50 4C 45 41 53 45 22 |BER";SN;"PLEASE"|
00001050: 3B 00 70 18 9B 01 99 3A 99 3A 99 22 50 52 45 53 |;.p....:.:."PRES|
00001060: 53 20 27 53 27 20 54 4F 20 53 54 41 52 54 2D 22 |S 'S' TO START-"|
00001070: 00 84 18 9C 01 85 41 24 3A 8B 41 24 B2 22 45 22 |......A$:.A$."E"|
00001080: 89 32 30 30 00 95 18 9D 01 8B 41 24 B3 B1 22 53 |.200......A$.."S|
00001090: 22 89 34 31 31 00 E3 18 9E 01 42 B2 31 30 33 36 |".411.....B.1036|
000010A0: 3A 4C B2 31 30 37 37 3A 42 4C B2 30 3A 4C 31 B2 |:L.1077:BL.0:L1.|
000010B0: 31 30 37 37 3A 47 B2 33 32 3A 42 47 B2 39 30 3A |1077:G.32:BG.90:|
000010C0: 47 28 31 29 B2 31 36 30 3A 47 28 32 29 B2 33 32 |G(1).160:G(2).32|
000010D0: 3A 47 28 33 29 B2 33 32 3A 47 31 B2 33 3A 47 54 |:G(3).32:G1.3:GT|
000010E0: B2 33 32 00 02 19 9F 01 44 52 28 31 29 B2 38 31 |.32.....DR(1).81|
000010F0: 3A 44 52 28 32 29 B2 38 37 3A 44 52 28 33 29 B2 |:DR(2).87:DR(3).|
00001100: 39 31 00 41 19 A0 01 99 C7 28 31 34 37 29 3A 42 |91.A.....(147):B|
00001110: 24 B2 22 46 31 3D 20 53 50 52 49 54 45 22 3A 4C |$."F1= SPRITE":L|
00001120: 32 B2 31 33 38 35 3A 8D 35 30 3A 42 24 B2 22 45 |2.1385:.50:B$."E|
00001130: 43 48 4F 20 4D 4F 44 45 22 3A 4C 32 B2 31 34 32 |CHO MODE":L2.142|
00001140: 35 00 7C 19 A1 01 8D 35 30 3A 42 24 B2 22 52 3D |5.|....50:B$."R=|
00001150: 20 4E 4F 52 4D 41 4C 22 3A 4C 32 B2 31 35 30 35 | NORMAL":L2.1505|
00001160: 3A 8D 35 30 3A 42 24 B2 22 53 50 52 49 54 45 22 |:.50:B$."SPRITE"|
00001170: 3A 4C 32 B2 31 35 34 35 3A 8D 35 30 00 C4 19 A2 |:L2.1545:.50....|
00001180: 01 42 24 B2 22 58 3D 20 58 20 41 58 49 53 22 3A |.B$."X= X AXIS":|
00001190: 4C 32 B2 31 36 32 35 3A 8D 35 30 3A 42 24 B2 22 |L2.1625:.50:B$."|
000011A0: 45 58 50 41 4E 44 45 44 22 3A 4C 32 B2 31 36 36 |EXPANDED":L2.166|
000011B0: 35 3A 8D 35 30 3A 42 24 B2 22 59 3D 20 59 20 41 |5:.50:B$."Y= Y A|
000011C0: 58 49 53 22 00 07 1A A3 01 4C 32 B2 31 37 34 35 |XIS".....L2.1745|
000011D0: 3A 8D 35 30 3A 42 24 B2 22 45 58 50 41 4E 44 45 |:.50:B$."EXPANDE|
000011E0: 44 22 3A 4C 32 B2 31 37 38 35 3A 8D 35 30 3A 42 |D":L2.1785:.50:B|
000011F0: 24 B2 22 47 3D 20 58 20 41 4E 44 20 59 22 3A 4C |$."G= X AND Y":L|
00001200: 32 B2 31 38 36 35 3A 00 29 1A A4 01 8D 35 30 3A |2.1865:.)....50:|
00001210: 42 24 B2 22 45 58 50 41 4E 44 45 44 22 3A 4C 32 |B$."EXPANDED":L2|
00001220: B2 31 39 30 35 3A 8D 35 30 00 65 1A A5 01 81 58 |.1905:.50.e....X|
00001230: B2 42 A4 42 AA 32 35 3A 97 58 2C 42 47 3A 97 58 |.B.B.25:.X,BG:.X|
00001240: AA 4F 46 2C 31 35 3A 97 58 AA 32 32 AC 34 30 2C |.OF,15:.X.22.40,|
00001250: 42 47 3A 97 58 AA 28 32 32 AC 34 30 29 AA 4F 46 |BG:.X.(22.40).OF|
00001260: 2C 31 35 3A 82 00 A5 1A A6 01 97 31 30 34 38 AA |,15:.......1048.|
00001270: 4F 46 2C 31 31 3A 97 31 30 34 39 AA 4F 46 2C 31 |OF,11:.1049.OF,1|
00001280: 31 3A 97 31 30 34 39 AA 32 32 AC 34 30 AA 4F 46 |1:.1049.22.40.OF|
00001290: 2C 31 31 3A 97 31 30 34 38 AA 32 32 AC 34 30 AA |,11:.1048.22.40.|
000012A0: 4F 46 2C 31 31 00 DF 1A A7 01 81 58 B2 42 A4 42 |OF,11......X.B.B|
000012B0: AA 32 32 AC 34 30 A9 34 30 3A 97 58 2C 42 47 3A |.22.40.40:.X,BG:|
000012C0: 97 58 AA 4F 46 2C 31 35 3A 97 58 AA 32 35 2C 42 |.X.OF,15:.X.25,B|
000012D0: 47 3A 97 58 AA 32 35 AA 4F 46 2C 31 35 3A 82 00 |G:.X.25.OF,15:..|
000012E0: 19 1B A9 01 4C 32 B2 31 39 38 35 3A 42 24 B2 22 |....L2.1985:B$."|
000012F0: 20 20 20 20 50 52 45 53 53 20 27 51 27 20 57 48 | PRESS 'Q' WH|
00001300: 45 4E 20 53 50 52 49 54 45 20 43 4F 4D 50 4C 45 |EN SPRITE COMPLE|
00001310: 54 45 20 20 22 3A 8D 35 30 00 53 1B AC 01 81 58 |TE ":.50.S....X|
00001320: B2 42 A4 42 AA 32 32 AC 34 30 A9 34 30 3A 97 58 |.B.B.22.40.40:.X|
00001330: 2C 42 47 3A 97 58 AA 4F 46 2C 31 35 3A 97 58 AA |,BG:.X.OF,15:.X.|
00001340: 32 35 2C 42 47 3A 97 58 AA 32 35 AA 4F 46 2C 31 |25,BG:.X.25.OF,1|
00001350: 35 3A 82 00 72 1B AD 01 97 31 34 37 36 AA 4F 46 |5:..r....1476.OF|
00001360: 2C 31 31 3A 97 31 34 37 36 AA 32 35 AA 4F 46 2C |,11:.1476.25.OF,|
00001370: 31 31 00 99 1B AE 01 8F 2A 2A 2A 2A 2A 2A 2A 2A |11......********|
00001380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D5 1B AF 01 8F 20 |*********...... |
000013A0: 43 48 45 43 4B 20 46 4F 52 20 52 45 44 49 53 50 |CHECK FOR REDISP|
000013B0: 4C 41 59 20 53 50 52 49 54 45 20 52 45 51 55 45 |LAY SPRITE REQUE|
000013C0: 53 54 2C 20 47 4F 53 55 42 20 49 46 20 46 4C 41 |ST, GOSUB IF FLA|
000013D0: 47 20 53 45 54 00 FC 1B B0 01 8F 2A 2A 2A 2A 2A |G SET......*****|
000013E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0F 1C B1 |************....|
00001400: 01 8B 52 45 B1 30 A7 8D 32 30 3A 52 45 B2 30 00 |..RE.0..20:RE.0.|
00001410: 36 1C B3 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |6....***********|
00001420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001430: 2A 2A 2A 2A 2A 2A 00 7D 1C B4 01 8F 20 45 58 45 |******.}.... EXE|
00001440: 43 55 54 45 20 4D 4F 56 45 2C 20 44 52 41 57 2C |CUTE MOVE, DRAW,|
00001450: 20 4F 52 20 45 52 41 53 45 20 41 4E 44 20 53 50 | OR ERASE AND SP|
00001460: 52 49 54 45 20 45 43 48 4F 20 4D 4F 44 45 20 46 |RITE ECHO MODE F|
00001470: 55 4E 43 54 49 4F 4E 53 20 57 48 45 4E 00 AA 1C |UNCTIONS WHEN...|
00001480: B5 01 8F 20 57 48 45 4E 20 52 45 51 55 45 53 54 |... WHEN REQUEST|
00001490: 45 44 20 42 59 20 4B 45 59 42 4F 41 52 44 20 4F |ED BY KEYBOARD O|
000014A0: 52 20 4A 4F 59 53 54 49 43 4B 00 D1 1C B6 01 8F |R JOYSTICK......|
000014B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000014C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000014D0: 2A 00 DC 1C BC 01 4C B2 31 30 37 37 00 EF 1C BD |*.....L.1077....|
000014E0: 01 8B 47 31 B2 33 A7 47 28 47 31 29 B2 47 54 00 |..G1.3.G(G1).GT.|
000014F0: 0C 1D BE 01 97 4C 2C 47 28 47 31 29 3A 97 4C AA |.....L,G(G1):.L.|
00001500: 4F 46 2C 30 3A 42 4C B2 42 4C AA 31 00 20 1D BF |OF,0:BL.BL.1. ..|
00001510: 01 8B 42 4C B2 31 A7 97 4C 2C 44 52 28 47 31 29 |..BL.1..L,DR(G1)|
00001520: 00 2F 1D C0 01 8B 42 4C B2 32 A7 42 4C B2 30 00 |./....BL.2.BL.0.|
00001530: 56 1D C2 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |V....***********|
00001540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001550: 2A 2A 2A 2A 2A 2A 00 6A 1D C3 01 8F 20 52 45 41 |******.j.... REA|
00001560: 44 20 4B 45 59 42 4F 41 52 44 00 91 1D C4 01 8F |D KEYBOARD......|
00001570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001590: 2A 00 A9 1D C5 01 A1 41 24 3A 8B 41 24 B2 22 22 |*......A$:.A$.""|
000015A0: A7 58 B2 30 3A 89 34 35 35 00 B5 1D C6 01 58 B2 |.X.0:.455.....X.|
000015B0: C6 28 41 24 29 00 C5 1D C7 01 8B 58 B2 32 39 A7 |.(A$)......X.29.|
000015C0: 4C B2 4C AA 31 00 D6 1D C8 01 8B 58 B2 31 35 37 |L.L.1......X.157|
000015D0: A7 4C B2 4C AB 31 00 E7 1D C9 01 8B 58 B2 31 37 |.L.L.1......X.17|
000015E0: A7 4C B2 4C AA 34 30 00 F9 1D CA 01 8B 58 B2 31 |.L.L.40......X.1|
000015F0: 34 35 A7 4C B2 4C AB 34 30 00 09 1E CB 01 8B 58 |45.L.L.40......X|
00001600: B2 31 33 35 A7 47 31 B2 31 00 19 1E CC 01 8B 58 |.135.G1.1......X|
00001610: B2 31 33 36 A7 47 31 B2 32 00 28 1E CD 01 8B 58 |.136.G1.2.(....X|
00001620: B2 38 31 A7 89 35 30 30 00 38 1E CE 01 8B 58 B2 |.81..500.8....X.|
00001630: 31 33 34 A7 47 31 B2 33 00 47 1E CF 01 8B 58 B2 |134.G1.3.G....X.|
00001640: 31 33 33 A7 8D 36 30 00 63 1E D0 01 8B 58 B2 38 |133..60.c....X.8|
00001650: 32 A7 97 35 33 32 37 31 2C 30 3A 97 35 33 32 37 |2..53271,0:.5327|
00001660: 37 2C 30 00 7F 1E D1 01 8B 58 B2 38 38 A7 97 35 |7,0......X.88..5|
00001670: 33 32 37 31 2C 30 3A 97 35 33 32 37 37 2C 34 00 |3271,0:.53277,4.|
00001680: 9B 1E D2 01 8B 58 B2 38 39 A7 97 35 33 32 37 31 |.....X.89..53271|
00001690: 2C 34 3A 97 35 33 32 37 37 2C 30 00 B7 1E D3 01 |,4:.53277,0.....|
000016A0: 8B 58 B2 37 31 A7 97 35 33 32 37 31 2C 34 3A 97 |.X.71..53271,4:.|
000016B0: 35 33 32 37 37 2C 34 00 DE 1E D4 01 8F 2A 2A 2A |53277,4......***|
000016C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000016D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F9 |**************..|
000016E0: 1E D5 01 8F 20 52 45 41 44 20 4A 4F 59 53 54 49 |.... READ JOYSTI|
000016F0: 43 4B 20 50 4F 52 54 20 32 00 20 1F D6 01 8F 2A |CK PORT 2. ....*|
00001700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001720: 00 3F 1F D7 01 4A 4F B2 C2 28 35 36 33 32 30 29 |.?...JO..(56320)|
00001730: 3A 8B 4A 4F B2 31 32 36 A7 4C B2 4C AB 34 30 00 |:.JO.126.L.L.40.|
00001740: 52 1F D8 01 8B 4A 4F B2 31 31 38 A7 4C B2 4C AB |R....JO.118.L.L.|
00001750: 33 39 00 64 1F D9 01 8B 4A 4F B2 31 31 39 A7 4C |39.d....JO.119.L|
00001760: B2 4C AA 31 00 77 1F DA 01 8B 4A 4F B2 31 31 37 |.L.1.w....JO.117|
00001770: A7 4C B2 4C AA 34 31 00 8A 1F DB 01 8B 4A 4F B2 |.L.L.41......JO.|
00001780: 31 32 35 A7 4C B2 4C AA 34 30 00 9D 1F DC 01 8B |125.L.L.40......|
00001790: 4A 4F B2 31 32 31 A7 4C B2 4C AA 33 39 00 AF 1F |JO.121.L.L.39...|
000017A0: DE 01 8B 4A 4F B2 31 32 33 A7 4C B2 4C AB 31 00 |...JO.123.L.L.1.|
000017B0: C2 1F DF 01 8B 4A 4F B2 31 32 32 A7 4C B2 4C AB |.....JO.122.L.L.|
000017C0: 34 31 00 E1 1F E1 01 8B 4A 4F B2 31 31 31 A7 47 |41......JO.111.G|
000017D0: 31 B2 47 31 AA 31 3A 8B 47 31 B2 34 A7 47 31 B2 |1.G1.1:.G1.4.G1.|
000017E0: 31 00 F1 1F E2 01 8B 47 31 B2 32 A7 47 54 B2 33 |1......G1.2.GT.3|
000017F0: 32 00 03 20 EA 01 8B C2 28 4C 29 B2 42 47 A7 4C |2.. ....(L).BG.L|
00001800: B2 4C 31 00 11 20 EB 01 8B 4C 31 B2 4C A7 34 39 |.L1.. ...L1.L.49|
00001810: 35 00 23 20 EC 01 8B 47 31 B2 33 A7 47 54 B2 C2 |5.# ...G1.3.GT..|
00001820: 28 4C 29 00 44 20 EF 01 97 4C 31 2C 47 28 47 31 |(L).D ...L1,G(G1|
00001830: 29 3A 97 4C 31 AA 4F 46 2C 30 3A 4C 31 B2 4C 3A |):.L1.OF,0:L1.L:|
00001840: 89 34 34 35 00 6B 20 F1 01 8F 2A 2A 2A 2A 2A 2A |.445.k ...******|
00001850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001860: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A1 20 F2 01 |***********.. ..|
00001870: 8F 20 53 41 56 45 20 53 43 52 45 45 4E 20 49 4D |. SAVE SCREEN IM|
00001880: 41 47 45 20 49 4E 20 42 49 54 2D 50 41 43 4B 45 |AGE IN BIT-PACKE|
00001890: 44 20 54 45 4D 50 4F 52 41 52 59 20 41 52 52 41 |D TEMPORARY ARRA|
000018A0: 59 00 C8 20 F3 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |Y.. ...*********|
000018B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000018C0: 2A 2A 2A 2A 2A 2A 2A 2A 00 08 21 F4 01 4C 32 B2 |********..!..L2.|
000018D0: 31 39 38 37 3A 42 24 B2 22 48 4F 4C 44 20 4F 4E |1987:B$."HOLD ON|
000018E0: 2D 20 53 50 52 49 54 45 20 49 4D 41 47 45 20 42 |- SPRITE IMAGE B|
000018F0: 45 49 4E 47 20 43 4F 50 49 45 44 20 20 20 22 3A |EING COPIED ":|
00001900: 8D 35 30 3A 44 43 B2 31 00 18 21 F5 01 97 35 33 |.50:DC.1..!...53|
00001910: 32 34 38 AA 32 31 2C 30 00 53 21 F8 01 4C B2 31 |248.21,0.S!..L.1|
00001920: 30 37 36 3A 4A B2 31 3A 81 58 B2 31 A4 32 31 3A |076:J.1:.X.1.21:|
00001930: 81 49 B2 31 A4 33 3A 81 59 B2 31 A4 38 3A 8B C2 |.I.1.3:.Y.1.8:..|
00001940: 28 4C AA 59 29 B2 31 36 30 A7 44 B2 44 AA 44 43 |(L.Y).160.D.D.DC|
00001950: 28 59 29 00 7F 21 12 02 82 59 3A 54 44 28 4A 29 |(Y)..!...Y:TD(J)|
00001960: B2 44 3A 44 B2 30 3A 4C B2 4C AA 38 3A 4A B2 4A |.D:D.0:L.L.8:J.J|
00001970: AA 31 3A 82 49 3A 4C B2 4C AA 31 36 3A 82 58 00 |.1:.I:L.L.16:.X.|
00001980: A5 21 26 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.!&..***********|
00001990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000019A0: 2A 2A 2A 2A 2A 00 E5 21 27 02 8F 20 53 54 4F 52 |*****..!'.. STOR|
000019B0: 45 20 54 45 4D 50 4F 52 41 52 59 20 53 50 52 49 |E TEMPORARY SPRI|
000019C0: 54 45 20 41 52 52 41 59 20 49 4E 20 53 50 52 49 |TE ARRAY IN SPRI|
000019D0: 54 45 20 44 41 54 41 20 41 52 52 41 59 20 4F 52 |TE DATA ARRAY OR|
000019E0: 20 45 58 49 54 00 F1 21 2A 02 99 C7 28 31 34 37 | EXIT..!*...(147|
000019F0: 29 00 2D 22 2B 02 99 22 45 4E 54 45 52 20 27 53 |).-"+.."ENTER 'S|
00001A00: 27 20 54 4F 20 53 54 4F 52 45 20 59 4F 55 52 20 |' TO STORE YOUR |
00001A10: 53 50 52 49 54 45 20 49 4E 20 53 50 52 49 54 45 |SPRITE IN SPRITE|
00001A20: 20 44 41 54 41 20 41 52 52 41 59 2E 22 00 50 22 | DATA ARRAY.".P"|
00001A30: 2D 02 99 22 45 4E 54 45 52 20 27 45 27 20 54 4F |-.."ENTER 'E' TO|
00001A40: 20 45 58 49 54 20 46 55 4E 43 54 49 4F 4E 2E 22 | EXIT FUNCTION."|
00001A50: 00 64 22 2E 02 85 41 24 3A 8B 41 24 B2 22 53 22 |.d"...A$:.A$."S"|
00001A60: A7 37 30 30 00 79 22 2F 02 8B 41 24 B2 22 45 22 |.700.y"/..A$."E"|
00001A70: AF 44 43 B2 30 A7 32 30 30 00 9F 22 30 02 8F 2A |.DC.0.200.."0..*|
00001A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001AA0: BF 22 31 02 8F 20 56 45 52 49 46 59 20 45 41 52 |."1.. VERIFY EAR|
00001AB0: 4C 59 20 45 58 49 54 20 52 45 51 55 45 53 54 00 |LY EXIT REQUEST.|
00001AC0: E5 22 32 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |."2..***********|
00001AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001AE0: 2A 2A 2A 2A 2A 00 19 23 3A 02 99 3A 99 22 53 50 |*****..#:..:."SP|
00001AF0: 52 49 54 45 20 44 41 54 41 20 4E 4F 54 20 53 41 |RITE DATA NOT SA|
00001B00: 56 45 44 2E 20 50 4C 45 41 53 45 20 56 45 52 49 |VED. PLEASE VERI|
00001B10: 46 59 20 45 58 49 54 2E 22 00 45 23 3B 02 99 22 |FY EXIT.".E#;.."|
00001B20: 45 4E 54 45 52 20 27 59 27 45 53 20 4F 52 20 27 |ENTER 'Y'ES OR '|
00001B30: 4E 27 4F 2E 22 3A 85 41 24 3A 8B 41 24 B2 22 4E |N'O.":.A$:.A$."N|
00001B40: 22 A7 35 35 35 00 55 23 3F 02 8B 41 24 B2 22 59 |".555.U#?..A$."Y|
00001B50: 22 A7 32 30 30 00 5E 23 44 02 89 35 37 30 00 84 |".200.^#D..570..|
00001B60: 23 58 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |#X..************|
00001B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B80: 2A 2A 2A 2A 00 CF 23 59 02 8F 20 50 52 49 4E 54 |****..#Y.. PRINT|
00001B90: 20 49 4E 53 54 54 52 55 43 54 49 4F 4E 53 20 46 | INSTTRUCTIONS F|
00001BA0: 4F 52 20 52 4F 55 54 49 4E 45 20 54 4F 20 44 49 |OR ROUTINE TO DI|
00001BB0: 53 50 4C 41 59 20 44 45 43 49 4D 45 4C 20 56 41 |SPLAY DECIMEL VA|
00001BC0: 4C 55 45 53 20 4F 46 20 36 33 20 42 59 54 45 00 |LUES OF 63 BYTE.|
00001BD0: F5 23 5A 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.#Z..***********|
00001BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BF0: 2A 2A 2A 2A 2A 00 01 24 5D 02 99 C7 28 31 34 37 |*****..$]...(147|
00001C00: 29 00 49 24 60 02 99 22 54 48 49 53 20 52 4F 55 |).I$`.."THIS ROU|
00001C10: 54 49 4E 45 20 44 49 53 50 4C 41 59 53 20 54 48 |TINE DISPLAYS TH|
00001C20: 45 20 36 33 20 42 59 54 45 20 44 41 54 41 20 20 |E 63 BYTE DATA |
00001C30: 44 45 53 43 52 49 50 54 49 4F 4E 20 4F 46 20 41 |DESCRIPTION OF A|
00001C40: 20 53 50 52 49 54 45 2E 22 00 90 24 62 02 99 3A | SPRITE."..$b..:|
00001C50: 99 22 45 4E 54 45 52 20 54 48 45 20 4E 55 4D 42 |."ENTER THE NUMB|
00001C60: 45 52 20 4F 46 20 54 48 45 20 53 50 52 49 54 45 |ER OF THE SPRITE|
00001C70: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 44 49 53 | YOU WANT TO DIS|
00001C80: 50 4C 41 59 20 44 41 54 41 20 46 4F 52 2E 22 3B |PLAY DATA FOR.";|
00001C90: 00 B4 24 63 02 99 22 45 4E 54 45 52 20 41 20 27 |..$c.."ENTER A '|
00001CA0: 30 27 20 54 4F 20 45 58 49 54 20 52 4F 55 54 49 |0' TO EXIT ROUTI|
00001CB0: 4E 45 2E 22 00 C6 24 64 02 85 53 4E 3A 8B 53 4E |NE."..$d..SN:.SN|
00001CC0: B2 30 89 32 30 30 00 ED 24 66 02 8B 53 4E B3 31 |.0.200..$f..SN.1|
00001CD0: B0 53 4E B1 38 A7 99 22 31 20 54 48 52 55 20 38 |.SN.8.."1 THRU 8|
00001CE0: 20 50 4C 45 41 53 45 22 3A 89 36 31 30 00 12 25 | PLEASE":.610..%|
00001CF0: 67 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |g..*************|
00001D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001D10: 2A 2A 00 60 25 68 02 8F 20 43 48 45 43 4B 20 46 |**.`%h.. CHECK F|
00001D20: 4F 52 20 50 52 49 4E 54 45 44 20 4F 55 54 50 55 |OR PRINTED OUTPU|
00001D30: 54 20 4F 52 20 53 43 52 45 45 4E 20 44 49 53 50 |T OR SCREEN DISP|
00001D40: 4C 41 59 20 41 4E 44 20 53 45 4E 44 20 54 4F 20 |LAY AND SEND TO |
00001D50: 52 45 51 55 45 53 54 45 44 20 44 45 56 49 43 45 |REQUESTED DEVICE|
00001D60: 00 85 25 69 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..%i..**********|
00001D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001D80: 2A 2A 2A 2A 2A 00 C7 25 6C 02 99 22 45 4E 54 45 |*****..%l.."ENTE|
00001D90: 52 20 41 20 27 50 27 20 46 4F 52 20 50 52 49 4E |R A 'P' FOR PRIN|
00001DA0: 54 45 52 20 4F 55 54 50 55 54 20 4F 52 20 41 4E |TER OUTPUT OR AN|
00001DB0: 20 27 53 27 20 46 4F 52 20 53 43 52 45 45 4E 20 | 'S' FOR SCREEN |
00001DC0: 4F 55 54 50 55 54 22 00 DC 25 71 02 85 41 24 3A |OUTPUT"..%q..A$:|
00001DD0: 8B 41 24 B2 22 50 22 A7 50 52 B2 31 00 F2 25 74 |.A$."P".PR.1..%t|
00001DE0: 02 8B 50 52 B2 31 A7 99 23 32 30 30 2C C7 28 31 |..PR.1..#200,.(1|
00001DF0: 33 29 00 30 26 75 02 8B 50 52 B2 31 A7 99 23 32 |3).0&u..PR.1..#2|
00001E00: 30 30 2C 22 20 20 20 53 50 52 49 54 45 22 3B 53 |00," SPRITE";S|
00001E10: 4E 3B 22 44 41 54 41 20 44 45 53 43 52 49 50 54 |N;"DATA DESCRIPT|
00001E20: 49 4F 4E 22 3A 99 23 32 30 30 2C C7 28 31 33 29 |ION":.#200,.(13)|
00001E30: 00 3E 26 76 02 8B 50 52 B2 31 89 36 34 30 00 66 |.>&v..PR.1.640.f|
00001E40: 26 77 02 99 22 20 20 20 53 50 52 49 54 45 22 3B |&w.." SPRITE";|
00001E50: 53 4E 22 44 41 54 41 20 44 45 53 43 52 49 50 54 |SN"DATA DESCRIPT|
00001E60: 49 4F 4E 22 3A 99 00 A3 26 7A 02 54 43 B2 31 3A |ION":...&z.TC.1:|
00001E70: 81 58 B2 31 A4 32 31 3A 99 22 42 59 54 45 22 3B |.X.1.21:."BYTE";|
00001E80: 54 43 2C 3A 81 4A B2 31 A4 33 3A 99 53 44 28 53 |TC,:.J.1.3:.SD(S|
00001E90: 4E 2C 54 43 29 2C 3A 54 43 B2 54 43 AA 31 3A 82 |N,TC),:TC.TC.1:.|
00001EA0: 4A 2C 58 00 AC 26 7B 02 89 36 34 37 00 ED 26 80 |J,X..&{..647..&.|
00001EB0: 02 54 43 B2 31 3A 81 58 B2 31 A4 37 3A 99 23 32 |.TC.1:.X.1.7:.#2|
00001EC0: 30 30 2C 22 42 59 54 45 22 3B 54 43 2C 3A 81 4A |00,"BYTE";TC,:.J|
00001ED0: B2 31 A4 39 3A 99 23 32 30 30 2C 53 44 28 53 4E |.1.9:.#200,SD(SN|
00001EE0: 2C 54 43 29 3B 3A 54 43 B2 54 43 AA 31 00 03 27 |,TC);:TC.TC.1..'|
00001EF0: 82 02 82 4A 3A 99 23 32 30 30 2C C7 28 31 33 29 |...J:.#200,.(13)|
00001F00: 3A 82 58 00 2D 27 87 02 99 22 45 4E 54 45 52 20 |:.X.-'..."ENTER |
00001F10: 41 4E 59 20 43 48 41 52 41 43 54 45 52 20 46 4F |ANY CHARACTER FO|
00001F20: 52 20 4D 45 4E 55 2E 22 3A 50 52 B2 30 00 3A 27 |R MENU.":PR.0.:'|
00001F30: 8A 02 85 41 24 3A 89 32 30 30 00 60 27 B2 02 8F |...A$:.200.`'...|
00001F40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F60: 00 A6 27 B7 02 8F 20 43 4F 50 59 20 44 41 54 41 |..'... COPY DATA|
00001F70: 20 46 52 4F 4D 20 54 45 4D 50 4F 52 41 52 59 20 | FROM TEMPORARY |
00001F80: 53 43 52 45 45 4E 20 53 41 56 45 20 41 52 52 41 |SCREEN SAVE ARRA|
00001F90: 59 20 54 4F 20 53 50 52 49 54 45 20 44 41 54 41 |Y TO SPRITE DATA|
00001FA0: 20 41 52 52 41 59 00 CC 27 BC 02 8F 2A 2A 2A 2A | ARRAY..'...****|
00001FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001FC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 19 28 BD |************..(.|
00001FD0: 02 99 22 45 4E 54 45 52 20 53 50 52 49 54 45 20 |.."ENTER SPRITE |
00001FE0: 4E 55 4D 42 45 52 20 59 4F 55 20 57 49 53 48 20 |NUMBER YOU WISH |
00001FF0: 54 4F 20 53 41 56 45 20 20 20 20 53 43 52 45 45 |TO SAVE SCREE|
00002000: 4E 20 44 49 53 50 4C 41 59 20 54 4F 2C 4F 52 20 |N DISPLAY TO,OR |
00002010: 45 4E 54 45 52 20 41 22 3B 00 32 28 BE 02 99 22 |ENTER A";.2(..."|
00002020: 27 30 27 20 54 4F 20 45 58 49 54 2E 22 3A 44 43 |'0' TO EXIT.":DC|
00002030: B2 30 00 44 28 C0 02 85 53 4E 3A 8B 53 4E B2 30 |.0.D(...SN:.SN.0|
00002040: A7 32 30 30 00 76 28 C1 02 8B 53 4E B3 31 B0 53 |.200.v(...SN.1.S|
00002050: 4E B1 38 A7 99 22 45 4E 54 45 52 20 31 20 54 48 |N.8.."ENTER 1 TH|
00002060: 52 4F 55 47 48 20 38 2C 20 50 4C 45 41 53 45 2D |ROUGH 8, PLEASE-|
00002070: 22 3A 89 37 30 31 00 9C 28 C6 02 81 49 B2 31 A4 |":.701..(...I.1.|
00002080: 36 33 3A 53 44 28 53 4E 2C 49 29 B2 54 44 28 49 |63:SD(SN,I).TD(I|
00002090: 29 3A 82 3A 53 53 28 53 4E 29 B2 31 00 E7 28 D0 |):.:SS(SN).1..(.|
000020A0: 02 99 22 53 50 52 49 54 45 20 4E 55 4D 42 45 52 |.."SPRITE NUMBER|
000020B0: 22 3B 53 4E 3B 22 44 49 53 50 4C 41 59 20 44 41 |";SN;"DISPLAY DA|
000020C0: 54 41 20 48 41 53 20 42 45 45 4E 20 53 41 56 45 |TA HAS BEEN SAVE|
000020D0: 44 20 49 4E 20 53 50 52 49 54 45 20 44 41 54 41 |D IN SPRITE DATA|
000020E0: 20 41 52 52 41 59 22 00 14 29 DA 02 85 22 45 4E | ARRAY"..)..."EN|
000020F0: 54 45 52 20 41 4E 59 20 43 48 41 52 41 43 54 45 |TER ANY CHARACTE|
00002100: 52 20 54 4F 20 45 58 49 54 22 3B 41 24 3B 89 3A |R TO EXIT";A$;.:|
00002110: 89 35 35 30 00 28 29 E4 02 99 22 45 52 52 4F 52 |.550.()..."ERROR|
00002120: 20 54 52 41 50 22 3A 80 00 4E 29 20 03 8F 2A 2A | TRAP":..N) ..**|
00002130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7A |**************.z|
00002150: 29 21 03 8F 20 4C 4F 41 44 20 53 50 52 49 54 45 |)!.. LOAD SPRITE|
00002160: 20 44 41 54 41 20 41 52 52 41 59 20 46 52 4F 4D | DATA ARRAY FROM|
00002170: 20 54 41 50 45 20 46 49 4C 45 00 A0 29 22 03 8F | TAPE FILE..)"..|
00002180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000021A0: 00 E3 29 25 03 99 22 54 48 49 53 20 52 4F 55 54 |..)%.."THIS ROUT|
000021B0: 49 4E 45 20 4C 4F 41 44 53 20 54 48 45 20 53 50 |INE LOADS THE SP|
000021C0: 52 49 54 45 20 44 41 54 41 20 41 52 52 41 59 20 |RITE DATA ARRAY |
000021D0: 46 52 4F 4D 20 54 41 50 45 20 46 49 4C 45 20 23 |FROM TAPE FILE #|
000021E0: 31 2E 22 00 19 2A 2A 03 99 22 45 4E 54 45 52 20 |1."..**.."ENTER |
000021F0: 27 4C 27 20 54 4F 20 4C 4F 41 44 20 54 48 45 20 |'L' TO LOAD THE |
00002200: 41 52 52 41 59 20 4F 52 20 41 4E 20 27 45 27 20 |ARRAY OR AN 'E' |
00002210: 54 4F 20 45 58 49 54 2D 22 00 2D 2A 34 03 85 41 |TO EXIT-".-*4..A|
00002220: 24 3A 8B 41 24 B2 22 45 22 A7 32 30 30 00 55 2A |$:.A$."E".200.U*|
00002230: 3E 03 8B 41 24 B3 B1 22 4C 22 A7 99 22 27 45 27 |>..A$.."L".."'E'|
00002240: 20 4F 52 20 27 4C 27 20 50 4C 45 41 53 45 2D 22 | OR 'L' PLEASE-"|
00002250: 3B 89 38 32 30 00 A2 2A 41 03 99 22 45 4E 54 45 |;.820..*A.."ENTE|
00002260: 52 20 54 48 45 20 46 49 4C 45 20 4E 41 4D 45 20 |R THE FILE NAME |
00002270: 54 4F 20 4C 4F 41 44 20 46 52 4F 4D 2E 20 28 27 |TO LOAD FROM. ('|
00002280: 53 50 52 49 54 45 20 44 41 54 41 27 20 49 53 20 |SPRITE DATA' IS |
00002290: 54 48 45 20 44 45 46 41 55 4C 54 20 46 49 4C 45 |THE DEFAULT FILE|
000022A0: 22 3B 00 BD 2A 43 03 99 22 20 4E 41 4D 45 20 53 |";..*C.." NAME S|
000022B0: 45 41 52 43 48 45 44 20 46 4F 52 2E 22 00 D8 2A |EARCHED FOR."..*|
000022C0: 48 03 53 41 24 B2 22 53 50 52 49 54 45 20 44 41 |H.SA$."SPRITE DA|
000022D0: 54 41 22 3A 85 53 41 24 00 E9 2A 4D 03 8B 53 41 |TA":.SA$..*M..SA|
000022E0: 24 B2 22 45 22 A7 32 30 30 00 F8 2A 52 03 9F 31 |$."E".200..*R..1|
000022F0: 2C 31 2C 30 2C 53 41 24 00 03 2B 5C 03 81 49 B2 |,1,0,SA$..+\..I.|
00002300: 31 A4 38 00 10 2B 66 03 84 31 2C 53 53 28 49 29 |1.8..+f..1,SS(I)|
00002310: 00 27 2B 70 03 81 4A B2 31 A4 36 33 3A 84 31 2C |.'+p..J.1.63:.1,|
00002320: 53 44 28 49 2C 4A 29 00 2E 2B 71 03 82 4A 00 35 |SD(I,J)..+q..J.5|
00002330: 2B 7A 03 82 49 00 3C 2B 7B 03 A0 31 00 88 2B 7C |+z..I.<+{..1..+||
00002340: 03 99 22 54 48 45 20 53 50 52 49 54 45 20 44 41 |.."THE SPRITE DA|
00002350: 54 41 20 41 52 52 41 59 20 48 41 53 20 42 45 45 |TA ARRAY HAS BEE|
00002360: 4E 20 4C 4F 41 44 45 44 20 46 52 4F 4D 20 54 41 |N LOADED FROM TA|
00002370: 50 45 2E 20 45 4E 54 45 52 20 41 4E 59 20 43 48 |PE. ENTER ANY CH|
00002380: 41 52 41 43 54 45 52 22 00 98 2B 7E 03 99 22 54 |ARACTER"..+~.."T|
00002390: 4F 20 45 58 49 54 2E 22 00 A5 2B 7F 03 85 41 24 |O EXIT."..+...A$|
000023A0: 3A 89 32 30 30 00 CB 2B 84 03 8F 2A 2A 2A 2A 2A |:.200..+...*****|
000023B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000023C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 16 2C 85 03 |***********..,..|
000023D0: 8F 20 41 4E 49 4D 41 54 45 20 52 45 51 55 45 53 |. ANIMATE REQUES|
000023E0: 54 45 44 20 53 50 52 49 54 45 20 49 4D 41 47 45 |TED SPRITE IMAGE|
000023F0: 20 46 52 4F 4D 20 53 50 52 49 54 45 20 44 41 54 | FROM SPRITE DAT|
00002400: 41 20 41 52 52 41 59 20 42 59 20 4B 45 59 42 4F |A ARRAY BY KEYBO|
00002410: 41 52 44 20 4F 52 00 2B 2C 86 03 8F 20 4A 4F 59 |ARD OR.+,... JOY|
00002420: 53 54 49 43 4B 20 49 4E 50 55 54 00 51 2C 87 03 |STICK INPUT.Q,..|
00002430: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00002440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002450: 2A 00 5D 2C 8E 03 99 C7 28 31 34 37 29 00 9C 2C |*.],....(147)..,|
00002460: 98 03 99 22 54 48 49 53 20 52 4F 55 54 49 4E 45 |..."THIS ROUTINE|
00002470: 20 57 49 4C 4C 20 41 4E 49 4D 41 54 45 20 4F 4E | WILL ANIMATE ON|
00002480: 45 20 4F 46 20 59 4F 55 52 20 53 50 52 49 54 45 |E OF YOUR SPRITE|
00002490: 20 43 52 45 41 54 49 4F 4E 53 20 22 00 D9 2C A2 | CREATIONS "..,.|
000024A0: 03 99 22 59 4F 55 52 20 53 50 52 49 54 45 20 43 |.."YOUR SPRITE C|
000024B0: 41 4E 20 42 45 20 4D 4F 56 45 44 20 41 52 4F 55 |AN BE MOVED AROU|
000024C0: 4E 44 20 54 48 45 20 53 43 52 45 45 4E 20 57 49 |ND THE SCREEN WI|
000024D0: 54 48 20 54 48 45 20 22 3B 00 15 2D A4 03 99 22 |TH THE ";..-..."|
000024E0: 43 55 52 53 4F 52 20 4B 45 59 53 20 4F 4E 20 54 |CURSOR KEYS ON T|
000024F0: 48 45 20 4B 45 59 42 4F 41 52 44 20 4F 52 20 41 |HE KEYBOARD OR A|
00002500: 20 4A 4F 59 53 54 49 43 4B 20 49 4E 20 50 4F 52 | JOYSTICK IN POR|
00002510: 54 20 32 2E 22 00 5D 2D A7 03 99 20 22 45 4E 54 |T 2.".]-... "ENT|
00002520: 45 52 20 27 4B 27 20 46 4F 52 20 4B 45 59 42 4F |ER 'K' FOR KEYBO|
00002530: 41 52 44 20 41 4E 49 4D 41 54 49 4F 4E 20 4F 52 |ARD ANIMATION OR|
00002540: 20 27 4A 27 20 46 4F 52 20 4A 4F 59 53 54 49 43 | 'J' FOR JOYSTIC|
00002550: 4B 20 41 4E 49 4D 41 54 49 4F 4E 2E 22 00 80 2D |K ANIMATION."..-|
00002560: A8 03 99 22 28 50 52 45 53 53 20 27 45 27 20 54 |..."(PRESS 'E' T|
00002570: 4F 20 45 58 49 54 20 52 4F 55 54 49 4E 45 29 22 |O EXIT ROUTINE)"|
00002580: 00 88 2D A9 03 85 41 24 00 9C 2D AA 03 4B B2 30 |..-...A$..-..K.0|
00002590: 3A 8B 41 24 B2 22 4A 22 A7 4B B2 31 00 AC 2D AB |:.A$."J".K.1..-.|
000025A0: 03 8B 41 24 B2 22 4B 22 A7 4B B2 32 00 BC 2D AD |..A$."K".K.2..-.|
000025B0: 03 8B 41 24 B2 22 45 22 A7 32 30 30 00 C9 2D AF |..A$."E".200..-.|
000025C0: 03 8B 4B B2 30 A7 39 32 30 00 EF 2D B0 03 8F 2A |..K.0.920..-...*|
000025D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000025E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000025F0: 3B 2E B1 03 8F 20 47 45 54 20 53 50 52 49 54 45 |;.... GET SPRITE|
00002600: 20 4E 55 4D 42 45 52 2C 20 43 4F 4C 4F 52 20 41 | NUMBER, COLOR A|
00002610: 4E 44 20 44 49 53 50 4C 41 59 20 4D 4F 44 45 20 |ND DISPLAY MODE |
00002620: 41 4E 44 20 53 45 54 20 55 50 20 53 50 52 49 54 |AND SET UP SPRIT|
00002630: 45 20 52 45 47 49 53 54 45 52 53 00 61 2E B2 03 |E REGISTERS.a...|
00002640: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00002650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002660: 2A 00 8A 2E B8 03 85 22 45 4E 54 45 52 20 53 50 |*......"ENTER SP|
00002670: 52 49 54 45 20 4E 55 4D 42 45 52 20 54 4F 20 41 |RITE NUMBER TO A|
00002680: 4E 49 4D 41 54 45 22 3B 53 4E 00 C7 2E B9 03 8B |NIMATE";SN......|
00002690: 53 53 28 53 4E 29 B2 30 A7 99 22 53 4F 52 52 59 |SS(SN).0.."SORRY|
000026A0: 2D 20 53 50 52 49 54 45 20 4E 55 4D 42 45 52 22 |- SPRITE NUMBER"|
000026B0: 3B 53 4E 3B 22 4E 4F 54 20 43 52 45 41 54 45 44 |;SN;"NOT CREATED|
000026C0: 2E 22 3A 89 39 31 30 00 FD 2E BB 03 99 22 45 4E |.":.910......"EN|
000026D0: 54 45 52 20 27 30 27 20 54 4F 20 27 31 35 27 20 |TER '0' TO '15' |
000026E0: 46 4F 52 20 54 48 45 20 43 4F 4C 4F 52 20 4F 46 |FOR THE COLOR OF|
000026F0: 20 59 4F 55 52 20 53 50 52 49 54 45 22 00 2C 2F | YOUR SPRITE".,/|
00002700: BC 03 85 41 3A 8B 41 B3 30 B0 41 B1 31 35 A7 99 |...A:.A.0.A.15..|
00002710: 22 4D 55 53 54 20 42 45 20 46 52 4F 4D 20 30 20 |"MUST BE FROM 0 |
00002720: 54 4F 20 31 35 2E 22 3A 89 39 35 35 00 35 2F BD |TO 15.":.955.5/.|
00002730: 03 43 4C B2 41 00 5A 2F BE 03 99 22 45 4E 54 45 |.CL.A.Z/..."ENTE|
00002740: 52 20 27 52 27 20 46 4F 52 20 53 54 41 4E 44 41 |R 'R' FOR STANDA|
00002750: 52 44 20 53 50 52 49 54 45 22 00 81 2F BF 03 99 |RD SPRITE"../...|
00002760: 22 20 20 20 20 20 20 27 58 27 A0 46 4F 52 20 45 |" 'X'.FOR E|
00002770: 58 50 41 4E 44 45 44 20 58 20 53 50 52 49 54 45 |XPANDED X SPRITE|
00002780: 22 00 A8 2F C0 03 99 22 20 20 20 20 20 20 27 59 |"../..." 'Y|
00002790: 27 20 46 4F 52 20 45 58 50 41 4E 44 45 44 20 59 |' FOR EXPANDED Y|
000027A0: 20 53 50 52 49 54 45 22 00 D1 2F C1 03 99 22 20 | SPRITE"../..." |
000027B0: 20 20 20 20 20 27 47 27 20 46 4F 52 20 45 58 50 | 'G' FOR EXP|
000027C0: 41 4E 44 45 44 20 58 2C 59 20 53 50 52 49 54 45 |ANDED X,Y SPRITE|
000027D0: 22 00 EE 2F C2 03 85 41 24 3A 8B 41 24 B2 C7 28 |"../...A$:.A$..(|
000027E0: 31 33 29 B0 41 24 B2 22 52 22 A7 39 36 37 00 02 |13).A$."R".967..|
000027F0: 30 C3 03 8B 41 24 B2 22 58 22 A7 97 56 AA 32 39 |0...A$."X"..V.29|
00002800: 2C 34 00 16 30 C4 03 8B 41 24 B2 22 59 22 A7 97 |,4..0...A$."Y"..|
00002810: 56 AA 32 33 2C 34 00 32 30 C5 03 8B 41 24 B2 22 |V.23,4.20...A$."|
00002820: 47 22 A7 97 56 AA 32 39 2C 34 3A 97 56 AA 32 33 |G"..V.29,4:.V.23|
00002830: 2C 34 00 42 30 C6 03 8B 41 24 B2 22 45 22 89 32 |,4.B0...A$."E".2|
00002840: 30 30 00 4B 30 C7 03 99 22 93 22 00 7F 30 C8 03 |00.K0..."."..0..|
00002850: 56 B2 35 33 32 34 38 3A 97 56 AA 32 31 2C 34 3A |V.53248:.V.21,4:|
00002860: 97 32 30 34 32 2C 31 33 3A 56 53 B2 38 33 31 3A |.2042,13:VS.831:|
00002870: 58 31 B2 31 30 30 3A 97 56 AA 34 31 2C 30 3A 00 |X1.100:.V.41,0:.|
00002880: 9C 30 C9 03 81 58 B2 31 A4 36 33 3A 97 56 53 AA |.0...X.1.63:.VS.|
00002890: 58 2C 53 44 28 53 4E 2C 58 29 3A 82 00 B9 30 CA |X,SD(SN,X):...0.|
000028A0: 03 97 56 AA 34 2C 58 31 3A 97 56 AA 35 2C 59 31 |..V.4,X1:.V.5,Y1|
000028B0: 3A 97 56 AA 34 31 2C 43 4C 00 DF 30 CB 03 8F 2A |:.V.41,CL..0...*|
000028C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000028D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000028E0: 19 31 CC 03 8F 20 52 45 41 44 20 4B 45 59 42 4F |.1... READ KEYBO|
000028F0: 41 52 44 20 4F 52 20 4A 4F 59 53 54 49 43 4B 20 |ARD OR JOYSTICK |
00002900: 50 4F 52 54 20 32 20 46 4F 52 20 53 50 52 49 54 |PORT 2 FOR SPRIT|
00002910: 45 20 56 45 43 54 4F 52 53 00 3F 31 CD 03 8F 2A |E VECTORS.?1...*|
00002920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00002940: 57 31 CF 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 58 |W1...A$:.A$."".X|
00002950: B2 30 3A 89 39 38 32 00 63 31 D4 03 58 B2 C6 28 |.0:.982.c1..X..(|
00002960: 41 24 29 00 70 31 D5 03 8B 4B B2 31 A7 39 38 36 |A$).p1...K.1.986|
00002970: 00 8F 31 D6 03 8B 58 B2 31 37 A7 59 31 B2 59 31 |..1...X.17.Y1.Y1|
00002980: AA 31 3A 8B 59 31 B2 32 30 30 A7 59 31 B2 30 00 |.1:.Y1.200.Y1.0.|
00002990: AE 31 D7 03 8B 58 B2 32 39 A7 58 31 B2 58 31 AA |.1...X.29.X1.X1.|
000029A0: 31 3A 8B 58 31 B2 32 35 36 A7 58 31 B2 30 00 CE |1:.X1.256.X1.0..|
000029B0: 31 D8 03 8B 58 B2 31 34 35 A7 59 31 B2 59 31 AB |1...X.145.Y1.Y1.|
000029C0: 31 3A 8B 59 31 B2 30 A7 59 31 B2 31 39 39 00 EE |1:.Y1.0.Y1.199..|
000029D0: 31 D9 03 8B 58 B2 31 35 37 A7 58 31 B2 58 31 AB |1...X.157.X1.X1.|
000029E0: 31 3A 8B 58 31 B2 30 A7 58 31 B2 32 35 35 00 15 |1:.X1.0.X1.255..|
000029F0: 32 DA 03 8B 58 B2 36 39 A7 97 56 AA 32 31 2C 30 |2...X.69..V.21,0|
00002A00: 3A 97 56 AA 32 33 2C 30 3A 97 56 AA 32 39 2C 30 |:.V.23,0:.V.29,0|
00002A10: 3A 89 32 30 30 00 22 32 DB 03 8B 4B B2 30 A7 39 |:.200."2...K.0.9|
00002A20: 39 38 00 4E 32 DC 03 4A 4F B2 C2 28 35 36 33 32 |98.N2..JO..(5632|
00002A30: 30 29 3A 8B A8 4A 4F AF 31 A7 59 31 B2 59 31 AB |0):..JO.1.Y1.Y1.|
00002A40: 31 3A 8B 59 31 B2 30 A7 59 31 B2 32 30 30 00 6E |1:.Y1.0.Y1.200.n|
00002A50: 32 DD 03 8B A8 4A 4F AF 38 A7 58 31 B2 58 31 AA |2....JO.8.X1.X1.|
00002A60: 31 3A 8B 58 31 B2 32 35 36 A7 58 31 B2 30 00 8E |1:.X1.256.X1.0..|
00002A70: 32 DE 03 8B A8 4A 4F AF 32 A7 59 31 B2 59 31 AA |2....JO.2.Y1.Y1.|
00002A80: 31 3A 8B 59 31 B2 32 30 30 A7 59 31 B2 30 00 AE |1:.Y1.200.Y1.0..|
00002A90: 32 DF 03 8B A8 4A 4F AF 34 A7 58 31 B2 59 31 AB |2....JO.4.X1.Y1.|
00002AA0: 31 3A 8B 58 31 B2 30 A7 58 31 B2 32 35 35 00 C2 |1:.X1.0.X1.255..|
00002AB0: 32 E6 03 97 56 AA 34 2C 58 31 3A 97 56 AA 35 2C |2...V.4,X1:.V.5,|
00002AC0: 59 31 00 CB 32 E7 03 89 39 37 35 00 F0 32 E8 03 |Y1..2...975..2..|
00002AD0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00002AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002AF0: 00 31 33 E9 03 8F 20 53 41 56 45 20 53 50 52 49 |.13... SAVE SPRI|
00002B00: 54 45 20 44 41 54 41 20 41 52 52 41 59 20 54 4F |TE DATA ARRAY TO|
00002B10: 20 54 41 50 45 20 46 49 4C 45 20 42 59 20 52 45 | TAPE FILE BY RE|
00002B20: 51 55 45 53 54 45 44 20 46 49 4C 45 20 4E 41 4D |QUESTED FILE NAM|
00002B30: 45 00 56 33 EA 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |E.V3...*********|
00002B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002B50: 2A 2A 2A 2A 2A 2A 00 99 33 F2 03 99 22 54 48 49 |******..3..."THI|
00002B60: 53 20 52 4F 55 54 49 4E 45 20 53 41 56 45 53 20 |S ROUTINE SAVES |
00002B70: 54 48 45 20 53 50 52 49 54 45 20 44 41 54 41 20 |THE SPRITE DATA |
00002B80: 41 52 52 41 59 4F 4E 54 4F 20 54 41 50 45 2C 20 |ARRAYONTO TAPE, |
00002B90: 46 49 4C 45 20 23 31 2E 22 00 CE 33 FC 03 99 22 |FILE #1."..3..."|
00002BA0: 45 4E 54 45 52 20 27 53 27 20 54 4F 20 53 54 41 |ENTER 'S' TO STA|
00002BB0: 52 54 20 46 55 4E 43 54 49 4F 4E 20 4F 52 20 27 |RT FUNCTION OR '|
00002BC0: 45 27 20 54 4F 20 20 20 45 58 49 54 2E 22 00 E2 |E' TO EXIT."..|
00002BD0: 33 06 04 85 41 24 3A 8B 41 24 B2 22 45 22 A7 32 |3...A$:.A$."E".2|
00002BE0: 30 30 00 0C 34 10 04 8B 41 24 B3 B1 22 53 22 A7 |00..4...A$.."S".|
00002BF0: 99 22 27 45 27 20 4F 52 20 27 53 27 20 50 4C 45 |."'E' OR 'S' PLE|
00002C00: 41 53 45 2D 22 3B 3A 89 31 30 31 30 00 54 34 12 |ASE-";:.1010.T4.|
00002C10: 04 99 22 50 4C 45 41 53 45 20 45 4E 54 45 52 20 |.."PLEASE ENTER |
00002C20: 54 48 45 20 46 49 4C 45 20 4E 41 4D 45 20 59 4F |THE FILE NAME YO|
00002C30: 55 20 57 4F 55 4C 44 20 4C 49 4B 45 20 54 48 45 |U WOULD LIKE THE|
00002C40: 20 41 52 52 41 59 20 53 41 56 45 44 20 4F 56 45 | ARRAY SAVED OVE|
00002C50: 52 2E 22 3B 00 85 34 13 04 99 22 28 27 53 50 52 |R.";..4..."('SPR|
00002C60: 49 54 45 20 44 41 54 41 27 20 49 53 20 54 48 45 |ITE DATA' IS THE|
00002C70: 20 44 45 46 41 55 4C 54 20 46 49 4C 45 20 4E 41 | DEFAULT FILE NA|
00002C80: 4D 45 2E 29 22 00 A0 34 14 04 53 41 24 B2 22 53 |ME.)"..4..SA$."S|
00002C90: 50 52 49 54 45 20 44 41 54 41 22 3A 85 53 41 24 |PRITE DATA":.SA$|
00002CA0: 00 B1 34 15 04 8B 53 41 24 B2 22 45 22 A7 32 30 |..4...SA$."E".20|
00002CB0: 30 00 C1 34 1F 04 9F 20 31 2C 31 2C 31 2C 53 41 |0..4... 1,1,1,SA|
00002CC0: 24 00 CC 34 24 04 81 49 B2 31 A4 38 00 DA 34 2E |$..4$..I.1.8..4.|
00002CD0: 04 99 23 31 2C 53 53 28 49 29 00 F2 34 38 04 81 |..#1,SS(I)..48..|
00002CE0: 4A B2 31 A4 36 33 3A 99 23 31 2C 53 44 28 49 2C |J.1.63:.#1,SD(I,|
00002CF0: 4A 29 00 F9 34 42 04 82 4A 00 00 35 4C 04 82 49 |J)..4B..J..5L..I|
00002D00: 00 07 35 55 04 A0 31 00 4F 35 56 04 99 22 59 4F |..5U..1.O5V.."YO|
00002D10: 55 52 20 53 50 52 49 54 45 20 44 41 54 41 20 41 |UR SPRITE DATA A|
00002D20: 52 52 41 59 20 48 41 53 20 42 45 45 4E 20 53 41 |RRAY HAS BEEN SA|
00002D30: 56 45 44 20 4F 4E 54 4F 20 41 20 54 41 50 45 20 |VED ONTO A TAPE |
00002D40: 46 49 4C 45 2E 20 54 48 45 20 46 49 4C 45 22 00 |FILE. THE FILE".|
00002D50: 81 35 60 04 99 22 4E 55 4D 42 45 52 20 49 53 20 |.5`.."NUMBER IS |
00002D60: 31 20 41 4E 44 20 54 48 45 20 46 49 4C 45 20 4E |1 AND THE FILE N|
00002D70: 41 4D 45 20 49 53 20 27 22 3B 53 41 24 3B 22 27 |AME IS '";SA$;"'|
00002D80: 22 00 A4 35 6A 04 99 22 45 4E 54 45 52 20 41 4E |"..5j.."ENTER AN|
00002D90: 59 20 43 48 41 52 41 43 54 45 52 20 54 4F 20 45 |Y CHARACTER TO E|
00002DA0: 58 49 54 22 00 B1 35 74 04 85 41 24 3A 89 32 30 |XIT"..5t..A$:.20|
00002DB0: 30 00 B7 35 7E 04 80 00 00 00 99 FE 20 4C A8 E9 |0..5~....... L..|
....... PJ 83-07-14--83.?.... **********
***********************.{.... OPEN RS-23
2C I/O CHANNEL (VIC-1011A RS-232 CARTRID
GE)...... ******************************
***.M.... OPEN200,2,3,CHR$(32+6)+CHR$(32
+128).U....80...... ********************
************.I.... UNPACK BIT VALUES FOR
EACH BYTE OF A 63 BYTE ARRAY, IF BIT IS
SET THEN...... POKE GRAPHIC CHARACTER I
N SCREEN MEMORY TO RECONSTRUCT SPRITE IM
AGE...... CALLED BY REDISPLAY ROUTINE...
.... ********************************...
..L.1076:J.1:.I.1.21......X.1.3:A.SD(SN,
J).1....Y.1.8:.A.DC(Y)..L.Y,160:.L.Y.OF,
0.8....Y.K.%.L.L.8:J.J.1:.X.Y.(.L.L.16:.
I._.*.....-.. **************************
******.N.... PRINT CHARACTER STRING B$ O
N SCREEN STARTING AT SCREEN ADDRESS L2..
./.. ********************************.(.
2..X.0.C(B$).1:CH.F(J(B$,X.1,1)):.CH.64.
CH.CH.64.D.4..L2.X,CH:.L2.X.OF,11:.X.J.6
...Q.7.. *******************************
*...8.. CREATE 63 BYTE BIT PACKED ARRAY
FROM SCREEN IMAGE WHEN CALLED BY SAVE..
.9.. ********************************...
<.V.53248:.V.21,4:.2042,13:.V.4,45:.V.5,
60:.V.41,0.U.>.L.1076:J.1:.X.1.21:.I.1.3
:.Y.1.8:.B(L.Y).160.D.D.DC(Y)...?..Y:.83
1.J,D:D.0:L.L.8:J.J.1:.I:L.L.16:.X...A..
...K.. ********************************.
..L.. SET UP SCREEN COLORS, DIMENSION A
RRAYS, AND INITIALIZE FLAGS...M.. ******
**************************.K.P..53281,15
:.53281,1:.646,12:SN.0:RE.0:V.53248.L.U.
.G(147):.53248.21,0:OF.54272...V..SD(8,6
3),TD(63),DC(8),SS(8),TN(8),DR(3),G(3).E
.W.. ********************************...
X.. LOAD BIT VALUE ARRAY...Y.. *********
***********************.,.[.C.256:.X.1.8
:DC(X).C.2:C.DC(X):..S.B.. *************
*******************.P.C.. PRINT MENU OF
COMMANDS...D.. *************************
******.F.E.."***************************
*************"...F.."*
*".&.G.."*
*".V.H.."*
COMMANDER 64 SPRITE GRAPHICS *"..
.I.."* UTILITY
*"...J.."* WIZARDWORKS SOFTWARE EN
GINEERING *"...K.."*
*"...L.."* WRITTEN
BY GARY D MCCLELLAN *".F.M.."*
P.O. BOX 1750 *".V
.N.."* FLAGSTAFF.AZ 86002
*"...P.."*
*".V.Q.."*******************
*********************"...S..X.1.5000:...
.H..G(147):." *** SPRITE UTILITY MEN
U ***".".M..:.:..?.R.." 'C' CREATES S
PRITES".}.S.." 'A' WILL ANIMATE ANY OF
YOUR SPRITE CREATIONS".C.T.." 'L
' LOADS SPRITE DATA FROM TAPE INTO
SPRITE DATA ARRAY"...U.." 'E' EXITS AN
Y FUNCTIONS AND RETURNS TO MENU".).V
.." 'S' SAVES SPRITE DATA ARRAY ON TAPE
".I.W.." 'D' DISPLAYS 63 BYTE DATA DESC
RIPTION OF A SPRITE"...Y.." 'N' DI
SPLAYS NUMBER OF SPRITES CRE
ATED"...Z.." 'R' WILL REDISPLAY A CREAT
ED SPRITE FOR GRAPHIC EDITING"...
..." 'Q' (QUIT) WILL END PROGRAM".8....
*******************************.L.... R
EAD KEYBOARD AND BRANSCH TO REQUESTED MO
DULE...... *****************************
**......:.:."ENTER REQUEST";......A$....
..G(147).P....A$."C".400......A$."A".900
......A$."L".800......A$."E".200......A$
."S".1000.!....A$."D".600.1....A$."N".30
0.G....A$."R".RE.1:.400.Z....A$."Q". 200
:..C....200...".. **********************
*********.K.#.. DISPLAY SPRITE IMAGES CR
EATED (STATUS OF SPRITE DATA ARRAY)...$.
. *******************************...,..X
.1.8:.:.6..SS(X).1.."SPRITE NUMBER";X;"I
N SPRITE DATA ARRAY.":.340.`.@.."SPRITE
NUMBER";X;"NOT CREATED.".G.T..X...^.."EN
TER ANY CHARACTER TO EXIT";A$:.200...|..
*******************************...}.. P
RINT OPERATOR COMMANDS AND INSTRUCTIONS
FOR SPRITE DRAW ROUTINE.%.~.. **********
*********************.Q...."CREATE SPRIT
E IMAGES BY MOVING YOUR PEN WITH THE CUR
SOR KEYS. F3 = ";......"PEN UP (";G(123)
;"). F5 = ERASE ("G(119);"). F7 = DRAW
(";......G(113);").A JOYSTICK IN PORT 2
WILL ALSO MOVE THE PEN. PRESS THE";.3...
." FIRE BUTTON TO SELECT PEN UP, ERASE,
OR DRAW.":..{...." PRESS 'Q' TO EXIT
THE ROUTINE WHEN YOUR SPRITE IS COMPLET
E."......:.RE.0.411......"ENTER SPRITE#
TO REDISPLAY-";SN.Y....SN.1.SN.8.."1 THR
U 8 PLEASE.":.406......SS(SN).0.."SORRY-
SPRITE NUMBER";SN;"NOT CREATED.":RE.0:.
400.Q....:." TO REDISPLAY SPRITE NUM
BER";SN;"PLEASE";.P....:.:."PRESS 'S' TO
START-"......A$:.A$."E".200......A$.."S
".411.....B.1036:L.1077:BL.0:L1.1077:G.3
2:BG.90:G(1).160:G(2).32:G(3).32:G1.3:GT
.32.....DR(1).81:DR(2).87:DR(3).91.A. ..
G(147):B$."F1= SPRITE":L2.1385:.50:B$."E
CHO MODE":L2.1425.|....50:B$."R= NORMAL"
:L2.1505:.50:B$."SPRITE":L2.1545:.50.D..
.B$."X= X AXIS":L2.1625:.50:B$."EXPANDED
":L2.1665:.50:B$."Y= Y AXIS".....L2.1745
:.50:B$."EXPANDED":L2.1785:.50:B$."G= X
AND Y":L2.1865:.)....50:B$."EXPANDED":L2
.1905:.50.E....X.B.B.25:.X,BG:.X.OF,15:.
X.22.40,BG:.X.(22.40).OF,15:.......1048.
OF,11:.1049.OF,11:.1049.22.40.OF,11:.104
8.22.40.OF,11......X.B.B.22.40.40:.X,BG:
.X.OF,15:.X.25,BG:.X.25.OF,15:......L2.1
985:B$." PRESS 'Q' WHEN SPRITE COMPLE
TE ":.50.S....X.B.B.22.40.40:.X,BG:.X.O
F,15:.X.25,BG:.X.25.OF,15:..R....1476.OF
,11:.1476.25.OF,11......****************
*****************.U.... CHECK FOR REDISP
LAY SPRITE REQUEST, GOSUB IF FLAG SET...
...*********************************....
..RE.0..20:RE.0.6....*******************
**************.}.... EXECUTE MOVE, DRAW,
OR ERASE AND SPRITE ECHO MODE FUNCTIONS
WHEN...... WHEN REQUESTED BY KEYBOARD O
R JOYSTICK.Q....************************
*********.....L.1077......G1.3.G(G1).GT.
.....L,G(G1):.L.OF,0:BL.BL.1. ....BL.1..
L,DR(G1)./....BL.2.BL.0.V.B..***********
**********************.J.C.. READ KEYBOA
RD...D..********************************
*...E..A$:.A$."".X.0:.455...F.X.F(A$).E.
G..X.29.L.L.1.V.H..X.157.L.L.1...I..X.17
.L.L.40...J..X.145.L.L.40...K..X.135.G1.
1...L..X.136.G1.2.(.M..X.81..500.8.N..X.
134.G1.3.G.O..X.133..60.C.P..X.82..53271
,0:.53277,0..Q..X.88..53271,0:.53277,4.
..R..X.89..53271,4:.53277,0...S..X.71..5
3271,4:.53277,4...T..*******************
**************...U.. READ JOYSTICK PORT
2. .V..*********************************
.?.W.JO.B(56320):.JO.126.L.L.40.R.X..JO.
118.L.L.39.D.Y..JO.119.L.L.1.W.Z..JO.117
.L.L.41......JO.125.L.L.40......JO.121.L
.L.39......JO.123.L.L.1.B....JO.122.L.L.
41......JO.111.G1.G1.1:.G1.4.G1.1......G
1.2.GT.32.. ...B(L).BG.L.L1.. ...L1.L.49
5.# ...G1.3.GT.B(L).D ...L1,G(G1):.L1.OF
,0:L1.L:.445.K ...**********************
***********.. ... SAVE SCREEN IMAGE IN B
IT-PACKED TEMPORARY ARRAY.H ...*********
************************..!..L2.1987:B$.
"HOLD ON- SPRITE IMAGE BEING COPIED ":
.50:DC.1..!...53248.21,0.S!..L.1076:J.1:
.X.1.21:.I.1.3:.Y.1.8:.B(L.Y).160.D.D.DC
(Y).!...Y:TD(J).D:D.0:L.L.8:J.J.1:.I:L.
L.16:.X..!&..***************************
*****..!'.. STORE TEMPORARY SPRITE ARRAY
IN SPRITE DATA ARRAY OR EXIT..!*..G(147
).-"+.."ENTER 'S' TO STORE YOUR SPRITE I
N SPRITE DATA ARRAY.".P"-.."ENTER 'E' TO
EXIT FUNCTION.".D"...A$:.A$."S".700.Y"/
..A$."E".DC.0.200.."0..*****************
***************.."1.. VERIFY EARLY EXIT
REQUEST.."2..***************************
*****..#:..:."SPRITE DATA NOT SAVED. PLE
ASE VERIFY EXIT.".E#;.."ENTER 'Y'ES OR '
N'O.":.A$:.A$."N".555.U#?..A$."Y".200.^#
D..570..#X..****************************
****.O#Y.. PRINT INSTTRUCTIONS FOR ROUTI
NE TO DISPLAY DECIMEL VALUES OF 63 BYTE.
.#Z..********************************..$
]..G(147).I$`.."THIS ROUTINE DISPLAYS TH
E 63 BYTE DATA DESCRIPTION OF A SPRITE.
"..$B..:."ENTER THE NUMBER OF THE SPRITE
YOU WANT TO DISPLAY DATA FOR.";..$C.."E
NTER A '0' TO EXIT ROUTINE.".F$D..SN:.SN
.0.200..$F..SN.1.SN.8.."1 THRU 8 PLEASE"
:.610..%G..*****************************
**.`%H.. CHECK FOR PRINTED OUTPUT OR SCR
EEN DISPLAY AND SEND TO REQUESTED DEVICE
..%I..*******************************.G%
L.."ENTER A 'P' FOR PRINTER OUTPUT OR AN
'S' FOR SCREEN OUTPUT"..%Q..A$:.A$."P".
PR.1..%T..PR.1..#200,G(13).0&U..PR.1..#2
00," SPRITE";SN;"DATA DESCRIPTION":.#2
00,G(13).>&V..PR.1.640.F&W.." SPRITE";
SN"DATA DESCRIPTION":...&Z.TC.1:.X.1.21:
."BYTE";TC,:.J.1.3:.SD(SN,TC),:TC.TC.1:.
J,X..&{..647..&..TC.1:.X.1.7:.#200,"BYTE
";TC,:.J.1.9:.#200,SD(SN,TC);:TC.TC.1..'
...J:.#200,G(13):.X.-'..."ENTER ANY CHAR
ACTER FOR MENU.":PR.0.:'...A$:.200.`'...
********************************..'... C
OPY DATA FROM TEMPORARY SCREEN SAVE ARRA
Y TO SPRITE DATA ARRAY.L'...************
********************..(..."ENTER SPRITE
NUMBER YOU WISH TO SAVE SCREEN DISPLA
Y TO,OR ENTER A";.2(..."'0' TO EXIT.":DC
.0.D(...SN:.SN.0.200.V(A..SN.1.SN.8.."EN
TER 1 THROUGH 8, PLEASE-":.701..(F..I.1.
63:SD(SN,I).TD(I):.:SS(SN).1..(P.."SPRIT
E NUMBER";SN;"DISPLAY DATA HAS BEEN SAVE
D IN SPRITE DATA ARRAY"..)Z.."ENTER ANY
CHARACTER TO EXIT";A$;.:.550.()..."ERROR
TRAP":..N) ..**************************
******.Z)!.. LOAD SPRITE DATA ARRAY FROM
TAPE FILE. )"..************************
********..)%.."THIS ROUTINE LOADS THE SP
RITE DATA ARRAY FROM TAPE FILE #1."..**.
."ENTER 'L' TO LOAD THE ARRAY OR AN 'E'
TO EXIT-".-*4..A$:.A$."E".200.U*>..A$.."
L".."'E' OR 'L' PLEASE-";.820..*A.."ENTE
R THE FILE NAME TO LOAD FROM. ('SPRITE D
ATA' IS THE DEFAULT FILE";..*C.." NAME S
EARCHED FOR.".X*H.SA$."SPRITE DATA":.SA$
..*M..SA$."E".200..*R..1,1,0,SA$..+\..I.
1.8..+F..1,SS(I).'+P..J.1.63:.1,SD(I,J).
.+Q..J.5+Z..I.<+{. 1..+|.."THE SPRITE DA
TA ARRAY HAS BEEN LOADED FROM TAPE. ENTE
R ANY CHARACTER"..+~.."TO EXIT."..+..A$
:.200.K+...*****************************
***..,... ANIMATE REQUESTED SPRITE IMAGE
FROM SPRITE DATA ARRAY BY KEYBOARD OR.+
,... JOYSTICK INPUT.Q,...***************
*****************.],...G(147)..,..."THIS
ROUTINE WILL ANIMATE ONE OF YOUR SPRITE
CREATIONS ".Y,..."YOUR SPRITE CAN BE MO
VED AROUND THE SCREEN WITH THE ";..-..."
CURSOR KEYS ON THE KEYBOARD OR A JOYSTIC
K IN PORT 2.".]-... "ENTER 'K' FOR KEYBO
ARD ANIMATION OR 'J' FOR JOYSTICK ANIMAT
ION."..-..."(PRESS 'E' TO EXIT ROUTINE)"
..-...A$..-..K.0:.A$."J".K.1..-...A$."K"
.K.2..-...A$."E".200.I-...K.0.920..-...*
*******************************.;.... GE
T SPRITE NUMBER, COLOR AND DISPLAY MODE
AND SET UP SPRITE REGISTERS.A....*******
*************************......"ENTER SP
RITE NUMBER TO ANIMATE";SN.G....SS(SN).0
.."SORRY- SPRITE NUMBER";SN;"NOT CREATED
.":.910......"ENTER '0' TO '15' FOR THE
COLOR OF YOUR SPRITE".,/...A:.A.0.A.15..
"MUST BE FROM 0 TO 15.":.955.5/..CL.A.Z/
..."ENTER 'R' FOR STANDARD SPRITE"../...
" 'X' FOR EXPANDED X SPRITE"../..."
'Y' FOR EXPANDED Y SPRITE".Q/A.."
'G' FOR EXPANDED X,Y SPRITE"../B..A
$:.A$.G(13).A$."R".967..0C..A$."X"..V.29
,4..0D..A$."Y"..V.23,4.20E..A$."G"..V.29
,4:.V.23,4.B0F..A$."E".200.K0G..".".0H.
V.53248:.V.21,4:.2042,13:VS.831:X1.100:.
V.41,0:..0I..X.1.63:.VS.X,SD(SN,X):...0J
..V.4,X1:.V.5,Y1:.V.41,CL..0K..*********
***********************..1L.. READ KEYBO
ARD OR JOYSTICK PORT 2 FOR SPRITE VECTOR
S.?1M..********************************.
W1O..A$:.A$."".X.0:.982.C1T.X.F(A$).P1U.
.K.1.986..1V..X.17.Y1.Y1.1:.Y1.200.Y1.0.
.1W..X.29.X1.X1.1:.X1.256.X1.0.N1X..X.14
5.Y1.Y1.1:.Y1.0.Y1.199..1Y..X.157.X1.X1.
1:.X1.0.X1.255..2Z..X.69..V.21,0:.V.23,0
:.V.29,0:.200."2...K.0.998.N2..JO.B(5632
0):..JO.1.Y1.Y1.1:.Y1.0.Y1.200.N2....JO.
8.X1.X1.1:.X1.256.X1.0..2....JO.2.Y1.Y1.
1:.Y1.200.Y1.0..2....JO.4.X1.Y1.1:.X1.0.
X1.255.B2...V.4,X1:.V.5,Y1.K2...975..2..
.*******************************.13... S
AVE SPRITE DATA ARRAY TO TAPE FILE BY RE
QUESTED FILE NAME.V3...*****************
**************..3..."THIS ROUTINE SAVES
THE SPRITE DATA ARRAYONTO TAPE, FILE #1.
".N3..."ENTER 'S' TO START FUNCTION OR '
E' TO EXIT."..3...A$:.A$."E".200..4...
A$.."S".."'E' OR 'S' PLEASE-";:.1010.T4.
.."PLEASE ENTER THE FILE NAME YOU WOULD
LIKE THE ARRAY SAVED OVER.";..4..."('SPR
ITE DATA' IS THE DEFAULT FILE NAME.)". 4
..SA$."SPRITE DATA":.SA$..4...SA$."E".20
0.A4... 1,1,1,SA$.L4$..I.1.8.Z4...#1,SS(
I)..48..J.1.63:.#1,SD(I,J)..4B..J..5L..I
..5U. 1.O5V.."YOUR SPRITE DATA ARRAY HAS
BEEN SAVED ONTO A TAPE FILE. THE FILE".
.5`.."NUMBER IS 1 AND THE FILE NAME IS '
";SA$;"'"..5J.."ENTER ANY CHARACTER TO E
XIT"..5T..A$:.200..5~....... L..
> CLICK IMAGE PREVIEW FOR FULL MODAL