Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape34b_acorn_eu_1992_may.wav » Define5

Define5

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 tapes » Electron_User » Electron_User_tape34b_acorn_eu_1992_may.wav
Filename: Define5
Read OK:
File size: 06EF bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10REM > <BasicSave$dir>.DEFINE5
   20REM by Mike Goldberg
   30REM (c) The Micro User
   40MODE5:VDU19,3,4;0;23,1,0;0;0;0;
   50PROCgrid:PROCinit
   60REPEATPROCkeys:UNTIL0:END
   70:
   80DEFPROCinit:B$=CHR$224:X%=0
   90VDU23,224,0,96,96,96,96,96,0;
  100Y%=768:A%=836:B%=732:C%=2:M%=24
  110VDU4:COLOUR2:PRINTTAB(14,20)"Old"TAB(13,21)"Image"
  120PRINTTAB(0,2)"L= Load SAVEd image"
  130PRINTTAB(0,4)"S= SAVE your design"
  140VDU5:PROCc:ENDPROC
  150:
  160DEFPROCgrid:GCOL0,1
  170FORI%=0TO768STEP24
  180IFI%MOD192=0GCOL0,3 ELSE GCOL0,1
  190MOVE0,I%:PLOT1,768,0:NEXT
  200FORI%=0TO768STEP24
  210IFI%MOD192=0GCOL0,3 ELSE GCOL0,1
  220MOVEI%,0:PLOT1,0,768:NEXT
  230GCOL0,3:PROCbox(820,748)
  240PROCbox(820,748-192):ENDPROC
  250:
  260DEFPROCbox(A,B)MOVEA,B:PLOT1,280,0
  270PLOT1,0,-160:PLOT1,-280,0
  280PLOT1,0,160:ENDPROC
  290:
  300DEFPROCkeys
  310IFINKEY-26PROCmove(-M%,0,-8,0)
  320IFINKEY-122PROCmove(M%,0,8,0)
  330IFINKEY-58PROCmove(0,M%,0,4)
  340IFINKEY-42PROCmove(0,-M%,0,-4)
  350IFINKEY-82PROCikon("S")
  360IFINKEY-87PROCikon("L")
  370IFINKEY-40PROCdraw(0)
  380IFINKEY-19PROCdraw(0)
  390IFINKEY-49PROCdraw(1)
  400IFINKEY-50PROCdraw(2)
  410IFINKEY-18PROCdraw(3)
  420ENDPROC
  430:
  440DEFPROCmove(x%,y%,a%,b%)
  450IFX%+x%<0ORX%+x%>744ENDPROC
  460IFY%+y%<24ORY%+y%>768ENDPROC
  470PROCc:X%=X%+x%:Y%=Y%+y%
  480A%=A%+a%:B%=B%+b%:PROCc:ENDPROC
  490:
  500DEFPROCdraw(c%)IFF%=1c%=c%+8
  510PROCc:GCOL0,c%:MOVEX%,Y%:PRINTB$
  520PLOT69,A%,B%:PROCc:ENDPROC
  530:
  540DEFPROCikon(W$):*FX21
  550COLOUR3:PROCc:IFW$="L"PROCload
  560screen%=&6410:mem%=&5600
  570FORJ%=0TO3:FORI%=0TO63
  580IFW$="L"screen%?I%=mem%?I%
  590IFW$="L"screen%?(I%+1920)=mem%?I%
  600IFW$="S"mem%?I%=screen%?I%
  610NEXT:mem%=mem%+64
  620screen%=screen%+320:NEXT
  630IFW$="S"PROCsave
  640IFW$="L"PROCdrawload
  650VDU7:PROCc:ENDPROC
  660:
  670DEFPROCload:LOCALX%,Y%:VDU4:*FX21
  680INPUTTAB(0,0)"LOAD "name$
  690PROCcli("LOAD "+name$+" 5600")
  700PRINTTAB(0,0)SPC17:COLOUR3
  710PRINTTAB(0,6)SPC19TAB(0,6)name$
  720VDU5:ENDPROC
  730:
  740DEFPROCdrawload:VDU5:LOCALX%,Y%
  750X%=0:Y%=768:FORJ%=732TO608STEP-4
  760FORI%=836TO1084STEP8
  770K%=POINT(I%,J%):GCOL0,K%
  780MOVEX%,Y%:PRINTB$:X%=X%+24:NEXT
  790X%=0:Y%=Y%-24:NEXT:ENDPROC
  800:
  810DEFPROCsave:LOCALX%,Y%:VDU4:*FX21
  820INPUTTAB(0,0)"SAVE "name$
  830PROCcli("SAVE "+name$+" 5600 5700")
  840PRINTTAB(0,0)SPC17:VDU5:ENDPROC
  850:
  860DEFPROCc:GCOL3,C%:MOVEX%,Y%:PRINTB$:PLOT69,A%,B%:ENDPROC
  870DEFPROCcli($&700)LOCALX%,Y%:Y%=7:CALL&FFF7:ENDPROC

