SPRITE ANIMATOR

00000000: 01 08 1E 08 0A 00 8F 20  53 49 4E 47 4C 45 20 53  |....... SINGLE S|
00000010: 50 52 49 54 45 20 41 4E  49 4D 41 54 4F 52 00 35  |PRITE ANIMATOR.5|
00000020: 08 14 00 8F 20 4D 49 43  48 41 45 4C 20 41 2E 20  |.... MICHAEL A. |
00000030: 45 53 4B 49 4E 00 4D 08  1E 00 8F 20 44 45 53 49  |ESKIN.M.... DESI|
00000040: 47 4E 20 54 45 43 48 4E  4F 4C 4F 47 59 00 5F 08  |GN TECHNOLOGY._.|
00000050: 28 00 8F 20 37 20 4A 55  4E 45 20 31 39 38 33 00  |(.. 7 JUNE 1983.|
00000060: 82 08 2D 00 8B 20 41 B2  30 20 A7 20 41 B2 31 3A  |..-.. A.0 . A.1:|
00000070: 93 20 22 53 50 52 53 55  50 2E 4F 42 4A 22 2C 38  |. "SPRSUP.OBJ",8|
00000080: 2C 31 00 A2 08 2F 00 97  20 35 33 32 38 30 2C 35  |,1.../.. 53280,5|
00000090: 3A 97 20 35 33 32 38 31  2C 36 3A 99 C7 28 31 34  |:. 53281,6:..(14|
000000A0: 32 29 00 C7 08 32 00 9F  20 31 35 2C 38 2C 31 35  |2)...2.. 15,8,15|
000000B0: 3A 8F 20 4F 50 45 4E 20  43 4F 4D 4D 41 4E 44 20  |:. OPEN COMMAND |
000000C0: 43 48 41 4E 4E 45 4C 00  F5 08 34 00 8B 20 52 46  |CHANNEL...4.. RF|
000000D0: B2 31 20 A7 20 36 30 3A  8F 20 41 56 4F 49 44 20  |.1 . 60:. AVOID |
000000E0: 52 45 44 49 4D 45 4E 53  49 4F 4E 49 4E 47 20 41  |REDIMENSIONING A|
000000F0: 52 52 41 59 53 00 09 09  37 00 86 20 41 25 28 31  |RRAYS...7.. A%(1|
00000100: 32 29 2C 42 25 28 31 32  29 00 12 09 39 00 52 46  |2),B%(12)...9.RF|
00000110: B2 31 00 2B 09 3C 00 81  20 49 B2 31 20 A4 20 31  |.1.+.<.. I.1 . 1|
00000120: 32 3A 87 20 41 25 28 49  29 3A 82 00 44 09 41 00  |2:. A%(I):..D.A.|
00000130: 81 20 49 B2 31 20 A4 20  31 32 3A 87 20 42 25 28  |. I.1 . 12:. B%(|
00000140: 49 29 3A 82 00 4E 09 46  00 89 20 31 30 30 00 81  |I):..N.F.. 100..|
00000150: 09 50 00 83 20 31 31 32  2C 39 36 2C 31 36 30 2C  |.P.. 112,96,160,|
00000160: 39 36 2C 32 30 38 2C 39  36 2C 31 31 32 2C 31 33  |96,208,96,112,13|
00000170: 38 2C 31 36 30 2C 31 33  38 2C 32 30 38 2C 31 33  |8,160,138,208,13|
00000180: 38 00 B7 09 5A 00 83 20  31 34 38 2C 31 30 39 2C  |8...Z.. 148,109,|
00000190: 31 37 32 2C 31 30 39 2C  31 39 36 2C 31 30 39 2C  |172,109,196,109,|
000001A0: 31 34 38 2C 31 33 30 2C  31 37 32 2C 31 33 30 2C  |148,130,172,130,|
000001B0: 31 39 36 2C 31 33 30 00  D4 09 64 00 56 B2 35 33  |196,130...d.V.53|
000001C0: 32 34 38 3A 8F 20 42 41  53 45 20 4F 46 20 56 49  |248:. BASE OF VI|
000001D0: 43 20 49 49 00 F4 09 6E  00 97 20 56 AA 32 31 2C  |C II...n.. V.21,|
000001E0: 30 3A 8F 20 54 55 52 4E  20 4F 46 46 20 53 50 52  |0:. TURN OFF SPR|
000001F0: 49 54 45 53 00 17 0A 78  00 97 20 56 AA 32 33 2C  |ITES...x.. V.23,|
00000200: 32 35 35 3A 97 20 56 AA  32 39 2C 32 35 35 3A 8F  |255:. V.29,255:.|
00000210: 20 45 58 50 41 4E 44 00  37 0A C8 00 99 22 93 22  | EXPAND.7...."."|
00000220: A6 31 31 29 22 12 53 50  52 49 54 45 20 41 4E 49  |.11)".SPRITE ANI|
00000230: 4D 41 54 4F 52 92 22 00  51 0A 2C 01 4E 46 B2 30  |MATOR.".Q.,.NF.0|
00000240: 3A 8F 20 53 50 52 49 54  45 20 43 4F 55 4E 54 45  |:. SPRITE COUNTE|
00000250: 52 00 71 0A 36 01 53 42  B2 31 30 32 34 30 3A 8F  |R.q.6.SB.10240:.|
00000260: 20 53 50 52 49 54 45 20  44 41 54 41 20 42 41 53  | SPRITE DATA BAS|
00000270: 45 00 99 0A 40 01 50 B2  31 36 30 3A 8F 20 50 4F  |E...@.P.160:. PO|
00000280: 49 4E 54 45 52 20 54 4F  20 53 50 52 49 54 45 20  |INTER TO SPRITE |
00000290: 44 41 54 41 20 42 41 53  45 00 C8 0A 54 01 99 3A  |DATA BASE...T..:|
000002A0: 99 3A 85 22 44 4F 20 59  4F 55 20 57 41 4E 54 20  |.:."DO YOU WANT |
000002B0: 54 4F 20 41 55 54 4F 2D  4C 4F 41 44 20 46 49 4C  |TO AUTO-LOAD FIL|
000002C0: 45 53 22 3B 41 24 3A 99  00 DC 0A 5E 01 8B 20 41  |ES";A$:....^.. A|
000002D0: 24 B2 22 59 22 20 A7 20  34 30 30 30 00 E2 0A 90  |$."Y" . 4000....|
000002E0: 01 99 00 09 0B F4 01 99  22 45 4E 54 45 52 20 46  |........"ENTER F|
000002F0: 52 41 4D 45 20 23 22 3B  4E 46 AA 31 3B 22 46 49  |RAME #";NF.1;"FI|
00000300: 4C 45 20 4E 41 4D 45 22  3B 00 12 0B 58 02 85 20  |LE NAME";...X.. |
00000310: 5A 24 00 28 0B 76 02 8B  20 5A 24 B2 22 45 4E 44  |Z$.(.v.. Z$."END|
00000320: 22 20 A7 20 32 30 30 30  00 3E 0B 80 02 8B 20 5A  |" . 2000.>.... Z|
00000330: 24 B2 22 42 59 45 22 20  A7 20 39 39 39 39 00 5A  |$."BYE" . 9999.Z|
00000340: 0B 8A 02 8D 20 35 30 30  30 3A 8F 20 4C 4F 41 44  |.... 5000:. LOAD|
00000350: 20 46 49 4C 45 20 44 41  54 41 00 64 0B 94 02 89  | FILE DATA.d....|
00000360: 20 35 30 30 00 6A 0B D0  07 8F 00 93 0B DA 07 99  | 500.j..........|
00000370: 3A 53 50 B2 31 30 3A 4E  46 B2 4E 46 AB 31 3A 8F  |:SP.10:NF.NF.1:.|
00000380: 20 49 4E 49 54 49 41 4C  20 50 41 52 41 4D 45 54  | INITIAL PARAMET|
00000390: 45 52 53 00 BF 0B 02 08  99 20 22 93 22 A6 31 33  |ERS...... ".".13|
000003A0: 29 22 12 53 50 52 49 54  45 20 41 4E 49 4D 41 54  |)".SPRITE ANIMAT|
000003B0: 4F 52 22 3B A3 33 35 29  3B 22 12 50 45 4E 22 00  |OR";.35);".PEN".|
000003C0: D9 0B 0C 08 99 20 22 11  11 22 3B A3 33 34 29 3B  |..... "..";.34);|
000003D0: 22 12 46 41 53 54 45 52  22 00 EE 0B 0E 08 99 20  |".FASTER"...... |
000003E0: A3 33 34 29 3B 22 12 53  4C 4F 57 45 52 22 00 03  |.34);".SLOWER"..|
000003F0: 0C 10 08 99 20 A3 33 34  29 3B 22 12 44 49 52 45  |.... .34);".DIRE|
00000400: 43 54 22 00 18 0C 12 08  99 20 A3 33 34 29 3B 22  |CT"...... .34);"|
00000410: 12 53 43 41 4C 45 20 22  00 31 0C 14 08 99 20 A3  |.SCALE ".1.... .|
00000420: 33 34 29 3B 22 12 4E 55  4D 42 45 52 22 3A 99 3A  |34);".NUMBER":.:|
00000430: 99 00 46 0C 16 08 99 20  A3 33 34 29 3B 22 12 4E  |..F.... .34);".N|
00000440: 45 57 53 45 51 22 00 5B  0C 18 08 99 20 A3 33 34  |EWSEQ".[.... .34|
00000450: 29 3B 22 12 2A 45 4E 44  2A 20 22 00 94 0C 34 08  |);".*END* "...4.|
00000460: 81 20 49 B2 56 AA 33 39  20 A4 20 56 AA 34 36 3A  |. I.V.39 . V.46:|
00000470: 97 20 49 2C 30 3A 82 3A  8F 20 53 45 54 20 53 50  |. I,0:.:. SET SP|
00000480: 52 49 54 45 20 43 4F 4C  4F 52 53 20 54 4F 20 42  |RITE COLORS TO B|
00000490: 4C 41 43 4B 00 D2 0C 98  08 81 20 49 B2 30 20 A4  |LACK...... I.0 .|
000004A0: 20 31 31 3A 97 20 56 AA  49 2C 41 25 28 49 AA 31  | 11:. V.I,A%(I.1|
000004B0: 29 3A 82 3A 8F 20 53 45  54 20 58 2C 59 20 50 4F  |):.:. SET X,Y PO|
000004C0: 53 49 54 49 4F 4E 53 20  28 45 58 50 41 4E 44 45  |SITIONS (EXPANDE|
000004D0: 44 29 00 E9 0C FC 08 97  20 56 AA 31 36 2C 30 3A  |D)...... V.16,0:|
000004E0: 8F 20 58 20 4D 53 42 20  30 00 20 0D 60 09 81 20  |. X MSB 0. .`.. |
000004F0: 49 B2 30 20 A4 20 35 3A  97 20 32 30 34 30 AA 49  |I.0 . 5:. 2040.I|
00000500: 2C 50 3A 82 3A 8F 20 53  45 54 20 50 4F 49 4E 54  |,P:.:. SET POINT|
00000510: 53 20 54 4F 20 46 49 52  53 54 20 42 4C 4F 43 4B  |S TO FIRST BLOCK|
00000520: 00 40 0D C4 09 97 20 56  AA 32 31 2C 31 36 3A 8F  |.@.... V.21,16:.|
00000530: 20 45 4E 41 42 4C 45 20  53 50 52 49 54 45 20 34  | ENABLE SPRITE 4|
00000540: 00 83 0D CE 09 99 22 13  11 11 11 11 11 11 11 11  |......".........|
00000550: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 12 53  |...............S|
00000560: 50 45 45 44 3D 20 20 20  9D 9D 9D 22 3B 53 50 3B  |PEED=   ...";SP;|
00000570: A3 31 36 29 3B 22 46 4F  57 41 52 44 22 3B A3 33  |.16);"FOWARD";.3|
00000580: 30 29 3B 00 92 0D D8 09  99 20 22 45 58 50 41 4E  |0);...... "EXPAN|
00000590: 44 22 00 C0 0D E2 09 46  41 B2 30 3A 46 42 B2 4E  |D".....FA.0:FB.N|
000005A0: 46 3A 46 44 B2 31 3A 8F  20 49 4E 49 54 49 41 4C  |F:FD.1:. INITIAL|
000005B0: 20 4C 4F 4F 50 20 50 41  52 41 4D 45 54 45 52 53  | LOOP PARAMETERS|
000005C0: 00 D5 0D 28 0A 81 20 4A  B2 46 41 20 A4 20 46 42  |...(.. J.FA . FB|
000005D0: 20 A9 20 46 44 00 E2 0D  5A 0A 4A 31 B2 4A AA 31  | . FD...Z.J1.J.1|
000005E0: 36 30 00 01 0E 5F 0A 97  20 34 39 34 37 38 2C 4A  |60..._.. 49478,J|
000005F0: 31 3A 8F 20 53 45 54 55  50 20 50 4F 49 4E 54 45  |1:. SETUP POINTE|
00000600: 52 00 24 0E 64 0A 9E 20  34 39 34 34 34 3A 8F 20  |R.$.d.. 49444:. |
00000610: 4D 4F 56 45 20 53 50 52  49 54 45 20 50 4F 49 4E  |MOVE SPRITE POIN|
00000620: 54 45 52 53 00 33 0E F0  0A 81 20 4B B2 31 20 A4  |TERS.3.... K.1 .|
00000630: 20 53 50 00 4B 0E FA 0A  A1 20 41 24 3A 8B 20 41  | SP.K.... A$:. A|
00000640: 24 B2 22 22 20 A7 20 32  39 34 30 00 66 0E FF 0A  |$."" . 2940.f...|
00000650: 8B 20 28 C2 28 35 36 33  32 31 29 20 AF 20 34 29  |. (.(56321) . 4)|
00000660: A7 20 32 38 32 30 00 71  0E 00 0B 89 20 36 30 30  |. 2820.q.... 600|
00000670: 30 00 7E 0E 04 0B 41 56  B2 C6 28 41 24 29 00 B1  |0.~...AV..(A$)..|
00000680: 0E 09 0B 8B 20 41 56 B2  31 33 35 20 A7 20 46 43  |.... AV.135 . FC|
00000690: B2 46 41 3A 46 41 B2 46  42 3A 46 42 B2 46 43 3A  |.FA:FA.FB:FB.FC:|
000006A0: 46 45 B2 31 3A 46 44 B2  AB 46 44 3A 89 32 38 39  |FE.1:FD..FD:.289|
000006B0: 30 00 DF 0E 0E 0B 8B 20  41 56 B2 31 33 33 20 A7  |0...... AV.133 .|
000006C0: 20 53 50 B2 53 50 AB 31  3A 8B 20 53 50 B3 30 A7  | SP.SP.1:. SP.0.|
000006D0: 53 50 B2 30 3A 8F 20 53  50 45 45 44 20 55 50 00  |SP.0:. SPEED UP.|
000006E0: 10 0F 18 0B 8B 20 41 56  B2 31 33 37 20 A7 20 53  |..... AV.137 . S|
000006F0: 50 B2 53 50 AA 31 3A 8B  20 53 50 B1 34 30 A7 53  |P.SP.1:. SP.40.S|
00000700: 50 B2 34 30 3A 8F 20 53  4C 4F 57 20 44 4F 57 4E  |P.40:. SLOW DOWN|
00000710: 00 28 0F 22 0B 8B 20 41  56 B2 31 33 34 20 AF 20  |.(.".. AV.134 . |
00000720: 4D 20 A7 20 33 32 30 30  00 42 0F 2C 0B 8B 20 41  |M . 3200.B.,.. A|
00000730: 56 B2 31 33 34 20 AF 20  A8 20 4D 20 A7 20 33 34  |V.134 . . M . 34|
00000740: 30 30 00 5F 0F 31 0B 8B  20 41 56 B2 31 33 39 20  |00._.1.. AV.139 |
00000750: A7 20 31 30 30 3A 8F 20  52 45 53 54 41 52 54 00  |. 100:. RESTART.|
00000760: 79 0F 36 0B 8B 20 41 56  B2 31 34 30 20 A7 20 39  |y.6.. AV.140 . 9|
00000770: 39 39 39 3A 8F 20 45 4E  44 00 A6 0F 3B 0B 8B 20  |999:. END...;.. |
00000780: 41 56 B2 31 33 36 20 AF  20 4E 54 20 A7 20 97 20  |AV.136 . NT . . |
00000790: 56 AA 32 31 2C 31 36 3A  4E 54 B2 A8 20 4E 54 3A  |V.21,16:NT.. NT:|
000007A0: 89 20 32 38 39 30 00 CE  0F 3E 0B 8B 20 41 56 B2  |. 2890...>.. AV.|
000007B0: 31 33 36 20 AF 20 A8 20  4E 54 20 A7 20 97 20 56  |136 . . NT . . V|
000007C0: AA 32 31 2C 36 33 3A 4E  54 B2 A8 20 4E 54 00 0F  |.21,63:NT.. NT..|
000007D0: 10 40 0B 8B 20 41 56 B2  31 33 38 20 A7 20 A0 20  |.@.. AV.138 . . |
000007E0: 31 35 3A 97 20 56 AA 32  31 2C 30 3A 99 22 93 43  |15:. V.21,0:.".C|
000007F0: 48 41 49 4E 49 4E 47 2E  2E 2E 22 3A 93 20 22 53  |HAINING...":. "S|
00000800: 50 52 49 54 45 20 45 44  49 54 4F 52 22 2C 38 00  |PRITE EDITOR",8.|
00000810: 44 10 4A 0B 99 22 13 11  11 11 11 11 11 11 11 11  |D.J.."..........|
00000820: 11 11 11 11 11 11 11 11  11 11 11 11 11 12 53 50  |..............SP|
00000830: 45 45 44 3D 20 20 20 9D  9D 9D 22 3B 53 50 3B A3  |EED=   ...";SP;.|
00000840: 31 36 29 3B 00 65 10 4E  0B 8B 20 46 44 B2 31 20  |16);.e.N.. FD.1 |
00000850: A7 20 99 20 22 46 4F 52  57 41 52 44 22 3B 3A 89  |. . "FORWARD";:.|
00000860: 20 32 38 39 38 00 76 10  50 0B 99 20 22 52 45 56  | 2898.v.P.. "REV|
00000870: 45 52 53 45 22 3B 00 82  10 52 0B 99 20 A3 33 30  |ERSE";...R.. .30|
00000880: 29 3B 00 9F 10 54 0B 8B  20 4D 20 A7 20 99 20 22  |);...T.. M . . "|
00000890: 4E 4F 52 4D 41 4C 92 22  3A 89 20 32 39 34 30 00  |NORMAL.":. 2940.|
000008A0: AF 10 68 0B 99 20 22 45  58 50 41 4E 44 92 22 00  |..h.. "EXPAND.".|
000008B0: B7 10 7C 0B 82 20 4B 00  CE 10 86 0B 8B 20 46 45  |..|.. K...... FE|
000008C0: 20 A7 20 46 45 B2 30 3A  89 20 32 36 30 30 00 D6  | . FE.0:. 2600..|
000008D0: 10 90 0B 82 20 4A 00 E1  10 B8 0B 89 20 32 36 30  |.... J...... 260|
000008E0: 30 00 F6 10 80 0C 8F 20  45 58 50 41 4E 44 20 53  |0...... EXPAND S|
000008F0: 50 52 49 54 45 53 00 0E  11 8A 0C 97 20 56 AA 32  |PRITES...... V.2|
00000900: 33 2C 36 33 3A 97 20 56  AA 32 39 2C 36 33 00 25  |3,63:. V.29,63.%|
00000910: 11 94 0C 8F 20 4C 4F 41  44 20 43 4F 4F 52 44 49  |.... LOAD COORDI|
00000920: 4E 41 54 45 53 00 44 11  9E 0C 81 20 49 B2 30 20  |NATES.D.... I.0 |
00000930: A4 20 31 31 3A 97 20 56  AA 49 2C 41 25 28 49 AA  |. 11:. V.I,A%(I.|
00000940: 31 29 3A 82 00 4E 11 A8  0C 4D B2 A8 20 4D 00 59  |1):..N...M.. M.Y|
00000950: 11 BC 0C 89 20 32 38 39  30 00 6E 11 48 0D 8F 20  |.... 2890.n.H.. |
00000960: 53 48 52 49 4E 4B 20 53  50 52 49 54 45 53 00 84  |SHRINK SPRITES..|
00000970: 11 52 0D 97 20 56 AA 32  33 2C 30 3A 97 20 56 AA  |.R.. V.23,0:. V.|
00000980: 32 39 2C 30 00 9B 11 5C  0D 8F 20 4C 4F 41 44 20  |29,0...\.. LOAD |
00000990: 43 4F 4F 52 44 49 4E 41  54 45 53 00 BA 11 66 0D  |COORDINATES...f.|
000009A0: 81 20 49 B2 30 20 A4 20  31 31 3A 97 20 56 AA 49  |. I.0 . 11:. V.I|
000009B0: 2C 42 25 28 49 AA 31 29  3A 82 00 C4 11 70 0D 4D  |,B%(I.1):....p.M|
000009C0: B2 A8 20 4D 00 CF 11 84  0D 89 20 32 38 39 30 00  |.. M...... 2890.|
000009D0: E6 11 A0 0F 8F 20 46 49  4C 45 20 41 55 54 4F 20  |..... FILE AUTO |
000009E0: 4C 4F 41 44 45 52 00 05  12 04 10 85 22 45 4E 54  |LOADER......"ENT|
000009F0: 45 52 20 42 41 53 45 20  46 49 4C 45 20 4E 41 4D  |ER BASE FILE NAM|
00000A00: 45 22 3B 46 24 00 22 12  0E 10 8B 20 46 24 B2 22  |E";F$.".... F$."|
00000A10: 42 59 45 22 20 A7 20 39  39 39 39 3A 8F 20 45 58  |BYE" . 9999:. EX|
00000A20: 49 54 00 38 12 13 10 8B  20 46 24 B2 22 45 4E 44  |IT.8.... F$."END|
00000A30: 22 20 A7 20 32 30 30 30  00 52 12 18 10 99 3A 85  |" . 2000.R....:.|
00000A40: 22 45 4E 54 45 52 20 53  54 41 52 54 20 23 22 3B  |"ENTER START #";|
00000A50: 46 53 00 6C 12 2C 10 85  22 45 4E 54 45 52 20 45  |FS.l.,.."ENTER E|
00000A60: 4E 44 20 20 20 23 22 3B  46 45 3A 99 00 85 12 36  |ND   #";FE:....6|
00000A70: 10 4C 53 B2 31 3A 8F 20  46 49 4C 45 20 53 45 51  |.LS.1:. FILE SEQ|
00000A80: 20 53 54 45 50 00 99 12  40 10 8B 20 46 45 B3 46  | STEP...@.. FE.F|
00000A90: 53 20 A7 20 4C 53 B2 AB  31 00 B8 12 54 10 56 46  |S . LS..1...T.VF|
00000AA0: B2 30 3A 8F 20 46 4C 41  47 20 46 4F 52 20 56 41  |.0:. FLAG FOR VA|
00000AB0: 4C 49 44 20 4C 4F 41 44  00 E1 12 68 10 81 20 4C  |LID LOAD...h.. L|
00000AC0: B2 46 53 20 A4 20 46 45  20 A9 20 4C 53 3A 8F 20  |.FS . FE . LS:. |
00000AD0: 46 49 4C 45 20 4C 4F 41  44 49 4E 47 20 4C 4F 4F  |FILE LOADING LOO|
00000AE0: 50 00 FA 12 72 10 54 24  B2 C9 28 C4 28 4C 29 2C  |P...r.T$..(.(L),|
00000AF0: C3 28 C4 28 4C 29 29 AB  31 29 00 1A 13 7C 10 5A  |.(.(L)).1)...|.Z|
00000B00: 24 B2 46 24 AA 54 24 3A  8F 20 43 52 45 41 54 45  |$.F$.T$:. CREATE|
00000B10: 20 46 49 4C 45 20 4E 41  4D 45 00 35 13 90 10 99  | FILE NAME.5....|
00000B20: 20 22 4C 4F 41 44 49 4E  47 20 22 3B 5A 24 AA 22  | "LOADING ";Z$."|
00000B30: 2E 53 50 52 22 00 40 13  A4 10 8D 20 35 30 30 30  |.SPR".@.... 5000|
00000B40: 00 51 13 AE 10 8B 20 46  B2 30 20 A7 20 56 46 B2  |.Q.... F.0 . VF.|
00000B50: 31 00 59 13 B8 10 82 20  4C 00 88 13 C2 10 8B 20  |1.Y.... L...... |
00000B60: 56 46 B2 30 20 A7 20 99  3A 99 22 2A 2A 2A 20 4E  |VF.0 . .:."*** N|
00000B70: 4F 20 46 49 4C 45 53 20  4C 4F 41 44 45 44 22 3A  |O FILES LOADED":|
00000B80: 99 3A 89 20 34 31 30 30  00 95 13 CC 10 99 3A 89  |.:. 4100......:.|
00000B90: 20 34 31 30 30 00 AD 13  88 13 8F 20 46 49 4C 45  | 4100...... FILE|
00000BA0: 20 4C 4F 41 44 20 52 4F  55 54 49 4E 45 00 CC 13  | LOAD ROUTINE...|
00000BB0: 9C 13 9F 20 32 2C 38 2C  32 2C 22 30 3A 22 AA 5A  |... 2,8,2,"0:".Z|
00000BC0: 24 AA 22 2E 53 50 52 2C  53 2C 52 22 00 D7 13 B0  |$.".SPR,S,R"....|
00000BD0: 13 8D 20 39 30 30 30 00  E9 13 C4 13 8B 20 46 B2  |.. 9000...... F.|
00000BE0: 31 20 A7 20 A0 20 32 3A  8E 00 F8 13 D8 13 81 20  |1 . . 2:....... |
00000BF0: 4A B2 30 20 A4 20 36 33  00 0E 14 EC 13 84 32 2C  |J.0 . 63......2,|
00000C00: 4B 3A 8F 20 47 45 54 20  41 20 42 59 54 45 00 31  |K:. GET A BYTE.1|
00000C10: 14 00 14 97 20 53 42 AA  4E 46 AC 36 34 AA 4A 2C  |.... SB.NF.64.J,|
00000C20: 4B 3A 8F 20 4C 4F 41 44  20 55 50 20 54 41 42 4C  |K:. LOAD UP TABL|
00000C30: 45 00 39 14 14 14 82 20  4A 00 41 14 28 14 A0 20  |E.9.... J.A.(.. |
00000C40: 32 00 4F 14 3C 14 4E 46  B2 4E 46 AA 31 3A 8E 00  |2.O.<.NF.NF.1:..|
00000C50: 6B 14 70 17 8F 20 4C 49  47 48 54 20 50 45 4E 20  |k.p.. LIGHT PEN |
00000C60: 4D 45 4E 55 20 44 52 49  56 45 52 00 8F 14 84 17  |MENU DRIVER.....|
00000C70: 58 25 B2 C2 28 35 33 32  36 37 29 AD 34 AB 35 3A  |X%..(53267).4.5:|
00000C80: 59 25 B2 C2 28 35 33 32  36 38 29 AD 38 AB 36 00  |Y%..(53268).8.6.|
00000C90: A2 14 8E 17 8B 20 58 25  B3 33 32 20 A7 20 32 38  |..... X%.32 . 28|
00000CA0: 39 30 00 AE 14 98 17 59  25 B2 59 25 AB 31 00 C8  |90.....Y%.Y%.1..|
00000CB0: 14 A2 17 8B 20 59 25 B3  32 20 B0 20 59 25 B1 32  |.... Y%.2 . Y%.2|
00000CC0: 31 20 A7 20 32 38 39 30  00 E3 14 A7 17 8B 20 B5  |1 . 2890...... .|
00000CD0: 28 59 25 AD 32 29 B3 B1  59 25 AD 32 20 A7 20 32  |(Y%.2)..Y%.2 . 2|
00000CE0: 38 39 30 00 18 15 AC 17  91 20 59 25 AD 32 20 89  |890...... Y%.2 .|
00000CF0: 20 36 31 30 30 2C 36 31  32 30 2C 36 31 33 30 2C  | 6100,6120,6130,|
00000D00: 36 31 34 30 2C 36 31 35  30 2C 36 31 38 30 2C 36  |6140,6150,6180,6|
00000D10: 31 36 30 2C 36 31 37 30  00 27 15 D4 17 8F 20 53  |160,6170.'.... S|
00000D20: 50 45 45 44 20 55 50 00  39 15 D6 17 41 56 B2 31  |PEED UP.9...AV.1|
00000D30: 33 33 3A 89 20 32 38 33  30 00 49 15 E8 17 8F 20  |33:. 2830.I.... |
00000D40: 53 4C 4F 57 20 44 4F 57  4E 00 5B 15 EA 17 41 56  |SLOW DOWN.[...AV|
00000D50: B2 31 33 37 3A 89 20 32  38 34 30 00 70 15 F2 17  |.137:. 2840.p...|
00000D60: 8F 20 52 45 56 45 52 53  45 20 54 4F 47 47 4C 45  |. REVERSE TOGGLE|
00000D70: 00 7B 15 F4 17 8D 20 36  33 30 30 00 8D 15 F6 17  |.{.... 6300.....|
00000D80: 41 56 B2 31 33 35 3A 89  20 32 38 32 35 00 9F 15  |AV.135:. 2825...|
00000D90: FC 17 8F 20 53 49 5A 45  20 54 4F 47 47 4C 45 00  |... SIZE TOGGLE.|
00000DA0: AA 15 FE 17 8D 20 36 33  30 30 00 BC 15 00 18 41  |..... 6300.....A|
00000DB0: 56 B2 31 33 34 3A 89 20  32 38 35 30 00 D0 15 06  |V.134:. 2850....|
00000DC0: 18 8F 20 4E 55 4D 42 45  52 20 54 4F 47 47 4C 45  |.. NUMBER TOGGLE|
00000DD0: 00 DB 15 08 18 8D 20 36  33 30 30 00 ED 15 0A 18  |...... 6300.....|
00000DE0: 41 56 B2 31 33 36 3A 89  20 32 38 37 35 00 FB 15  |AV.136:. 2875...|
00000DF0: 10 18 8F 20 52 45 53 54  41 52 54 00 06 16 12 18  |... RESTART.....|
00000E00: 8D 20 36 33 30 30 00 10  16 14 18 89 20 31 30 30  |. 6300...... 100|
00000E10: 00 1A 16 1A 18 8F 20 45  4E 44 00 25 16 1C 18 8D  |...... END.%....|
00000E20: 20 36 33 30 30 00 30 16  1E 18 89 20 39 39 39 39  | 6300.0.... 9999|
00000E30: 00 3B 16 24 18 89 20 32  38 39 30 00 56 16 9C 18  |.;.$.. 2890.V...|
00000E40: 8F 20 57 41 49 54 20 46  4F 52 20 50 45 4E 20 52  |. WAIT FOR PEN R|
00000E50: 45 4C 45 41 53 45 00 71  16 A6 18 8B 20 28 C2 28  |ELEASE.q.... (.(|
00000E60: 35 36 33 32 31 29 AF 34  29 A7 20 A1 20 41 24 3A  |56321).4). . A$:|
00000E70: 8E 00 7C 16 B0 18 89 20  36 33 31 30 00 96 16 28  |..|.... 6310...(|
00000E80: 23 8F 20 46 49 4C 45 20  53 54 41 54 55 53 20 43  |#. FILE STATUS C|
00000E90: 48 45 43 4B 45 52 00 B1  16 2D 23 8F 20 4F 4E 20  |HECKER...-#. ON |
00000EA0: 45 58 49 54 20 46 3D 31  20 49 46 20 45 52 52 4F  |EXIT F=1 IF ERRO|
00000EB0: 52 00 B9 16 32 23 46 B2  30 00 CD 16 3C 23 84 31  |R...2#F.0...<#.1|
00000EC0: 35 2C 41 24 2C 42 24 2C  43 24 2C 44 24 00 EF 16  |5,A$,B$,C$,D$...|
00000ED0: 50 23 8B 20 C5 28 41 24  29 B1 30 20 A7 20 99 3A  |P#. .(A$).0 . .:|
00000EE0: 99 22 2A 2A 2A 20 22 42  24 3A 99 3A 46 B2 31 00  |."*** "B$:.:F.1.|
00000EF0: F5 16 64 23 8E 00 10 17  0F 27 97 20 56 AA 32 31  |..d#.....'. V.21|
00000F00: 2C 30 3A A0 20 31 35 3A  99 22 93 4F 4B 22 3A 90  |,0:. 15:.".OK":.|
00000F10: 00 00 00 B2 31 31 20 A7  20 99 20 22 20 20 BA 20  |....11 . . "  . |
00000F20: 20 20 20 20 20 CC 22 3B  00 0C 0C FE 03 8B 20 49  |     .";...... I|
00000F30: B2 31 38 20 A7 20 99 20  22 20 20 D0 20 20 20 20  |.18 . . "  .    |
00000F40: 20 20 CF 22 3B 00 29 0C  FF 03 8B 20 49 B2 32 30  |  .";.).... I.20|
00000F50: 20 A7 20 99 20 22 20 20  45 58 50 41 4E 44 45 44  | . . "  EXPANDED|
00000F60: 22 3B 00 33 0C 01 04 99  3A 82 20 49 00 55 0C 03  |";.3....:. I.U..|
00000F70: 04 99 20 22 20 DD DD DD  DD DD DD DD DD DD DD DD  |.. " ...........|
00000F80: DD DD DD DD DD DD DD DD  DD DD DD DD DD 22 00 84  |............."..|
00000F90: 0C 06 04 97 20 32 30 34  30 2C 31 33 3A 97 20 32  |.... 2040,13:. 2|
00000FA0: 30 34 31 2C 31 33 3A 8F  20 53 45 54 55 50 53 50  |041,13:. SETUPSP|
00000FB0: 52 49 54 45 20 50 4F 49  4E 54 45 52 53 00 AF 0C  |RITE POINTERS...|
00000FC0: 0B 04 81 20 49 B2 30 20  A4 20 36 32 3A 97 20 38  |... I.0 . 62:. 8|
00000FD0: 33 32 AA 49 2C 30 3A 82  3A 8F 20 43 4C 45 41 52  |32.I,0:.:. CLEAR|
00000FE0: 20 53 50 52 49 54 45 53  00 C6 0C 10 04 56 B2 35  | SPRITES.....V.5|
00000FF0: 33 32 34 38 3A 8F 20 56  49 43 20 42 41 53 45 00  |3248:. VIC BASE.|
00001000: E8 0C 15 04 97 20 56 AA  32 31 2C 33 3A 8F 20 45  |..... V.21,3:. E|
00001010: 4E 41 42 4C 45 20 53 50  52 49 54 45 53 20 30 2C  |NABLE SPRITES 0,|
00001020: 31 00 12 0D 1A 04 97 20  56 AA 33 39 2C 30 3A 97  |1...... V.39,0:.|
00001030: 20 56 AA 34 30 2C 30 3A  8F 20 53 45 54 20 53 50  | V.40,0:. SET SP|
00001040: 52 49 54 45 20 43 4F 4C  4F 52 53 00 30 0D 1F 04  |RITE COLORS.0...|
00001050: 97 20 56 AA 31 2C 39 32  3A 8F 20 53 50 52 49 54  |. V.1,92:. SPRIT|
00001060: 45 20 31 20 59 20 50 4F  53 00 55 0D 24 04 97 20  |E 1 Y POS.U.$.. |
00001070: 56 AA 31 36 2C 33 3A 97  20 56 2C 31 32 3A 8F 20  |V.16,3:. V,12:. |
00001080: 53 50 52 49 54 45 20 31  20 58 20 50 4F 53 00 7E  |SPRITE 1 X POS.~|
00001090: 0D 26 04 97 20 56 AA 32  2C 30 3A 97 20 56 AA 33  |.&.. V.2,0:. V.3|
000010A0: 2C 31 35 37 3A 8F 20 53  50 52 49 54 45 20 32 20  |,157:. SPRITE 2 |
000010B0: 58 2C 59 20 50 4F 53 00  A6 0D 28 04 97 20 56 AA  |X,Y POS...(.. V.|
000010C0: 32 33 2C 32 3A 97 20 56  AA 32 39 2C 32 3A 8F 20  |23,2:. V.29,2:. |
000010D0: 45 58 50 41 4E 44 20 53  50 52 49 54 45 20 31 00  |EXPAND SPRITE 1.|
000010E0: AC 0D 2E 04 8E 00 C7 0D  D0 07 8F 20 4C 49 53 54  |........... LIST|
000010F0: 20 4F 55 54 20 53 50 52  49 54 45 20 44 41 54 41  | OUT SPRITE DATA|
00001100: 00 F3 0D D2 07 85 20 22  93 44 4F 20 59 4F 55 20  |...... ".DO YOU |
00001110: 57 41 4E 54 20 54 4F 20  50 52 49 4E 54 20 54 48  |WANT TO PRINT TH|
00001120: 45 20 44 41 54 41 22 3B  41 24 3A 99 00 30 0E D3  |E DATA";A$:..0..|
00001130: 07 8B 20 41 24 B2 22 59  22 20 A7 20 85 22 53 45  |.. A$."Y" . ."SE|
00001140: 54 55 50 20 50 41 50 45  52 20 41 4E 44 20 48 49  |TUP PAPER AND HI|
00001150: 54 20 52 45 54 55 52 4E  22 3B 41 24 3A 50 46 B2  |T RETURN";A$:PF.|
00001160: 31 3A 9F 34 2C 34 3A 9D  34 00 6A 0E D4 07 8B 50  |1:.4,4:.4.j....P|
00001170: 46 B2 31 20 A7 20 99 20  22 53 50 52 49 54 45 20  |F.1 . . "SPRITE |
00001180: 44 41 54 41 3A 22 3B C7  28 31 36 29 3B 22 34 36  |DATA:";.(16);"46|
00001190: 53 50 52 49 54 45 20 49  4D 41 47 45 22 3A 89 32  |SPRITE IMAGE":.2|
000011A0: 30 31 30 00 82 0E D5 07  99 20 22 93 53 50 52 49  |010...... ".SPRI|
000011B0: 54 45 20 44 41 54 41 3A  22 3A 99 00 98 0E DA 07  |TE DATA:":......|
000011C0: 81 20 49 B2 38 33 32 20  A4 20 38 39 34 20 A9 20  |. I.832 . 894 . |
000011D0: 33 00 AA 0E DC 07 8B 20  50 46 B2 31 20 A7 20 32  |3...... PF.1 . 2|
000011E0: 30 34 30 00 CA 0E DF 07  99 20 22 52 4F 57 20 22  |040...... "ROW "|
000011F0: 3B B5 28 28 49 AB 38 33  32 29 AD 33 29 3B A3 31  |;.((I.832).3);.1|
00001200: 30 29 3B 00 F4 0E EE 07  99 20 C2 28 49 29 3B A3  |0);...... .(I);.|
00001210: 31 35 29 3B C2 28 49 AA  31 29 3B A3 32 30 29 3B  |15);.(I.1);.20);|
00001220: C2 28 49 AA 32 29 3A 89  20 32 30 36 30 00 1A 0F  |.(I.2):. 2060...|
00001230: F8 07 99 20 22 52 4F 57  20 22 3B B5 28 28 49 AB  |... "ROW ";.((I.|
00001240: 38 33 32 29 AD 33 29 3B  C7 28 31 36 29 3B 22 31  |832).3);.(16);"1|
00001250: 30 22 3B 00 51 0F 02 08  99 20 C2 28 49 29 3B C7  |0";.Q.... .(I);.|
00001260: 28 31 36 29 3B 22 31 35  22 3B C2 28 49 AA 31 29  |(16);"15";.(I.1)|
00001270: 3B C7 28 31 36 29 3B 22  32 30 22 3B C2 28 49 AA  |;.(16);"20";.(I.|
00001280: 32 29 3B 3A 8D 20 33 35  30 30 00 5A 0F 07 08 99  |2);:. 3500.Z....|
00001290: 20 53 24 00 62 0F 0C 08  82 20 49 00 68 0F 11 08  | S$.b.... I.h...|
000012A0: 99 00 92 0F 14 08 8B 20  50 46 B2 31 20 A7 20 50  |....... PF.1 . P|
000012B0: 46 B2 30 3A 98 34 3A A0  20 34 3A 8F 20 54 55 52  |F.0:.4:. 4:. TUR|
000012C0: 4E 20 4F 46 46 20 50 52  49 4E 54 00 B1 0F 16 08  |N OFF PRINT.....|
000012D0: 85 20 22 53 41 56 45 20  53 50 52 49 54 45 20 54  |. "SAVE SPRITE T|
000012E0: 4F 20 46 49 4C 45 22 3B  41 24 00 C5 0F 20 08 8B  |O FILE";A$... ..|
000012F0: 20 41 24 B2 22 59 22 20  A7 20 33 30 30 30 00 CD  | A$."Y" . 3000..|
00001300: 0F 2A 08 89 20 31 00 E4  0F C4 09 8F 20 44 52 41  |.*.. 1...... DRA|
00001310: 57 20 4D 4F 44 45 20 54  4F 47 47 4C 45 00 0B 10  |W MODE TOGGLE...|
00001320: CE 09 99 20 22 13 11 11  11 11 11 11 11 11 11 11  |... "...........|
00001330: 11 11 11 11 11 11 11 11  11 11 11 11 11 22 3B A6  |.............";.|
00001340: 32 37 29 3B 00 24 10 D8  09 8B 20 44 4D 25 20 A7  |27);.$.... DM% .|
00001350: 20 44 4D 25 B2 30 3A 89  20 32 36 30 30 00 2E 10  | DM%.0:. 2600...|
00001360: E2 09 44 4D 25 B2 31 00  47 10 EC 09 99 20 22 12  |..DM%.1.G.... ".|
00001370: 9C 4D 4F 44 45 3A 20 45  52 41 53 45 90 92 22 3B  |.MODE: ERASE..";|
00001380: 00 50 10 F6 09 89 20 32  30 00 69 10 28 0A 99 20  |.P.... 20.i.(.. |
00001390: 22 12 9C 4D 4F 44 45 3A  20 44 52 41 57 20 92 90  |"..MODE: DRAW ..|
000013A0: 22 3B 00 72 10 32 0A 89  20 32 30 00 97 10 B8 0B  |";.r.2.. 20.....|
000013B0: 8F 20 53 50 52 49 54 45  20 53 45 51 55 45 4E 54  |. SPRITE SEQUENT|
000013C0: 49 41 4C 20 46 49 4C 45  20 48 41 4E 44 4C 45 52  |IAL FILE HANDLER|
000013D0: 00 A1 10 C2 0B 99 20 22  93 22 00 BC 10 CC 0B 85  |...... "."......|
000013E0: 20 22 45 4E 54 45 52 20  46 49 4C 45 20 4E 41 4D  | "ENTER FILE NAM|
000013F0: 45 22 3B 41 24 00 DC 10  D6 0B 9F 20 32 2C 38 2C  |E";A$...... 2,8,|
00001400: 32 2C 22 40 30 3A 22 AA  41 24 AA 22 2E 53 50 52  |2,"@0:".A$.".SPR|
00001410: 2C 53 2C 57 22 00 EE 10  F4 0B 81 20 49 B2 38 33  |,S,W"...... I.83|
00001420: 32 20 A4 20 38 39 34 00  FA 10 FE 0B 98 32 2C C2  |2 . 894......2,.|
00001430: 28 49 29 00 02 11 08 0C  82 20 49 00 15 11 0D 0C  |(I)...... I.....|
00001440: 98 32 2C 30 3A 8F 20 42  59 54 45 20 36 34 00 1D  |.2,0:. BYTE 64..|
00001450: 11 12 0C A0 20 32 00 42  11 1C 0C 99 3A 99 22 12  |.... 2.B....:.".|
00001460: 2A 2A 2A 20 53 50 52 49  54 45 20 44 41 54 41 20  |*** SPRITE DATA |
00001470: 53 41 56 45 44 20 2A 2A  2A 92 22 00 57 11 26 0C  |SAVED ***.".W.&.|
00001480: 81 20 49 B2 31 20 A4 20  31 30 30 30 3A 82 20 49  |. I.1 . 1000:. I|
00001490: 00 5F 11 30 0C 89 20 31  00 83 11 AC 0D 8F 20 50  |._.0.. 1...... P|
000014A0: 52 49 4E 54 20 45 4E 4C  41 52 47 45 44 20 53 50  |RINT ENLARGED SP|
000014B0: 52 49 54 45 20 50 49 43  54 55 52 45 00 AB 11 B1  |RITE PICTURE....|
000014C0: 0D 8F 20 4F 4E 20 45 4E  54 52 59 20 49 3D 50 4F  |.. ON ENTRY I=PO|
000014D0: 49 4E 54 45 52 20 54 4F  20 53 50 52 49 54 45 20  |INTER TO SPRITE |
000014E0: 44 41 54 41 00 D0 11 B6  0D 53 24 B2 C7 28 31 36  |DATA.....S$..(16|
000014F0: 29 AA 22 34 30 22 3A 8F  20 54 41 42 20 54 4F 20  |)."40":. TAB TO |
00001500: 43 4F 4C 55 4D 4E 20 34  30 00 DE 11 C0 0D 81 20  |COLUMN 40...... |
00001510: 4A B2 30 20 A4 20 32 00  E8 11 CA 0D 4D B2 31 32  |J.0 . 2.....M.12|
00001520: 38 00 0F 12 D4 0D 8B 20  20 C2 28 49 AA 4A 29 20  |8......  .(I.J) |
00001530: AF 20 4D 20 A7 20 53 24  B2 53 24 AA 22 12 20 92  |. M . S$.S$.". .|
00001540: 22 3A 89 20 33 35 36 30  00 1D 12 DE 0D 53 24 B2  |":. 3560.....S$.|
00001550: 53 24 AA 22 20 22 00 2A  12 E8 0D 4D B2 B5 28 4D  |S$." ".*...M..(M|
00001560: AD 32 29 00 3C 12 F2 0D  8B 20 4D B3 B1 30 20 A7  |.2).<.... M..0 .|
00001570: 20 33 35 34 30 00 44 12  FC 0D 82 20 4A 00 4A 12  | 3540.D.... J.J.|
00001580: 24 0E 8E 00 00 00                                 |$.....          |

....... SINGLE SPRITE ANIMATOR.5.... MIC
HAEL A. ESKIN.M.... DESIGN TECHNOLOGY._.
(.. 7 JUNE 1983...-.. A.0 . A.1:. "SPRSU
P.OBJ",8,1.../.. 53280,5:. 53281,6:.G(14
2).G.2.. 15,8,15:. OPEN COMMAND CHANNEL.
..4.. RF.1 . 60:. AVOID REDIMENSIONING A
RRAYS...7.. A%(12),B%(12)...9.RF.1.+.<..
 I.1 . 12:. A%(I):..D.A.. I.1 . 12:. B%(
I):..N.F.. 100...P.. 112,96,160,96,208,9
6,112,138,160,138,208,138...Z.. 148,109,
172,109,196,109,148,130,172,130,196,130.
T.D.V.53248:. BASE OF VIC II...N.. V.21,
0:. TURN OFF SPRITES...X.. V.23,255:. V.
29,255:. EXPAND.7.H..".".11)".SPRITE ANI
MATOR.".Q.,.NF.0:. SPRITE COUNTER.Q.6.SB
.10240:. SPRITE DATA BASE...@.P.160:. PO
INTER TO SPRITE DATA BASE.H.T..:.:."DO Y
OU WANT TO AUTO-LOAD FILES";A$:....^.. A
$."Y" . 4000............"ENTER FRAME #";
NF.1;"FILE NAME";...X.. Z$.(.V.. Z$."END
" . 2000.>.... Z$."BYE" . 9999.Z.... 500
0:. LOAD FILE DATA.D.... 500.J.P.....Z..
:SP.10:NF.NF.1:. INITIAL PARAMETERS.....
. ".".13)".SPRITE ANIMATOR";.35);".PEN".
Y.... "..";.34);".FASTER"...... .34);".S
LOWER"...... .34);".DIRECT"...... .34);"
.SCALE ".1.... .34);".NUMBER":.:..F.... 
.34);".NEWSEQ".[.... .34);".*END* "...4.
. I.V.39 . V.46:. I,0:.:. SET SPRITE COL
ORS TO BLACK.R.... I.0 . 11:. V.I,A%(I.1
):.:. SET X,Y POSITIONS (EXPANDED)......
 V.16,0:. X MSB 0. .`.. I.0 . 5:. 2040.I
