Home » Personal collection » Commodore disks » disk48b_basic_scr.d64 » islesgen
islesgen
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 » disk48b_basic_scr.d64 |
| Filename: | islesgen |
| Read OK: | ✔ |
| File size: | 018C bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
10 DEFFNP(D)=PEEK(1024+Y*40+X+D):CH=160
20 FOR R=1024 TO 2040:POKER,32:NEXT
22 FOR R=55296 TO 56320:POKER,5:NEXT
25 POKE1024+40*12,CH:POKE1024+40*13,CH
30 FOR X=1 TO 38:FOR Y=0 TO 24
40 P=50:G=1
50 IF FNP(-1)=CH THEN P=2-(NOT FNP(-41)=CH)-(NOT FNP(39)=CH):G=10:GOTO 77
60 IF FNP(-41)=CH AND Y<>0 THEN P=P/30
70 IF FNP(39)=CH AND Y<>24 THEN P=P/30
77 P=P*(X/15+1)
80 FOR GS=1 TO INT(G)
90 IF INT(RND(1)*P+1)=1 THEN POKE 1024+Y*40+X,CH:GS=INT(G)
100 NEXT:NEXT:NEXT
110 GOTO 110
$ ��P(D)��(1024�Y�40�X�D):CH�160 @ � R�1024 � 2040:�R,32:� ] � R�55296 � 56320:�R,5:� �1024�40�12,CH:�1024�40�13,CH � � X�1 � 38:� Y�0 � 24 �( P�50:G�1 �2 � �P(�1)�CH � P�2�(� �P(�41)�CH)�(� �P(39)�CH):G�10:� 77 < � �P(�41)�CH � Y��0 � P�P�30 % F � �P(39)�CH � Y��24 � P�P�30 6 M P�P�(X�15�1) H P � GS�1 � �(G) w Z � �(�(1)�P�1)�1 � � 1024�Y�40�X,CH:GS��(G) � d �:�:� � n � 110
$HJ@..p(d)..(1024.y.40.x.d):ch.160@@HT@. r.1024 . 2040:.r,32:.@]HV@. r.55296 . 56320:.r,5:.@.HY@.1024.40.12,ch:.1024.40.13,ch@.H.@. x.1 . 38:. y.0 . 24@.H(@p.50:g.1@.H2@. .p(.1).ch . p.2.(. .p(.41).ch).(. .p(39).ch):g.10:. 77@DI<@. .p(.41).ch . y..0 . p.p.30@%If@. .p(39).ch . y..24 . p.p.30@6Im@p.p.(x.15.1)@hIp@. gs.1 . .(g)@WIz@. .(.(1).p.1).1 . . 1024.y.40.x,ch:gs..(g)@.ID@.:.:.@.IN@. 110@@@
00000000 24 08 0a 00 96 a5 50 28 44 29 b2 c2 28 31 30 32 |$.....P(D)..(102| 00000010 34 aa 59 ac 34 30 aa 58 aa 44 29 3a 43 48 b2 31 |4.Y.40.X.D):CH.1| 00000020 36 30 00 40 08 14 00 81 20 52 b2 31 30 32 34 20 |60.@.... R.1024 | 00000030 a4 20 32 30 34 30 3a 97 52 2c 33 32 3a 82 00 5d |. 2040:.R,32:..]| 00000040 08 16 00 81 20 52 b2 35 35 32 39 36 20 a4 20 35 |.... R.55296 . 5| 00000050 36 33 32 30 3a 97 52 2c 35 3a 82 00 7f 08 19 00 |6320:.R,5:......| 00000060 97 31 30 32 34 aa 34 30 ac 31 32 2c 43 48 3a 97 |.1024.40.12,CH:.| 00000070 31 30 32 34 aa 34 30 ac 31 33 2c 43 48 00 99 08 |1024.40.13,CH...| 00000080 1e 00 81 20 58 b2 31 20 a4 20 33 38 3a 81 20 59 |... X.1 . 38:. Y| 00000090 b2 30 20 a4 20 32 34 00 a6 08 28 00 50 b2 35 30 |.0 . 24...(.P.50| 000000a0 3a 47 b2 31 00 e3 08 32 00 8b 20 a5 50 28 ab 31 |:G.1...2.. .P(.1| 000000b0 29 b2 43 48 20 a7 20 50 b2 32 ab 28 a8 20 a5 50 |).CH . P.2.(. .P| 000000c0 28 ab 34 31 29 b2 43 48 29 ab 28 a8 20 a5 50 28 |(.41).CH).(. .P(| 000000d0 33 39 29 b2 43 48 29 3a 47 b2 31 30 3a 89 20 37 |39).CH):G.10:. 7| 000000e0 37 00 04 09 3c 00 8b 20 a5 50 28 ab 34 31 29 b2 |7...<.. .P(.41).| 000000f0 43 48 20 af 20 59 b3 b1 30 20 a7 20 50 b2 50 ad |CH . Y..0 . P.P.| 00000100 33 30 00 25 09 46 00 8b 20 a5 50 28 33 39 29 b2 |30.%.F.. .P(39).| 00000110 43 48 20 af 20 59 b3 b1 32 34 20 a7 20 50 b2 50 |CH . Y..24 . P.P| 00000120 ad 33 30 00 36 09 4d 00 50 b2 50 ac 28 58 ad 31 |.30.6.M.P.P.(X.1| 00000130 35 aa 31 29 00 48 09 50 00 81 20 47 53 b2 31 20 |5.1).H.P.. GS.1 | 00000140 a4 20 b5 28 47 29 00 77 09 5a 00 8b 20 b5 28 bb |. .(G).w.Z.. .(.| 00000150 28 31 29 ac 50 aa 31 29 b2 31 20 a7 20 97 20 31 |(1).P.1).1 . . 1| 00000160 30 32 34 aa 59 ac 34 30 aa 58 2c 43 48 3a 47 53 |024.Y.40.X,CH:GS| 00000170 b2 b5 28 47 29 00 81 09 64 00 82 3a 82 3a 82 00 |..(G)...d..:.:..| 00000180 8b 09 6e 00 89 20 31 31 30 00 00 00 |..n.. 110...| 0000018c
.