Home » Personal collection » Acorn ADFS disks » Electron » Play_it_again_Sam_5_10.ADF » Sam10/3DDotty/DOTTY1

Sam10/3DDotty/DOTTY1

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 » Acorn ADFS disks » Electron » Play_it_again_Sam_5_10.ADF
Filename: Sam10/3DDotty/DOTTY1
Read OK:
File size: 077E bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10 MODE 5
   20 *FX200,3
   30 VDU23;8202;0;0;0;
   40 VDU 19,1,4;0;:VDU 19,2,1;0; 
   50 GCOL 0,1
   60 MOVE490,65
   70 MOVE490,80
   80 PLOT85,15,65
   90 PLOT85,15,80
  100 MOVE0,65
  110 MOVE15,65
  120 PLOT85,0,1000  
  130 PLOT85,15,1000
  140 MOVE15,985
  150 PLOT85,1280,1000
  160 PLOT85,1280,985
  170 MOVE1265,985
  180 PLOT85,1280,65
  190 PLOT85,1265,65
  200 MOVE1265,80
  210 PLOT85,790,65
  220 PLOT85,790,80
  230 COLOUR1
  240 PRINTTAB(4,4)"Blue  Ribbon"
  250 PRINTTAB(6,6)"presents"
  260 COLOUR 1
  270 VDU5
  280 GCOL0,7
  290 MOVE224,700
  300 PRINT"   3D-DOTTY"  
  310 GCOL0,2
  320 MOVE232,706
  330 PRINT"   3D-DOTTY"
  340 VDU4
  350 COLOUR 1
  360 PRINTTAB(6,14)"for  the"
  370 PRINTTAB(1,17);"  Acorn Electron "
  380 PRINTTAB(2,25);" Copyright 1987"
  390 VDU28,2,22,17,20
  400 DIMX(199),Y(199)
  410 FORN=100 TO 198
  420 READX(N),Y(N)
  430 NEXT
  440 K=485
  450 KK=0
  460 GCOL 0,1
  470 MOVE X(139)*3+K,Y(139)*3+KK
  480 FORN=100 TO 118    
  490 MOVE 51*3+K,22*3+KK
  500 PLOT 85,X(N)*3+K,Y(N)*3+KK 
  510 NEXT
  520 MOVE X(137)*3+K,Y(137)*3+KK
  530 FORN=128 TO 137  
  540 MOVE 20*3+K,13*3+KK
  550 PLOT 85,X(N)*3+K,Y(N)*3+KK 
  560 NEXT
  570 MOVE X(126)*3+K,Y(126)*3+KK
  580 FORN=118 TO 126   
  590 MOVE80*3+K,13*3+KK
  600 PLOT 85,X(N)*3+K,Y(N)*3+KK 
  610 NEXT
  620 PLOT 85,X(118)*3+K,Y(118)*3+KK
  630 MOVEX(139)*3+K,Y(139)*3+KK 
  640 MOVEX(138)*3+K,Y(138)*3+KK 
  650 PLOT 85,51*3+K,22*3+KK 
  660 PLOT 85,X(137)*3+K,Y(137)*3+KK 
  670 PLOT 85,X(128)*3+K,Y(128)*3+KK
  680 DATA3,31,2,38,4,44,10,48,13,50,22,47,36,42,45,33,52,34,57,33,66,39,76,45,90,50,97,47,100,41,100,31,101,25,97,22,90,20,102,17,97,14,90,12,95,6,104,6,87,3,75,9,60,22,52,21,44,23,36,15,26,8,14,3,0,0,6,5,10,10,5,13,0,16,16,19,6,21,2,25
  690 DATA142,33,147,33,150,32,154,33,157,32,159,33,172,33,174,32,181,33,188,27,187,22,185,19,188,14,189,10,188,6,191,6,191,27,200,33,210,27,210,6,212,6,214,8,214,31,211,31,213,33,219,33,220,32,224,33,233,27,233,6,246,6,248,0,230,0,227,5
  700 DATA227,23,225,25,221,23,221,4,217,0,176,0,169,10,169,25,167,25,164,26,163,22,161,19,165,14,166,10,155,0,146,10,145,25,144,26,144,24,142,25,200,6,203,7,203,24,200,25,198,24,198,7      
  710 COLOUR7
  720 GCOL0,7
  730 MOVE112,276
  740 DRAW1160,276
  750 DRAW1160,400
  760 DRAW112,400
  770 DRAW112,276
  780 *RUN

 � 5

 *FX200,3
 �23;8202;0;0;0;
