Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape04b_c16_c60_computer_tape_1.wav » limerics2
limerics2
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 tapes » Commodore_16 » drawer_br_tape04b_c16_c60_computer_tape_1.wav |
| Filename: | limerics2 |
| Read OK: | ✔ |
| File size: | 032A bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 DIM A$(5)
20 DIM B$(7,4)
30 FOR I=1 TO 7
40 FOR J=1 TO 4
50 READ B$(I,J)
60 NEXT J
70 NEXT I
80 DATA TASHKENT,TRENT,KENT,GHENT
90 DATA WRAPPED UP,COVERED,PAINTED,FASTENED
100 DATA HEAD,HAND,DOG,FOOT
110 DATA IN A TENT,WITH CEMENT,WITH SOME SCENT,THAT WAS BENT
120 DATA IT RAN OFF,IT GLOWED,IT BLEW UP,IT TURNED BLUE
130 DATA IN THE PARK,LIKE A QUARK,FOR A LARK,WITH A BARK
140 DATA WHERE IT WENT,ITS INTENT,WHY IT WENT,WHAT IT MEANT
150 FOR I=1 TO 5
160 READ A$(I)
170 NEXT I
180 DATA THERE WAS A YOUNG MAN FROM,WHO,HIS
190 DATA ONE NIGHT AFTER DARK,AND HE NEVER WORKED OUT
200 LET A=0
210 LET B=0
220 LET A=A+1
230 IF A=6 THEN END
240 PRINT A$(A);" ";
245 IF A=4 THEN PRINT"<cursor left>,":PRINT
250 LET B=B+1
260 LET N=(RND(1)*4+1)
270 PRINT B$(B,N);" ";
280 IF A=1 AND B=1 THEN PRINT"<cursor left>,":PRINT
290 IF A=3 AND B=4 THEN PRINT"<cursor left>,":PRINT
300 IF A=4 AND B=6 THEN PRINT"<cursor left>,":PRINT
305 IF A=5 AND B=7 THEN PRINT"<cursor left>.":PRINT
310 IF B=3 OR B=5 THEN GOTO 250
320 GOTO 220
330 END
� A$(5) � B$(7,4) ) � I�1 � 7 7( � J�1 � 4 E2 � B$(I,J) M<