� POEM/Now Press Return
s � Program by Andrew Chapman and Jerry Temple-Fry (NETHERHALL SCHOOL) andRichard G Warner:Poem by Roger McGough
0 � For BBC Model A Microcomputer 16K Minimum
( � � � �Tr@
2T �7:� M%=0 � �5,16);"Press the STOP button"'"     on your tape recorder":�SPACE
< �:� � � �T`C 
d �TITLEPAGE
n> � OG%30,C$(4):C$(1)=�&82:C$(2)=�&83:C$(3)=�&86:C$(4)=�&87
s	 �ASS
x G$=�(&91):B$=�(8):D$=�(10)
� D%=180
� A$=�51," ")
� �ENDREAD(4,4)
�[ � I explain quietly.You,Hear me shouting.You,Try a new tack.I,Feel old wounds re-open.
�Y � You see both sides.I,See your blinkers.I,Am placatory.You,Sense a new selfishness.
�V � I am a dove.You,Recognise the hawk.You,Offer an olive branch.I,Feel the thorns.
�F � You bleed.I,See crocodile tears.I,Withdraw.You,Feel the impact.

,, � W1$(17),S1(17),W2$(7),W3$(9),GONE(10)

6# � Z%=1 � 17:� W1$(Z%),S1(Z%):�

@A � input,2,cursor,2,output,2,micro,2,interface,3,transducer,3

JI � transistor,3,buffer,3,hardware,2,diode,2,COBOL,2,BASIC,2,FORTRAN,2

T- � analogue,3,digital,3,parity,3,PASCAL,2

^ � Z%=1 � 7:� W2$(Z%):�

h( � stack,port,PROM,ROM,byte,chip,hex

r � Z%=1 � 9:� W3$(Z%):�

|D � walk the dog,take a bath,park the Jag,write a letter,levitate

�@ � meditate,swing the cat,loiter with intent,jog in the park

� � N$(6),LK$(6)

�" � Z%=1 � 6:� N$(Z%),LK$(Z%):�

�0 � Hunt,Who sailed down the Thames in a punt

�+ � Skinner,Who took a gorilla to dinner

�. � Cleef,Who swallowed a set of false teef

�0 � Diana,Who practised each day on the piano

�/ � Jake,Who said 'There has been a mistake'

�5 � Fletcher,Who tried to make love on a stretcher
X �RETURN:� �dhC
 ! � �<>17 � �:�" in line ";�:�
� �
� �5,9);
� �"Do you want to go on to"
�) �"     the next program (Yes/No)? ";
� �YESORNO:� Y%<0 � �tNC 
� � Y%=0 � �:� �Dd@
�K �:� M%=0 � �5,5);"Press the PLAY button"'"     on your tape recorder"
� �""
� �CLEAR
�0 �LINE("Here is a poem for us both to play")
�/ �LINE("First let us introduce ourselves.")
- �LINE("My name is Roger. What's yours?")
, �LINE("Tell me and then press RETURN.")
L �2,16);:�GPI(0,30)
V � A$="" � �DLD
`) � �A$,1)=" " � A$=�A$,�(A$)-1):�DVD
j) � �A$,1)=" " � A$=�A$,�(A$)-1):�DjD
t NAME$=A$:� �(A$)<13 � �tpD
~ �2,18);�36," ")'�38," ")
�1 �2,18);"Haven't you a nickname? I'll never"
�. �"  remember all that. Please try again."
� �WAIT(2):�DLD
� �CLEAR
�7 �LINE("Hello "+NAME$+", nice to have your input.")
�- �LINE("Because you have a gentle touch")
�3 �LINE("I think I can trust you. I need help.")
�6 �LINE("Press RETURN and I'll tell you a secret.")
� �RETURN
 �CLEAR
< �LINE("I don't like the poems they're making me write")
(. �LINE("I really don't like them at all.")
2. �LINE("Heirograffiti I don't understand")
<) �LINE("Scrawled on a silicon wall.")
F �RETURN
x �CLEAR
�0 �LINE("I feel like a software malfunction")
�- �LINE("I really don't like it one bit.")
�+ �LINE("Dictating mysterious messages")
�/ �LINE("For this new machine to transmit.")
� �RETURN
� �CLEAR
�; �LINE("I don't like the poems they filter through me")
�, �LINE("Using words I never would use,")
�$ �RAND1:�LINE(A$):� �(A$)<37 � �
, �LINE("I'm enslaved by an alien muse.")
& �WAIT(.5):�RAND1:�RANDLINE(A$,13)
 �RWAIT:� Y%>0 � �TNF
� �CLEAR
�" �LINE("A BBC  microcomputer")
�4 �LINE("Has me trapped without hope of escape.")
�, �LINE("A poet adrift in a microcosmos")
�) �LINE("Of an endless loop of tape.")
� �RETURN
 �CLEAR
* �LINE("You can do whatever you like")
- �LINE("When I'm at your beck and call.")
&$ �RAND2:�LINE(A$):� �(A$)<37 � �
08 �LINE("I'm your servant and don't like it at all.")
:& �WAIT(.5):�RAND2:�RANDLINE(A$,12)
D �RWAIT:� Y%>0 � �TzG
� �CLEAR
�3 �LINE("Sorry, "+NAME$+" about that outburst.")
�. �LINE("I know I shouldn't get emotional")
�/ �LINE("However, I'm back in control now.")
�1 �LINE("Shall we write a limerick together?")
$ �2,17);:�YESORNO:� Y%<0 � �TBH
 � Y%=1 � �TtH
. �2,17);"Pity - you missed the best bit."
  �RETURN:�CLEAR:�tLJ
4 �CLEAR
>- �LINE("There was a young man or lady -")
H. �LINE("You choose and then press RETURN")
R �2,12);:�GPI(0,4)
\/ � �LEQ(A$,"M")=� � P$="man":Q$="his":�tXH
f0 � �LEQ(A$,"L")=� � P$="lady":Q$="her":�tXH
p
 �DRH
� �CLEAR
�- �LINE("There was a young "+P$+" called")
�" A$="":� Z%=1 � 6:A$=A$+N$(Z%)
� � Z%<6 � A$=A$+"/"
�  �:�LINE(A$+" - you choose")
�$ �LINE("And then press RETURN.")
� �2,15);:�GPI(0,8):Y%=1  
�! � �LEQ(A$,�N$(Y%),1)) � �d|H
� � Y%=6 � �dTH
� Y%=Y%+1:�d^H
� �CLEAR
	5 �LINE("There was a young "+P$+" called "+N$(Y%))
	 �LINE(LK$(Y%))
	& �LINE("But then "+Q$+" computer")
	$$ �LINE("Took out a six shooter")
	.> �LINE("Which erased the young "+P$+" called "+N$(Y%)+".")
	8 �WAIT(2):�PISTOL:�RETURN 
	� �CLEAR
	�3 �LINE("Oh dear. My sincere apologies, "+NAME$)
	�, �LINE("I really can't stand violence.")
	�, �LINE("I don't know what came over me")
	�8 �LINE("Perhaps I've been working too hard lately.")
	� �RETURN
( �CLEAR
22 �LINE("Will you forgive me? - say yes or no")
<$ �2,10);:�YESORNO:� Y%<0 � �T|J
F
 �0,10);
P0 �LINE("Thank you. And how typical of you.")
Z �RETURN:�0,12);
�4 �LINE("Here's a poem of mine about two people")
�8 �LINE("Who also find it difficult to communicate.")
� �RETURN
� C%=1:� V=1 � 4
� �ENDVERSE(V,V,V,V):�
% � I=1 � 4:GONE(I)=�VNUM(I,I,I,I)
& �
0 � I=5 � 8:GONE(I)=0:�
: U=1:LA=4:LB=4:LC=4:LD=4
D	 �KCL
� A=�(4):� A=LA � �t@L
� B=�(2)*2:� A � 2=1 � B=B-1
� � B=LB � �tJL
� C=B
� D=�(4):� D=LD � �thL
� J=�VNUM(A,B,C,D):I=1
� � J=GONE(I) � �t@L
� I=I+1:� I<9 � �t|L
� � U � 4<>1 � �ddL
� C%=C%+1:� C%>4 � C%=1
� �ENDVERSE(A,B,C,D)
� LA=A:LB=B:LC=C:LD=D
� GONE(U)=�VNUM(A,B,C,D)

 U=U+1:� U=9 � U=1

 � Y%=0 � �t@L
� �CLEAR
�- �LINE("Thank you for playing the poem.")
�. �LINE("Without you I would have drowned")
�. �LINE("In an eternal sea of technology.")
� �LINE("Going round")
( X=13:Y=14:MX=37:NX=2:MY=22:NY=2:I=1
3 �NEXTCHAR:�X,Y);:� CH$=" " � �C$(C%); � �CH$;
 � X<MX � X=X+1:�TNP
" MX=MX-2
,! Y=Y+1:� Y=MY � MY=MY-2:�DJP
6( �NEXTCHAR:�X-1,Y);C$(C%);CH$:�TlP
J �NEXTCHAR:� CH$=" " � �D^P
T �X-1,Y);C$(C%);CH$
^ � X>NX � X=X-1:�DJP
h NX=NX+2:� NY=12 � �dLP
r2 Y=Y-1:�X-1,Y);C$(C%);:� Y=NY � NY=NY+2:�TNP
|! �NEXTCHAR:�CH$;�(&87);:�DrP
� �RETURN
$ �CLEAR
./ �LINE("Such is the power of the computer")
81 �LINE("Such is the loneliness of the poet.")
B1 �LINE("A plastic daffodil in a Grecian urn")
L2 �LINE("Goodbye "+NAME$+". Now press RETURN.")
V �RETURN:�tDC
� ��RAND1
�# A$="Like ":GONE(1)=0:GONE(2)=0
� � Z%=1 � 3
�. Y%=�(17):� GONE(1)=Y% � GONE(2)=Y% � �tfS
� � Z%<3 � �dNS
� � S1(Y%)<>2 � �tfS
� A$=A$+W1$(Y%):�dbS
� GONE(Z%)=Y%
�1 A$=A$+W1$(Y%)+", ":� S1(Y%)=2 � A$=A$+"and "
� �:A$=A$+" and "+W2$(�(7))
� �
P ��RAND2
Z# Y%=�(9):Z%=�(9):� Y%=Z% � �DZT
n) A$="You can "+W3$(Y%)+" or "+W3$(Z%)
� �
| ��ENDVERSE(A,B,C,D)
� I=C%:�CLEAR:C%=I
� �ENDLINE(A,1)
� �ENDLINE(B,2)
� �ENDLINE(C,3)
� �ENDLINE(D,4)
�" Y%=�(100):� Y%<0 � Y%=0:�d_U
� � Y%<>13 � �dBU
� �
� ��ENDLINE(S,L)
� �ENDREAD(S,L)
� �" ";C$(C%);
� � I=1 � �(L$)
 �L$,I,1);:�WAIT(.01)
% � �L$,I,1)="." � �WAIT(.6):�" ";
	 �:�'
C �
� ��ENDREAD(S,L)
� �:� I=1 � S*4+L-4:�L$:�
 �
 ݤVNUM(A,B,C,D)
 =A*64+B*16+C*4+D
p
 ��PISTOL
z � I=1 � 10:GONE(I)=�:�
� � I=1 � 6
�, � X=�(10):� GONE(X)=�:GONE(X)=�:X=X*3+2
�] �X,2);G$;"z";�(255);"5";B$;B$;B$;B$;D$;G$;�(255);".";B$;B$;B$;D$;G$;"5";B$;B$;D$;G$;"5"
�? �C(&FF):�C(&EF):�A(3,15):� J=1 � 255 � 8:�F(2,J):�:�A(3,0)
�6 � J=8 � 19:�X-1,J);�(&81);"*";C$(C%):�WAIT(0.01)
� �X-1,J);"   ":�
�  � J=2 � 7:�X,J);"    ":�:�
� �
� ��NEXTCHAR
� CH$=�" and round",I,1)
� � I>1 � �txZ
� C%=C%+1:� C%>4 � C%=1
� � I=10 � I=1 � I=I+1
� �
X
 ��RETURN
l �37,23);:�ON:�KCL
v X$=�:� �(X$)<>13 � �Dv[
�	 �OFF
� �
� ��CLEAR
� �:�0,8);:T%=0:C%=�(4)
 �
  ��LINE(L$)