( � 19,1,4;0;:� 19,2,1;0; 
2
 � 0,1
< �490,65
F �490,80
P �85,15,65
Z �85,15,80
d
 �0,65
n �15,65
x �85,0,1000  
� �85,15,1000
� �15,985
� �85,1280,1000
� �85,1280,985
� �1265,985
� �85,1280,65
� �85,1265,65
�
 �1265,80
� �85,790,65
� �85,790,80
� �1
� �4,4)"Blue  Ribbon"
� �6,6)"presents"
 � 1
 �5
	 �0,7
"
 �224,700
, �"   3D-DOTTY"  
6	 �0,2
@
 �232,706
J �"   3D-DOTTY"
T �4
^ � 1
h �6,14)"for  the"
r  �1,17);"  Acorn Electron "
| �2,25);" Copyright 1987"
� �28,2,22,17,20
� �X(199),Y(199)
� �N=100 � 198
� �X(N),Y(N)
� �
�
 K=485
�	 KK=0
�
 � 0,1
� � X(139)*3+K,Y(139)*3+KK
� �N=100 � 118    
� � 51*3+K,22*3+KK
� � 85,X(N)*3+K,Y(N)*3+KK 
� �
 � X(137)*3+K,Y(137)*3+KK
 �N=128 � 137  
 � 20*3+K,13*3+KK
& � 85,X(N)*3+K,Y(N)*3+KK 
0 �
: � X(126)*3+K,Y(126)*3+KK
D �N=118 � 126   
N �80*3+K,13*3+KK
X � 85,X(N)*3+K,Y(N)*3+KK 
b �
l  � 85,X(118)*3+K,Y(118)*3+KK
v �X(139)*3+K,Y(139)*3+KK 
� �X(138)*3+K,Y(138)*3+KK 
� � 85,51*3+K,22*3+KK 
�! � 85,X(137)*3+K,Y(137)*3+KK 
�  � 85,X(128)*3+K,Y(128)*3+KK
�� �3,31,2,38,4,44,10,48,13,50,22,47,36,42,45,33,52,34,57,33,66,39,76,45,90,50,97,47,100,41,100,31,101,25,97,22,90,20,102,17,97,14,90,12,95,6,104,6,87,3,75,9,60,22,52,21,44,23,36,15,26,8,14,3,0,0,6,5,10,10,5,13,0,16,16,19,6,21,2,25
�� �142,33,147,33,150,32,154,33,157,32,159,33,172,33,174,32,181,33,188,27,187,22,185,19,188,14,189,10,188,6,191,6,191,27,200,33,210,27,210,6,212,6,214,8,214,31,211,31,213,33,219,33,220,32,224,33,233,27,233,6,246,6,248,0,230,0,227,5
�� �227,23,225,25,221,23,221,4,217,0,176,0,169,10,169,25,167,25,164,26,163,22,161,19,165,14,166,10,155,0,146,10,145,25,144,26,144,24,142,25,200,6,203,7,203,24,200,25,198,24,198,7      
� �7
�	 �0,7
�
 �112,276
� �1160,276
� �1160,400
�
 �112,400

 �112,276
	 *RUN