� > <BasicSave$dir>.DEFINE5
� by Mike Goldberg
� (c) The Micro User
(�5:�19,3,4;0;23,1,0;0;0;0;
2�grid:�init
<��keys:�0:�
F:
P��init:B$=�224:X%=0
Z�23,224,0,96,96,96,96,96,0;
d#Y%=768:A%=836:B%=732:C%=2:M%=24
n%�4:�2:�14,20)"Old"�13,21)"Image"
x�0,2)"L= Load SAVEd image"
��0,4)"S= SAVE your design"
��5:�c:�
�:
���grid:�0,1
��I%=0�768�24
��I%�192=0�0,3 � �0,1
��0,I%:�1,768,0:�
��I%=0�768�24
��I%�192=0�0,3 � �0,1
��I%,0:�1,0,768:�
��0,3:�box(820,748)
��box(820,748-192):�
�:
��box(A,B)�A,B:�1,280,0
�1,0,-160:�1,-280,0
�1,0,160:�
":
,
��keys
6�-26�move(-M%,0,-8,0)
@�-122�move(M%,0,8,0)
J�-58�move(0,M%,0,4)
T�-42�move(0,-M%,0,-4)
^�-82�ikon("S")
h�-87�ikon("L")
r�-40�draw(0)
|�-19�draw(0)
��-49�draw(1)
��-50�draw(2)
��-18�draw(3)
��
�:
���move(x%,y%,a%,b%)
��X%+x%<0�X%+x%>744�
��Y%+y%<24�Y%+y%>768�
��c:X%=X%+x%:Y%=Y%+y%
�A%=A%+a%:B%=B%+b%:�c:�
�:
���draw(c%)�F%=1c%=c%+8
��c:�0,c%:�X%,Y%:�B$
�69,A%,B%:�c:�
:
��ikon(W$):*FX21
&�3:�c:�W$="L"�load
0screen%=&6410:mem%=&5600
:�J%=0�3:�I%=0�63
D�W$="L"screen%?I%=mem%?I%
N$�W$="L"screen%?(I%+1920)=mem%?I%
X�W$="S"mem%?I%=screen%?I%
b�:mem%=mem%+64
lscreen%=screen%+320:�
v�W$="S"�save
��W$="L"�drawload
��7:�c:�
�:
���load:�X%,Y%:�4:*FX21
��0,0)"LOAD "name$
��cli("LOAD "+name$+" 5600")
��0,0)�17:�3
��0,6)�19�0,6)name$
��5:�
�:
���drawload:�5:�X%,Y%
�X%=0:Y%=768:�J%=732�608�-4
��I%=836�1084�8
K%=�I%,J%):�0,K%
�X%,Y%:�B$:X%=X%+24:�
X%=0:Y%=Y%-24:�:�
 :