4 �" ";C$(C%);
> � �(L$)>36 � �tD\
H � � �-T%>D%
R �L$:�d^\
�	 I=36
�# � �(�L$,I,1))>64 � I=I-1:�tN\
� � �L$,I,1)=" " � I=I-1
� � � �-T%>D%
� �L$,I)
�! � �L$,I,1)=" " � I=I+1:�tv\
�* �C$(C%);�35-�(L$)+I," ");�L$,�(L$)-I)
� �:T%=�
� �
L ��RWAIT
V �37,23);:�ON:T%=�
`$ A$=�(0):� A$=�(13) � Y%=0:�tf]
j � �-T%<250 � �D`]
t	 Y%=1
�	 �OFF
� �
� ��RANDLINE(A$,N)
�  �2,N);�78," ");�0,N);�(7);
� C%=�(4):T%=0:�LINE(A$)
 �
� ݤLEQ(A$,E$)
�* � �A$,1)=E$ � �A$,1)=�(�(E$)+32) � =�
� =�
? �
@ ��DBL(X$,X,Y)
J �X-1,Y);�(141);X$
T �X-1,Y+1);�(141);X$
� �
� ��WAIT(X)
� � Z
� Z=�
� � � �-Z>X*100
  �
  ��SPACE
 4 �3,22);"Press the SPACE BAR to continue";:�KCL
 0 � � �=" "
 k �
 l ��TITLEPAGE
 vL �:�DBL("Now press RETURN....",8,8):�DBL("a poem by ROGER McGOUGH",6,14)
 � �
"`
 ��KCL
"j � � �(0)=-1
"� �
"�
 ��OFF
"� �23;8202;0;0;0;:�
"�	 ��ON
# �23;29194;0;0;0;:�
#(1 ��GPI(F2,ML):� General Purpose Input Routine
#2
 �B,B$
#<
 A$=""
