Home » Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 » designer offsets
designer offsets
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 |
| Filename: | designer offsets |
| Read OK: | ✔ |
| File size: | 1ABF bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Arnold website » magazines_cdu » magazines_cdu_cdu307_cdu307.d64 » designer offsets
- Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 » designer offsets
File contents
10 IF A>0THEN40
20 POKE51,255:POKE52,63:POKE55,255:POKE56,63:CLR
30 A=A+1:LOAD"ANIMATE.MC",8,1
40 POKE53281,0:POKE53280,0:TR=0:MB=0
50 MU=49152:LFT=49153:RGHT=49154
60 ER=0:EB=0
70 PRINT"<green><clr>":INPUT"MULTI-COL MODE(Y-N)";MC$:IFMC$<>"Y"ANDMC$<>"N"THEN70
80 IFMC$="Y"THENPOKEMU,1:MC=1
90 IFMC$="N"THENPOKEMU,0:MC=0
100 GOSUB520
110 INPUT"SCALE FACTOR 0-2.5";SC
120 IF SC<0ORSC>2.5THENPRINT"<clr>":GOTO60
130 IFSC=OSANDMC=MBTHENTR=1:GOTO290
140 OS=SC:MB=MC
150 BEG=16384
160 FORT=0TO6:FORN=0TO47
170 FORM=0TO3
180 READX
190 X=X*SC
200 X=INT(X+.3):IFMC=1THENX=(INT(X/2))*2
210 IFER<ABS(X)THENER=ABS(X)
220 IFX<0THENX=256+X
230 POKEBEG+(512*M),X
240 NEXTM
250 BEG=BEG+1
260 NEXTN
270 BEG=BEG+2
280 NEXTT
290 INPUT"SCALE FACTOR OF ARMS 0-2.5";SC
300 IFSC<0ORSC>2.5THEN290
310 IFSC=OBANDTR=1THEN490
320 IFSC=OBANDTR=0THEN480
330 FORT=0TO3:FORN=0TO30
340 FORM=0TO3
350 READX
360 X=X*SC
370 X=INT(X+.3):IFMC=1THENX=(INT(X/2))*2
380 IFEB<ABS(X)THENEB=ABS(X)
390 IFX<0THENX=256+X
400 POKE BEG+(512*M),X
410 NEXTM
420 BEG=BEG+1
430 NEXTN
440 NEXTT
450 IF TR=1ANDOB<>SCTHENPOKE LFT+2,EB:POKERGHT+2,80-EB:GOTO490
460 OB=SC
470 POKE LFT+2,EB:POKERGHT+2,80-EB
480 POKELFT,ER:POKERGHT,80-ER
490 SYS49160
500 RESTORE
510 GOTO60
520 PRINT" 0-BLACK"TAB(10)" 1-WHITE"TAB(20)" 2-RED"TAB(30)" 3-CYAN"
530 PRINT" 4-PURPLE"TAB(10)" 5-GREEN"TAB(20)" 6-BLUE"TAB(30)" 7-YELLOW"
540 PRINT" 8-ORANGE"TAB(10)" 9-BROWN"TAB(20)"10-L.RED"TAB(30)"11-GRAY 1"
550 PRINT"12-GRAY 2"TAB(10)"13-L.GREEN"TAB(20)"14-L.BLUE"TAB(30)"15-GRAY 3"
560 IFMC=1THEN640
570 INPUT"BACKGROUND COL";C1
580 IFC1>15ORC1<0THEN570
590 INPUT"FOREGROUND COL";C2
600 IFC2>15ORC2<0THEN590
610 C=(C2*16)+C1
620 POKE49157,C
630 RETURN
640 INPUT"BACKGROUND COL";CB
650 INPUT"COLOUR 1 ";C1
660 IFC1>15ORC1<0THEN650
670 INPUT"COLOUR 2 ";C2
680 IFC2>15ORC2<0THEN670
690 INPUT"COLOUR 3 ";C3
700 IFC3>15ORC3<0THEN690
710 C=(C2*16)+C1
720 POKE49157,C
730 IFCB=5THENPRINT"<black>"
740 POKE53281,CB
750 POKE49159,CB
760 POKE49158,C3
770 RETURN
780 DATA0,0,0,0,0,0,0,0
790 DATA0,0,0,0,1,0,-1,0,1,0,-1,0,1,0,-1,0
800 DATA1,0,-1,0,1,0,-1,0,1,0,-1,0,1,0,-1,0
810 DATA2,-1,-2,0,2,-1,-2,0,2,-1,-2,0,2,-1,-2,0
820 DATA2,-1,-2,0,2,-1,-2,0,2,-1,-2,0,3,-1,-3,0
830 DATA3,-1,-3,0,3,-1,-3,0,3,-1,-3,0,3,-1,-3,0
840 DATA4,-1,-3,0,4,-1,-3,0,4,-2,-3,0,3,-2,-4,0
850 DATA3,-2,-4,0,3,-2,-4,0,3,-2,-4,0,3,-2,-4,0
860 DATA3,-2,-4,0,3,-2,-4,0,3,-2,-4,0,3,-2,-4,0
870 DATA2,-2,-4,0,2,-2,-4,0,2,-2,-4,0,2,-3,-4,0
880 DATA2,-3,-4,0,2,-3,-4,0,2,-3,-4,0,2,-3,-4,0
890 DATA2,-3,-5,0,2,-3,-5,0,1,-3,-5,0,1,-3,-5,0
900 DATA1,-3,-5,0,1,-3,-5,0
910 REM FRAME2
920 DATA0,0,0,0,0,0,0,0
930 DATA1,0,-1,0,1,0,-1,0,1,0,-1,0,1,0,-1,0
940 DATA2,0,-2,0,2,0,-2,0,2,0,-2,0,2,0,-2,0
950 DATA3,0,-3,0,3,-1,-3,0,3,-1,-3,0,3,-1,-3,0
960 DATA4,-1,-4,0,4,-1,-4,0,4,-1,-4,0,4,-1,-4,0
970 DATA5,-1,-5,0,5,-1,-5,0,5,-1,-5,0,5,-1,-5,0
980 DATA6,-1,-5,0,6,-1,-5,0,6,-2,-5,0,5,-2,-5,0
990 DATA5,-2,-5,0,5,-2,-5,0,5,-2,-5,0,5,-2,-5,0
1000 DATA5,-2,-6,0,5,-2,-6,0,5,-2,-6,0,4,-2,-6,0
1010 DATA4,-2,-6,0,4,-2,-6,0,4,-2,-6,0,4,-3,-6,0
1020 DATA4,-3,-6,0,4,-3,-6,0,4,-3,-6,0,3,-3,-6,0
1030 DATA3,-3,-7,0,4,-3,-7,0,4,-3,-7,0,3,-3,-7,0
1040 DATA3,-3,-7,0,3,-3,-7,0
1050 REM FRAME3
1060 DATA0,0,0,0,1,0,0,0
1070 DATA1,0,0,0,1,0,0,0,2,0,-1,0,2,0,-1,0
1080 DATA2,0,-2,0,3,0,-2,0,3,0,-2,0,3,0,-3,0
1090 DATA4,0,-3,0,4,0,-3,0,4,0,-3,0,5,0,-3,0
1100 DATA5,0,-3,0,5,0,-3,0,6,0,-4,0,6,0,-4,0
1110 DATA6,0,-4,0,7,0,-4,0,7,0,-4,0,8,0,-4,0
1120 DATA8,0,-4,0,9,0,-5,0,8,-1,-5,0,8,-1,-5,0
1130 DATA8,-1,-5,0,8,-1,-5,0,8,-1,-5,0,8,-1,-5,0
1140 DATA8,-1,-6,0,8,-1,-6,0,8,-1,-6,0,8,-1,-6,0
1150 DATA8,-1,-6,0,8,-1,-6,0,8,-1,-7,0,8,-1,-7,0
1160 DATA8,-1,-7,0,8,-1,-7,0,8,-1,-8,0,8,-1,-8,0
1170 DATA8,-1,-8,0,8,-1,-9,0,8,-1,-9,0,8,-1,-9,0
1180 DATA8,-1,-9,0,8,-1,-9,0
1190 REM FRAME4
1200 DATA0,0,0,0,1,0,-1,0
1210 DATA1,0,-1,0,1,0,-1,0,2,0,-1,0,2,0,-1,0
1220 DATA2,0,-1,0,3,0,-1,0,3,0,-2,0,3,0,-2,0
1230 DATA4,0,-2,0,4,0,-2,0,4,0,-2,0,5,0,-3,0
1240 DATA5,0,-3,0,5,0,-3,0,6,0,-3,0,6,0,-3,0
1250 DATA6,0,-3,0,7,0,-3,0,7,0,-4,0,8,0,-4,0
1260 DATA8,0,-4,0,9,0,-4,0,8,0,-4,0,8,0,-4,0
1270 DATA8,0,-5,0,8,0,-5,-1,8,0,-5,-1,8,0,-5,-1
1280 DATA8,0,-5,-1,8,0,-5,-1,8,0,-6,-1,8,0,-6,-1
1290 DATA9,0,-6,-1,9,0,-6,-1,9,0,-6,-1,9,0,-7,-1
1300 DATA9,0,-7,-1,9,0,-7,-1,10,0,-7,-1,10,0,-8,-1
1310 DATA10,0,-8,-1,10,0,-8,-1,10,0,-8,-1,10,0,-9,-1
1320 DATA10,0,-9,-1,10,0,-9,-1
1330 REM FRAME5
1340 DATA0,0,0,0,1,0,0,0
1350 DATA1,0,0,0,1,0,0,0,2,0,0,0,2,0,0,0
1360 DATA2,0,0,0,3,0,-1,0,3,0,-1,0,3,0,-1,0
1370 DATA4,0,-1,0,4,0,-1,0,4,0,-1,0,5,0,-1,0
1380 DATA5,0,-1,-1,5,0,-2,-1,6,0,-2,-1,6,0,-2,-1
1390 DATA6,0,-2,-1,7,0,-2,-1,7,0,-2,-1,8,0,-2,-1
1400 DATA8,0,-2,-1,9,0,-3,-1,8,0,-3,-2,8,0,-3,-2
1410 DATA8,0,-3,-2,8,0,-3,-2,8,0,-3,-2,8,0,-3,-2
1420 DATA8,0,-4,-2,8,0,-4,-2,7,0,-4,-2,7,0,-4,-2
1430 DATA7,0,-4,-2,7,0,-4,-2,7,0,-4,-2,7,0,-5,-2
1440 DATA7,0,-5,-2,7,0,-5,-2,6,0,-5,-2,6,0,-5,-3
1450 DATA6,0,-5,-3,6,0,-5,-3,6,0,-6,-3,6,0,-6,-3
1460 DATA6,0,-6,-3,6,0,-6,-3
1470 REM FRAME6
1480 DATA0,0,0,0,0,0,0,0
1490 DATA1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
1500 DATA2,0,0,0,2,0,0,0,2,0,0,0,2,0,0,0
1510 DATA3,0,0,0,3,0,-1,-1,3,0,-1,-1,3,0,-1,-1
1520 DATA4,0,-1,-1,4,0,-1,-1,4,0,-1,-1,4,0,-1,-1
1530 DATA5,0,-1,-1,5,0,-1,-1,5,0,-1,-1,6,0,-1,-1
1540 DATA6,0,-1,-1,6,0,-1,-1,6,0,-2,-2,5,0,-2,-2
1550 DATA5,0,-2,-2,5,0,-2,-2,5,0,-2,-2,5,0,-2,-2
1560 DATA5,0,-2,-2,5,0,-2,-2,5,0,-2,-2,4,0,-2,-2
1570 DATA4,0,-2,-2,4,0,-2,-2,4,0,-3,-3,4,0,-3,-3
1580 DATA4,0,-3,-3,4,0,-3,-3,4,0,-3,-3,3,0,-3,-3
1590 DATA3,0,-3,-3,3,0,-3,-3,3,0,-3,-3,3,0,-3,-3
1600 DATA3,0,-3,-3,3,0,-3,-3
1610 REM FRAME7
1620 DATA0,0,0,0,0,0,0,0
1630 DATA0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
1640 DATA1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
1650 DATA2,0,0,0,2,0,0,-1,2,0,0,-1,2,0,0,-1
1660 DATA2,0,0,-1,2,0,0,-1,2,0,0,-1,3,0,0,-1
1670 DATA3,0,0,-1,3,0,0,-1,3,0,0,-1,3,0,0,-1
1680 DATA3,0,0,-1,4,0,-1,-2,4,0,-1,-2,3,0,-1,-2
1690 DATA3,0,-1,-2,3,0,-1,-2,3,0,-1,-2,3,0,-1,-2
1700 DATA3,0,-1,-2,3,0,-1,-2,3,0,-1,-2,3,0,-1,-2
1710 DATA2,0,-1,-2,2,0,-1,-2,2,0,-1,-2,2,0,-1,-3
1720 DATA2,0,-1,-3,2,0,-1,-3,2,0,-1,-3,2,0,-1,-3
1730 DATA2,0,-1,-3,2,0,-1,-3,1,0,-1,-3,1,0,-1,-3
1740 DATA1,0,-1,-3,1,0,-1,-3
1750 REM ARMS
1760 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1770 DATA-1,0,-1,0,-1,0,-1,0,-1,0,-1,0,-1,0,-1,0
1780 DATA-1,0,-1,0,-2,0,-2,0,-2,0,-2,0,-2,0,-2,0
1790 DATA-2,0,-2,0,-2,0,-2,0,-3,0,-3,0,-3,0,-3,0
1800 DATA-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1
1810 DATA-2,-1,-2,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
1820 DATA-1,-1,-1,-1,-1,-1,-1,-1,0,-1,0,-1,0,-1,0,-1
1830 DATA0,-1,0,-1,0,-1,0,-1,0,-1,0,-1
1840 REM FRAME2+7
1850 DATA0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0
1860 DATA-1,0,0,0,-1,0,0,0,-2,0,0,0,-2,0,0,0
1870 DATA-2,0,0,0,-3,0,0,0,-3,0,0,0,-3,0,0,0
1880 DATA-4,-1,0,0,-4,-1,0,0,-5,-1,0,0,-4,-1,1,0
1890 DATA-4,-1,1,-1,-4,-1,1,-1,-4,-1,1,-1,-4,-1,1,-1
1900 DATA-3,-2,1,-1,-3,-2,1,-1,-3,-2,2,-1,-3,-2,2,-1
1910 DATA-3,-2,2,-1,-2,-2,2,-1,-2,-2,2,-1,-2,-2,2,-1
1920 DATA-2,-2,2,-1,-2,-2,2,-1,-1,-2,2,-1
1930 REM FRAME3+6
1940 DATA0,0,0,0,0,0,0,0,-1,0,0,0,-1,0,0,0
1950 DATA-2,0,0,0,-2,0,0,0,-3,0,1,0,-3,0,1,0
1960 DATA-4,0,1,0,-4,0,1,0,-5,-1,1,-1,-5,-1,2,-1
1970 DATA-5,-1,2,-1,-6,-1,2,-1,-6,-1,2,-1,-6,-1,2,-1
1980 DATA-5,-1,3,-1,-5,-1,3,-1,-5,-1,3,-1,-5,-1,3,-1
1990 DATA-4,-2,4,-2,-4,-2,4,-2,-4,-2,4,-2,-4,-2,4,-2
2000 DATA-3,-2,5,-2,-3,-2,5,-2,-3,-2,5,-2,-3,-2,5,-2
2010 DATA-3,-3,5,-2,-3,-3,5,-2,-3,-3,5,-2
2020 REM FRAME4+5
2030 DATA0,0,0,0,0,0,0,0,-1,0,0,0,-2,0,0,0
2040 DATA-2,0,0,0,-3,0,1,0,-4,0,1,0,-4,-1,1,-1
2050 DATA-5,-1,1,-1,-5,-1,1,-1,-6,-1,2,-1,-6,-1,2,-1
2060 DATA-6,-1,2,-1,-7,-1,2,-1,-6,-2,2,-1,-6,-2,2,-2
2070 DATA-6,-2,3,-2,-6,-2,3,-2,-6,-2,3,-2,-6,-2,3,-2
2080 DATA-5,-2,4,-2,-5,-2,4,-2,-5,-2,4,-2,-5,-2,4,-3
2090 DATA-5,-3,5,-3,-4,-3,5,-3,-4,-3,5,-3,-4,-3,5,-3
2100 DATA-4,-3,6,-3,-4,-3,6,-3,-4,-3,6,-3
� A�0�40 2 �51,255:�52,63:�55,255:�56,63:� N A�A�1:�"ANIMATE.MC",8,1 n( �53281,0:�53280,0:TR�0:MB�0 �2 MU�49152:LFT�49153:RGHT�49154 �<