*��save:�X%,Y%:�4:*FX21
4�0,0)"SAVE "name$
>$�cli("SAVE "+name$+" 5600 5700")
H�0,0)�17:�5:�
R:
\$��c:�3,C%:�X%,Y%:�B$:�69,A%,B%:�
f$��cli($&700)�X%,Y%:Y%=7:�&FFF7:�
�
00000000  0d 00 0a 1f f4 20 3e 20  3c 42 61 73 69 63 53 61  |..... > <BasicSa|
00000010  76 65 24 64 69 72 3e 2e  44 45 46 49 4e 45 35 0d  |ve$dir>.DEFINE5.|
00000020  00 14 16 f4 20 62 79 20  4d 69 6b 65 20 47 6f 6c  |.... by Mike Gol|
00000030  64 62 65 72 67 0d 00 1e  18 f4 20 28 63 29 20 54  |dberg..... (c) T|
00000040  68 65 20 4d 69 63 72 6f  20 55 73 65 72 0d 00 28  |he Micro User..(|
00000050  1e eb 35 3a ef 31 39 2c  33 2c 34 3b 30 3b 32 33  |..5:.19,3,4;0;23|
00000060  2c 31 2c 30 3b 30 3b 30  3b 30 3b 0d 00 32 0f f2  |,1,0;0;0;0;..2..|
00000070  67 72 69 64 3a f2 69 6e  69 74 0d 00 3c 0f f5 f2  |grid:.init..<...|
00000080  6b 65 79 73 3a fd 30 3a  e0 0d 00 46 05 3a 0d 00  |keys:.0:...F.:..|
00000090  50 17 dd f2 69 6e 69 74  3a 42 24 3d bd 32 32 34  |P...init:B$=.224|
000000a0  3a 58 25 3d 30 0d 00 5a  1f ef 32 33 2c 32 32 34  |:X%=0..Z..23,224|
000000b0  2c 30 2c 39 36 2c 39 36  2c 39 36 2c 39 36 2c 39  |,0,96,96,96,96,9|
000000c0  36 2c 30 3b 0d 00 64 23  59 25 3d 37 36 38 3a 41  |6,0;..d#Y%=768:A|
000000d0  25 3d 38 33 36 3a 42 25  3d 37 33 32 3a 43 25 3d  |%=836:B%=732:C%=|
000000e0  32 3a 4d 25 3d 32 34 0d  00 6e 25 ef 34 3a fb 32  |2:M%=24..n%.4:.2|
000000f0  3a f1 8a 31 34 2c 32 30  29 22 4f 6c 64 22 8a 31  |:..14,20)"Old".1|
00000100  33 2c 32 31 29 22 49 6d  61 67 65 22 0d 00 78 1f  |3,21)"Image"..x.|
00000110  f1 8a 30 2c 32 29 22 4c  3d 20 4c 6f 61 64 20 53  |..0,2)"L= Load S|
00000120  41 56 45 64 20 69 6d 61  67 65 22 0d 00 82 1f f1  |AVEd image".....|
00000130  8a 30 2c 34 29 22 53 3d  20 53 41 56 45 20 79 6f  |.0,4)"S= SAVE yo|
00000140  75 72 20 64 65 73 69 67  6e 22 0d 00 8c 0b ef 35  |ur design".....5|
00000150  3a f2 63 3a e1 0d 00 96  05 3a 0d 00 a0 0f dd f2  |:.c:.....:......|
00000160  67 72 69 64 3a e6 30 2c  31 0d 00 aa 10 e3 49 25  |grid:.0,1.....I%|
00000170  3d 30 b8 37 36 38 88 32  34 0d 00 b4 18 e7 49 25  |=0.768.24.....I%|
00000180  83 31 39 32 3d 30 e6 30  2c 33 20 8b 20 e6 30 2c  |.192=0.0,3 . .0,|
00000190  31 0d 00 be 14 ec 30 2c  49 25 3a f0 31 2c 37 36  |1.....0,I%:.1,76|
000001a0  38 2c 30 3a ed 0d 00 c8  10 e3 49 25 3d 30 b8 37  |8,0:......I%=0.7|
000001b0  36 38 88 32 34 0d 00 d2  18 e7 49 25 83 31 39 32  |68.24.....I%.192|
000001c0  3d 30 e6 30 2c 33 20 8b  20 e6 30 2c 31 0d 00 dc  |=0.0,3 . .0,1...|
000001d0  14 ec 49 25 2c 30 3a f0  31 2c 30 2c 37 36 38 3a  |..I%,0:.1,0,768:|
000001e0  ed 0d 00 e6 16 e6 30 2c  33 3a f2 62 6f 78 28 38  |......0,3:.box(8|
000001f0  32 30 2c 37 34 38 29 0d  00 f0 17 f2 62 6f 78 28  |20,748).....box(|
00000200  38 32 30 2c 37 34 38 2d  31 39 32 29 3a e1 0d 00  |820,748-192):...|
00000210  fa 05 3a 0d 01 04 1b dd  f2 62 6f 78 28 41 2c 42  |..:......box(A,B|
00000220  29 ec 41 2c 42 3a f0 31  2c 32 38 30 2c 30 0d 01  |).A,B:.1,280,0..|
00000230  0e 17 f0 31 2c 30 2c 2d  31 36 30 3a f0 31 2c 2d  |...1,0,-160:.1,-|
00000240  32 38 30 2c 30 0d 01 18  0e f0 31 2c 30 2c 31 36  |280,0.....1,0,16|
00000250  30 3a e1 0d 01 22 05 3a  0d 01 2c 0a dd f2 6b 65  |0:...".:..,...ke|
00000260  79 73 0d 01 36 1a e7 a6  2d 32 36 f2 6d 6f 76 65  |ys..6...-26.move|
00000270  28 2d 4d 25 2c 30 2c 2d  38 2c 30 29 0d 01 40 19  |(-M%,0,-8,0)..@.|
00000280  e7 a6 2d 31 32 32 f2 6d  6f 76 65 28 4d 25 2c 30  |..-122.move(M%,0|
00000290  2c 38 2c 30 29 0d 01 4a  18 e7 a6 2d 35 38 f2 6d  |,8,0)..J...-58.m|
000002a0  6f 76 65 28 30 2c 4d 25  2c 30 2c 34 29 0d 01 54  |ove(0,M%,0,4)..T|
000002b0  1a e7 a6 2d 34 32 f2 6d  6f 76 65 28 30 2c 2d 4d  |...-42.move(0,-M|
000002c0  25 2c 30 2c 2d 34 29 0d  01 5e 13 e7 a6 2d 38 32  |%,0,-4)..^...-82|
000002d0  f2 69 6b 6f 6e 28 22 53  22 29 0d 01 68 13 e7 a6  |.ikon("S")..h...|
000002e0  2d 38 37 f2 69 6b 6f 6e  28 22 4c 22 29 0d 01 72  |-87.ikon("L")..r|
000002f0  11 e7 a6 2d 34 30 f2 64  72 61 77 28 30 29 0d 01  |...-40.draw(0)..|
00000300  7c 11 e7 a6 2d 31 39 f2  64 72 61 77 28 30 29 0d  ||...-19.draw(0).|
00000310  01 86 11 e7 a6 2d 34 39  f2 64 72 61 77 28 31 29  |.....-49.draw(1)|
00000320  0d 01 90 11 e7 a6 2d 35  30 f2 64 72 61 77 28 32  |......-50.draw(2|
00000330  29 0d 01 9a 11 e7 a6 2d  31 38 f2 64 72 61 77 28  |)......-18.draw(|
00000340  33 29 0d 01 a4 05 e1 0d  01 ae 05 3a 0d 01 b8 17  |3).........:....|
00000350  dd f2 6d 6f 76 65 28 78  25 2c 79 25 2c 61 25 2c  |..move(x%,y%,a%,|
00000360  62 25 29 0d 01 c2 17 e7  58 25 2b 78 25 3c 30 84  |b%).....X%+x%<0.|
00000370  58 25 2b 78 25 3e 37 34  34 e1 0d 01 cc 18 e7 59  |X%+x%>744......Y|
00000380  25 2b 79 25 3c 32 34 84  59 25 2b 79 25 3e 37 36  |%+y%<24.Y%+y%>76|
00000390  38 e1 0d 01 d6 18 f2 63  3a 58 25 3d 58 25 2b 78  |8......c:X%=X%+x|
000003a0  25 3a 59 25 3d 59 25 2b  79 25 0d 01 e0 1a 41 25  |%:Y%=Y%+y%....A%|
000003b0  3d 41 25 2b 61 25 3a 42  25 3d 42 25 2b 62 25 3a  |=A%+a%:B%=B%+b%:|
000003c0  f2 63 3a e1 0d 01 ea 05  3a 0d 01 f4 1a dd f2 64  |.c:.....:......d|
000003d0  72 61 77 28 63 25 29 e7  46 25 3d 31 63 25 3d 63  |raw(c%).F%=1c%=c|
000003e0  25 2b 38 0d 01 fe 17 f2  63 3a e6 30 2c 63 25 3a  |%+8.....c:.0,c%:|
000003f0  ec 58 25 2c 59 25 3a f1  42 24 0d 02 08 12 f0 36  |.X%,Y%:.B$.....6|
00000400  39 2c 41 25 2c 42 25 3a  f2 63 3a e1 0d 02 12 05  |9,A%,B%:.c:.....|
00000410  3a 0d 02 1c 14 dd f2 69  6b 6f 6e 28 57 24 29 3a  |:......ikon(W$):|
00000420  2a 46 58 32 31 0d 02 26  16 fb 33 3a f2 63 3a e7  |*FX21..&..3:.c:.|
00000430  57 24 3d 22 4c 22 f2 6c  6f 61 64 0d 02 30 1c 73  |W$="L".load..0.s|
00000440  63 72 65 65 6e 25 3d 26  36 34 31 30 3a 6d 65 6d  |creen%=&6410:mem|
00000450  25 3d 26 35 36 30 30 0d  02 3a 14 e3 4a 25 3d 30  |%=&5600..:..J%=0|
00000460  b8 33 3a e3 49 25 3d 30  b8 36 33 0d 02 44 1d e7  |.3:.I%=0.63..D..|
00000470  57 24 3d 22 4c 22 73 63  72 65 65 6e 25 3f 49 25  |W$="L"screen%?I%|
00000480  3d 6d 65 6d 25 3f 49 25  0d 02 4e 24 e7 57 24 3d  |=mem%?I%..N$.W$=|
00000490  22 4c 22 73 63 72 65 65  6e 25 3f 28 49 25 2b 31  |"L"screen%?(I%+1|
000004a0  39 32 30 29 3d 6d 65 6d  25 3f 49 25 0d 02 58 1d  |920)=mem%?I%..X.|
000004b0  e7 57 24 3d 22 53 22 6d  65 6d 25 3f 49 25 3d 73  |.W$="S"mem%?I%=s|
000004c0  63 72 65 65 6e 25 3f 49  25 0d 02 62 12 ed 3a 6d  |creen%?I%..b..:m|
000004d0  65 6d 25 3d 6d 65 6d 25  2b 36 34 0d 02 6c 19 73  |em%=mem%+64..l.s|
000004e0  63 72 65 65 6e 25 3d 73  63 72 65 65 6e 25 2b 33  |creen%=screen%+3|
000004f0  32 30 3a ed 0d 02 76 10  e7 57 24 3d 22 53 22 f2  |20:...v..W$="S".|
00000500  73 61 76 65 0d 02 80 14  e7 57 24 3d 22 4c 22 f2  |save.....W$="L".|
00000510  64 72 61 77 6c 6f 61 64  0d 02 8a 0b ef 37 3a f2  |drawload.....7:.|
00000520  63 3a e1 0d 02 94 05 3a  0d 02 9e 1a dd f2 6c 6f  |c:.....:......lo|
00000530  61 64 3a ea 58 25 2c 59  25 3a ef 34 3a 2a 46 58  |ad:.X%,Y%:.4:*FX|
00000540  32 31 0d 02 a8 16 e8 8a  30 2c 30 29 22 4c 4f 41  |21......0,0)"LOA|
00000550  44 20 22 6e 61 6d 65 24  0d 02 b2 1f f2 63 6c 69  |D "name$.....cli|
00000560  28 22 4c 4f 41 44 20 22  2b 6e 61 6d 65 24 2b 22  |("LOAD "+name$+"|
00000570  20 35 36 30 30 22 29 0d  02 bc 10 f1 8a 30 2c 30  | 5600")......0,0|
00000580  29 89 31 37 3a fb 33 0d  02 c6 17 f1 8a 30 2c 36  |).17:.3......0,6|
00000590  29 89 31 39 8a 30 2c 36  29 6e 61 6d 65 24 0d 02  |).19.0,6)name$..|
000005a0  d0 08 ef 35 3a e1 0d 02  da 05 3a 0d 02 e4 18 dd  |...5:.....:.....|
000005b0  f2 64 72 61 77 6c 6f 61  64 3a ef 35 3a ea 58 25  |.drawload:.5:.X%|
000005c0  2c 59 25 0d 02 ee 1e 58  25 3d 30 3a 59 25 3d 37  |,Y%....X%=0:Y%=7|
000005d0  36 38 3a e3 4a 25 3d 37  33 32 b8 36 30 38 88 2d  |68:.J%=732.608.-|
000005e0  34 0d 02 f8 12 e3 49 25  3d 38 33 36 b8 31 30 38  |4.....I%=836.108|
000005f0  34 88 38 0d 03 02 14 4b  25 3d b0 49 25 2c 4a 25  |4.8....K%=.I%,J%|
00000600  29 3a e6 30 2c 4b 25 0d  03 0c 19 ec 58 25 2c 59  |):.0,K%.....X%,Y|
00000610  25 3a f1 42 24 3a 58 25  3d 58 25 2b 32 34 3a ed  |%:.B$:X%=X%+24:.|
00000620  0d 03 16 15 58 25 3d 30  3a 59 25 3d 59 25 2d 32  |....X%=0:Y%=Y%-2|
00000630  34 3a ed 3a e1 0d 03 20  05 3a 0d 03 2a 1a dd f2  |4:.:... .:..*...|
00000640  73 61 76 65 3a ea 58 25  2c 59 25 3a ef 34 3a 2a  |save:.X%,Y%:.4:*|
00000650  46 58 32 31 0d 03 34 16  e8 8a 30 2c 30 29 22 53  |FX21..4...0,0)"S|
00000660  41 56 45 20 22 6e 61 6d  65 24 0d 03 3e 24 f2 63  |AVE "name$..>$.c|
00000670  6c 69 28 22 53 41 56 45  20 22 2b 6e 61 6d 65 24  |li("SAVE "+name$|
00000680  2b 22 20 35 36 30 30 20  35 37 30 30 22 29 0d 03  |+" 5600 5700")..|
00000690  48 12 f1 8a 30 2c 30 29  89 31 37 3a ef 35 3a e1  |H...0,0).17:.5:.|
000006a0  0d 03 52 05 3a 0d 03 5c  24 dd f2 63 3a e6 33 2c  |..R.:..\$..c:.3,|
000006b0  43 25 3a ec 58 25 2c 59  25 3a f1 42 24 3a f0 36  |C%:.X%,Y%:.B$:.6|
000006c0  39 2c 41 25 2c 42 25 3a  e1 0d 03 66 24 dd f2 63  |9,A%,B%:...f$..c|
000006d0  6c 69 28 24 26 37 30 30  29 ea 58 25 2c 59 25 3a  |li($&700).X%,Y%:|
000006e0  59 25 3d 37 3a d6 26 46  46 46 37 3a e1 0d ff     |Y%=7:.&FFF7:...|
000006ef
Define5.m0
Define5.m1
Define5.m2
Define5.m4
Define5.m5