Home » Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo » Griddle
Griddle
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 » Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo |
| Filename: | Griddle |
| Read OK: | ✔ |
| File size: | 012A bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo » Griddle
- AEW website » au » au_5_25_discs_Acorn_User_93_08_tau93-08.ssd » Griddle
File contents
10REM >Griddle (Info11) 20REM By Andrew Clover 30REM For all machines 40REM (c) BAU August 1993 50: 60INPUTs:m=1:MODE4:VDU23;8202;0;0;0;:FORa=1TOs:z=RND(9):FORb=0TO1280STEPz*4+4:GCOL4,1:MOVEb,0:DRAWb,1024:MOVE0,b:DRAW1280,b:NEXT:NEXT:a$="":REPEATREPEAT:g$=GET$:g=VALg$:UNTILg$=STR$g AND INSTR(a$,g$)=0:FORa=0TO1280STEPg*4+4:MOVEa,0:DRAWa,1024:MOVE0,a:DRAW1280,a:NEXT:a$=RIGHT$(a$+g$,m):UNTIL FALSE
� >Griddle (Info11) � By Andrew Clover � For all machines (� (c) BAU August 1993 2: <��s:m=1:�4:�23;8202;0;0;0;:�a=1�s:z=�(9):�b=0�1280�z*4+4:�4,1:�b,0:�b,1024:�0,b:�1280,b:�:�:a$="":��:g$=�:g=�g$:�g$=�g � �a$,g$)=0:�a=0�1280�g*4+4:�a,0:�a,1024:�0,a:�1280,a:�:a$=�a$+g$,m):� � �
00000000 0d 00 0a 1b f4 20 20 20 20 20 3e 47 72 69 64 64 |..... >Gridd| 00000010 6c 65 20 28 49 6e 66 6f 31 31 29 0d 00 14 17 f4 |le (Info11).....| 00000020 20 42 79 20 20 41 6e 64 72 65 77 20 43 6c 6f 76 | By Andrew Clov| 00000030 65 72 0d 00 1e 16 f4 20 46 6f 72 20 61 6c 6c 20 |er..... For all | 00000040 6d 61 63 68 69 6e 65 73 0d 00 28 19 f4 20 28 63 |machines..(.. (c| 00000050 29 20 42 41 55 20 41 75 67 75 73 74 20 31 39 39 |) BAU August 199| 00000060 33 0d 00 32 05 3a 0d 00 3c c2 e8 73 3a 6d 3d 31 |3..2.:..<..s:m=1| 00000070 3a eb 34 3a ef 32 33 3b 38 32 30 32 3b 30 3b 30 |:.4:.23;8202;0;0| 00000080 3b 30 3b 3a e3 61 3d 31 b8 73 3a 7a 3d b3 28 39 |;0;:.a=1.s:z=.(9| 00000090 29 3a e3 62 3d 30 b8 31 32 38 30 88 7a 2a 34 2b |):.b=0.1280.z*4+| 000000a0 34 3a e6 34 2c 31 3a ec 62 2c 30 3a df 62 2c 31 |4:.4,1:.b,0:.b,1| 000000b0 30 32 34 3a ec 30 2c 62 3a df 31 32 38 30 2c 62 |024:.0,b:.1280,b| 000000c0 3a ed 3a ed 3a 61 24 3d 22 22 3a f5 f5 3a 67 24 |:.:.:a$="":..:g$| 000000d0 3d be 3a 67 3d bb 67 24 3a fd 67 24 3d c3 67 20 |=.:g=.g$:.g$=.g | 000000e0 80 20 a7 61 24 2c 67 24 29 3d 30 3a e3 61 3d 30 |. .a$,g$)=0:.a=0| 000000f0 b8 31 32 38 30 88 67 2a 34 2b 34 3a ec 61 2c 30 |.1280.g*4+4:.a,0| 00000100 3a df 61 2c 31 30 32 34 3a ec 30 2c 61 3a df 31 |:.a,1024:.0,a:.1| 00000110 32 38 30 2c 61 3a ed 3a 61 24 3d c2 61 24 2b 67 |280,a:.:a$=.a$+g| 00000120 24 2c 6d 29 3a fd 20 a3 0d ff |$,m):. ...| 0000012a
.