�
00000000  0d 00 0a 08 20 eb 20 35  0d 00 14 0d 20 2a 46 58  |.... . 5.... *FX|
00000010  32 30 30 2c 33 0d 00 1e  14 20 ef 32 33 3b 38 32  |200,3.... .23;82|
00000020  30 32 3b 30 3b 30 3b 30  3b 0d 00 28 1d 20 ef 20  |02;0;0;0;..(. . |
00000030  31 39 2c 31 2c 34 3b 30  3b 3a ef 20 31 39 2c 32  |19,1,4;0;:. 19,2|
00000040  2c 31 3b 30 3b 20 0d 00  32 0a 20 e6 20 30 2c 31  |,1;0; ..2. . 0,1|
00000050  0d 00 3c 0c 20 ec 34 39  30 2c 36 35 0d 00 46 0c  |..<. .490,65..F.|
00000060  20 ec 34 39 30 2c 38 30  0d 00 50 0e 20 f0 38 35  | .490,80..P. .85|
00000070  2c 31 35 2c 36 35 0d 00  5a 0e 20 f0 38 35 2c 31  |,15,65..Z. .85,1|
00000080  35 2c 38 30 0d 00 64 0a  20 ec 30 2c 36 35 0d 00  |5,80..d. .0,65..|
00000090  6e 0b 20 ec 31 35 2c 36  35 0d 00 78 11 20 f0 38  |n. .15,65..x. .8|
000000a0  35 2c 30 2c 31 30 30 30  20 20 0d 00 82 10 20 f0  |5,0,1000  .... .|
000000b0  38 35 2c 31 35 2c 31 30  30 30 0d 00 8c 0c 20 ec  |85,15,1000.... .|
000000c0  31 35 2c 39 38 35 0d 00  96 12 20 f0 38 35 2c 31  |15,985.... .85,1|
000000d0  32 38 30 2c 31 30 30 30  0d 00 a0 11 20 f0 38 35  |280,1000.... .85|
000000e0  2c 31 32 38 30 2c 39 38  35 0d 00 aa 0e 20 ec 31  |,1280,985.... .1|
000000f0  32 36 35 2c 39 38 35 0d  00 b4 10 20 f0 38 35 2c  |265,985.... .85,|
00000100  31 32 38 30 2c 36 35 0d  00 be 10 20 f0 38 35 2c  |1280,65.... .85,|
00000110  31 32 36 35 2c 36 35 0d  00 c8 0d 20 ec 31 32 36  |1265,65.... .126|
00000120  35 2c 38 30 0d 00 d2 0f  20 f0 38 35 2c 37 39 30  |5,80.... .85,790|
00000130  2c 36 35 0d 00 dc 0f 20  f0 38 35 2c 37 39 30 2c  |,65.... .85,790,|
00000140  38 30 0d 00 e6 07 20 fb  31 0d 00 f0 19 20 f1 8a  |80.... .1.... ..|
00000150  34 2c 34 29 22 42 6c 75  65 20 20 52 69 62 62 6f  |4,4)"Blue  Ribbo|
00000160  6e 22 0d 00 fa 15 20 f1  8a 36 2c 36 29 22 70 72  |n".... ..6,6)"pr|
00000170  65 73 65 6e 74 73 22 0d  01 04 08 20 fb 20 31 0d  |esents".... . 1.|
00000180  01 0e 07 20 ef 35 0d 01  18 09 20 e6 30 2c 37 0d  |... .5.... .0,7.|
00000190  01 22 0d 20 ec 32 32 34  2c 37 30 30 0d 01 2c 15  |.". .224,700..,.|
000001a0  20 f1 22 20 20 20 33 44  2d 44 4f 54 54 59 22 20  | ."   3D-DOTTY" |
000001b0  20 0d 01 36 09 20 e6 30  2c 32 0d 01 40 0d 20 ec  | ..6. .0,2..@. .|
000001c0  32 33 32 2c 37 30 36 0d  01 4a 13 20 f1 22 20 20  |232,706..J. ."  |
000001d0  20 33 44 2d 44 4f 54 54  59 22 0d 01 54 07 20 ef  | 3D-DOTTY"..T. .|
000001e0  34 0d 01 5e 08 20 fb 20  31 0d 01 68 16 20 f1 8a  |4..^. . 1..h. ..|
000001f0  36 2c 31 34 29 22 66 6f  72 20 20 74 68 65 22 0d  |6,14)"for  the".|
00000200  01 72 20 20 f1 8a 31 2c  31 37 29 3b 22 20 20 41  |.r  ..1,17);"  A|
00000210  63 6f 72 6e 20 45 6c 65  63 74 72 6f 6e 20 22 0d  |corn Electron ".|
00000220  01 7c 1e 20 f1 8a 32 2c  32 35 29 3b 22 20 43 6f  |.|. ..2,25);" Co|
00000230  70 79 72 69 67 68 74 20  31 39 38 37 22 0d 01 86  |pyright 1987"...|
00000240  13 20 ef 32 38 2c 32 2c  32 32 2c 31 37 2c 32 30  |. .28,2,22,17,20|
00000250  0d 01 90 13 20 de 58 28  31 39 39 29 2c 59 28 31  |.... .X(199),Y(1|
00000260  39 39 29 0d 01 9a 11 20  e3 4e 3d 31 30 30 20 b8  |99).... .N=100 .|
00000270  20 31 39 38 0d 01 a4 0f  20 f3 58 28 4e 29 2c 59  | 198.... .X(N),Y|
00000280  28 4e 29 0d 01 ae 06 20  ed 0d 01 b8 0a 20 4b 3d  |(N).... ..... K=|
00000290  34 38 35 0d 01 c2 09 20  4b 4b 3d 30 0d 01 cc 0a  |485.... KK=0....|
000002a0  20 e6 20 30 2c 31 0d 01  d6 1d 20 ec 20 58 28 31  | . 0,1.... . X(1|
000002b0  33 39 29 2a 33 2b 4b 2c  59 28 31 33 39 29 2a 33  |39)*3+K,Y(139)*3|
000002c0  2b 4b 4b 0d 01 e0 15 20  e3 4e 3d 31 30 30 20 b8  |+KK.... .N=100 .|
000002d0  20 31 31 38 20 20 20 20  0d 01 ea 15 20 ec 20 35  | 118    .... . 5|
000002e0  31 2a 33 2b 4b 2c 32 32  2a 33 2b 4b 4b 0d 01 f4  |1*3+K,22*3+KK...|
000002f0  1d 20 f0 20 38 35 2c 58  28 4e 29 2a 33 2b 4b 2c  |. . 85,X(N)*3+K,|
00000300  59 28 4e 29 2a 33 2b 4b  4b 20 0d 01 fe 06 20 ed  |Y(N)*3+KK .... .|
00000310  0d 02 08 1d 20 ec 20 58  28 31 33 37 29 2a 33 2b  |.... . X(137)*3+|
00000320  4b 2c 59 28 31 33 37 29  2a 33 2b 4b 4b 0d 02 12  |K,Y(137)*3+KK...|
00000330  13 20 e3 4e 3d 31 32 38  20 b8 20 31 33 37 20 20  |. .N=128 . 137  |
00000340  0d 02 1c 15 20 ec 20 32  30 2a 33 2b 4b 2c 31 33  |.... . 20*3+K,13|
00000350  2a 33 2b 4b 4b 0d 02 26  1d 20 f0 20 38 35 2c 58  |*3+KK..&. . 85,X|
00000360  28 4e 29 2a 33 2b 4b 2c  59 28 4e 29 2a 33 2b 4b  |(N)*3+K,Y(N)*3+K|
00000370  4b 20 0d 02 30 06 20 ed  0d 02 3a 1d 20 ec 20 58  |K ..0. ...:. . X|
00000380  28 31 32 36 29 2a 33 2b  4b 2c 59 28 31 32 36 29  |(126)*3+K,Y(126)|
00000390  2a 33 2b 4b 4b 0d 02 44  14 20 e3 4e 3d 31 31 38  |*3+KK..D. .N=118|
000003a0  20 b8 20 31 32 36 20 20  20 0d 02 4e 14 20 ec 38  | . 126   ..N. .8|
000003b0  30 2a 33 2b 4b 2c 31 33  2a 33 2b 4b 4b 0d 02 58  |0*3+K,13*3+KK..X|
000003c0  1d 20 f0 20 38 35 2c 58  28 4e 29 2a 33 2b 4b 2c  |. . 85,X(N)*3+K,|
000003d0  59 28 4e 29 2a 33 2b 4b  4b 20 0d 02 62 06 20 ed  |Y(N)*3+KK ..b. .|
000003e0  0d 02 6c 20 20 f0 20 38  35 2c 58 28 31 31 38 29  |..l  . 85,X(118)|
000003f0  2a 33 2b 4b 2c 59 28 31  31 38 29 2a 33 2b 4b 4b  |*3+K,Y(118)*3+KK|
00000400  0d 02 76 1d 20 ec 58 28  31 33 39 29 2a 33 2b 4b  |..v. .X(139)*3+K|
00000410  2c 59 28 31 33 39 29 2a  33 2b 4b 4b 20 0d 02 80  |,Y(139)*3+KK ...|
00000420  1d 20 ec 58 28 31 33 38  29 2a 33 2b 4b 2c 59 28  |. .X(138)*3+K,Y(|
00000430  31 33 38 29 2a 33 2b 4b  4b 20 0d 02 8a 19 20 f0  |138)*3+KK .... .|
00000440  20 38 35 2c 35 31 2a 33  2b 4b 2c 32 32 2a 33 2b  | 85,51*3+K,22*3+|
00000450  4b 4b 20 0d 02 94 21 20  f0 20 38 35 2c 58 28 31  |KK ...! . 85,X(1|
00000460  33 37 29 2a 33 2b 4b 2c  59 28 31 33 37 29 2a 33  |37)*3+K,Y(137)*3|
00000470  2b 4b 4b 20 0d 02 9e 20  20 f0 20 38 35 2c 58 28  |+KK ...  . 85,X(|
00000480  31 32 38 29 2a 33 2b 4b  2c 59 28 31 32 38 29 2a  |128)*3+K,Y(128)*|
00000490  33 2b 4b 4b 0d 02 a8 e9  20 dc 33 2c 33 31 2c 32  |3+KK.... .3,31,2|
000004a0  2c 33 38 2c 34 2c 34 34  2c 31 30 2c 34 38 2c 31  |,38,4,44,10,48,1|
000004b0  33 2c 35 30 2c 32 32 2c  34 37 2c 33 36 2c 34 32  |3,50,22,47,36,42|
000004c0  2c 34 35 2c 33 33 2c 35  32 2c 33 34 2c 35 37 2c  |,45,33,52,34,57,|
000004d0  33 33 2c 36 36 2c 33 39  2c 37 36 2c 34 35 2c 39  |33,66,39,76,45,9|
000004e0  30 2c 35 30 2c 39 37 2c  34 37 2c 31 30 30 2c 34  |0,50,97,47,100,4|
000004f0  31 2c 31 30 30 2c 33 31  2c 31 30 31 2c 32 35 2c  |1,100,31,101,25,|
00000500  39 37 2c 32 32 2c 39 30  2c 32 30 2c 31 30 32 2c  |97,22,90,20,102,|
00000510  31 37 2c 39 37 2c 31 34  2c 39 30 2c 31 32 2c 39  |17,97,14,90,12,9|
00000520  35 2c 36 2c 31 30 34 2c  36 2c 38 37 2c 33 2c 37  |5,6,104,6,87,3,7|
00000530  35 2c 39 2c 36 30 2c 32  32 2c 35 32 2c 32 31 2c  |5,9,60,22,52,21,|
00000540  34 34 2c 32 33 2c 33 36  2c 31 35 2c 32 36 2c 38  |44,23,36,15,26,8|
00000550  2c 31 34 2c 33 2c 30 2c  30 2c 36 2c 35 2c 31 30  |,14,3,0,0,6,5,10|
00000560  2c 31 30 2c 35 2c 31 33  2c 30 2c 31 36 2c 31 36  |,10,5,13,0,16,16|
00000570  2c 31 39 2c 36 2c 32 31  2c 32 2c 32 35 0d 02 b2  |,19,6,21,2,25...|
00000580  e9 20 dc 31 34 32 2c 33  33 2c 31 34 37 2c 33 33  |. .142,33,147,33|
00000590  2c 31 35 30 2c 33 32 2c  31 35 34 2c 33 33 2c 31  |,150,32,154,33,1|
000005a0  35 37 2c 33 32 2c 31 35  39 2c 33 33 2c 31 37 32  |57,32,159,33,172|
000005b0  2c 33 33 2c 31 37 34 2c  33 32 2c 31 38 31 2c 33  |,33,174,32,181,3|
000005c0  33 2c 31 38 38 2c 32 37  2c 31 38 37 2c 32 32 2c  |3,188,27,187,22,|
000005d0  31 38 35 2c 31 39 2c 31  38 38 2c 31 34 2c 31 38  |185,19,188,14,18|
000005e0  39 2c 31 30 2c 31 38 38  2c 36 2c 31 39 31 2c 36  |9,10,188,6,191,6|
000005f0  2c 31 39 31 2c 32 37 2c  32 30 30 2c 33 33 2c 32  |,191,27,200,33,2|
00000600  31 30 2c 32 37 2c 32 31  30 2c 36 2c 32 31 32 2c  |10,27,210,6,212,|
00000610  36 2c 32 31 34 2c 38 2c  32 31 34 2c 33 31 2c 32  |6,214,8,214,31,2|
00000620  31 31 2c 33 31 2c 32 31  33 2c 33 33 2c 32 31 39  |11,31,213,33,219|
00000630  2c 33 33 2c 32 32 30 2c  33 32 2c 32 32 34 2c 33  |,33,220,32,224,3|
00000640  33 2c 32 33 33 2c 32 37  2c 32 33 33 2c 36 2c 32  |3,233,27,233,6,2|
00000650  34 36 2c 36 2c 32 34 38  2c 30 2c 32 33 30 2c 30  |46,6,248,0,230,0|
00000660  2c 32 32 37 2c 35 0d 02  bc ba 20 dc 32 32 37 2c  |,227,5.... .227,|
00000670  32 33 2c 32 32 35 2c 32  35 2c 32 32 31 2c 32 33  |23,225,25,221,23|
00000680  2c 32 32 31 2c 34 2c 32  31 37 2c 30 2c 31 37 36  |,221,4,217,0,176|
00000690  2c 30 2c 31 36 39 2c 31  30 2c 31 36 39 2c 32 35  |,0,169,10,169,25|
000006a0  2c 31 36 37 2c 32 35 2c  31 36 34 2c 32 36 2c 31  |,167,25,164,26,1|
000006b0  36 33 2c 32 32 2c 31 36  31 2c 31 39 2c 31 36 35  |63,22,161,19,165|
000006c0  2c 31 34 2c 31 36 36 2c  31 30 2c 31 35 35 2c 30  |,14,166,10,155,0|
000006d0  2c 31 34 36 2c 31 30 2c  31 34 35 2c 32 35 2c 31  |,146,10,145,25,1|
000006e0  34 34 2c 32 36 2c 31 34  34 2c 32 34 2c 31 34 32  |44,26,144,24,142|
000006f0  2c 32 35 2c 32 30 30 2c  36 2c 32 30 33 2c 37 2c  |,25,200,6,203,7,|
00000700  32 30 33 2c 32 34 2c 32  30 30 2c 32 35 2c 31 39  |203,24,200,25,19|
00000710  38 2c 32 34 2c 31 39 38  2c 37 20 20 20 20 20 20  |8,24,198,7      |
00000720  0d 02 c6 07 20 fb 37 0d  02 d0 09 20 e6 30 2c 37  |.... .7.... .0,7|
00000730  0d 02 da 0d 20 ec 31 31  32 2c 32 37 36 0d 02 e4  |.... .112,276...|
00000740  0e 20 df 31 31 36 30 2c  32 37 36 0d 02 ee 0e 20  |. .1160,276.... |
00000750  df 31 31 36 30 2c 34 30  30 0d 02 f8 0d 20 df 31  |.1160,400.... .1|
00000760  31 32 2c 34 30 30 0d 03  02 0d 20 df 31 31 32 2c  |12,400.... .112,|
00000770  32 37 36 0d 03 0c 09 20  2a 52 55 4e 0d ff        |276.... *RUN..|
0000077e
Sam10/3DDotty/DOTTY1.m0
Sam10/3DDotty/DOTTY1.m1
Sam10/3DDotty/DOTTY1.m2
Sam10/3DDotty/DOTTY1.m4
Sam10/3DDotty/DOTTY1.m5