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 � 77(� J�1 � 4E2� B$(I,J)M<� JUF� IuP� TASHKENT,TRENT,KENT,GHENT�Z� WRAPPED UP,COVERED,PAINTED,FASTENED�d� HEAD,HAND,DOG,FOOT�n� IN A TENT,WITH CEMENT,WITH SOME SCENT,THAT WAS BENT'x� IT RAN OFF,IT GLOWED,IT BLEW UP,IT TURNED BLUE]�� IN THE PARK,LIKE A QUARK,FOR A LARK,WITH A BARK��� WHERE IT WENT,ITS INTENT,WHY IT WENT,WHAT IT MEANT��� I�1 � 5��� A$(I)��� I��� THERE WAS A YOUNG MAN FROM,WHO,HIS�� ONE NIGHT AFTER DARK,AND HE NEVER WORKED OUT�� A�0(�� B�04�� A�A�1B�� A�6 � �N�� A$(A)Z�� B�B�1m� N�(�(1)�4�1){� B$(B,N)�� B�3 � 250�"� B�5 � 250�,� 220�6�
MPJ@. a$(5)@[PT@. b$(7,4)@)P.@. i.1 . 7@7P(@. j.1 . 4@eP2@. b$(i,j)@mP<@. j@uPf@. i@UPp@. tashkent,trent,kent,ghent@.Pz@. wrapped up,covered,painted,fastened@.PD@. head,hand,dog,foot@.PN@. in a tent,with cement,with some scent,that was bent@'QX@. it ran off,it glowed,it blew up,it turned blue@]Q.@. in the park,like a quark,for a lark,with a bark@.Q.@. where it went,its intent,why it went,what it meant@.Q.@. i.1 . 5@.Q.@. a$(i)@.Q.@. i@.Q.@. there was a young man from,who,his@TR.@. one night after dark,and he never worked out@.R.@. a.0@(R.@. b.0@4R.@. a.a.1@bR.@. a.6 . .@nR.@. a$(a)@zR.@. b.b.1@MRDA. n.(.(1).4.1)@.RNA. b$(b,n)@.RXA. b.3 . 250@.R"A. b.5 . 250@.R,A. 220@.R6A.@@@
00000000  0d 10 0a 00 86 20 41 24  28 35 29 00 1b 10 14 00  |..... A$(5).....|
00000010  86 20 42 24 28 37 2c 34  29 00 29 10 1e 00 81 20  |. B$(7,4).).... |
00000020  49 b2 31 20 a4 20 37 00  37 10 28 00 81 20 4a b2  |I.1 . 7.7.(.. J.|
00000030  31 20 a4 20 34 00 45 10  32 00 87 20 42 24 28 49  |1 . 4.E.2.. B$(I|
00000040  2c 4a 29 00 4d 10 3c 00  82 20 4a 00 55 10 46 00  |,J).M.<.. J.U.F.|
00000050  82 20 49 00 75 10 50 00  83 20 54 41 53 48 4b 45  |. I.u.P.. TASHKE|
00000060  4e 54 2c 54 52 45 4e 54  2c 4b 45 4e 54 2c 47 48  |NT,TRENT,KENT,GH|
00000070  45 4e 54 00 9f 10 5a 00  83 20 57 52 41 50 50 45  |ENT...Z.. WRAPPE|
00000080  44 20 55 50 2c 43 4f 56  45 52 45 44 2c 50 41 49  |D UP,COVERED,PAI|
00000090  4e 54 45 44 2c 46 41 53  54 45 4e 45 44 00 b8 10  |NTED,FASTENED...|
000000a0  64 00 83 20 48 45 41 44  2c 48 41 4e 44 2c 44 4f  |d.. HEAD,HAND,DO|
000000b0  47 2c 46 4f 4f 54 00 f2  10 6e 00 83 20 49 4e 20  |G,FOOT...n.. IN |
000000c0  41 20 54 45 4e 54 2c 57  49 54 48 20 43 45 4d 45  |A TENT,WITH CEME|
000000d0  4e 54 2c 57 49 54 48 20  53 4f 4d 45 20 53 43 45  |NT,WITH SOME SCE|
000000e0  4e 54 2c 54 48 41 54 20  57 41 53 20 42 45 4e 54  |NT,THAT WAS BENT|
000000f0  00 27 11 78 00 83 20 49  54 20 52 41 4e 20 4f 46  |.'.x.. IT RAN OF|
00000100  46 2c 49 54 20 47 4c 4f  57 45 44 2c 49 54 20 42  |F,IT GLOWED,IT B|
00000110  4c 45 57 20 55 50 2c 49  54 20 54 55 52 4e 45 44  |LEW UP,IT TURNED|
00000120  20 42 4c 55 45 00 5d 11  82 00 83 20 49 4e 20 54  | BLUE.].... IN T|
00000130  48 45 20 50 41 52 4b 2c  4c 49 4b 45 20 41 20 51  |HE PARK,LIKE A Q|
00000140  55 41 52 4b 2c 46 4f 52  20 41 20 4c 41 52 4b 2c  |UARK,FOR A LARK,|
00000150  57 49 54 48 20 41 20 42  41 52 4b 00 96 11 8c 00  |WITH A BARK.....|
00000160  83 20 57 48 45 52 45 20  49 54 20 57 45 4e 54 2c  |. WHERE IT WENT,|
00000170  49 54 53 20 49 4e 54 45  4e 54 2c 57 48 59 20 49  |ITS INTENT,WHY I|
00000180  54 20 57 45 4e 54 2c 57  48 41 54 20 49 54 20 4d  |T WENT,WHAT IT M|
00000190  45 41 4e 54 00 a4 11 96  00 81 20 49 b2 31 20 a4  |EANT...... I.1 .|
000001a0  20 35 00 b0 11 a0 00 87  20 41 24 28 49 29 00 b8  | 5...... A$(I)..|
000001b0  11 aa 00 82 20 49 00 e1  11 b4 00 83 20 54 48 45  |.... I...... THE|
000001c0  52 45 20 57 41 53 20 41  20 59 4f 55 4e 47 20 4d  |RE WAS A YOUNG M|
000001d0  41 4e 20 46 52 4f 4d 2c  57 48 4f 2c 48 49 53 00  |AN FROM,WHO,HIS.|
000001e0  14 12 be 00 83 20 4f 4e  45 20 4e 49 47 48 54 20  |..... ONE NIGHT |
000001f0  41 46 54 45 52 20 44 41  52 4b 2c 41 4e 44 20 48  |AFTER DARK,AND H|
00000200  45 20 4e 45 56 45 52 20  57 4f 52 4b 45 44 20 4f  |E NEVER WORKED O|
00000210  55 54 00 1e 12 c8 00 88  20 41 b2 30 00 28 12 d2  |UT...... A.0.(..|
00000220  00 88 20 42 b2 30 00 34  12 dc 00 88 20 41 b2 41  |.. B.0.4.... A.A|
00000230  aa 31 00 42 12 e6 00 8b  20 41 b2 36 20 a7 20 90  |.1.B.... A.6 . .|
00000240  00 4e 12 f0 00 99 20 41  24 28 41 29 00 5a 12 fa  |.N.... A$(A).Z..|
00000250  00 88 20 42 b2 42 aa 31  00 6d 12 04 01 88 20 4e  |.. B.B.1.m.... N|
00000260  b2 28 bb 28 31 29 ac 34  aa 31 29 00 7b 12 0e 01  |.(.(1).4.1).{...|
00000270  99 20 42 24 28 42 2c 4e  29 00 8b 12 18 01 8b 20  |. B$(B,N)...... |
00000280  42 b2 33 20 a7 20 32 35  30 00 9b 12 22 01 8b 20  |B.3 . 250...".. |
00000290  42 b2 35 20 a7 20 32 35  30 00 a5 12 2c 01 89 20  |B.5 . 250...,.. |
000002a0  32 32 30 00 ab 12 36 01  80 00 00 00              |220...6.....|
000002ac