Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape04b_c16_c60_computer_tape_1.wav » funny-poems
funny-poems
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: | funny-poems |
Read OK: | ✔ |
File size: | 02AC 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 STOP 240 PRINT A$(A) 250 LET B=B+1 260 LET N=(RND(1)*4+1) 270 PRINT B$(B,N) 280 IF B=3 THEN 250 290 IF B=5 THEN 250 300 GOTO 220 310 END
� A$(5) � B$(7,4) ) � I�1 � 7 7( � J�1 � 4 E2 � B$(I,J) M<