00000000: 00 80 5E 55 3A 48 41 43 4B 45 52 0D 0D 0D 20 20 |..^U:HACKER... |
00000010: 20 20 20 D3 D0 D2 C9 D4 C5 20 D0 D2 C9 CE D4 C5 | ...... ......|
00000020: D2 20 46 4F 52 20 54 48 45 20 C3 2D 31 32 38 0D |. FOR THE .-128.|
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 42 59 0D 20 20 20 20 20 20 20 20 20 20 20 20 | BY. |
00000050: CD 41 52 4B 20 CA 4F 52 44 41 4E 0D 0D C3 CF CD |.ARK .ORDAN.....|
00000060: CD CF C4 CF D2 C5 20 CD C1 C7 C1 DA C9 CE C5 0D |...... .........|
00000070: CD 41 59 20 31 39 38 37 0D 0D 2A 2A 2A 2A 2A 2A |.AY 1987..******|
00000080: 2A 2A 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 0D |***************.|
000000A0: CE CF D4 C5 3A 20 C2 45 43 41 55 53 45 20 54 48 |....: .ECAUSE TH|
000000B0: 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 57 52 |IS PROGRAM IS WR|
000000C0: 49 54 54 45 4E 0D 46 4F 52 20 54 48 45 20 C3 2D |ITTEN.FOR THE .-|
000000D0: 31 32 38 2C 20 49 54 20 43 41 4E 4E 4F 54 20 42 |128, IT CANNOT B|
000000E0: 45 20 52 55 4E 20 4C 49 4B 45 0D 4F 54 48 45 52 |E RUN LIKE.OTHER|
000000F0: 20 50 52 4F 47 52 41 4D 53 20 4F 4E 20 CC CF C1 | PROGRAMS ON ...|
00000100: C4 D3 D4 C1 D2 2E 20 20 D4 4F 20 52 55 4E 0D 54 |...... .O RUN.T|
00000110: 48 45 20 50 52 4F 47 52 41 4D 2C 20 50 52 45 53 |HE PROGRAM, PRES|
00000120: 53 20 D2 C5 D3 C5 D4 20 4F 4E 20 54 48 45 0D C3 |S ..... ON THE..|
00000130: 2D 31 32 38 2E 20 20 D4 48 49 53 20 50 55 54 53 |-128. .HIS PUTS|
00000140: 20 54 48 45 20 43 4F 4D 50 55 54 45 52 20 49 4E | THE COMPUTER IN|
00000150: 0D 31 32 38 20 4D 4F 44 45 20 41 4E 44 20 44 49 |.128 MODE AND DI|
00000160: 53 50 4C 41 59 53 20 41 20 4D 45 4E 55 20 4F 46 |SPLAYS A MENU OF|
00000170: 20 41 4C 4C 0D 31 32 38 20 50 52 4F 47 52 41 4D | ALL.128 PROGRAM|
00000180: 53 20 4F 4E 20 D3 49 44 45 20 32 20 4F 46 20 54 |S ON .IDE 2 OF T|
00000190: 48 45 20 44 49 53 4B 2E 0D C3 48 4F 4F 53 45 20 |HE DISK...HOOSE |
000001A0: 54 48 45 20 50 52 4F 47 52 41 4D 20 54 4F 20 52 |THE PROGRAM TO R|
000001B0: 55 4E 20 46 52 4F 4D 20 54 48 49 53 0D 4D 45 4E |UN FROM THIS.MEN|
000001C0: 55 2E 0D 0D CE CF D4 C5 3A 20 D4 48 49 53 20 50 |U.......: .HIS P|
000001D0: 52 4F 47 52 41 4D 20 57 41 53 20 44 45 53 49 47 |ROGRAM WAS DESIG|
000001E0: 4E 45 44 20 54 4F 20 42 45 0D 55 53 45 44 20 57 |NED TO BE.USED W|
000001F0: 49 54 48 20 C5 50 53 4F 4E 20 41 4E 44 20 D3 54 |ITH .PSON AND .T|
00000200: 41 52 20 54 59 50 45 0D 50 52 49 4E 54 45 52 53 |AR TYPE.PRINTERS|
00000210: 2E 20 20 C9 46 20 59 4F 55 20 48 41 56 45 20 41 |. .F YOU HAVE A|
00000220: 20 44 49 46 46 45 52 45 4E 54 0D 54 59 50 45 20 | DIFFERENT.TYPE |
00000230: 50 52 49 4E 54 45 52 2C 20 54 48 45 20 50 52 4F |PRINTER, THE PRO|
00000240: 47 52 41 4D 20 4D 41 59 20 4E 4F 54 0D 57 4F 52 |GRAM MAY NOT.WOR|
00000250: 4B 20 57 49 54 48 4F 55 54 20 4D 4F 44 49 46 49 |K WITHOUT MODIFI|
00000260: 43 41 54 49 4F 4E 2E 0D 2A 2A 2A 2A 2A 2A 2A 2A |CATION..********|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 20 |*************.. |
00000290: 20 D7 48 49 4C 45 20 D3 D0 D2 C9 D4 C5 20 D0 D2 | .HILE ...... ..|
000002A0: C9 CE D4 C5 D2 20 41 4C 4C 4F 57 53 20 59 4F 55 |..... ALLOWS YOU|
000002B0: 20 54 4F 0D 44 45 53 49 47 4E 2C 20 4C 4F 41 44 | TO.DESIGN, LOAD|
000002C0: 2C 20 41 4E 44 20 53 41 56 45 20 53 50 52 49 54 |, AND SAVE SPRIT|
000002D0: 45 53 2C 20 49 54 20 49 53 0D 54 48 45 20 41 42 |ES, IT IS.THE AB|
000002E0: 49 4C 49 54 59 20 54 4F 20 50 52 49 4E 54 20 53 |ILITY TO PRINT S|
000002F0: 50 52 49 54 45 53 20 54 48 41 54 0D 4D 41 4B 45 |PRITES THAT.MAKE|
00000300: 53 20 49 54 20 55 4E 55 53 55 41 4C 2E 20 20 D4 |S IT UNUSUAL. .|
00000310: 48 45 20 50 52 4F 47 52 41 4D 20 49 53 20 52 55 |HE PROGRAM IS RU|
00000320: 4E 0D 46 52 4F 4D 20 41 20 4D 41 49 4E 20 4D 45 |N.FROM A MAIN ME|
00000330: 4E 55 20 57 49 54 48 20 4F 50 54 49 4F 4E 53 20 |NU WITH OPTIONS |
00000340: 54 4F 3A 0D 0D 2D 2D 20 C5 44 49 54 20 D3 50 52 |TO:..-- .DIT .PR|
00000350: 49 54 45 53 2C 0D 0D 2D 2D 20 CC 4F 41 44 20 D3 |ITES,..-- .OAD .|
00000360: 50 52 49 54 45 53 2C 0D 0D 2D 2D 20 D3 41 56 45 |PRITES,..-- .AVE|
00000370: 20 D3 50 52 49 54 45 53 2C 0D 0D 2D 2D 20 D0 52 | .PRITES,..-- .R|
00000380: 49 4E 54 20 D3 50 52 49 54 45 53 2C 0D 0D 4F 52 |INT .PRITES,..OR|
00000390: 20 51 55 49 54 20 54 48 45 20 50 52 4F 47 52 41 | QUIT THE PROGRA|
000003A0: 4D 2E 0D 0D 20 20 D4 48 45 20 22 C5 44 49 54 20 |M... .HE ".DIT |
000003B0: D3 50 52 49 54 45 53 22 20 4F 50 54 49 4F 4E 20 |.PRITES" OPTION |
000003C0: 55 53 45 53 20 54 48 45 0D C3 2D 31 32 38 27 53 |USES THE..-128'S|
000003D0: 20 42 55 49 4C 54 2D 49 4E 20 D3 D0 D2 49 54 45 | BUILT-IN ...ITE|
000003E0: 20 C4 C5 C6 49 4E 49 54 49 4F 4E 0D 4D 4F 44 45 | ...INITION.MODE|
000003F0: 20 28 D3 D0 D2 C4 C5 C6 29 2E 20 20 D4 48 45 20 | (......). .HE |
00000400: 44 49 52 45 43 54 49 4F 4E 53 20 46 4F 52 0D 55 |DIRECTIONS FOR.U|
00000410: 53 49 4E 47 20 54 48 49 53 20 53 49 4D 50 4C 45 |SING THIS SIMPLE|
00000420: 20 53 50 52 49 54 45 20 45 44 49 54 4F 52 20 41 | SPRITE EDITOR A|
00000430: 52 45 0D 44 49 53 50 4C 41 59 45 44 20 57 48 45 |RE.DISPLAYED WHE|
00000440: 4E 20 59 4F 55 20 43 48 4F 4F 53 45 20 54 48 49 |N YOU CHOOSE THI|
00000450: 53 0D 4F 50 54 49 4F 4E 2E 20 20 CC 49 4B 45 57 |S.OPTION. .IKEW|
00000460: 49 53 45 2C 20 54 48 45 20 4C 4F 41 44 20 41 4E |ISE, THE LOAD AN|
00000470: 44 20 53 41 56 45 0D 4F 50 54 49 4F 4E 53 20 57 |D SAVE.OPTIONS W|
00000480: 4F 52 4B 20 41 53 20 59 4F 55 20 4D 49 47 48 54 |ORK AS YOU MIGHT|
00000490: 20 45 58 50 45 43 54 20 2D 2D 0D 4A 55 53 54 20 | EXPECT --.JUST |
000004A0: 45 4E 54 45 52 20 54 48 45 20 46 49 4C 45 4E 41 |ENTER THE FILENA|
000004B0: 4D 45 53 20 4F 46 20 54 48 45 0D 53 50 52 49 54 |MES OF THE.SPRIT|
000004C0: 45 53 20 59 4F 55 20 57 49 53 48 20 54 4F 20 4C |ES YOU WISH TO L|
000004D0: 4F 41 44 20 4F 52 20 53 41 56 45 2E 0D 0D 20 20 |OAD OR SAVE... |
000004E0: D7 48 45 4E 20 41 20 53 45 54 20 4F 46 20 53 50 |.HEN A SET OF SP|
000004F0: 52 49 54 45 53 20 48 41 53 20 42 45 45 4E 0D 4C |RITES HAS BEEN.L|
00000500: 4F 41 44 45 44 2C 20 55 53 45 20 54 48 45 20 22 |OADED, USE THE "|
00000510: D0 52 49 4E 54 20 D3 50 52 49 54 45 53 22 0D 4F |.RINT .PRITES".O|
00000520: 50 54 49 4F 4E 20 54 4F 20 4D 41 4B 45 20 41 20 |PTION TO MAKE A |
00000530: 48 41 52 44 20 43 4F 50 59 2E 20 20 D9 4F 55 20 |HARD COPY. .OU |
00000540: 4D 41 59 0D 53 45 54 20 54 48 45 53 45 20 50 41 |MAY.SET THESE PA|
00000550: 52 41 4D 45 54 45 52 53 3A 0D 0D 2D 2D 20 D3 49 |RAMETERS:..-- .I|
00000560: 4E 47 4C 45 20 4F 52 20 44 4F 55 42 4C 45 2D 44 |NGLE OR DOUBLE-D|
00000570: 45 4E 53 49 54 59 20 50 52 49 4E 54 49 4E 47 2E |ENSITY PRINTING.|
00000580: 0D 0D 2D 2D 20 D2 45 47 55 4C 41 52 20 4F 52 20 |..-- .EGULAR OR |
00000590: 45 58 50 41 4E 44 45 44 20 53 49 5A 45 2E 0D 0D |EXPANDED SIZE...|
000005A0: 2D 2D 20 D7 48 45 52 45 20 4F 4E 20 54 48 45 20 |-- .HERE ON THE |
000005B0: 50 41 47 45 20 54 4F 20 53 54 41 52 54 0D 50 52 |PAGE TO START.PR|
000005C0: 49 4E 54 49 4E 47 2E 20 20 CE 4F 54 45 3A 20 54 |INTING. .OTE: T|
000005D0: 48 45 20 50 52 4F 47 52 41 4D 20 41 53 4B 53 20 |HE PROGRAM ASKS |
000005E0: 59 4F 55 0D 54 4F 20 43 48 4F 4F 53 45 20 41 20 |YOU.TO CHOOSE A |
000005F0: 43 4F 4C 55 4D 4E 20 46 52 4F 4D 20 30 20 54 4F |COLUMN FROM 0 TO|
00000600: 20 36 31 35 2E 0D D4 48 49 53 20 52 45 46 45 52 | 615...HIS REFER|
00000610: 53 20 54 4F 20 54 48 45 20 44 4F 54 20 43 4F 4C |S TO THE DOT COL|
00000620: 55 4D 4E 20 52 41 54 48 45 52 0D 54 48 41 4E 20 |UMN RATHER.THAN |
00000630: 54 48 45 20 43 48 41 52 41 43 54 45 52 20 43 4F |THE CHARACTER CO|
00000640: 4C 55 4D 4E 2E 20 20 C3 48 4F 4F 53 49 4E 47 0D |LUMN. .HOOSING.|
00000650: 22 33 30 37 22 20 42 45 47 49 4E 53 20 50 52 49 |"307" BEGINS PRI|
00000660: 4E 54 49 4E 47 20 4E 45 41 52 20 54 48 45 20 43 |NTING NEAR THE C|
00000670: 45 4E 54 45 52 0D 4F 46 20 54 48 45 20 50 41 47 |ENTER.OF THE PAG|
00000680: 45 2E 0D 0D 2D 2D 20 C8 4F 57 20 4D 41 4E 59 20 |E...-- .OW MANY |
00000690: 53 50 52 49 54 45 53 20 54 4F 20 50 52 49 4E 54 |SPRITES TO PRINT|
000006A0: 2E 0D 0D 2D 2D 20 C1 4E 44 2C 20 48 4F 57 20 46 |...-- .ND, HOW F|
000006B0: 41 52 20 41 50 41 52 54 20 54 4F 20 50 52 49 4E |AR APART TO PRIN|
000006C0: 54 20 54 48 45 0D 53 50 52 49 54 45 53 20 28 49 |T THE.SPRITES (I|
000006D0: 4E 20 44 4F 54 20 43 4F 4C 55 4D 4E 53 29 2E 0D |N DOT COLUMNS)..|
000006E0: 0D 20 20 C1 20 4E 4F 54 45 20 46 4F 52 20 C7 45 |. . NOTE FOR .E|
000006F0: 4D 49 4E 49 20 50 52 49 4E 54 45 52 20 55 53 45 |MINI PRINTER USE|
00000700: 52 53 3A 20 54 4F 0D 55 53 45 20 D3 D0 D2 C9 D4 |RS: TO.USE .....|
00000710: C5 20 D0 D2 C9 CE D4 C5 D2 2C 20 59 4F 55 20 4D |. ......., YOU M|
00000720: 55 53 54 20 43 48 41 4E 47 45 20 41 0D 46 45 57 |UST CHANGE A.FEW|
00000730: 20 4C 49 4E 45 53 20 4F 46 20 43 4F 44 45 2E 20 | LINES OF CODE. |
00000740: 20 C9 4E 20 CC 49 4E 45 20 31 30 30 2C 0D 43 48 | .N .INE 100,.CH|
00000750: 41 4E 47 45 20 54 48 45 20 22 35 22 20 54 4F 20 |ANGE THE "5" TO |
00000760: 41 20 22 36 22 2E 20 20 C9 4E 20 CC 49 4E 45 0D |A "6". .N .INE.|
00000770: 31 31 30 2C 20 43 48 41 4E 47 45 20 22 C3 C8 D2 |110, CHANGE "...|
00000780: 24 28 31 36 29 22 20 54 4F 20 22 C3 C8 D2 24 28 |$(16)" TO "...$(|
00000790: 38 29 22 2E 0D 0D 20 20 D4 4F 20 54 45 53 54 20 |8)"... .O TEST |
000007A0: 54 48 45 20 50 52 4F 47 52 41 4D 2C 20 43 48 4F |THE PROGRAM, CHO|
000007B0: 4F 53 45 20 CC CF C1 C4 0D D3 D0 D2 C9 D4 C5 D3 |OSE ............|
000007C0: 20 46 52 4F 4D 20 54 48 45 20 4D 41 49 4E 20 4D | FROM THE MAIN M|
000007D0: 45 4E 55 20 41 4E 44 20 45 4E 54 45 52 0D 22 53 |ENU AND ENTER."S|
000007E0: 50 52 49 54 45 2E 53 41 4D 50 4C 45 22 20 41 53 |PRITE.SAMPLE" AS|
000007F0: 20 54 48 45 20 46 49 4C 45 4E 41 4D 45 2E 0D 0D | THE FILENAME...|
00000800: 0D C4 C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 C8 C9 D3 |..... ..... ....|
00000810: 20 D0 D2 CF C7 D2 C1 CD 20 D5 D3 C5 D3 3A 0D 0D | ....... ....:..|
00000820: D3 D0 D2 C9 D4 C5 20 D0 D2 C9 CE D4 C5 D2 2E 31 |...... ........1|
00000830: 20 20 20 D3 D0 D2 C9 D4 C5 2E D3 C1 CD D0 CC C5 | .............|
00000840: 0D D4 2E D3 D0 D2 C9 D4 C5 20 D0 D2 C9 CE D4 C5 |......... ......|
00000850: D2 0D 0D 20 20 20 20 20 20 20 20 2A 2A 2A 2A 20 |... **** |
00000860: C5 4E 44 20 CF 46 20 D4 45 58 54 20 2A 2A 2A 2A |.ND .F .EXT ****|
00000870: 0D |. |
..^U:HACKER... SPRITE PRINTER FOR TH
E C-128. BY.
MARK JORDAN..COMMODORE MAGAZINE.MAY 1987
..*************************************.
NOTE: BECAUSE THIS PROGRAM IS WRITTEN.FO
R THE C-128, IT CANNOT BE RUN LIKE.OTHER
PROGRAMS ON LOADSTAR. TO RUN.THE PROGR
AM, PRESS RESET ON THE.C-128. THIS PUTS
THE COMPUTER IN.128 MODE AND DISPLAYS A
MENU OF ALL.128 PROGRAMS ON SIDE 2 OF T
HE DISK..CHOOSE THE PROGRAM TO RUN FROM
THIS.MENU...NOTE: THIS PROGRAM WAS DESIG
NED TO BE.USED WITH EPSON AND STAR TYPE.
PRINTERS. IF YOU HAVE A DIFFERENT.TYPE
PRINTER, THE PROGRAM MAY NOT.WORK WITHOU
T MODIFICATION..************************
*************.. WHILE SPRITE PRINTER AL
LOWS YOU TO.DESIGN, LOAD, AND SAVE SPRIT
ES, IT IS.THE ABILITY TO PRINT SPRITES T
HAT.MAKES IT UNUSUAL. THE PROGRAM IS RU
N.FROM A MAIN MENU WITH OPTIONS TO:..--
EDIT SPRITES,..-- LOAD SPRITES,..-- SAVE
SPRITES,..-- PRINT SPRITES,..OR QUIT TH
E PROGRAM... THE "EDIT SPRITES" OPTION
USES THE.C-128'S BUILT-IN SPRITE DEFINIT
ION.MODE (SPRDEF). THE DIRECTIONS FOR.U
SING THIS SIMPLE SPRITE EDITOR ARE.DISPL
AYED WHEN YOU CHOOSE THIS.OPTION. LIKEW
ISE, THE LOAD AND SAVE.OPTIONS WORK AS Y
OU MIGHT EXPECT --.JUST ENTER THE FILENA
MES OF THE.SPRITES YOU WISH TO LOAD OR S
AVE... WHEN A SET OF SPRITES HAS BEEN.L
OADED, USE THE "PRINT SPRITES".OPTION TO
MAKE A HARD COPY. YOU MAY.SET THESE PA
RAMETERS:..-- SINGLE OR DOUBLE-DENSITY P
RINTING...-- REGULAR OR EXPANDED SIZE...
-- WHERE ON THE PAGE TO START.PRINTING.
NOTE: THE PROGRAM ASKS YOU.TO CHOOSE A
COLUMN FROM 0 TO 615..THIS REFERS TO THE
DOT COLUMN RATHER.THAN THE CHARACTER CO
LUMN. CHOOSING."307" BEGINS PRINTING NE
AR THE CENTER.OF THE PAGE...-- HOW MANY
SPRITES TO PRINT...-- AND, HOW FAR APART
TO PRINT THE.SPRITES (IN DOT COLUMNS)..
. A NOTE FOR GEMINI PRINTER USERS: TO.U
SE SPRITE PRINTER, YOU MUST CHANGE A.FEW
LINES OF CODE. IN LINE 100,.CHANGE THE
"5" TO A "6". IN LINE.110, CHANGE "CHR
$(16)" TO "CHR$(8)"... TO TEST THE PROG
RAM, CHOOSE LOAD.SPRITES FROM THE MAIN M
ENU AND ENTER."SPRITE.SAMPLE" AS THE FIL
ENAME....DISK FILES THIS PROGRAM USES:..
SPRITE PRINTER.1 SPRITE.SAMPLE.T.SPRIT
E PRINTER.. **** END OF TEXT ****
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL