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 �<