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<