,P:.:. SET POINTS TO FIRST BLOCK.@.D.. V
.21,16:. ENABLE SPRITE 4...N..".........
...............SPEED=   ...";SP;.16);"FO
WARD";.30);...X.. "EXPAND".....FA.0:FB.N
F:FD.1:. INITIAL LOOP PARAMETERS.U.(.. J
.FA . FB . FD...Z.J1.J.160..._.. 49478,J
1:. SETUP POINTER.$.D.. 49444:. MOVE SPR
ITE POINTERS.3.... K.1 . SP.K.... A$:. A
$."" . 2940.F.... (B(56321) . 4). 2820.Q
.... 6000.~...AV.F(A$)...... AV.135 . FC
.FA:FA.FB:FB.FC:FE.1:FD..FD:.2890...... 
AV.133 . SP.SP.1:. SP.0.SP.0:. SPEED UP.
..... AV.137 . SP.SP.1:. SP.40.SP.40:. S
LOW DOWN.(.".. AV.134 . M . 3200.B.,.. A
V.134 . . M . 3400._.1.. AV.139 . 100:. 
RESTART.Y.6.. AV.140 . 9999:. END...;.. 
AV.136 . NT . . V.21,16:NT.. NT:. 2890.N
.>.. AV.136 . . NT . . V.21,63:NT.. NT..
.@.. AV.138 .   15:. V.21,0:.".CHAINING.
..":. "SPRITE EDITOR",8.D.J.."..........
..............SPEED=   ...";SP;.16);.E.N
.. FD.1 . . "FORWARD";:. 2898.V.P.. "REV
ERSE";...R.. .30);...T.. M . . "NORMAL."
:. 2940...H.. "EXPAND."...|.. K.N.... FE
 . FE.0:. 2600.V.... J...... 2600...... 
EXPAND SPRITES...... V.23,63:. V.29,63.%
.... LOAD COORDINATES.D.... I.0 . 11:. V
.I,A%(I.1):..N...M.. M.Y.... 2890.N.H.. 
SHRINK SPRITES...R.. V.23,0:. V.29,0...\
.. LOAD COORDINATES...F.. I.0 . 11:. V.I
,B%(I.1):..D.P.M.. M.O.... 2890... .. FI
LE AUTO LOADER......"ENTER BASE FILE NAM
E";F$.".... F$."BYE" . 9999:. EXIT.8....
 F$."END" . 2000.R....:."ENTER START #";
FS.L.,.."ENTER END   #";FE:....6.LS.1:. 
FILE SEQ STEP...@.. FE.FS . LS..1...T.VF
.0:. FLAG FOR VALID LOAD...H.. L.FS . FE
 . LS:. FILE LOADING LOOP...R.T$.I(D(L),
C(D(L)).1)...|.Z$.F$.T$:. CREATE FILE NA
ME.5.... "LOADING ";Z$.".SPR".@.... 5000
.Q.... F.0 . VF.1.Y.... L...B.. VF.0 . .
:."*** NO FILES LOADED":.:. 4100...L..:.
 4100...... FILE LOAD ROUTINE.L.... 2,8,
2,"0:".Z$.".SPR,S,R".W.... 9000...D.. F.
1 .   2:....X.. J.0 . 63......2,K:. GET 
A BYTE.1.... SB.NF.64.J,K:. LOAD UP TABL
E.9.... J.A.(.  2.O.<.NF.NF.1:..K.P.. LI
GHT PEN MENU DRIVER.....X%.B(53267).4.5:
Y%.B(53268).8.6...... X%.32 . 2890.....Y
%.Y%.1.H.... Y%.2 . Y%.21 . 2890...... .
(Y%.2)..Y%.2 . 2890...... Y%.2 . 6100,61
20,6130,6140,6150,6180,6160,6170.'.T.. S
PEED UP.9.V.AV.133:. 2830.I.... SLOW DOW
N.[...AV.137:. 2840.P.... REVERSE TOGGLE
.{.... 6300.....AV.135:. 2825...... SIZE
 TOGGLE...... 6300.....AV.134:. 2850.P..
.. NUMBER TOGGLE...... 6300.....AV.136:.
 2875...... RESTART...... 6300...... 100
...... END.%.... 6300.0.... 9999.;.$.. 2
890.V.... WAIT FOR PEN RELEASE.Q.... (B(
56321).4). . A$:..|.... 6310...(#. FILE 
STATUS CHECKER...-#. ON EXIT F=1 IF ERRO
R...2#F.0.M.<#.15,A$,B$,C$,D$...P#. E(A$
).0 . .:."*** "B$:.:F.1...D#.....'. V.21
,0:  15:.".OK":.....11 . . "  .      L";
...... I.18 . . "  P      O";.).... I.20
 . . "  EXPANDED";.3....:. I.U.... " ...
....................."...... 2040,13:. 2
041,13:. SETUPSPRITE POINTERS...... I.0 
. 62:. 832.I,0:.:. CLEAR SPRITES.F...V.5
3248:. VIC BASE...... V.21,3:. ENABLE SP
RITES 0,1...... V.39,0:. V.40,0:. SET SP
RITE COLORS.0.... V.1,92:. SPRITE 1 Y PO
S.U.$.. V.16,3:. V,12:. SPRITE 1 X POS.~
.&.. V.2,0:. V.3,157:. SPRITE 2 X,Y POS.
..(.. V.23,2:. V.29,2:. EXPAND SPRITE 1.
......G.P.. LIST OUT SPRITE DATA...R.. "
.DO YOU WANT TO PRINT THE DATA";A$:..0.S
.. A$."Y" . ."SETUP PAPER AND HIT RETURN
";A$:PF.1:.4,4:.4.J.T..PF.1 . . "SPRITE 
DATA:";G(16);"46SPRITE IMAGE":.2010...U.
. ".SPRITE DATA:":....Z.. I.832 . 894 . 
3...... PF.1 . 2040.J.... "ROW ";.((I.83
2).3);.10);...... B(I);.15);B(I.1);.20);
B(I.2):. 2060...... "ROW ";.((I.832).3);
G(16);"10";.Q.... B(I);G(16);"15";B(I.1)
;G(16);"20";B(I.2);:. 3500.Z.... S$.B...
. I.H.......... PF.1 . PF.0:.4:  4:. TUR
N OFF PRINT...... "SAVE SPRITE TO FILE";
A$.E. .. A$."Y" . 3000.M.*.. 1...D.. DRA
W MODE TOGGLE...N.. "...................
.....";.27);.$.X.. DM% . DM%.0:. 2600...
..DM%.1.G.... "..MODE: ERASE..";.P.... 2
0.I.(.. "..MODE: DRAW ..";.R.2.. 20.....
. SPRITE SEQUENTIAL FILE HANDLER...B.. "
."...L.. "ENTER FILE NAME";A$...V.. 2,8,
2,"@0:".A$.".SPR,S,W"...... I.832 . 894.
.....2,B(I)...... I......2,0:. BYTE 64..
...  2.B....:.".*** SPRITE DATA SAVED **
*.".W.&.. I.1 . 1000:. I._.0.. 1...... P
RINT ENLARGED SPRITE PICTURE...... ON EN
TRY I=POINTER TO SPRITE DATA.P...S$.G(16
)."40":. TAB TO COLUMN 40...... J.0 . 2.
..J.M.128...T..  B(I.J) . M . S$.S$.". .
":. 3560.....S$.S$." ".*...M..(M.2).<...
. M..0 . 3540.D.... J.J.$.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL