Home » Personal collection » Acorn ADFS disks » Greaseweazled » dos34_s2312.016_compaq_user_programs.adf » Land

Land

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 » Greaseweazled » dos34_s2312.016_compaq_user_programs.adf
Filename: Land
Read OK:
File size: 02A1 bytes
Load address: FFFFFB48
Exec address: BFF6A9D9
Duplicates

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

File contents
   10xs=120:ys=120:DIMld%(xs-1,ys-1),df%(xs-1)
   20REPEAT MODE15
   30d=RND(50)-25:con=-d/10:FORx=0TOxs-1:df%(x)=d:d=d+RND(7)-4:NEXT
   40lc=RND(100)+100:FORy=0TOys-1:l=lc:lc=lc+RND(25)-13+con
   50FORx=0TOxs-1
   60ld%(x,y)=l:l=l+df%(x):df%(x)=df%(x)+RND(7)-4
   70IFdf%(x)>5ORdf%(x)<-5THENdf%(x)=0.9*df%(x)
   80NEXT:NEXT
   90PROCplot
  100REPEAT UNTIL INKEY(-99)
  110UNTIL FALSE
  120:
  130DEFPROCplot
  140FORy=ys-2TO0STEP-1:FORx=0TOxs-2
  150MOVE640+12*x-12*y,7*x+7*y+ld%(x,y)-600
  160MOVE652+12*x-12*y,7+7*x+7*y+ld%(x+1,y)-600
  170b=3-INT(ld%(x,y)/40):IFb>3THENb=3
  180IFb<0THENb=0
  190g=INT(ld%(x,y)/75):IFg>3THENg=7-g
  200IFg<0THENg=0
  210r=INT(ld%(x,y)/50)-6:IFr>3THENr=3
  220IFr<0THENr=0
  230GCOL0,r+4*g+16*b
  240PLOT85,628+12*x-12*y,7+7*x+7*y+ld%(x,y+1)-600
  250PLOT85,640+12*x-12*y,14+7*x+7*y+ld%(x+1,y+1)-600
  260NEXT,
  270ENDPROC

+xs=120:ys=120:�ld%(xs-1,ys-1),df%(xs-1)
	� �15
8d=�(50)-25:con=-d/10:�x=0�xs-1:df%(x)=d:d=d+�(7)-4:�
(3lc=�(100)+100:�y=0�ys-1:l=lc:lc=lc+�(25)-13+con
2
�x=0�xs-1
<.ld%(x,y)=l:l=l+df%(x):df%(x)=df%(x)+�(7)-4
F)�df%(x)>5�df%(x)<-5�df%(x)=0.9*df%(x)
P�:�
Z	�plot
d� � �(-99)
n� �
x:
�
��plot
��y=ys-2�0�-1:�x=0�xs-2
�'�640+12*x-12*y,7*x+7*y+ld%(x,y)-600
�+�652+12*x-12*y,7+7*x+7*y+ld%(x+1,y)-600
�b=3-�(ld%(x,y)/40):�b>3�b=3
��b<0�b=0
�g=�(ld%(x,y)/75):�g>3�g=7-g
��g<0�g=0
�r=�(ld%(x,y)/50)-6:�r>3�r=3
��r<0�r=0
��0,r+4*g+16*b
�.�85,628+12*x-12*y,7+7*x+7*y+ld%(x,y+1)-600
�1�85,640+12*x-12*y,14+7*x+7*y+ld%(x+1,y+1)-600
�,
�
�
00000000  0d 00 0a 2b 78 73 3d 31  32 30 3a 79 73 3d 31 32  |...+xs=120:ys=12|
00000010  30 3a de 6c 64 25 28 78  73 2d 31 2c 79 73 2d 31  |0:.ld%(xs-1,ys-1|
00000020  29 2c 64 66 25 28 78 73  2d 31 29 0d 00 14 09 f5  |),df%(xs-1).....|
00000030  20 eb 31 35 0d 00 1e 38  64 3d b3 28 35 30 29 2d  | .15...8d=.(50)-|
00000040  32 35 3a 63 6f 6e 3d 2d  64 2f 31 30 3a e3 78 3d  |25:con=-d/10:.x=|
00000050  30 b8 78 73 2d 31 3a 64  66 25 28 78 29 3d 64 3a  |0.xs-1:df%(x)=d:|
00000060  64 3d 64 2b b3 28 37 29  2d 34 3a ed 0d 00 28 33  |d=d+.(7)-4:...(3|
00000070  6c 63 3d b3 28 31 30 30  29 2b 31 30 30 3a e3 79  |lc=.(100)+100:.y|
00000080  3d 30 b8 79 73 2d 31 3a  6c 3d 6c 63 3a 6c 63 3d  |=0.ys-1:l=lc:lc=|
00000090  6c 63 2b b3 28 32 35 29  2d 31 33 2b 63 6f 6e 0d  |lc+.(25)-13+con.|
000000a0  00 32 0d e3 78 3d 30 b8  78 73 2d 31 0d 00 3c 2e  |.2..x=0.xs-1..<.|
000000b0  6c 64 25 28 78 2c 79 29  3d 6c 3a 6c 3d 6c 2b 64  |ld%(x,y)=l:l=l+d|
000000c0  66 25 28 78 29 3a 64 66  25 28 78 29 3d 64 66 25  |f%(x):df%(x)=df%|
000000d0  28 78 29 2b b3 28 37 29  2d 34 0d 00 46 29 e7 64  |(x)+.(7)-4..F).d|
000000e0  66 25 28 78 29 3e 35 84  64 66 25 28 78 29 3c 2d  |f%(x)>5.df%(x)<-|
000000f0  35 8c 64 66 25 28 78 29  3d 30 2e 39 2a 64 66 25  |5.df%(x)=0.9*df%|
00000100  28 78 29 0d 00 50 07 ed  3a ed 0d 00 5a 09 f2 70  |(x)..P..:...Z..p|
00000110  6c 6f 74 0d 00 64 0e f5  20 fd 20 a6 28 2d 39 39  |lot..d.. . .(-99|
00000120  29 0d 00 6e 07 fd 20 a3  0d 00 78 05 3a 0d 00 82  |)..n.. ...x.:...|
00000130  0a dd f2 70 6c 6f 74 0d  00 8c 1a e3 79 3d 79 73  |...plot.....y=ys|
00000140  2d 32 b8 30 88 2d 31 3a  e3 78 3d 30 b8 78 73 2d  |-2.0.-1:.x=0.xs-|
00000150  32 0d 00 96 27 ec 36 34  30 2b 31 32 2a 78 2d 31  |2...'.640+12*x-1|
00000160  32 2a 79 2c 37 2a 78 2b  37 2a 79 2b 6c 64 25 28  |2*y,7*x+7*y+ld%(|
00000170  78 2c 79 29 2d 36 30 30  0d 00 a0 2b ec 36 35 32  |x,y)-600...+.652|
00000180  2b 31 32 2a 78 2d 31 32  2a 79 2c 37 2b 37 2a 78  |+12*x-12*y,7+7*x|
00000190  2b 37 2a 79 2b 6c 64 25  28 78 2b 31 2c 79 29 2d  |+7*y+ld%(x+1,y)-|
000001a0  36 30 30 0d 00 aa 1f 62  3d 33 2d a8 28 6c 64 25  |600....b=3-.(ld%|
000001b0  28 78 2c 79 29 2f 34 30  29 3a e7 62 3e 33 8c 62  |(x,y)/40):.b>3.b|
000001c0  3d 33 0d 00 b4 0c e7 62  3c 30 8c 62 3d 30 0d 00  |=3.....b<0.b=0..|
000001d0  be 1f 67 3d a8 28 6c 64  25 28 78 2c 79 29 2f 37  |..g=.(ld%(x,y)/7|
000001e0  35 29 3a e7 67 3e 33 8c  67 3d 37 2d 67 0d 00 c8  |5):.g>3.g=7-g...|
000001f0  0c e7 67 3c 30 8c 67 3d  30 0d 00 d2 1f 72 3d a8  |..g<0.g=0....r=.|
00000200  28 6c 64 25 28 78 2c 79  29 2f 35 30 29 2d 36 3a  |(ld%(x,y)/50)-6:|
00000210  e7 72 3e 33 8c 72 3d 33  0d 00 dc 0c e7 72 3c 30  |.r>3.r=3.....r<0|
00000220  8c 72 3d 30 0d 00 e6 11  e6 30 2c 72 2b 34 2a 67  |.r=0.....0,r+4*g|
00000230  2b 31 36 2a 62 0d 00 f0  2e f0 38 35 2c 36 32 38  |+16*b.....85,628|
00000240  2b 31 32 2a 78 2d 31 32  2a 79 2c 37 2b 37 2a 78  |+12*x-12*y,7+7*x|
00000250  2b 37 2a 79 2b 6c 64 25  28 78 2c 79 2b 31 29 2d  |+7*y+ld%(x,y+1)-|
00000260  36 30 30 0d 00 fa 31 f0  38 35 2c 36 34 30 2b 31  |600...1.85,640+1|
00000270  32 2a 78 2d 31 32 2a 79  2c 31 34 2b 37 2a 78 2b  |2*x-12*y,14+7*x+|
00000280  37 2a 79 2b 6c 64 25 28  78 2b 31 2c 79 2b 31 29  |7*y+ld%(x+1,y+1)|
00000290  2d 36 30 30 0d 01 04 06  ed 2c 0d 01 0e 05 e1 0d  |-600.....,......|
000002a0  ff                                                |.|
000002a1
Land.m0
Land.m1
Land.m2
Land.m4
Land.m5