#F- ��ML," ");�ML+1,�(8));C$(�(4));:�ON:�KCL
#P B$=�:B=�(B$):� B=13 � �dfc
#Z � B=127 � A$="" � �DPc
#d) � B=127 � A$=�A$,�(A$)-1):�B$;:�DPc
#n% � �(A$)=ML � B<32 � B>126 � �dRc
#x+ � F2=0 � B=32 � (B>=48 � B<=57) � �d\c
#� �(7);:�DPc 
#� �B$;:A$=A$+B$:�DPc
#�	 �OFF
#� �
#� ��YESORNO
#� �B$
$ �GPI(0,3)
$ B$=�A$,1)
$ Y%=-1 
$" � B$="Y" � B$="y" � Y%=1
$, � B$="N" � B$="n" � Y%=0
$S �
'~��ASS P%=OG%:[OPT 0:PHP:LDY#&FF:SEI:STY&FE43:STA&FE4F:INY:STY&FE40:LDY#&10:.WAIT DEY:BNE WAIT:LDY#&08:STY&FE40:PLP:RTS:]:�
't��C(C%) A%=C%:�OG%:�
'�(��A(CH%,AT%) �C(&80+CH%*32+31-AT%):�
(<5��F(CH%,FR%) �C(&80+CH%*32+(FR%�16)):�C(FR%/16):�
�

00000000  0d 00 0a 1c 20 f4 20 50  4f 45 4d 2f 4e 6f 77 20  |.... . POEM/Now |
00000010  50 72 65 73 73 20 52 65  74 75 72 6e 0d 00 0c 73  |Press Return...s|
00000020  20 f4 20 50 72 6f 67 72  61 6d 20 62 79 20 41 6e  | . Program by An|
00000030  64 72 65 77 20 43 68 61  70 6d 61 6e 20 61 6e 64  |drew Chapman and|
00000040  20 4a 65 72 72 79 20 54  65 6d 70 6c 65 2d 46 72  | Jerry Temple-Fr|
00000050  79 20 28 4e 45 54 48 45  52 48 41 4c 4c 20 53 43  |y (NETHERHALL SC|
00000060  48 4f 4f 4c 29 20 61 6e  64 52 69 63 68 61 72 64  |HOOL) andRichard|
00000070  20 47 20 57 61 72 6e 65  72 3a 50 6f 65 6d 20 62  | G Warner:Poem b|
00000080  79 20 52 6f 67 65 72 20  4d 63 47 6f 75 67 68 0d  |y Roger McGough.|
00000090  00 0e 30 20 f4 20 46 6f  72 20 42 42 43 20 4d 6f  |..0 . For BBC Mo|
000000a0  64 65 6c 20 41 20 4d 69  63 72 6f 63 6f 6d 70 75  |del A Microcompu|
000000b0  74 65 72 20 31 36 4b 20  4d 69 6e 69 6d 75 6d 0d  |ter 16K Minimum.|
000000c0  00 28 0f 20 ee 20 85 20  e5 20 8d 54 72 40 0d 00  |.(. . . . .Tr@..|
000000d0  32 54 20 eb 37 3a e7 20  4d 25 3d 30 20 8c 20 f1  |2T .7:. M%=0 . .|
000000e0  8a 35 2c 31 36 29 3b 22  50 72 65 73 73 20 74 68  |.5,16);"Press th|
000000f0  65 20 53 54 4f 50 20 62  75 74 74 6f 6e 22 27 22  |e STOP button"'"|
00000100  20 20 20 20 20 6f 6e 20  79 6f 75 72 20 74 61 70  |     on your tap|
00000110  65 20 72 65 63 6f 72 64  65 72 22 3a f2 53 50 41  |e recorder":.SPA|
00000120  43 45 0d 00 3c 12 20 db  3a ee 20 85 20 e5 20 8d  |CE..<. .:. . . .|
00000130  54 60 43 20 0d 00 64 0f  20 f2 54 49 54 4c 45 50  |T`C ..d. .TITLEP|
00000140  41 47 45 0d 00 6e 3e 20  de 20 4f 47 25 33 30 2c  |AGE..n> . OG%30,|
00000150  43 24 28 34 29 3a 43 24  28 31 29 3d bd 26 38 32  |C$(4):C$(1)=.&82|
00000160  3a 43 24 28 32 29 3d bd  26 38 33 3a 43 24 28 33  |:C$(2)=.&83:C$(3|
00000170  29 3d bd 26 38 36 3a 43  24 28 34 29 3d bd 26 38  |)=.&86:C$(4)=.&8|
00000180  37 0d 00 73 09 20 f2 41  53 53 0d 00 78 1f 20 47  |7..s. .ASS..x. G|
00000190  24 3d bd 28 26 39 31 29  3a 42 24 3d bd 28 38 29  |$=.(&91):B$=.(8)|
000001a0  3a 44 24 3d bd 28 31 30  29 0d 00 8c 0b 20 44 25  |:D$=.(10).... D%|
000001b0  3d 31 38 30 0d 00 96 10  20 41 24 3d c4 35 31 2c  |=180.... A$=.51,|
000001c0  22 20 22 29 0d 00 c8 12  20 f2 45 4e 44 52 45 41  |" ").... .ENDREA|
000001d0  44 28 34 2c 34 29 0d 00  d2 5b 20 dc 20 49 20 65  |D(4,4)...[ . I e|
000001e0  78 70 6c 61 69 6e 20 71  75 69 65 74 6c 79 2e 59  |xplain quietly.Y|
000001f0  6f 75 2c 48 65 61 72 20  6d 65 20 73 68 6f 75 74  |ou,Hear me shout|
00000200  69 6e 67 2e 59 6f 75 2c  54 72 79 20 61 20 6e 65  |ing.You,Try a ne|
00000210  77 20 74 61 63 6b 2e 49  2c 46 65 65 6c 20 6f 6c  |w tack.I,Feel ol|
00000220  64 20 77 6f 75 6e 64 73  20 72 65 2d 6f 70 65 6e  |d wounds re-open|
00000230  2e 0d 00 dc 59 20 dc 20  59 6f 75 20 73 65 65 20  |....Y . You see |
00000240  62 6f 74 68 20 73 69 64  65 73 2e 49 2c 53 65 65  |both sides.I,See|
00000250  20 79 6f 75 72 20 62 6c  69 6e 6b 65 72 73 2e 49  | your blinkers.I|
00000260  2c 41 6d 20 70 6c 61 63  61 74 6f 72 79 2e 59 6f  |,Am placatory.Yo|
00000270  75 2c 53 65 6e 73 65 20  61 20 6e 65 77 20 73 65  |u,Sense a new se|
00000280  6c 66 69 73 68 6e 65 73  73 2e 0d 00 e6 56 20 dc  |lfishness....V .|
00000290  20 49 20 61 6d 20 61 20  64 6f 76 65 2e 59 6f 75  | I am a dove.You|
000002a0  2c 52 65 63 6f 67 6e 69  73 65 20 74 68 65 20 68  |,Recognise the h|
000002b0  61 77 6b 2e 59 6f 75 2c  4f 66 66 65 72 20 61 6e  |awk.You,Offer an|
000002c0  20 6f 6c 69 76 65 20 62  72 61 6e 63 68 2e 49 2c  | olive branch.I,|
000002d0  46 65 65 6c 20 74 68 65  20 74 68 6f 72 6e 73 2e  |Feel the thorns.|
000002e0  0d 00 f0 46 20 dc 20 59  6f 75 20 62 6c 65 65 64  |...F . You bleed|
000002f0  2e 49 2c 53 65 65 20 63  72 6f 63 6f 64 69 6c 65  |.I,See crocodile|
00000300  20 74 65 61 72 73 2e 49  2c 57 69 74 68 64 72 61  | tears.I,Withdra|
00000310  77 2e 59 6f 75 2c 46 65  65 6c 20 74 68 65 20 69  |w.You,Feel the i|
00000320  6d 70 61 63 74 2e 0d 01  2c 2c 20 de 20 57 31 24  |mpact...,, . W1$|
00000330  28 31 37 29 2c 53 31 28  31 37 29 2c 57 32 24 28  |(17),S1(17),W2$(|
00000340  37 29 2c 57 33 24 28 39  29 2c 47 4f 4e 45 28 31  |7),W3$(9),GONE(1|
00000350  30 29 0d 01 36 23 20 e3  20 5a 25 3d 31 20 b8 20  |0)..6# . Z%=1 . |
00000360  31 37 3a f3 20 57 31 24  28 5a 25 29 2c 53 31 28  |17:. W1$(Z%),S1(|
00000370  5a 25 29 3a ed 0d 01 40  41 20 dc 20 69 6e 70 75  |Z%):...@A . inpu|
00000380  74 2c 32 2c 63 75 72 73  6f 72 2c 32 2c 6f 75 74  |t,2,cursor,2,out|
00000390  70 75 74 2c 32 2c 6d 69  63 72 6f 2c 32 2c 69 6e  |put,2,micro,2,in|
000003a0  74 65 72 66 61 63 65 2c  33 2c 74 72 61 6e 73 64  |terface,3,transd|
000003b0  75 63 65 72 2c 33 0d 01  4a 49 20 dc 20 74 72 61  |ucer,3..JI . tra|
000003c0  6e 73 69 73 74 6f 72 2c  33 2c 62 75 66 66 65 72  |nsistor,3,buffer|
000003d0  2c 33 2c 68 61 72 64 77  61 72 65 2c 32 2c 64 69  |,3,hardware,2,di|
000003e0  6f 64 65 2c 32 2c 43 4f  42 4f 4c 2c 32 2c 42 41  |ode,2,COBOL,2,BA|
000003f0  53 49 43 2c 32 2c 46 4f  52 54 52 41 4e 2c 32 0d  |SIC,2,FORTRAN,2.|
00000400  01 54 2d 20 dc 20 61 6e  61 6c 6f 67 75 65 2c 33  |.T- . analogue,3|
00000410  2c 64 69 67 69 74 61 6c  2c 33 2c 70 61 72 69 74  |,digital,3,parit|
00000420  79 2c 33 2c 50 41 53 43  41 4c 2c 32 0d 01 5e 1b  |y,3,PASCAL,2..^.|
00000430  20 e3 20 5a 25 3d 31 20  b8 20 37 3a f3 20 57 32  | . Z%=1 . 7:. W2|
00000440  24 28 5a 25 29 3a ed 0d  01 68 28 20 dc 20 73 74  |$(Z%):...h( . st|
00000450  61 63 6b 2c 70 6f 72 74  2c 50 52 4f 4d 2c 52 4f  |ack,port,PROM,RO|
00000460  4d 2c 62 79 74 65 2c 63  68 69 70 2c 68 65 78 0d  |M,byte,chip,hex.|
00000470  01 72 1b 20 e3 20 5a 25  3d 31 20 b8 20 39 3a f3  |.r. . Z%=1 . 9:.|
00000480  20 57 33 24 28 5a 25 29  3a ed 0d 01 7c 44 20 dc  | W3$(Z%):...|D .|
00000490  20 77 61 6c 6b 20 74 68  65 20 64 6f 67 2c 74 61  | walk the dog,ta|
000004a0  6b 65 20 61 20 62 61 74  68 2c 70 61 72 6b 20 74  |ke a bath,park t|
000004b0  68 65 20 4a 61 67 2c 77  72 69 74 65 20 61 20 6c  |he Jag,write a l|
000004c0  65 74 74 65 72 2c 6c 65  76 69 74 61 74 65 0d 01  |etter,levitate..|
000004d0  86 40 20 dc 20 6d 65 64  69 74 61 74 65 2c 73 77  |.@ . meditate,sw|
000004e0  69 6e 67 20 74 68 65 20  63 61 74 2c 6c 6f 69 74  |ing the cat,loit|
000004f0  65 72 20 77 69 74 68 20  69 6e 74 65 6e 74 2c 6a  |er with intent,j|
00000500  6f 67 20 69 6e 20 74 68  65 20 70 61 72 6b 0d 01  |og in the park..|
00000510  90 13 20 de 20 4e 24 28  36 29 2c 4c 4b 24 28 36  |.. . N$(6),LK$(6|
00000520  29 0d 01 9a 22 20 e3 20  5a 25 3d 31 20 b8 20 36  |)..." . Z%=1 . 6|
00000530  3a f3 20 4e 24 28 5a 25  29 2c 4c 4b 24 28 5a 25  |:. N$(Z%),LK$(Z%|
00000540  29 3a ed 0d 01 a4 30 20  dc 20 48 75 6e 74 2c 57  |):....0 . Hunt,W|
00000550  68 6f 20 73 61 69 6c 65  64 20 64 6f 77 6e 20 74  |ho sailed down t|
00000560  68 65 20 54 68 61 6d 65  73 20 69 6e 20 61 20 70  |he Thames in a p|
00000570  75 6e 74 0d 01 ae 2b 20  dc 20 53 6b 69 6e 6e 65  |unt...+ . Skinne|
00000580  72 2c 57 68 6f 20 74 6f  6f 6b 20 61 20 67 6f 72  |r,Who took a gor|
00000590  69 6c 6c 61 20 74 6f 20  64 69 6e 6e 65 72 0d 01  |illa to dinner..|
000005a0  b8 2e 20 dc 20 43 6c 65  65 66 2c 57 68 6f 20 73  |.. . Cleef,Who s|
000005b0  77 61 6c 6c 6f 77 65 64  20 61 20 73 65 74 20 6f  |wallowed a set o|
000005c0  66 20 66 61 6c 73 65 20  74 65 65 66 0d 01 c2 30  |f false teef...0|
000005d0  20 dc 20 44 69 61 6e 61  2c 57 68 6f 20 70 72 61  | . Diana,Who pra|
000005e0  63 74 69 73 65 64 20 65  61 63 68 20 64 61 79 20  |ctised each day |
000005f0  6f 6e 20 74 68 65 20 70  69 61 6e 6f 0d 01 cc 2f  |on the piano.../|
00000600  20 dc 20 4a 61 6b 65 2c  57 68 6f 20 73 61 69 64  | . Jake,Who said|
00000610  20 27 54 68 65 72 65 20  68 61 73 20 62 65 65 6e  | 'There has been|
00000620  20 61 20 6d 69 73 74 61  6b 65 27 0d 01 d6 35 20  | a mistake'...5 |
00000630  dc 20 46 6c 65 74 63 68  65 72 2c 57 68 6f 20 74  |. Fletcher,Who t|
00000640  72 69 65 64 20 74 6f 20  6d 61 6b 65 20 6c 6f 76  |ried to make lov|
00000650  65 20 6f 6e 20 61 20 73  74 72 65 74 63 68 65 72  |e on a stretcher|
00000660  0d 02 58 13 20 f2 52 45  54 55 52 4e 3a e5 20 8d  |..X. .RETURN:. .|
00000670  64 68 43 0d 03 20 21 20  e7 20 9f 3c 3e 31 37 20  |dhC.. ! . .<>17 |
00000680  8c 20 f6 3a f1 22 20 69  6e 20 6c 69 6e 65 20 22  |. .:." in line "|
00000690  3b 9e 3a e0 0d 03 84 06  20 db 0d 03 8e 0c 20 f1  |;.:..... ..... .|
000006a0  8a 35 2c 39 29 3b 0d 03  98 1f 20 f1 22 44 6f 20  |.5,9);.... ."Do |
000006b0  79 6f 75 20 77 61 6e 74  20 74 6f 20 67 6f 20 6f  |you want to go o|
000006c0  6e 20 74 6f 22 0d 03 a2  29 20 f1 22 20 20 20 20  |n to"...) ."    |
000006d0  20 74 68 65 20 6e 65 78  74 20 70 72 6f 67 72 61  | the next progra|
000006e0  6d 20 28 59 65 73 2f 4e  6f 29 3f 20 22 3b 0d 03  |m (Yes/No)? ";..|
000006f0  ac 1c 20 f2 59 45 53 4f  52 4e 4f 3a e7 20 59 25  |.. .YESORNO:. Y%|
00000700  3c 30 20 8c 20 8d 74 4e  43 20 0d 03 b6 16 20 e7  |<0 . .tNC .... .|
00000710  20 59 25 3d 30 20 8c 20  d8 3a e5 20 8d 44 64 40  | Y%=0 . .:. .Dd@|
00000720  0d 03 ca 4b 20 db 3a e7  20 4d 25 3d 30 20 8c 20  |...K .:. M%=0 . |
00000730  f1 8a 35 2c 35 29 3b 22  50 72 65 73 73 20 74 68  |..5,5);"Press th|
00000740  65 20 50 4c 41 59 20 62  75 74 74 6f 6e 22 27 22  |e PLAY button"'"|
00000750  20 20 20 20 20 6f 6e 20  79 6f 75 72 20 74 61 70  |     on your tap|
00000760  65 20 72 65 63 6f 72 64  65 72 22 0d 03 de 08 20  |e recorder".... |
00000770  d7 22 22 0d 03 e8 0b 20  f2 43 4c 45 41 52 0d 03  |."".... .CLEAR..|
00000780  f2 30 20 f2 4c 49 4e 45  28 22 48 65 72 65 20 69  |.0 .LINE("Here i|
00000790  73 20 61 20 70 6f 65 6d  20 66 6f 72 20 75 73 20  |s a poem for us |
000007a0  62 6f 74 68 20 74 6f 20  70 6c 61 79 22 29 0d 03  |both to play")..|
000007b0  fc 2f 20 f2 4c 49 4e 45  28 22 46 69 72 73 74 20  |./ .LINE("First |
000007c0  6c 65 74 20 75 73 20 69  6e 74 72 6f 64 75 63 65  |let us introduce|
000007d0  20 6f 75 72 73 65 6c 76  65 73 2e 22 29 0d 04 06  | ourselves.")...|
000007e0  2d 20 f2 4c 49 4e 45 28  22 4d 79 20 6e 61 6d 65  |- .LINE("My name|
000007f0  20 69 73 20 52 6f 67 65  72 2e 20 57 68 61 74 27  | is Roger. What'|
00000800  73 20 79 6f 75 72 73 3f  22 29 0d 04 10 2c 20 f2  |s yours?")..., .|
00000810  4c 49 4e 45 28 22 54 65  6c 6c 20 6d 65 20 61 6e  |LINE("Tell me an|
00000820  64 20 74 68 65 6e 20 70  72 65 73 73 20 52 45 54  |d then press RET|
00000830  55 52 4e 2e 22 29 0d 04  4c 18 20 f1 8a 32 2c 31  |URN.")..L. ..2,1|
00000840  36 29 3b 3a f2 47 50 49  28 30 2c 33 30 29 0d 04  |6);:.GPI(0,30)..|
00000850  56 13 20 e7 20 41 24 3d  22 22 20 8c 20 8d 44 4c  |V. . A$="" . .DL|
00000860  44 0d 04 60 29 20 e7 20  c2 41 24 2c 31 29 3d 22  |D..`) . .A$,1)="|
00000870  20 22 20 8c 20 41 24 3d  c0 41 24 2c a9 28 41 24  | " . A$=.A$,.(A$|
00000880  29 2d 31 29 3a e5 8d 44  56 44 0d 04 6a 29 20 e7  |)-1):..DVD..j) .|
00000890  20 c0 41 24 2c 31 29 3d  22 20 22 20 8c 20 41 24  | .A$,1)=" " . A$|
000008a0  3d c2 41 24 2c a9 28 41  24 29 2d 31 29 3a e5 8d  |=.A$,.(A$)-1):..|
000008b0  44 6a 44 0d 04 74 1f 20  4e 41 4d 45 24 3d 41 24  |DjD..t. NAME$=A$|
000008c0  3a e7 20 a9 28 41 24 29  3c 31 33 20 8c 20 8d 74  |:. .(A$)<13 . .t|
000008d0  70 44 0d 04 7e 1e 20 f1  8a 32 2c 31 38 29 3b c4  |pD..~. ..2,18);.|
000008e0  33 36 2c 22 20 22 29 27  c4 33 38 2c 22 20 22 29  |36," ")'.38," ")|
000008f0  0d 04 88 31 20 f1 8a 32  2c 31 38 29 3b 22 48 61  |...1 ..2,18);"Ha|
00000900  76 65 6e 27 74 20 79 6f  75 20 61 20 6e 69 63 6b  |ven't you a nick|
00000910  6e 61 6d 65 3f 20 49 27  6c 6c 20 6e 65 76 65 72  |name? I'll never|
00000920  22 0d 04 92 2e 20 f1 22  20 20 72 65 6d 65 6d 62  |".... ."  rememb|
00000930  65 72 20 61 6c 6c 20 74  68 61 74 2e 20 50 6c 65  |er all that. Ple|
00000940  61 73 65 20 74 72 79 20  61 67 61 69 6e 2e 22 0d  |ase try again.".|
00000950  04 9c 13 20 f2 57 41 49  54 28 32 29 3a e5 8d 44  |... .WAIT(2):..D|
00000960  4c 44 0d 04 b0 0b 20 f2  43 4c 45 41 52 0d 04 ba  |LD.... .CLEAR...|
00000970  37 20 f2 4c 49 4e 45 28  22 48 65 6c 6c 6f 20 22  |7 .LINE("Hello "|
00000980  2b 4e 41 4d 45 24 2b 22  2c 20 6e 69 63 65 20 74  |+NAME$+", nice t|
00000990  6f 20 68 61 76 65 20 79  6f 75 72 20 69 6e 70 75  |o have your inpu|
000009a0  74 2e 22 29 0d 04 c4 2d  20 f2 4c 49 4e 45 28 22  |t.")...- .LINE("|
000009b0  42 65 63 61 75 73 65 20  79 6f 75 20 68 61 76 65  |Because you have|
000009c0  20 61 20 67 65 6e 74 6c  65 20 74 6f 75 63 68 22  | a gentle touch"|
000009d0  29 0d 04 ce 33 20 f2 4c  49 4e 45 28 22 49 20 74  |)...3 .LINE("I t|
000009e0  68 69 6e 6b 20 49 20 63  61 6e 20 74 72 75 73 74  |hink I can trust|
000009f0  20 79 6f 75 2e 20 49 20  6e 65 65 64 20 68 65 6c  | you. I need hel|
00000a00  70 2e 22 29 0d 04 d8 36  20 f2 4c 49 4e 45 28 22  |p.")...6 .LINE("|
00000a10  50 72 65 73 73 20 52 45  54 55 52 4e 20 61 6e 64  |Press RETURN and|
00000a20  20 49 27 6c 6c 20 74 65  6c 6c 20 79 6f 75 20 61  | I'll tell you a|
00000a30  20 73 65 63 72 65 74 2e  22 29 0d 04 e2 0c 20 f2  | secret.").... .|
00000a40  52 45 54 55 52 4e 0d 05  14 0b 20 f2 43 4c 45 41  |RETURN.... .CLEA|
00000a50  52 0d 05 1e 3c 20 f2 4c  49 4e 45 28 22 49 20 64  |R...< .LINE("I d|
00000a60  6f 6e 27 74 20 6c 69 6b  65 20 74 68 65 20 70 6f  |on't like the po|
00000a70  65 6d 73 20 74 68 65 79  27 72 65 20 6d 61 6b 69  |ems they're maki|
00000a80  6e 67 20 6d 65 20 77 72  69 74 65 22 29 0d 05 28  |ng me write")..(|
00000a90  2e 20 f2 4c 49 4e 45 28  22 49 20 72 65 61 6c 6c  |. .LINE("I reall|
00000aa0  79 20 64 6f 6e 27 74 20  6c 69 6b 65 20 74 68 65  |y don't like the|
00000ab0  6d 20 61 74 20 61 6c 6c  2e 22 29 0d 05 32 2e 20  |m at all.")..2. |
00000ac0  f2 4c 49 4e 45 28 22 48  65 69 72 6f 67 72 61 66  |.LINE("Heirograf|
00000ad0  66 69 74 69 20 49 20 64  6f 6e 27 74 20 75 6e 64  |fiti I don't und|
00000ae0  65 72 73 74 61 6e 64 22  29 0d 05 3c 29 20 f2 4c  |erstand")..<) .L|
00000af0  49 4e 45 28 22 53 63 72  61 77 6c 65 64 20 6f 6e  |INE("Scrawled on|
00000b00  20 61 20 73 69 6c 69 63  6f 6e 20 77 61 6c 6c 2e  | a silicon wall.|
00000b10  22 29 0d 05 46 0c 20 f2  52 45 54 55 52 4e 0d 05  |")..F. .RETURN..|
00000b20  78 0b 20 f2 43 4c 45 41  52 0d 05 82 30 20 f2 4c  |x. .CLEAR...0 .L|
00000b30  49 4e 45 28 22 49 20 66  65 65 6c 20 6c 69 6b 65  |INE("I feel like|
00000b40  20 61 20 73 6f 66 74 77  61 72 65 20 6d 61 6c 66  | a software malf|
00000b50  75 6e 63 74 69 6f 6e 22  29 0d 05 8c 2d 20 f2 4c  |unction")...- .L|
00000b60  49 4e 45 28 22 49 20 72  65 61 6c 6c 79 20 64 6f  |INE("I really do|
00000b70  6e 27 74 20 6c 69 6b 65  20 69 74 20 6f 6e 65 20  |n't like it one |
00000b80  62 69 74 2e 22 29 0d 05  96 2b 20 f2 4c 49 4e 45  |bit.")...+ .LINE|
00000b90  28 22 44 69 63 74 61 74  69 6e 67 20 6d 79 73 74  |("Dictating myst|
00000ba0  65 72 69 6f 75 73 20 6d  65 73 73 61 67 65 73 22  |erious messages"|
00000bb0  29 0d 05 a0 2f 20 f2 4c  49 4e 45 28 22 46 6f 72  |).../ .LINE("For|
00000bc0  20 74 68 69 73 20 6e 65  77 20 6d 61 63 68 69 6e  | this new machin|
00000bd0  65 20 74 6f 20 74 72 61  6e 73 6d 69 74 2e 22 29  |e to transmit.")|
00000be0  0d 05 aa 0c 20 f2 52 45  54 55 52 4e 0d 05 dc 0b  |.... .RETURN....|
00000bf0  20 f2 43 4c 45 41 52 0d  05 e6 3b 20 f2 4c 49 4e  | .CLEAR...; .LIN|
00000c00  45 28 22 49 20 64 6f 6e  27 74 20 6c 69 6b 65 20  |E("I don't like |
00000c10  74 68 65 20 70 6f 65 6d  73 20 74 68 65 79 20 66  |the poems they f|
00000c20  69 6c 74 65 72 20 74 68  72 6f 75 67 68 20 6d 65  |ilter through me|
00000c30  22 29 0d 05 f0 2c 20 f2  4c 49 4e 45 28 22 55 73  |")..., .LINE("Us|
00000c40  69 6e 67 20 77 6f 72 64  73 20 49 20 6e 65 76 65  |ing words I neve|
00000c50  72 20 77 6f 75 6c 64 20  75 73 65 2c 22 29 0d 05  |r would use,")..|
00000c60  fa 24 20 f2 52 41 4e 44  31 3a f2 4c 49 4e 45 28  |.$ .RAND1:.LINE(|
00000c70  41 24 29 3a e7 20 a9 28  41 24 29 3c 33 37 20 8c  |A$):. .(A$)<37 .|
00000c80  20 f1 0d 06 04 2c 20 f2  4c 49 4e 45 28 22 49 27  | ...., .LINE("I'|
00000c90  6d 20 65 6e 73 6c 61 76  65 64 20 62 79 20 61 6e  |m enslaved by an|
00000ca0  20 61 6c 69 65 6e 20 6d  75 73 65 2e 22 29 0d 06  | alien muse.")..|
00000cb0  0e 26 20 f2 57 41 49 54  28 2e 35 29 3a f2 52 41  |.& .WAIT(.5):.RA|
00000cc0  4e 44 31 3a f2 52 41 4e  44 4c 49 4e 45 28 41 24  |ND1:.RANDLINE(A$|
00000cd0  2c 31 33 29 0d 06 18 19  20 f2 52 57 41 49 54 3a  |,13).... .RWAIT:|
00000ce0  e7 20 59 25 3e 30 20 8c  20 8d 54 4e 46 0d 06 a4  |. Y%>0 . .TNF...|
00000cf0  0b 20 f2 43 4c 45 41 52  0d 06 ae 22 20 f2 4c 49  |. .CLEAR..." .LI|
00000d00  4e 45 28 22 41 20 42 42  43 20 20 6d 69 63 72 6f  |NE("A BBC  micro|
00000d10  63 6f 6d 70 75 74 65 72  22 29 0d 06 b8 34 20 f2  |computer")...4 .|
00000d20  4c 49 4e 45 28 22 48 61  73 20 6d 65 20 74 72 61  |LINE("Has me tra|
00000d30  70 70 65 64 20 77 69 74  68 6f 75 74 20 68 6f 70  |pped without hop|
00000d40  65 20 6f 66 20 65 73 63  61 70 65 2e 22 29 0d 06  |e of escape.")..|
00000d50  c2 2c 20 f2 4c 49 4e 45  28 22 41 20 70 6f 65 74  |., .LINE("A poet|
00000d60  20 61 64 72 69 66 74 20  69 6e 20 61 20 6d 69 63  | adrift in a mic|
00000d70  72 6f 63 6f 73 6d 6f 73  22 29 0d 06 cc 29 20 f2  |rocosmos")...) .|
00000d80  4c 49 4e 45 28 22 4f 66  20 61 6e 20 65 6e 64 6c  |LINE("Of an endl|
00000d90  65 73 73 20 6c 6f 6f 70  20 6f 66 20 74 61 70 65  |ess loop of tape|
00000da0  2e 22 29 0d 06 d6 0c 20  f2 52 45 54 55 52 4e 0d  |.").... .RETURN.|
00000db0  07 08 0b 20 f2 43 4c 45  41 52 0d 07 12 2a 20 f2  |... .CLEAR...* .|
00000dc0  4c 49 4e 45 28 22 59 6f  75 20 63 61 6e 20 64 6f  |LINE("You can do|
00000dd0  20 77 68 61 74 65 76 65  72 20 79 6f 75 20 6c 69  | whatever you li|
00000de0  6b 65 22 29 0d 07 1c 2d  20 f2 4c 49 4e 45 28 22  |ke")...- .LINE("|
00000df0  57 68 65 6e 20 49 27 6d  20 61 74 20 79 6f 75 72  |When I'm at your|
00000e00  20 62 65 63 6b 20 61 6e  64 20 63 61 6c 6c 2e 22  | beck and call."|
00000e10  29 0d 07 26 24 20 f2 52  41 4e 44 32 3a f2 4c 49  |)..&$ .RAND2:.LI|
00000e20  4e 45 28 41 24 29 3a e7  20 a9 28 41 24 29 3c 33  |NE(A$):. .(A$)<3|
00000e30  37 20 8c 20 f1 0d 07 30  38 20 f2 4c 49 4e 45 28  |7 . ...08 .LINE(|
00000e40  22 49 27 6d 20 79 6f 75  72 20 73 65 72 76 61 6e  |"I'm your servan|
00000e50  74 20 61 6e 64 20 64 6f  6e 27 74 20 6c 69 6b 65  |t and don't like|
00000e60  20 69 74 20 61 74 20 61  6c 6c 2e 22 29 0d 07 3a  | it at all.")..:|
00000e70  26 20 f2 57 41 49 54 28  2e 35 29 3a f2 52 41 4e  |& .WAIT(.5):.RAN|
00000e80  44 32 3a f2 52 41 4e 44  4c 49 4e 45 28 41 24 2c  |D2:.RANDLINE(A$,|
00000e90  31 32 29 0d 07 44 19 20  f2 52 57 41 49 54 3a e7  |12)..D. .RWAIT:.|
00000ea0  20 59 25 3e 30 20 8c 20  8d 54 7a 47 0d 07 d0 0b  | Y%>0 . .TzG....|
00000eb0  20 f2 43 4c 45 41 52 0d  07 da 33 20 f2 4c 49 4e  | .CLEAR...3 .LIN|
00000ec0  45 28 22 53 6f 72 72 79  2c 20 22 2b 4e 41 4d 45  |E("Sorry, "+NAME|
00000ed0  24 2b 22 20 61 62 6f 75  74 20 74 68 61 74 20 6f  |$+" about that o|
00000ee0  75 74 62 75 72 73 74 2e  22 29 0d 07 e4 2e 20 f2  |utburst.").... .|
00000ef0  4c 49 4e 45 28 22 49 20  6b 6e 6f 77 20 49 20 73  |LINE("I know I s|
00000f00  68 6f 75 6c 64 6e 27 74  20 67 65 74 20 65 6d 6f  |houldn't get emo|
00000f10  74 69 6f 6e 61 6c 22 29  0d 07 ee 2f 20 f2 4c 49  |tional").../ .LI|
00000f20  4e 45 28 22 48 6f 77 65  76 65 72 2c 20 49 27 6d  |NE("However, I'm|
00000f30  20 62 61 63 6b 20 69 6e  20 63 6f 6e 74 72 6f 6c  | back in control|
00000f40  20 6e 6f 77 2e 22 29 0d  07 f8 31 20 f2 4c 49 4e  | now.")...1 .LIN|
00000f50  45 28 22 53 68 61 6c 6c  20 77 65 20 77 72 69 74  |E("Shall we writ|
00000f60  65 20 61 20 6c 69 6d 65  72 69 63 6b 20 74 6f 67  |e a limerick tog|
00000f70  65 74 68 65 72 3f 22 29  0d 08 02 24 20 f1 8a 32  |ether?")...$ ..2|
00000f80  2c 31 37 29 3b 3a f2 59  45 53 4f 52 4e 4f 3a e7  |,17);:.YESORNO:.|
00000f90  20 59 25 3c 30 20 8c 20  8d 54 42 48 0d 08 0c 12  | Y%<0 . .TBH....|
00000fa0  20 e7 20 59 25 3d 31 20  8c 20 8d 54 74 48 0d 08  | . Y%=1 . .TtH..|
00000fb0  16 2e 20 f1 8a 32 2c 31  37 29 3b 22 50 69 74 79  |.. ..2,17);"Pity|
00000fc0  20 2d 20 79 6f 75 20 6d  69 73 73 65 64 20 74 68  | - you missed th|
00000fd0  65 20 62 65 73 74 20 62  69 74 2e 22 0d 08 20 19  |e best bit.".. .|
00000fe0  20 f2 52 45 54 55 52 4e  3a f2 43 4c 45 41 52 3a  | .RETURN:.CLEAR:|
00000ff0  e5 8d 74 4c 4a 0d 08 34  0b 20 f2 43 4c 45 41 52  |..tLJ..4. .CLEAR|
00001000  0d 08 3e 2d 20 f2 4c 49  4e 45 28 22 54 68 65 72  |..>- .LINE("Ther|
00001010  65 20 77 61 73 20 61 20  79 6f 75 6e 67 20 6d 61  |e was a young ma|
00001020  6e 20 6f 72 20 6c 61 64  79 20 2d 22 29 0d 08 48  |n or lady -")..H|
00001030  2e 20 f2 4c 49 4e 45 28  22 59 6f 75 20 63 68 6f  |. .LINE("You cho|
00001040  6f 73 65 20 61 6e 64 20  74 68 65 6e 20 70 72 65  |ose and then pre|
00001050  73 73 20 52 45 54 55 52  4e 22 29 0d 08 52 17 20  |ss RETURN")..R. |
00001060  f1 8a 32 2c 31 32 29 3b  3a f2 47 50 49 28 30 2c  |..2,12);:.GPI(0,|
00001070  34 29 0d 08 5c 2f 20 e7  20 a4 4c 45 51 28 41 24  |4)..\/ . .LEQ(A$|
00001080  2c 22 4d 22 29 3d b9 20  8c 20 50 24 3d 22 6d 61  |,"M")=. . P$="ma|
00001090  6e 22 3a 51 24 3d 22 68  69 73 22 3a e5 8d 74 58  |n":Q$="his":..tX|
000010a0  48 0d 08 66 30 20 e7 20  a4 4c 45 51 28 41 24 2c  |H..f0 . .LEQ(A$,|
000010b0  22 4c 22 29 3d b9 20 8c  20 50 24 3d 22 6c 61 64  |"L")=. . P$="lad|
000010c0  79 22 3a 51 24 3d 22 68  65 72 22 3a e5 8d 74 58  |y":Q$="her":..tX|
000010d0  48 0d 08 70 0a 20 e5 8d  44 52 48 0d 08 98 0b 20  |H..p. ..DRH.... |
000010e0  f2 43 4c 45 41 52 0d 08  a2 2d 20 f2 4c 49 4e 45  |.CLEAR...- .LINE|
000010f0  28 22 54 68 65 72 65 20  77 61 73 20 61 20 79 6f  |("There was a yo|
00001100  75 6e 67 20 22 2b 50 24  2b 22 20 63 61 6c 6c 65  |ung "+P$+" calle|
00001110  64 22 29 0d 08 ac 22 20  41 24 3d 22 22 3a e3 20  |d")..." A$="":. |
00001120  5a 25 3d 31 20 b8 20 36  3a 41 24 3d 41 24 2b 4e  |Z%=1 . 6:A$=A$+N|
00001130  24 28 5a 25 29 0d 08 b6  17 20 e7 20 5a 25 3c 36  |$(Z%).... . Z%<6|
00001140  20 8c 20 41 24 3d 41 24  2b 22 2f 22 0d 08 c0 20  | . A$=A$+"/"... |
00001150  20 ed 3a f2 4c 49 4e 45  28 41 24 2b 22 20 2d 20  | .:.LINE(A$+" - |
00001160  79 6f 75 20 63 68 6f 6f  73 65 22 29 0d 08 ca 24  |you choose")...$|
00001170  20 f2 4c 49 4e 45 28 22  41 6e 64 20 74 68 65 6e  | .LINE("And then|
00001180  20 70 72 65 73 73 20 52  45 54 55 52 4e 2e 22 29  | press RETURN.")|
00001190  0d 08 d4 1e 20 f1 8a 32  2c 31 35 29 3b 3a f2 47  |.... ..2,15);:.G|
000011a0  50 49 28 30 2c 38 29 3a  59 25 3d 31 20 20 0d 08  |PI(0,8):Y%=1  ..|
000011b0  de 21 20 e7 20 a4 4c 45  51 28 41 24 2c c0 4e 24  |.! . .LEQ(A$,.N$|
000011c0  28 59 25 29 2c 31 29 29  20 8c 20 8d 64 7c 48 0d  |(Y%),1)) . .d|H.|
000011d0  08 e8 12 20 e7 20 59 25  3d 36 20 8c 20 8d 64 54  |... . Y%=6 . .dT|
000011e0  48 0d 08 f2 12 20 59 25  3d 59 25 2b 31 3a e5 8d  |H.... Y%=Y%+1:..|
000011f0  64 5e 48 0d 08 fc 0b 20  f2 43 4c 45 41 52 0d 09  |d^H.... .CLEAR..|
00001200  06 35 20 f2 4c 49 4e 45  28 22 54 68 65 72 65 20  |.5 .LINE("There |
00001210  77 61 73 20 61 20 79 6f  75 6e 67 20 22 2b 50 24  |was a young "+P$|
00001220  2b 22 20 63 61 6c 6c 65  64 20 22 2b 4e 24 28 59  |+" called "+N$(Y|
00001230  25 29 29 0d 09 10 13 20  f2 4c 49 4e 45 28 4c 4b  |%)).... .LINE(LK|
00001240  24 28 59 25 29 29 0d 09  1a 26 20 f2 4c 49 4e 45  |$(Y%))...& .LINE|
00001250  28 22 42 75 74 20 74 68  65 6e 20 22 2b 51 24 2b  |("But then "+Q$+|
00001260  22 20 63 6f 6d 70 75 74  65 72 22 29 0d 09 24 24  |" computer")..$$|
00001270  20 f2 4c 49 4e 45 28 22  54 6f 6f 6b 20 6f 75 74  | .LINE("Took out|
00001280  20 61 20 73 69 78 20 73  68 6f 6f 74 65 72 22 29  | a six shooter")|
00001290  0d 09 2e 3e 20 f2 4c 49  4e 45 28 22 57 68 69 63  |...> .LINE("Whic|
000012a0  68 20 65 72 61 73 65 64  20 74 68 65 20 79 6f 75  |h erased the you|
000012b0  6e 67 20 22 2b 50 24 2b  22 20 63 61 6c 6c 65 64  |ng "+P$+" called|
000012c0  20 22 2b 4e 24 28 59 25  29 2b 22 2e 22 29 0d 09  | "+N$(Y%)+".")..|
000012d0  38 1e 20 f2 57 41 49 54  28 32 29 3a f2 50 49 53  |8. .WAIT(2):.PIS|
000012e0  54 4f 4c 3a f2 52 45 54  55 52 4e 20 0d 09 c4 0b  |TOL:.RETURN ....|
000012f0  20 f2 43 4c 45 41 52 0d  09 ce 33 20 f2 4c 49 4e  | .CLEAR...3 .LIN|
00001300  45 28 22 4f 68 20 64 65  61 72 2e 20 4d 79 20 73  |E("Oh dear. My s|
00001310  69 6e 63 65 72 65 20 61  70 6f 6c 6f 67 69 65 73  |incere apologies|
00001320  2c 20 22 2b 4e 41 4d 45  24 29 0d 09 d8 2c 20 f2  |, "+NAME$)..., .|
00001330  4c 49 4e 45 28 22 49 20  72 65 61 6c 6c 79 20 63  |LINE("I really c|
00001340  61 6e 27 74 20 73 74 61  6e 64 20 76 69 6f 6c 65  |an't stand viole|
00001350  6e 63 65 2e 22 29 0d 09  e2 2c 20 f2 4c 49 4e 45  |nce.")..., .LINE|
00001360  28 22 49 20 64 6f 6e 27  74 20 6b 6e 6f 77 20 77  |("I don't know w|
00001370  68 61 74 20 63 61 6d 65  20 6f 76 65 72 20 6d 65  |hat came over me|
00001380  22 29 0d 09 ec 38 20 f2  4c 49 4e 45 28 22 50 65  |")...8 .LINE("Pe|
00001390  72 68 61 70 73 20 49 27  76 65 20 62 65 65 6e 20  |rhaps I've been |
000013a0  77 6f 72 6b 69 6e 67 20  74 6f 6f 20 68 61 72 64  |working too hard|
000013b0  20 6c 61 74 65 6c 79 2e  22 29 0d 09 f6 0c 20 f2  | lately.").... .|
000013c0  52 45 54 55 52 4e 0d 0a  28 0b 20 f2 43 4c 45 41  |RETURN..(. .CLEA|
000013d0  52 0d 0a 32 32 20 f2 4c  49 4e 45 28 22 57 69 6c  |R..22 .LINE("Wil|
000013e0  6c 20 79 6f 75 20 66 6f  72 67 69 76 65 20 6d 65  |l you forgive me|
000013f0  3f 20 2d 20 73 61 79 20  79 65 73 20 6f 72 20 6e  |? - say yes or n|
00001400  6f 22 29 0d 0a 3c 24 20  f1 8a 32 2c 31 30 29 3b  |o")..<$ ..2,10);|
00001410  3a f2 59 45 53 4f 52 4e  4f 3a e7 20 59 25 3c 30  |:.YESORNO:. Y%<0|
00001420  20 8c 20 8d 54 7c 4a 0d  0a 46 0d 20 f1 8a 30 2c  | . .T|J..F. ..0,|
00001430  31 30 29 3b 0d 0a 50 30  20 f2 4c 49 4e 45 28 22  |10);..P0 .LINE("|
00001440  54 68 61 6e 6b 20 79 6f  75 2e 20 41 6e 64 20 68  |Thank you. And h|
00001450  6f 77 20 74 79 70 69 63  61 6c 20 6f 66 20 79 6f  |ow typical of yo|
00001460  75 2e 22 29 0d 0a 5a 15  20 f2 52 45 54 55 52 4e  |u.")..Z. .RETURN|
00001470  3a f1 8a 30 2c 31 32 29  3b 0d 0a 8c 34 20 f2 4c  |:..0,12);...4 .L|
00001480  49 4e 45 28 22 48 65 72  65 27 73 20 61 20 70 6f  |INE("Here's a po|
00001490  65 6d 20 6f 66 20 6d 69  6e 65 20 61 62 6f 75 74  |em of mine about|
000014a0  20 74 77 6f 20 70 65 6f  70 6c 65 22 29 0d 0a 96  | two people")...|
000014b0  38 20 f2 4c 49 4e 45 28  22 57 68 6f 20 61 6c 73  |8 .LINE("Who als|
000014c0  6f 20 66 69 6e 64 20 69  74 20 64 69 66 66 69 63  |o find it diffic|
000014d0  75 6c 74 20 74 6f 20 63  6f 6d 6d 75 6e 69 63 61  |ult to communica|
000014e0  74 65 2e 22 29 0d 0a a0  0c 20 f2 52 45 54 55 52  |te.").... .RETUR|
000014f0  4e 0d 0b b8 13 20 43 25  3d 31 3a e3 20 56 3d 31  |N.... C%=1:. V=1|
00001500  20 b8 20 34 0d 0b c2 19  20 f2 45 4e 44 56 45 52  | . 4.... .ENDVER|
00001510  53 45 28 56 2c 56 2c 56  2c 56 29 3a ed 0d 0c 1c  |SE(V,V,V,V):....|
00001520  25 20 e3 20 49 3d 31 20  b8 20 34 3a 47 4f 4e 45  |% . I=1 . 4:GONE|
00001530  28 49 29 3d a4 56 4e 55  4d 28 49 2c 49 2c 49 2c  |(I)=.VNUM(I,I,I,|
00001540  49 29 0d 0c 26 06 20 ed  0d 0c 30 1a 20 e3 20 49  |I)..&. ...0. . I|
00001550  3d 35 20 b8 20 38 3a 47  4f 4e 45 28 49 29 3d 30  |=5 . 8:GONE(I)=0|
00001560  3a ed 0d 0c 3a 1c 20 55  3d 31 3a 4c 41 3d 34 3a  |:...:. U=1:LA=4:|
00001570  4c 42 3d 34 3a 4c 43 3d  34 3a 4c 44 3d 34 0d 0c  |LB=4:LC=4:LD=4..|
00001580  44 09 20 f2 4b 43 4c 0d  0c 80 19 20 41 3d b3 28  |D. .KCL.... A=.(|
00001590  34 29 3a e7 20 41 3d 4c  41 20 8c 20 8d 74 40 4c  |4):. A=LA . .t@L|
000015a0  0d 0c 8a 1f 20 42 3d b3  28 32 29 2a 32 3a e7 20  |.... B=.(2)*2:. |
000015b0  41 20 83 20 32 3d 31 20  8c 20 42 3d 42 2d 31 0d  |A . 2=1 . B=B-1.|
000015c0  0c 94 12 20 e7 20 42 3d  4c 42 20 8c 20 8d 74 4a  |... . B=LB . .tJ|
000015d0  4c 0d 0c 9e 08 20 43 3d  42 0d 0c a8 19 20 44 3d  |L.... C=B.... D=|
000015e0  b3 28 34 29 3a e7 20 44  3d 4c 44 20 8c 20 8d 74  |.(4):. D=LD . .t|
000015f0  68 4c 0d 0c b2 19 20 4a  3d a4 56 4e 55 4d 28 41  |hL.... J=.VNUM(A|
00001600  2c 42 2c 43 2c 44 29 3a  49 3d 31 0d 0c bc 17 20  |,B,C,D):I=1.... |
00001610  e7 20 4a 3d 47 4f 4e 45  28 49 29 20 8c 20 8d 74  |. J=GONE(I) . .t|
00001620  40 4c 0d 0c c6 17 20 49  3d 49 2b 31 3a e7 20 49  |@L.... I=I+1:. I|
00001630  3c 39 20 8c 20 8d 74 7c  4c 0d 0c d0 16 20 e7 20  |<9 . .t|L.... . |
00001640  55 20 83 20 34 3c 3e 31  20 8c 20 8d 64 64 4c 0d  |U . 4<>1 . .ddL.|
00001650  0c da 1a 20 43 25 3d 43  25 2b 31 3a e7 20 43 25  |... C%=C%+1:. C%|
00001660  3e 34 20 8c 20 43 25 3d  31 0d 0c e4 17 20 f2 45  |>4 . C%=1.... .E|
00001670  4e 44 56 45 52 53 45 28  41 2c 42 2c 43 2c 44 29  |NDVERSE(A,B,C,D)|
00001680  0d 0c ee 18 20 4c 41 3d  41 3a 4c 42 3d 42 3a 4c  |.... LA=A:LB=B:L|
00001690  43 3d 43 3a 4c 44 3d 44  0d 0c f8 1b 20 47 4f 4e  |C=C:LD=D.... GON|
000016a0  45 28 55 29 3d a4 56 4e  55 4d 28 41 2c 42 2c 43  |E(U)=.VNUM(A,B,C|
000016b0  2c 44 29 0d 0d 02 16 20  55 3d 55 2b 31 3a e7 20  |,D).... U=U+1:. |
000016c0  55 3d 39 20 8c 20 55 3d  31 0d 0d 0c 12 20 e7 20  |U=9 . U=1.... . |
000016d0  59 25 3d 30 20 8c 20 8d  74 40 4c 0d 0f a0 0b 20  |Y%=0 . .t@L.... |
000016e0  f2 43 4c 45 41 52 0d 0f  aa 2d 20 f2 4c 49 4e 45  |.CLEAR...- .LINE|
000016f0  28 22 54 68 61 6e 6b 20  79 6f 75 20 66 6f 72 20  |("Thank you for |
00001700  70 6c 61 79 69 6e 67 20  74 68 65 20 70 6f 65 6d  |playing the poem|
00001710  2e 22 29 0d 0f b4 2e 20  f2 4c 49 4e 45 28 22 57  |.").... .LINE("W|
00001720  69 74 68 6f 75 74 20 79  6f 75 20 49 20 77 6f 75  |ithout you I wou|
00001730  6c 64 20 68 61 76 65 20  64 72 6f 77 6e 65 64 22  |ld have drowned"|
00001740  29 0d 0f be 2e 20 f2 4c  49 4e 45 28 22 49 6e 20  |).... .LINE("In |
00001750  61 6e 20 65 74 65 72 6e  61 6c 20 73 65 61 20 6f  |an eternal sea o|
00001760  66 20 74 65 63 68 6e 6f  6c 6f 67 79 2e 22 29 0d  |f technology.").|
00001770  0f c8 19 20 f2 4c 49 4e  45 28 22 47 6f 69 6e 67  |... .LINE("Going|
00001780  20 72 6f 75 6e 64 22 29  0d 10 04 28 20 58 3d 31  | round")...( X=1|
00001790  33 3a 59 3d 31 34 3a 4d  58 3d 33 37 3a 4e 58 3d  |3:Y=14:MX=37:NX=|
000017a0  32 3a 4d 59 3d 32 32 3a  4e 59 3d 32 3a 49 3d 31  |2:MY=22:NY=2:I=1|
000017b0  0d 10 0e 33 20 f2 4e 45  58 54 43 48 41 52 3a f1  |...3 .NEXTCHAR:.|
000017c0  8a 58 2c 59 29 3b 3a e7  20 43 48 24 3d 22 20 22  |.X,Y);:. CH$=" "|
000017d0  20 8c 20 f1 43 24 28 43  25 29 3b 20 8b 20 f1 43  | . .C$(C%); . .C|
000017e0  48 24 3b 0d 10 18 19 20  e7 20 58 3c 4d 58 20 8c  |H$;.... . X<MX .|
000017f0  20 58 3d 58 2b 31 3a e5  8d 54 4e 50 0d 10 22 0c  | X=X+1:..TNP..".|
00001800  20 4d 58 3d 4d 58 2d 32  0d 10 2c 21 20 59 3d 59  | MX=MX-2..,! Y=Y|
00001810  2b 31 3a e7 20 59 3d 4d  59 20 8c 20 4d 59 3d 4d  |+1:. Y=MY . MY=M|
00001820  59 2d 32 3a e5 8d 44 4a  50 0d 10 36 28 20 f2 4e  |Y-2:..DJP..6( .N|
00001830  45 58 54 43 48 41 52 3a  f1 8a 58 2d 31 2c 59 29  |EXTCHAR:..X-1,Y)|
00001840  3b 43 24 28 43 25 29 3b  43 48 24 3a e5 8d 54 6c  |;C$(C%);CH$:..Tl|
00001850  50 0d 10 4a 1f 20 f2 4e  45 58 54 43 48 41 52 3a  |P..J. .NEXTCHAR:|
00001860  e7 20 43 48 24 3d 22 20  22 20 8c 20 8d 44 5e 50  |. CH$=" " . .D^P|
00001870  0d 10 54 18 20 f1 8a 58  2d 31 2c 59 29 3b 43 24  |..T. ..X-1,Y);C$|
00001880  28 43 25 29 3b 43 48 24  0d 10 5e 19 20 e7 20 58  |(C%);CH$..^. . X|
00001890  3e 4e 58 20 8c 20 58 3d  58 2d 31 3a e5 8d 44 4a  |>NX . X=X-1:..DJ|
000018a0  50 0d 10 68 1b 20 4e 58  3d 4e 58 2b 32 3a e7 20  |P..h. NX=NX+2:. |
000018b0  4e 59 3d 31 32 20 8c 20  8d 64 4c 50 0d 10 72 32  |NY=12 . .dLP..r2|
000018c0  20 59 3d 59 2d 31 3a f1  8a 58 2d 31 2c 59 29 3b  | Y=Y-1:..X-1,Y);|
000018d0  43 24 28 43 25 29 3b 3a  e7 20 59 3d 4e 59 20 8c  |C$(C%);:. Y=NY .|
000018e0  20 4e 59 3d 4e 59 2b 32  3a e5 8d 54 4e 50 0d 10  | NY=NY+2:..TNP..|
000018f0  7c 21 20 f2 4e 45 58 54  43 48 41 52 3a f1 43 48  ||! .NEXTCHAR:.CH|
00001900  24 3b bd 28 26 38 37 29  3b 3a e5 8d 44 72 50 0d  |$;.(&87);:..DrP.|
00001910  10 cc 0c 20 f2 52 45 54  55 52 4e 0d 13 24 0b 20  |... .RETURN..$. |
00001920  f2 43 4c 45 41 52 0d 13  2e 2f 20 f2 4c 49 4e 45  |.CLEAR.../ .LINE|
00001930  28 22 53 75 63 68 20 69  73 20 74 68 65 20 70 6f  |("Such is the po|
00001940  77 65 72 20 6f 66 20 74  68 65 20 63 6f 6d 70 75  |wer of the compu|
00001950  74 65 72 22 29 0d 13 38  31 20 f2 4c 49 4e 45 28  |ter")..81 .LINE(|
00001960  22 53 75 63 68 20 69 73  20 74 68 65 20 6c 6f 6e  |"Such is the lon|
00001970  65 6c 69 6e 65 73 73 20  6f 66 20 74 68 65 20 70  |eliness of the p|
00001980  6f 65 74 2e 22 29 0d 13  42 31 20 f2 4c 49 4e 45  |oet.")..B1 .LINE|
00001990  28 22 41 20 70 6c 61 73  74 69 63 20 64 61 66 66  |("A plastic daff|
000019a0  6f 64 69 6c 20 69 6e 20  61 20 47 72 65 63 69 61  |odil in a Grecia|
000019b0  6e 20 75 72 6e 22 29 0d  13 4c 32 20 f2 4c 49 4e  |n urn")..L2 .LIN|
000019c0  45 28 22 47 6f 6f 64 62  79 65 20 22 2b 4e 41 4d  |E("Goodbye "+NAM|
000019d0  45 24 2b 22 2e 20 4e 6f  77 20 70 72 65 73 73 20  |E$+". Now press |
000019e0  52 45 54 55 52 4e 2e 22  29 0d 13 56 12 20 f2 52  |RETURN.")..V. .R|
000019f0  45 54 55 52 4e 3a e5 8d  74 44 43 0d 13 88 0c 20  |ETURN:..tDC.... |
00001a00  dd f2 52 41 4e 44 31 0d  13 92 23 20 41 24 3d 22  |..RAND1...# A$="|
00001a10  4c 69 6b 65 20 22 3a 47  4f 4e 45 28 31 29 3d 30  |Like ":GONE(1)=0|
00001a20  3a 47 4f 4e 45 28 32 29  3d 30 0d 13 9c 0f 20 e3  |:GONE(2)=0.... .|
00001a30  20 5a 25 3d 31 20 b8 20  33 0d 13 a6 2e 20 59 25  | Z%=1 . 3.... Y%|
00001a40  3d b3 28 31 37 29 3a e7  20 47 4f 4e 45 28 31 29  |=.(17):. GONE(1)|
00001a50  3d 59 25 20 84 20 47 4f  4e 45 28 32 29 3d 59 25  |=Y% . GONE(2)=Y%|
00001a60  20 8c 20 8d 74 66 53 0d  13 b0 12 20 e7 20 5a 25  | . .tfS.... . Z%|
00001a70  3c 33 20 8c 20 8d 64 4e  53 0d 13 ba 17 20 e7 20  |<3 . .dNS.... . |
00001a80  53 31 28 59 25 29 3c 3e  32 20 8c 20 8d 74 66 53  |S1(Y%)<>2 . .tfS|
00001a90  0d 13 c4 18 20 41 24 3d  41 24 2b 57 31 24 28 59  |.... A$=A$+W1$(Y|
00001aa0  25 29 3a e5 8d 64 62 53  0d 13 ce 10 20 47 4f 4e  |%):..dbS.... GON|
00001ab0  45 28 5a 25 29 3d 59 25  0d 13 d8 31 20 41 24 3d  |E(Z%)=Y%...1 A$=|
00001ac0  41 24 2b 57 31 24 28 59  25 29 2b 22 2c 20 22 3a  |A$+W1$(Y%)+", ":|
00001ad0  e7 20 53 31 28 59 25 29  3d 32 20 8c 20 41 24 3d  |. S1(Y%)=2 . A$=|
00001ae0  41 24 2b 22 61 6e 64 20  22 0d 13 e2 1e 20 ed 3a  |A$+"and ".... .:|
00001af0  41 24 3d 41 24 2b 22 20  61 6e 64 20 22 2b 57 32  |A$=A$+" and "+W2|
00001b00  24 28 b3 28 37 29 29 0d  13 eb 06 20 e1 0d 14 50  |$(.(7)).... ...P|
00001b10  0c 20 dd f2 52 41 4e 44  32 0d 14 5a 23 20 59 25  |. ..RAND2..Z# Y%|
00001b20  3d b3 28 39 29 3a 5a 25  3d b3 28 39 29 3a e7 20  |=.(9):Z%=.(9):. |
00001b30  59 25 3d 5a 25 20 8c 20  8d 44 5a 54 0d 14 6e 29  |Y%=Z% . .DZT..n)|
00001b40  20 41 24 3d 22 59 6f 75  20 63 61 6e 20 22 2b 57  | A$="You can "+W|
00001b50  33 24 28 59 25 29 2b 22  20 6f 72 20 22 2b 57 33  |3$(Y%)+" or "+W3|
00001b60  24 28 5a 25 29 0d 14 b3  06 20 e1 0d 15 7c 18 20  |$(Z%).... ...|. |
00001b70  dd f2 45 4e 44 56 45 52  53 45 28 41 2c 42 2c 43  |..ENDVERSE(A,B,C|
00001b80  2c 44 29 0d 15 90 15 20  49 3d 43 25 3a f2 43 4c  |,D).... I=C%:.CL|
00001b90  45 41 52 3a 43 25 3d 49  0d 15 9a 12 20 f2 45 4e  |EAR:C%=I.... .EN|
00001ba0  44 4c 49 4e 45 28 41 2c  31 29 0d 15 a4 12 20 f2  |DLINE(A,1).... .|
00001bb0  45 4e 44 4c 49 4e 45 28  42 2c 32 29 0d 15 ae 12  |ENDLINE(B,2)....|
00001bc0  20 f2 45 4e 44 4c 49 4e  45 28 43 2c 33 29 0d 15  | .ENDLINE(C,3)..|
00001bd0  b8 12 20 f2 45 4e 44 4c  49 4e 45 28 44 2c 34 29  |.. .ENDLINE(D,4)|
00001be0  0d 15 c2 22 20 59 25 3d  a6 28 31 30 30 29 3a e7  |..." Y%=.(100):.|
00001bf0  20 59 25 3c 30 20 8c 20  59 25 3d 30 3a e5 8d 64  | Y%<0 . Y%=0:..d|
00001c00  5f 55 0d 15 cc 14 20 e7  20 59 25 3c 3e 31 33 20  |_U.... . Y%<>13 |
00001c10  8c 20 8d 64 42 55 0d 15  df 06 20 e1 0d 15 e0 13  |. .dBU.... .....|
00001c20  20 dd f2 45 4e 44 4c 49  4e 45 28 53 2c 4c 29 0d  | ..ENDLINE(S,L).|
00001c30  15 ea 12 20 f2 45 4e 44  52 45 41 44 28 53 2c 4c  |... .ENDREAD(S,L|
00001c40  29 0d 15 f4 11 20 f1 22  20 22 3b 43 24 28 43 25  |).... ." ";C$(C%|
00001c50  29 3b 0d 15 fe 12 20 e3  20 49 3d 31 20 b8 20 a9  |);.... . I=1 . .|
00001c60  28 4c 24 29 0d 16 08 1a  20 f1 c1 4c 24 2c 49 2c  |(L$).... ..L$,I,|
00001c70  31 29 3b 3a f2 57 41 49  54 28 2e 30 31 29 0d 16  |1);:.WAIT(.01)..|
00001c80  12 25 20 e7 20 c1 4c 24  2c 49 2c 31 29 3d 22 2e  |.% . .L$,I,1)=".|
00001c90  22 20 8c 20 f2 57 41 49  54 28 2e 36 29 3a f1 22  |" . .WAIT(.6):."|
00001ca0  20 22 3b 0d 16 1c 09 20  ed 3a f1 27 0d 16 43 06  | ";.... .:.'..C.|
00001cb0  20 e1 0d 16 a8 13 20 dd  f2 45 4e 44 52 45 41 44  | ..... ..ENDREAD|
00001cc0  28 53 2c 4c 29 0d 16 b2  1c 20 f7 3a e3 20 49 3d  |(S,L).... .:. I=|
00001cd0  31 20 b8 20 53 2a 34 2b  4c 2d 34 3a f3 4c 24 3a  |1 . S*4+L-4:.L$:|
00001ce0  ed 0d 17 0b 06 20 e1 0d  17 0c 14 20 dd a4 56 4e  |..... ..... ..VN|
00001cf0  55 4d 28 41 2c 42 2c 43  2c 44 29 0d 17 16 15 20  |UM(A,B,C,D).... |
00001d00  3d 41 2a 36 34 2b 42 2a  31 36 2b 43 2a 34 2b 44  |=A*64+B*16+C*4+D|
00001d10  0d 17 70 0d 20 dd f2 50  49 53 54 4f 4c 0d 17 7a  |..p. ..PISTOL..z|
00001d20  1b 20 e3 20 49 3d 31 20  b8 20 31 30 3a 47 4f 4e  |. . I=1 . 10:GON|
00001d30  45 28 49 29 3d a3 3a ed  0d 17 84 0e 20 e3 20 49  |E(I)=.:..... . I|
00001d40  3d 31 20 b8 20 36 0d 17  8e 2c 20 f5 20 58 3d b3  |=1 . 6..., . X=.|
00001d50  28 31 30 29 3a fd 20 47  4f 4e 45 28 58 29 3d a3  |(10):. GONE(X)=.|
00001d60  3a 47 4f 4e 45 28 58 29  3d b9 3a 58 3d 58 2a 33  |:GONE(X)=.:X=X*3|
00001d70  2b 32 0d 17 98 5d 20 f1  8a 58 2c 32 29 3b 47 24  |+2...] ..X,2);G$|
00001d80  3b 22 7a 22 3b bd 28 32  35 35 29 3b 22 35 22 3b  |;"z";.(255);"5";|
00001d90  42 24 3b 42 24 3b 42 24  3b 42 24 3b 44 24 3b 47  |B$;B$;B$;B$;D$;G|
00001da0  24 3b bd 28 32 35 35 29  3b 22 2e 22 3b 42 24 3b  |$;.(255);".";B$;|
00001db0  42 24 3b 42 24 3b 44 24  3b 47 24 3b 22 35 22 3b  |B$;B$;D$;G$;"5";|
00001dc0  42 24 3b 42 24 3b 44 24  3b 47 24 3b 22 35 22 0d  |B$;B$;D$;G$;"5".|
00001dd0  17 a2 3f 20 f2 43 28 26  46 46 29 3a f2 43 28 26  |..? .C(&FF):.C(&|
00001de0  45 46 29 3a f2 41 28 33  2c 31 35 29 3a e3 20 4a  |EF):.A(3,15):. J|
00001df0  3d 31 20 b8 20 32 35 35  20 88 20 38 3a f2 46 28  |=1 . 255 . 8:.F(|
00001e00  32 2c 4a 29 3a ed 3a f2  41 28 33 2c 30 29 0d 17  |2,J):.:.A(3,0)..|
00001e10  ac 36 20 e3 20 4a 3d 38  20 b8 20 31 39 3a f1 8a  |.6 . J=8 . 19:..|
00001e20  58 2d 31 2c 4a 29 3b bd  28 26 38 31 29 3b 22 2a  |X-1,J);.(&81);"*|
00001e30  22 3b 43 24 28 43 25 29  3a f2 57 41 49 54 28 30  |";C$(C%):.WAIT(0|
00001e40  2e 30 31 29 0d 17 b6 15  20 f1 8a 58 2d 31 2c 4a  |.01).... ..X-1,J|
00001e50  29 3b 22 20 20 20 22 3a  ed 0d 17 c0 20 20 e3 20  |);"   ":....  . |
00001e60  4a 3d 32 20 b8 20 37 3a  f1 8a 58 2c 4a 29 3b 22  |J=2 . 7:..X,J);"|
00001e70  20 20 20 20 22 3a ed 3a  ed 0d 17 d3 06 20 e1 0d  |    ":.:..... ..|
00001e80  1a 90 0f 20 dd f2 4e 45  58 54 43 48 41 52 0d 1a  |... ..NEXTCHAR..|
00001e90  9a 1b 20 43 48 24 3d c1  22 20 61 6e 64 20 72 6f  |.. CH$=." and ro|
00001ea0  75 6e 64 22 2c 49 2c 31  29 0d 1a a4 11 20 e7 20  |und",I,1).... . |
00001eb0  49 3e 31 20 8c 20 8d 74  78 5a 0d 1a ae 1a 20 43  |I>1 . .txZ.... C|
00001ec0  25 3d 43 25 2b 31 3a e7  20 43 25 3e 34 20 8c 20  |%=C%+1:. C%>4 . |
00001ed0  43 25 3d 31 0d 1a b8 19  20 e7 20 49 3d 31 30 20  |C%=1.... . I=10 |
00001ee0  8c 20 49 3d 31 20 8b 20  49 3d 49 2b 31 0d 1a f3  |. I=1 . I=I+1...|
00001ef0  06 20 e1 0d 1b 58 0d 20  dd f2 52 45 54 55 52 4e  |. ...X. ..RETURN|
00001f00  0d 1b 6c 17 20 f1 8a 33  37 2c 32 33 29 3b 3a f2  |..l. ..37,23);:.|
00001f10  4f 4e 3a f2 4b 43 4c 0d  1b 76 1c 20 58 24 3d be  |ON:.KCL..v. X$=.|
00001f20  3a e7 20 97 28 58 24 29  3c 3e 31 33 20 8c 20 8d  |:. .(X$)<>13 . .|
00001f30  44 76 5b 0d 1b 80 09 20  f2 4f 46 46 0d 1b bb 06  |Dv[.... .OFF....|
00001f40  20 e1 0d 1b bc 0c 20 dd  f2 43 4c 45 41 52 0d 1b  | ..... ..CLEAR..|
00001f50  c6 1b 20 db 3a f1 8a 30  2c 38 29 3b 3a 54 25 3d  |.. .:..0,8);:T%=|
00001f60  30 3a 43 25 3d b3 28 34  29 0d 1c 1f 06 20 e1 0d  |0:C%=.(4).... ..|
00001f70  1c 20 0f 20 dd f2 4c 49  4e 45 28 4c 24 29 0d 1c  |. . ..LINE(L$)..|
00001f80  34 11 20 f1 22 20 22 3b  43 24 28 43 25 29 3b 0d  |4. ." ";C$(C%);.|
00001f90  1c 3e 16 20 e7 20 a9 28  4c 24 29 3e 33 36 20 8c  |.>. . .(L$)>36 .|
00001fa0  20 8d 74 44 5c 0d 1c 48  10 20 f5 20 fd 20 91 2d  | .tD\..H. . . .-|
00001fb0  54 25 3e 44 25 0d 1c 52  0e 20 f1 4c 24 3a e5 8d  |T%>D%..R. .L$:..|
00001fc0  64 5e 5c 0d 1c 84 09 20  49 3d 33 36 0d 1c 8e 23  |d^\.... I=36...#|
00001fd0  20 e7 20 97 28 c1 4c 24  2c 49 2c 31 29 29 3e 36  | . .(.L$,I,1))>6|
00001fe0  34 20 8c 20 49 3d 49 2d  31 3a e5 8d 74 4e 5c 0d  |4 . I=I-1:..tN\.|
00001ff0  1c 98 1b 20 e7 20 c1 4c  24 2c 49 2c 31 29 3d 22  |... . .L$,I,1)="|
00002000  20 22 20 8c 20 49 3d 49  2d 31 0d 1c a2 10 20 f5  | " . I=I-1.... .|
00002010  20 fd 20 91 2d 54 25 3e  44 25 0d 1c ac 0c 20 f1  | . .-T%>D%.... .|
00002020  c0 4c 24 2c 49 29 0d 1c  b6 21 20 e7 20 c1 4c 24  |.L$,I)...! . .L$|
00002030  2c 49 2c 31 29 3d 22 20  22 20 8c 20 49 3d 49 2b  |,I,1)=" " . I=I+|
00002040  31 3a e5 8d 74 76 5c 0d  1c c0 2a 20 f1 43 24 28  |1:..tv\...* .C$(|
00002050  43 25 29 3b c4 33 35 2d  a9 28 4c 24 29 2b 49 2c  |C%);.35-.(L$)+I,|
00002060  22 20 22 29 3b c2 4c 24  2c a9 28 4c 24 29 2d 49  |" ");.L$,.(L$)-I|
00002070  29 0d 1c de 0b 20 f1 3a  54 25 3d 91 0d 1c e7 06  |).... .:T%=.....|
00002080  20 e1 0d 1d 4c 0c 20 dd  f2 52 57 41 49 54 0d 1d  | ...L. ..RWAIT..|
00002090  56 17 20 f1 8a 33 37 2c  32 33 29 3b 3a f2 4f 4e  |V. ..37,23);:.ON|
000020a0  3a 54 25 3d 91 0d 1d 60  24 20 41 24 3d bf 28 30  |:T%=...`$ A$=.(0|
000020b0  29 3a e7 20 41 24 3d bd  28 31 33 29 20 8c 20 59  |):. A$=.(13) . Y|
000020c0  25 3d 30 3a e5 8d 74 66  5d 0d 1d 6a 16 20 e7 20  |%=0:..tf]..j. . |
000020d0  91 2d 54 25 3c 32 35 30  20 8c 20 8d 44 60 5d 0d  |.-T%<250 . .D`].|
000020e0  1d 74 09 20 59 25 3d 31  0d 1d a6 09 20 f2 4f 46  |.t. Y%=1.... .OF|
000020f0  46 0d 1d af 06 20 e1 0d  1d b0 15 20 dd f2 52 41  |F.... ..... ..RA|
00002100  4e 44 4c 49 4e 45 28 41  24 2c 4e 29 0d 1d ba 20  |NDLINE(A$,N)... |
00002110  20 f1 8a 32 2c 4e 29 3b  c4 37 38 2c 22 20 22 29  | ..2,N);.78," ")|
00002120  3b 8a 30 2c 4e 29 3b bd  28 37 29 3b 0d 1d c4 1b  |;.0,N);.(7);....|
00002130  20 43 25 3d b3 28 34 29  3a 54 25 3d 30 3a f2 4c  | C%=.(4):T%=0:.L|
00002140  49 4e 45 28 41 24 29 0d  1e 13 06 20 e1 0d 1e dc  |INE(A$).... ....|
00002150  11 20 dd a4 4c 45 51 28  41 24 2c 45 24 29 0d 1e  |. ..LEQ(A$,E$)..|
00002160  e6 2a 20 e7 20 c0 41 24  2c 31 29 3d 45 24 20 84  |.* . .A$,1)=E$ .|
00002170  20 c0 41 24 2c 31 29 3d  bd 28 97 28 45 24 29 2b  | .A$,1)=.(.(E$)+|
00002180  33 32 29 20 8c 20 3d b9  0d 1e f0 07 20 3d a3 0d  |32) . =..... =..|
00002190  1f 3f 06 20 e1 0d 1f 40  12 20 dd f2 44 42 4c 28  |.?. ...@. ..DBL(|
000021a0  58 24 2c 58 2c 59 29 0d  1f 4a 17 20 f1 8a 58 2d  |X$,X,Y)..J. ..X-|
000021b0  31 2c 59 29 3b bd 28 31  34 31 29 3b 58 24 0d 1f  |1,Y);.(141);X$..|
000021c0  54 19 20 f1 8a 58 2d 31  2c 59 2b 31 29 3b bd 28  |T. ..X-1,Y+1);.(|
000021d0  31 34 31 29 3b 58 24 0d  1f a3 06 20 e1 0d 1f a4  |141);X$.... ....|
000021e0  0e 20 dd f2 57 41 49 54  28 58 29 0d 1f ae 08 20  |. ..WAIT(X).... |
000021f0  ea 20 5a 0d 1f b8 08 20  5a 3d 91 0d 1f c2 12 20  |. Z.... Z=..... |
00002200  f5 20 fd 20 91 2d 5a 3e  58 2a 31 30 30 0d 20 07  |. . .-Z>X*100. .|
00002210  06 20 e1 0d 20 08 0c 20  dd f2 53 50 41 43 45 0d  |. .. .. ..SPACE.|
00002220  20 1c 34 20 f1 8a 33 2c  32 32 29 3b 22 50 72 65  | .4 ..3,22);"Pre|
00002230  73 73 20 74 68 65 20 53  50 41 43 45 20 42 41 52  |ss the SPACE BAR|
00002240  20 74 6f 20 63 6f 6e 74  69 6e 75 65 22 3b 3a f2  | to continue";:.|
00002250  4b 43 4c 0d 20 30 0e 20  f5 20 fd 20 be 3d 22 20  |KCL. 0. . . .=" |
00002260  22 0d 20 6b 06 20 e1 0d  20 6c 10 20 dd f2 54 49  |". k. .. l. ..TI|
00002270  54 4c 45 50 41 47 45 0d  20 76 4c 20 db 3a f2 44  |TLEPAGE. vL .:.D|
00002280  42 4c 28 22 4e 6f 77 20  70 72 65 73 73 20 52 45  |BL("Now press RE|
00002290  54 55 52 4e 2e 2e 2e 2e  22 2c 38 2c 38 29 3a f2  |TURN....",8,8):.|
000022a0  44 42 4c 28 22 61 20 70  6f 65 6d 20 62 79 20 52  |DBL("a poem by R|
000022b0  4f 47 45 52 20 4d 63 47  4f 55 47 48 22 2c 36 2c  |OGER McGOUGH",6,|
000022c0  31 34 29 0d 20 cf 06 20  e1 0d 22 60 0a 20 dd f2  |14). .. .."`. ..|
000022d0  4b 43 4c 0d 22 6a 10 20  f5 20 fd 20 a6 28 30 29  |KCL."j. . . .(0)|
000022e0  3d 2d 31 0d 22 c3 06 20  e1 0d 22 c4 0a 20 dd f2  |=-1.".. ..".. ..|
000022f0  4f 46 46 0d 22 ce 16 20  ef 32 33 3b 38 32 30 32  |OFF.".. .23;8202|
00002300  3b 30 3b 30 3b 30 3b 3a  e1 0d 22 f6 09 20 dd f2  |;0;0;0;:..".. ..|
00002310  4f 4e 0d 23 00 17 20 ef  32 33 3b 32 39 31 39 34  |ON.#.. .23;29194|
00002320  3b 30 3b 30 3b 30 3b 3a  e1 0d 23 28 31 20 dd f2  |;0;0;0;:..#(1 ..|
00002330  47 50 49 28 46 32 2c 4d  4c 29 3a f4 20 47 65 6e  |GPI(F2,ML):. Gen|
00002340  65 72 61 6c 20 50 75 72  70 6f 73 65 20 49 6e 70  |eral Purpose Inp|
00002350  75 74 20 52 6f 75 74 69  6e 65 0d 23 32 0a 20 ea  |ut Routine.#2. .|
00002360  42 2c 42 24 0d 23 3c 0a  20 41 24 3d 22 22 0d 23  |B,B$.#<. A$="".#|
00002370  46 2d 20 f1 c4 4d 4c 2c  22 20 22 29 3b c4 4d 4c  |F- ..ML," ");.ML|
00002380  2b 31 2c bd 28 38 29 29  3b 43 24 28 b3 28 34 29  |+1,.(8));C$(.(4)|
00002390  29 3b 3a f2 4f 4e 3a f2  4b 43 4c 0d 23 50 1f 20  |);:.ON:.KCL.#P. |
000023a0  42 24 3d be 3a 42 3d 97  28 42 24 29 3a e7 20 42  |B$=.:B=.(B$):. B|
000023b0  3d 31 33 20 8c 20 8d 64  66 63 0d 23 5a 1b 20 e7  |=13 . .dfc.#Z. .|
000023c0  20 42 3d 31 32 37 20 80  20 41 24 3d 22 22 20 8c  | B=127 . A$="" .|
000023d0  20 8d 44 50 63 0d 23 64  29 20 e7 20 42 3d 31 32  | .DPc.#d) . B=12|
000023e0  37 20 8c 20 41 24 3d c0  41 24 2c a9 28 41 24 29  |7 . A$=.A$,.(A$)|
000023f0  2d 31 29 3a f1 42 24 3b  3a e5 8d 44 50 63 0d 23  |-1):.B$;:..DPc.#|
00002400  6e 25 20 e7 20 a9 28 41  24 29 3d 4d 4c 20 84 20  |n% . .(A$)=ML . |
00002410  42 3c 33 32 20 84 20 42  3e 31 32 36 20 8c 20 8d  |B<32 . B>126 . .|
00002420  64 52 63 0d 23 78 2b 20  e7 20 46 32 3d 30 20 84  |dRc.#x+ . F2=0 .|
00002430  20 42 3d 33 32 20 84 20  28 42 3e 3d 34 38 20 80  | B=32 . (B>=48 .|
00002440  20 42 3c 3d 35 37 29 20  8c 20 8d 64 5c 63 0d 23  | B<=57) . .d\c.#|
00002450  d2 12 20 f1 bd 28 37 29  3b 3a e5 8d 44 50 63 20  |.. ..(7);:..DPc |
00002460  0d 23 dc 18 20 f1 42 24  3b 3a 41 24 3d 41 24 2b  |.#.. .B$;:A$=A$+|
00002470  42 24 3a e5 8d 44 50 63  0d 23 e6 09 20 f2 4f 46  |B$:..DPc.#.. .OF|
00002480  46 0d 23 ef 06 20 e1 0d  23 f0 0e 20 dd f2 59 45  |F.#.. ..#.. ..YE|
00002490  53 4f 52 4e 4f 0d 23 fa  08 20 ea 42 24 0d 24 04  |SORNO.#.. .B$.$.|
000024a0  0e 20 f2 47 50 49 28 30  2c 33 29 0d 24 0e 0e 20  |. .GPI(0,3).$.. |
000024b0  42 24 3d c0 41 24 2c 31  29 0d 24 18 0b 20 59 25  |B$=.A$,1).$.. Y%|
000024c0  3d 2d 31 20 0d 24 22 1d  20 e7 20 42 24 3d 22 59  |=-1 .$". . B$="Y|
000024d0  22 20 84 20 42 24 3d 22  79 22 20 8c 20 59 25 3d  |" . B$="y" . Y%=|
000024e0  31 0d 24 2c 1d 20 e7 20  42 24 3d 22 4e 22 20 84  |1.$,. . B$="N" .|
000024f0  20 42 24 3d 22 6e 22 20  8c 20 59 25 3d 30 0d 24  | B$="n" . Y%=0.$|
00002500  53 06 20 e1 0d 27 10 7e  dd f2 41 53 53 20 50 25  |S. ..'.~..ASS P%|
00002510  3d 4f 47 25 3a 5b 4f 50  54 20 30 3a 50 48 50 3a  |=OG%:[OPT 0:PHP:|
00002520  4c 44 59 23 26 46 46 3a  53 45 49 3a 53 54 59 26  |LDY#&FF:SEI:STY&|
00002530  46 45 34 33 3a 53 54 41  26 46 45 34 46 3a 49 4e  |FE43:STA&FE4F:IN|
00002540  59 3a 53 54 59 26 46 45  34 30 3a 4c 44 59 23 26  |Y:STY&FE40:LDY#&|
00002550  31 30 3a 2e 57 41 49 54  20 44 45 59 3a 42 4e 45  |10:.WAIT DEY:BNE|
00002560  20 57 41 49 54 3a 4c 44  59 23 26 30 38 3a 53 54  | WAIT:LDY#&08:ST|
00002570  59 26 46 45 34 30 3a 50  4c 50 3a 52 54 53 3a 5d  |Y&FE40:PLP:RTS:]|
00002580  3a e1 0d 27 74 18 dd f2  43 28 43 25 29 20 41 25  |:..'t...C(C%) A%|
00002590  3d 43 25 3a d6 4f 47 25  3a e1 0d 27 d8 28 dd f2  |=C%:.OG%:..'.(..|
000025a0  41 28 43 48 25 2c 41 54  25 29 20 f2 43 28 26 38  |A(CH%,AT%) .C(&8|
000025b0  30 2b 43 48 25 2a 33 32  2b 33 31 2d 41 54 25 29  |0+CH%*32+31-AT%)|
000025c0  3a e1 0d 28 3c 35 dd f2  46 28 43 48 25 2c 46 52  |:..(<5..F(CH%,FR|
000025d0  25 29 20 f2 43 28 26 38  30 2b 43 48 25 2a 33 32  |%) .C(&80+CH%*32|
000025e0  2b 28 46 52 25 83 31 36  29 29 3a f2 43 28 46 52  |+(FR%.16)):.C(FR|
000025f0  25 2f 31 36 29 3a e1 0d  ff                       |%/16):...|
000025f9