This program is to make SPRITES to use with sprite printer. A maximum of 255 sprites can be in memory for a TOTAL of up to 10,000 bytes.
Content
Image Gallery
Source Code
100 REM SPRITE MAKER by Eric Boisvert ©1987 BYTE POWER
120 INK 0: IF PEEK 23681=0 THEN CLS : LIST 9999: STOP
150 PRINT ;: RANDOMIZE USR 54906
1000 REM SAVE SPRITE FILE
1010 GO SUB 3000: IF n$="" THEN GO TO 1010
1020 SAVE n$CODE 4E4,START-4E4
1030 PRINT ;: RANDOMIZE USR 61994
2000 REM LOAD/MERGE FILE
2020 GO SUB 3000
2030 LOAD n$CODE start,49999-start
2040 PRINT ;: RANDOMIZE USR 63217
3000 REM INPUT FILE NAME
3020 LET start=PEEK 64685+256*PEEK 64686
3030 INPUT "FILE NAME:"; LINE n$: IF LEN n$>10 THEN GO TO 3000
3040 RETURN
9000 CLEAR 65535: NEW
9990 BORDER 7: INK 7: PAPER 7: CLS : PRINT AT 8,0; PAPER 6; INK 0;TAB 10;"SPRITE MAKER",AT 10,0; PAPER 7;"STILL LOADING...": LOAD "MAKER Mc"CODE : RUN
9999 SAVE "MAKER" LINE 9990: SAVE "MAKER Mc"CODE 54906,10630: VERIFY "": VERIFY ""CODE