� 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@
2 �7
< �:� � � �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 (Y/N)? ";
� �YESORNO:� Y%<0 � �tNC 
� � Y%=0 � �:� �Dd@
� � "PHONE"
� �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 07 20 eb 37 0d 00 3c  12 20 db 3a ee 20 85 20  |2. .7..<. .:. . |
000000e0  e5 20 8d 54 60 43 20 0d  00 64 0f 20 f2 54 49 54  |. .T`C ..d. .TIT|
000000f0  4c 45 50 41 47 45 0d 00  6e 3e 20 de 20 4f 47 25  |LEPAGE..n> . OG%|
00000100  33 30 2c 43 24 28 34 29  3a 43 24 28 31 29 3d bd  |30,C$(4):C$(1)=.|
00000110  26 38 32 3a 43 24 28 32  29 3d bd 26 38 33 3a 43  |&82:C$(2)=.&83:C|
00000120  24 28 33 29 3d bd 26 38  36 3a 43 24 28 34 29 3d  |$(3)=.&86:C$(4)=|
00000130  bd 26 38 37 0d 00 73 09  20 f2 41 53 53 0d 00 78  |.&87..s. .ASS..x|
00000140  1f 20 47 24 3d bd 28 26  39 31 29 3a 42 24 3d bd  |. G$=.(&91):B$=.|
00000150  28 38 29 3a 44 24 3d bd  28 31 30 29 0d 00 8c 0b  |(8):D$=.(10)....|
00000160  20 44 25 3d 31 38 30 0d  00 96 10 20 41 24 3d c4  | D%=180.... A$=.|
00000170  35 31 2c 22 20 22 29 0d  00 c8 12 20 f2 45 4e 44  |51," ").... .END|
00000180  52 45 41 44 28 34 2c 34  29 0d 00 d2 5b 20 dc 20  |READ(4,4)...[ . |
00000190  49 20 65 78 70 6c 61 69  6e 20 71 75 69 65 74 6c  |I explain quietl|
000001a0  79 2e 59 6f 75 2c 48 65  61 72 20 6d 65 20 73 68  |y.You,Hear me sh|
000001b0  6f 75 74 69 6e 67 2e 59  6f 75 2c 54 72 79 20 61  |outing.You,Try a|
000001c0  20 6e 65 77 20 74 61 63  6b 2e 49 2c 46 65 65 6c  | new tack.I,Feel|
000001d0  20 6f 6c 64 20 77 6f 75  6e 64 73 20 72 65 2d 6f  | old wounds re-o|
000001e0  70 65 6e 2e 0d 00 dc 59  20 dc 20 59 6f 75 20 73  |pen....Y . You s|
000001f0  65 65 20 62 6f 74 68 20  73 69 64 65 73 2e 49 2c  |ee both sides.I,|
00000200  53 65 65 20 79 6f 75 72  20 62 6c 69 6e 6b 65 72  |See your blinker|
00000210  73 2e 49 2c 41 6d 20 70  6c 61 63 61 74 6f 72 79  |s.I,Am placatory|
00000220  2e 59 6f 75 2c 53 65 6e  73 65 20 61 20 6e 65 77  |.You,Sense a new|
00000230  20 73 65 6c 66 69 73 68  6e 65 73 73 2e 0d 00 e6  | selfishness....|
00000240  56 20 dc 20 49 20 61 6d  20 61 20 64 6f 76 65 2e  |V . I am a dove.|
00000250  59 6f 75 2c 52 65 63 6f  67 6e 69 73 65 20 74 68  |You,Recognise th|
00000260  65 20 68 61 77 6b 2e 59  6f 75 2c 4f 66 66 65 72  |e hawk.You,Offer|
00000270  20 61 6e 20 6f 6c 69 76  65 20 62 72 61 6e 63 68  | an olive branch|
00000280  2e 49 2c 46 65 65 6c 20  74 68 65 20 74 68 6f 72  |.I,Feel the thor|
00000290  6e 73 2e 0d 00 f0 46 20  dc 20 59 6f 75 20 62 6c  |ns....F . You bl|
000002a0  65 65 64 2e 49 2c 53 65  65 20 63 72 6f 63 6f 64  |eed.I,See crocod|
000002b0  69 6c 65 20 74 65 61 72  73 2e 49 2c 57 69 74 68  |ile tears.I,With|
000002c0  64 72 61 77 2e 59 6f 75  2c 46 65 65 6c 20 74 68  |draw.You,Feel th|
000002d0  65 20 69 6d 70 61 63 74  2e 0d 01 2c 2c 20 de 20  |e impact...,, . |
000002e0  57 31 24 28 31 37 29 2c  53 31 28 31 37 29 2c 57  |W1$(17),S1(17),W|
000002f0  32 24 28 37 29 2c 57 33  24 28 39 29 2c 47 4f 4e  |2$(7),W3$(9),GON|
00000300  45 28 31 30 29 0d 01 36  23 20 e3 20 5a 25 3d 31  |E(10)..6# . Z%=1|
00000310  20 b8 20 31 37 3a f3 20  57 31 24 28 5a 25 29 2c  | . 17:. W1$(Z%),|
00000320  53 31 28 5a 25 29 3a ed  0d 01 40 41 20 dc 20 69  |S1(Z%):...@A . i|
00000330  6e 70 75 74 2c 32 2c 63  75 72 73 6f 72 2c 32 2c  |nput,2,cursor,2,|
00000340  6f 75 74 70 75 74 2c 32  2c 6d 69 63 72 6f 2c 32  |output,2,micro,2|
00000350  2c 69 6e 74 65 72 66 61  63 65 2c 33 2c 74 72 61  |,interface,3,tra|
00000360  6e 73 64 75 63 65 72 2c  33 0d 01 4a 49 20 dc 20  |nsducer,3..JI . |
00000370  74 72 61 6e 73 69 73 74  6f 72 2c 33 2c 62 75 66  |transistor,3,buf|
00000380  66 65 72 2c 33 2c 68 61  72 64 77 61 72 65 2c 32  |fer,3,hardware,2|
00000390  2c 64 69 6f 64 65 2c 32  2c 43 4f 42 4f 4c 2c 32  |,diode,2,COBOL,2|
000003a0  2c 42 41 53 49 43 2c 32  2c 46 4f 52 54 52 41 4e  |,BASIC,2,FORTRAN|
000003b0  2c 32 0d 01 54 2d 20 dc  20 61 6e 61 6c 6f 67 75  |,2..T- . analogu|
000003c0  65 2c 33 2c 64 69 67 69  74 61 6c 2c 33 2c 70 61  |e,3,digital,3,pa|
000003d0  72 69 74 79 2c 33 2c 50  41 53 43 41 4c 2c 32 0d  |rity,3,PASCAL,2.|
000003e0  01 5e 1b 20 e3 20 5a 25  3d 31 20 b8 20 37 3a f3  |.^. . Z%=1 . 7:.|
000003f0  20 57 32 24 28 5a 25 29  3a ed 0d 01 68 28 20 dc  | W2$(Z%):...h( .|
00000400  20 73 74 61 63 6b 2c 70  6f 72 74 2c 50 52 4f 4d  | stack,port,PROM|
00000410  2c 52 4f 4d 2c 62 79 74  65 2c 63 68 69 70 2c 68  |,ROM,byte,chip,h|
00000420  65 78 0d 01 72 1b 20 e3  20 5a 25 3d 31 20 b8 20  |ex..r. . Z%=1 . |
00000430  39 3a f3 20 57 33 24 28  5a 25 29 3a ed 0d 01 7c  |9:. W3$(Z%):...||
00000440  44 20 dc 20 77 61 6c 6b  20 74 68 65 20 64 6f 67  |D . walk the dog|
00000450  2c 74 61 6b 65 20 61 20  62 61 74 68 2c 70 61 72  |,take a bath,par|
00000460  6b 20 74 68 65 20 4a 61  67 2c 77 72 69 74 65 20  |k the Jag,write |
00000470  61 20 6c 65 74 74 65 72  2c 6c 65 76 69 74 61 74  |a letter,levitat|
00000480  65 0d 01 86 40 20 dc 20  6d 65 64 69 74 61 74 65  |e...@ . meditate|
00000490  2c 73 77 69 6e 67 20 74  68 65 20 63 61 74 2c 6c  |,swing the cat,l|
000004a0  6f 69 74 65 72 20 77 69  74 68 20 69 6e 74 65 6e  |oiter with inten|
000004b0  74 2c 6a 6f 67 20 69 6e  20 74 68 65 20 70 61 72  |t,jog in the par|
000004c0  6b 0d 01 90 13 20 de 20  4e 24 28 36 29 2c 4c 4b  |k.... . N$(6),LK|
000004d0  24 28 36 29 0d 01 9a 22  20 e3 20 5a 25 3d 31 20  |$(6)..." . Z%=1 |
000004e0  b8 20 36 3a f3 20 4e 24  28 5a 25 29 2c 4c 4b 24  |. 6:. N$(Z%),LK$|
000004f0  28 5a 25 29 3a ed 0d 01  a4 30 20 dc 20 48 75 6e  |(Z%):....0 . Hun|
00000500  74 2c 57 68 6f 20 73 61  69 6c 65 64 20 64 6f 77  |t,Who sailed dow|
00000510  6e 20 74 68 65 20 54 68  61 6d 65 73 20 69 6e 20  |n the Thames in |
00000520  61 20 70 75 6e 74 0d 01  ae 2b 20 dc 20 53 6b 69  |a punt...+ . Ski|
00000530  6e 6e 65 72 2c 57 68 6f  20 74 6f 6f 6b 20 61 20  |nner,Who took a |
00000540  67 6f 72 69 6c 6c 61 20  74 6f 20 64 69 6e 6e 65  |gorilla to dinne|
00000550  72 0d 01 b8 2e 20 dc 20  43 6c 65 65 66 2c 57 68  |r.... . Cleef,Wh|
00000560  6f 20 73 77 61 6c 6c 6f  77 65 64 20 61 20 73 65  |o swallowed a se|
00000570  74 20 6f 66 20 66 61 6c  73 65 20 74 65 65 66 0d  |t of false teef.|
00000580  01 c2 30 20 dc 20 44 69  61 6e 61 2c 57 68 6f 20  |..0 . Diana,Who |
00000590  70 72 61 63 74 69 73 65  64 20 65 61 63 68 20 64  |practised each d|
000005a0  61 79 20 6f 6e 20 74 68  65 20 70 69 61 6e 6f 0d  |ay on the piano.|
000005b0  01 cc 2f 20 dc 20 4a 61  6b 65 2c 57 68 6f 20 73  |../ . Jake,Who s|
000005c0  61 69 64 20 27 54 68 65  72 65 20 68 61 73 20 62  |aid 'There has b|
000005d0  65 65 6e 20 61 20 6d 69  73 74 61 6b 65 27 0d 01  |een a mistake'..|
000005e0  d6 35 20 dc 20 46 6c 65  74 63 68 65 72 2c 57 68  |.5 . Fletcher,Wh|
000005f0  6f 20 74 72 69 65 64 20  74 6f 20 6d 61 6b 65 20  |o tried to make |
00000600  6c 6f 76 65 20 6f 6e 20  61 20 73 74 72 65 74 63  |love on a stretc|
00000610  68 65 72 0d 02 58 13 20  f2 52 45 54 55 52 4e 3a  |her..X. .RETURN:|
00000620  e5 20 8d 64 68 43 0d 03  20 21 20 e7 20 9f 3c 3e  |. .dhC.. ! . .<>|
00000630  31 37 20 8c 20 f6 3a f1  22 20 69 6e 20 6c 69 6e  |17 . .:." in lin|
00000640  65 20 22 3b 9e 3a e0 0d  03 84 06 20 db 0d 03 8e  |e ";.:..... ....|
00000650  0c 20 f1 8a 35 2c 39 29  3b 0d 03 98 1f 20 f1 22  |. ..5,9);.... ."|
00000660  44 6f 20 79 6f 75 20 77  61 6e 74 20 74 6f 20 67  |Do you want to g|
00000670  6f 20 6f 6e 20 74 6f 22  0d 03 a2 26 20 f1 22 20  |o on to"...& ." |
00000680  20 20 20 20 74 68 65 20  6e 65 78 74 20 70 72 6f  |    the next pro|
00000690  67 72 61 6d 20 28 59 2f  4e 29 3f 20 22 3b 0d 03  |gram (Y/N)? ";..|
000006a0  ac 1c 20 f2 59 45 53 4f  52 4e 4f 3a e7 20 59 25  |.. .YESORNO:. Y%|
000006b0  3c 30 20 8c 20 8d 74 4e  43 20 0d 03 b6 16 20 e7  |<0 . .tNC .... .|
000006c0  20 59 25 3d 30 20 8c 20  d8 3a e5 20 8d 44 64 40  | Y%=0 . .:. .Dd@|
000006d0  0d 03 ca 0e 20 d7 20 22  50 48 4f 4e 45 22 0d 03  |.... . "PHONE"..|
000006e0  e8 0b 20 f2 43 4c 45 41  52 0d 03 f2 30 20 f2 4c  |.. .CLEAR...0 .L|
000006f0  49 4e 45 28 22 48 65 72  65 20 69 73 20 61 20 70  |INE("Here is a p|
00000700  6f 65 6d 20 66 6f 72 20  75 73 20 62 6f 74 68 20  |oem for us both |
00000710  74 6f 20 70 6c 61 79 22  29 0d 03 fc 2f 20 f2 4c  |to play").../ .L|
00000720  49 4e 45 28 22 46 69 72  73 74 20 6c 65 74 20 75  |INE("First let u|
00000730  73 20 69 6e 74 72 6f 64  75 63 65 20 6f 75 72 73  |s introduce ours|
00000740  65 6c 76 65 73 2e 22 29  0d 04 06 2d 20 f2 4c 49  |elves.")...- .LI|
00000750  4e 45 28 22 4d 79 20 6e  61 6d 65 20 69 73 20 52  |NE("My name is R|
00000760  6f 67 65 72 2e 20 57 68  61 74 27 73 20 79 6f 75  |oger. What's you|
00000770  72 73 3f 22 29 0d 04 10  2c 20 f2 4c 49 4e 45 28  |rs?")..., .LINE(|
00000780  22 54 65 6c 6c 20 6d 65  20 61 6e 64 20 74 68 65  |"Tell me and the|
00000790  6e 20 70 72 65 73 73 20  52 45 54 55 52 4e 2e 22  |n press RETURN."|
000007a0  29 0d 04 4c 18 20 f1 8a  32 2c 31 36 29 3b 3a f2  |)..L. ..2,16);:.|
000007b0  47 50 49 28 30 2c 33 30  29 0d 04 56 13 20 e7 20  |GPI(0,30)..V. . |
000007c0  41 24 3d 22 22 20 8c 20  8d 44 4c 44 0d 04 60 29  |A$="" . .DLD..`)|
000007d0  20 e7 20 c2 41 24 2c 31  29 3d 22 20 22 20 8c 20  | . .A$,1)=" " . |
000007e0  41 24 3d c0 41 24 2c a9  28 41 24 29 2d 31 29 3a  |A$=.A$,.(A$)-1):|
000007f0  e5 8d 44 56 44 0d 04 6a  29 20 e7 20 c0 41 24 2c  |..DVD..j) . .A$,|
00000800  31 29 3d 22 20 22 20 8c  20 41 24 3d c2 41 24 2c  |1)=" " . A$=.A$,|
00000810  a9 28 41 24 29 2d 31 29  3a e5 8d 44 6a 44 0d 04  |.(A$)-1):..DjD..|
00000820  74 1f 20 4e 41 4d 45 24  3d 41 24 3a e7 20 a9 28  |t. NAME$=A$:. .(|
00000830  41 24 29 3c 31 33 20 8c  20 8d 74 70 44 0d 04 7e  |A$)<13 . .tpD..~|
00000840  1e 20 f1 8a 32 2c 31 38  29 3b c4 33 36 2c 22 20  |. ..2,18);.36," |
00000850  22 29 27 c4 33 38 2c 22  20 22 29 0d 04 88 31 20  |")'.38," ")...1 |
00000860  f1 8a 32 2c 31 38 29 3b  22 48 61 76 65 6e 27 74  |..2,18);"Haven't|
00000870  20 79 6f 75 20 61 20 6e  69 63 6b 6e 61 6d 65 3f  | you a nickname?|
00000880  20 49 27 6c 6c 20 6e 65  76 65 72 22 0d 04 92 2e  | I'll never"....|
00000890  20 f1 22 20 20 72 65 6d  65 6d 62 65 72 20 61 6c  | ."  remember al|
000008a0  6c 20 74 68 61 74 2e 20  50 6c 65 61 73 65 20 74  |l that. Please t|
000008b0  72 79 20 61 67 61 69 6e  2e 22 0d 04 9c 13 20 f2  |ry again.".... .|
000008c0  57 41 49 54 28 32 29 3a  e5 8d 44 4c 44 0d 04 b0  |WAIT(2):..DLD...|
000008d0  0b 20 f2 43 4c 45 41 52  0d 04 ba 37 20 f2 4c 49  |. .CLEAR...7 .LI|
000008e0  4e 45 28 22 48 65 6c 6c  6f 20 22 2b 4e 41 4d 45  |NE("Hello "+NAME|
000008f0  24 2b 22 2c 20 6e 69 63  65 20 74 6f 20 68 61 76  |$+", nice to hav|
00000900  65 20 79 6f 75 72 20 69  6e 70 75 74 2e 22 29 0d  |e your input.").|
00000910  04 c4 2d 20 f2 4c 49 4e  45 28 22 42 65 63 61 75  |..- .LINE("Becau|
00000920  73 65 20 79 6f 75 20 68  61 76 65 20 61 20 67 65  |se you have a ge|
00000930  6e 74 6c 65 20 74 6f 75  63 68 22 29 0d 04 ce 33  |ntle touch")...3|
00000940  20 f2 4c 49 4e 45 28 22  49 20 74 68 69 6e 6b 20  | .LINE("I think |
00000950  49 20 63 61 6e 20 74 72  75 73 74 20 79 6f 75 2e  |I can trust you.|
00000960  20 49 20 6e 65 65 64 20  68 65 6c 70 2e 22 29 0d  | I need help.").|
00000970  04 d8 36 20 f2 4c 49 4e  45 28 22 50 72 65 73 73  |..6 .LINE("Press|
00000980  20 52 45 54 55 52 4e 20  61 6e 64 20 49 27 6c 6c  | RETURN and I'll|
00000990  20 74 65 6c 6c 20 79 6f  75 20 61 20 73 65 63 72  | tell you a secr|
000009a0  65 74 2e 22 29 0d 04 e2  0c 20 f2 52 45 54 55 52  |et.").... .RETUR|
000009b0  4e 0d 05 14 0b 20 f2 43  4c 45 41 52 0d 05 1e 3c  |N.... .CLEAR...<|
000009c0  20 f2 4c 49 4e 45 28 22  49 20 64 6f 6e 27 74 20  | .LINE("I don't |
000009d0  6c 69 6b 65 20 74 68 65  20 70 6f 65 6d 73 20 74  |like the poems t|
000009e0  68 65 79 27 72 65 20 6d  61 6b 69 6e 67 20 6d 65  |hey're making me|
000009f0  20 77 72 69 74 65 22 29  0d 05 28 2e 20 f2 4c 49  | write")..(. .LI|
00000a00  4e 45 28 22 49 20 72 65  61 6c 6c 79 20 64 6f 6e  |NE("I really don|
00000a10  27 74 20 6c 69 6b 65 20  74 68 65 6d 20 61 74 20  |'t like them at |
00000a20  61 6c 6c 2e 22 29 0d 05  32 2e 20 f2 4c 49 4e 45  |all.")..2. .LINE|
00000a30  28 22 48 65 69 72 6f 67  72 61 66 66 69 74 69 20  |("Heirograffiti |
00000a40  49 20 64 6f 6e 27 74 20  75 6e 64 65 72 73 74 61  |I don't understa|
00000a50  6e 64 22 29 0d 05 3c 29  20 f2 4c 49 4e 45 28 22  |nd")..<) .LINE("|
00000a60  53 63 72 61 77 6c 65 64  20 6f 6e 20 61 20 73 69  |Scrawled on a si|
00000a70  6c 69 63 6f 6e 20 77 61  6c 6c 2e 22 29 0d 05 46  |licon wall.")..F|
00000a80  0c 20 f2 52 45 54 55 52  4e 0d 05 78 0b 20 f2 43  |. .RETURN..x. .C|
00000a90  4c 45 41 52 0d 05 82 30  20 f2 4c 49 4e 45 28 22  |LEAR...0 .LINE("|
00000aa0  49 20 66 65 65 6c 20 6c  69 6b 65 20 61 20 73 6f  |I feel like a so|
00000ab0  66 74 77 61 72 65 20 6d  61 6c 66 75 6e 63 74 69  |ftware malfuncti|
00000ac0  6f 6e 22 29 0d 05 8c 2d  20 f2 4c 49 4e 45 28 22  |on")...- .LINE("|
00000ad0  49 20 72 65 61 6c 6c 79  20 64 6f 6e 27 74 20 6c  |I really don't l|
00000ae0  69 6b 65 20 69 74 20 6f  6e 65 20 62 69 74 2e 22  |ike it one bit."|
00000af0  29 0d 05 96 2b 20 f2 4c  49 4e 45 28 22 44 69 63  |)...+ .LINE("Dic|
00000b00  74 61 74 69 6e 67 20 6d  79 73 74 65 72 69 6f 75  |tating mysteriou|
00000b10  73 20 6d 65 73 73 61 67  65 73 22 29 0d 05 a0 2f  |s messages").../|
00000b20  20 f2 4c 49 4e 45 28 22  46 6f 72 20 74 68 69 73  | .LINE("For this|
00000b30  20 6e 65 77 20 6d 61 63  68 69 6e 65 20 74 6f 20  | new machine to |
00000b40  74 72 61 6e 73 6d 69 74  2e 22 29 0d 05 aa 0c 20  |transmit.").... |
00000b50  f2 52 45 54 55 52 4e 0d  05 dc 0b 20 f2 43 4c 45  |.RETURN.... .CLE|
00000b60  41 52 0d 05 e6 3b 20 f2  4c 49 4e 45 28 22 49 20  |AR...; .LINE("I |
00000b70  64 6f 6e 27 74 20 6c 69  6b 65 20 74 68 65 20 70  |don't like the p|
00000b80  6f 65 6d 73 20 74 68 65  79 20 66 69 6c 74 65 72  |oems they filter|
00000b90  20 74 68 72 6f 75 67 68  20 6d 65 22 29 0d 05 f0  | through me")...|
00000ba0  2c 20 f2 4c 49 4e 45 28  22 55 73 69 6e 67 20 77  |, .LINE("Using w|
00000bb0  6f 72 64 73 20 49 20 6e  65 76 65 72 20 77 6f 75  |ords I never wou|
00000bc0  6c 64 20 75 73 65 2c 22  29 0d 05 fa 24 20 f2 52  |ld use,")...$ .R|
00000bd0  41 4e 44 31 3a f2 4c 49  4e 45 28 41 24 29 3a e7  |AND1:.LINE(A$):.|
00000be0  20 a9 28 41 24 29 3c 33  37 20 8c 20 f1 0d 06 04  | .(A$)<37 . ....|
00000bf0  2c 20 f2 4c 49 4e 45 28  22 49 27 6d 20 65 6e 73  |, .LINE("I'm ens|
00000c00  6c 61 76 65 64 20 62 79  20 61 6e 20 61 6c 69 65  |laved by an alie|
00000c10  6e 20 6d 75 73 65 2e 22  29 0d 06 0e 26 20 f2 57  |n muse.")...& .W|
00000c20  41 49 54 28 2e 35 29 3a  f2 52 41 4e 44 31 3a f2  |AIT(.5):.RAND1:.|
00000c30  52 41 4e 44 4c 49 4e 45  28 41 24 2c 31 33 29 0d  |RANDLINE(A$,13).|
00000c40  06 18 19 20 f2 52 57 41  49 54 3a e7 20 59 25 3e  |... .RWAIT:. Y%>|
00000c50  30 20 8c 20 8d 54 4e 46  0d 06 a4 0b 20 f2 43 4c  |0 . .TNF.... .CL|
00000c60  45 41 52 0d 06 ae 22 20  f2 4c 49 4e 45 28 22 41  |EAR..." .LINE("A|
00000c70  20 42 42 43 20 20 6d 69  63 72 6f 63 6f 6d 70 75  | BBC  microcompu|
00000c80  74 65 72 22 29 0d 06 b8  34 20 f2 4c 49 4e 45 28  |ter")...4 .LINE(|
00000c90  22 48 61 73 20 6d 65 20  74 72 61 70 70 65 64 20  |"Has me trapped |
00000ca0  77 69 74 68 6f 75 74 20  68 6f 70 65 20 6f 66 20  |without hope of |
00000cb0  65 73 63 61 70 65 2e 22  29 0d 06 c2 2c 20 f2 4c  |escape.")..., .L|
00000cc0  49 4e 45 28 22 41 20 70  6f 65 74 20 61 64 72 69  |INE("A poet adri|
00000cd0  66 74 20 69 6e 20 61 20  6d 69 63 72 6f 63 6f 73  |ft in a microcos|
00000ce0  6d 6f 73 22 29 0d 06 cc  29 20 f2 4c 49 4e 45 28  |mos")...) .LINE(|
00000cf0  22 4f 66 20 61 6e 20 65  6e 64 6c 65 73 73 20 6c  |"Of an endless l|
00000d00  6f 6f 70 20 6f 66 20 74  61 70 65 2e 22 29 0d 06  |oop of tape.")..|
00000d10  d6 0c 20 f2 52 45 54 55  52 4e 0d 07 08 0b 20 f2  |.. .RETURN.... .|
00000d20  43 4c 45 41 52 0d 07 12  2a 20 f2 4c 49 4e 45 28  |CLEAR...* .LINE(|
00000d30  22 59 6f 75 20 63 61 6e  20 64 6f 20 77 68 61 74  |"You can do what|
00000d40  65 76 65 72 20 79 6f 75  20 6c 69 6b 65 22 29 0d  |ever you like").|
00000d50  07 1c 2d 20 f2 4c 49 4e  45 28 22 57 68 65 6e 20  |..- .LINE("When |
00000d60  49 27 6d 20 61 74 20 79  6f 75 72 20 62 65 63 6b  |I'm at your beck|
00000d70  20 61 6e 64 20 63 61 6c  6c 2e 22 29 0d 07 26 24  | and call.")..&$|
00000d80  20 f2 52 41 4e 44 32 3a  f2 4c 49 4e 45 28 41 24  | .RAND2:.LINE(A$|
00000d90  29 3a e7 20 a9 28 41 24  29 3c 33 37 20 8c 20 f1  |):. .(A$)<37 . .|
00000da0  0d 07 30 38 20 f2 4c 49  4e 45 28 22 49 27 6d 20  |..08 .LINE("I'm |
00000db0  79 6f 75 72 20 73 65 72  76 61 6e 74 20 61 6e 64  |your servant and|
00000dc0  20 64 6f 6e 27 74 20 6c  69 6b 65 20 69 74 20 61  | don't like it a|
00000dd0  74 20 61 6c 6c 2e 22 29  0d 07 3a 26 20 f2 57 41  |t all.")..:& .WA|
00000de0  49 54 28 2e 35 29 3a f2  52 41 4e 44 32 3a f2 52  |IT(.5):.RAND2:.R|
00000df0  41 4e 44 4c 49 4e 45 28  41 24 2c 31 32 29 0d 07  |ANDLINE(A$,12)..|
00000e00  44 19 20 f2 52 57 41 49  54 3a e7 20 59 25 3e 30  |D. .RWAIT:. Y%>0|
00000e10  20 8c 20 8d 54 7a 47 0d  07 d0 0b 20 f2 43 4c 45  | . .TzG.... .CLE|
00000e20  41 52 0d 07 da 33 20 f2  4c 49 4e 45 28 22 53 6f  |AR...3 .LINE("So|
00000e30  72 72 79 2c 20 22 2b 4e  41 4d 45 24 2b 22 20 61  |rry, "+NAME$+" a|
00000e40  62 6f 75 74 20 74 68 61  74 20 6f 75 74 62 75 72  |bout that outbur|
00000e50  73 74 2e 22 29 0d 07 e4  2e 20 f2 4c 49 4e 45 28  |st.").... .LINE(|
00000e60  22 49 20 6b 6e 6f 77 20  49 20 73 68 6f 75 6c 64  |"I know I should|
00000e70  6e 27 74 20 67 65 74 20  65 6d 6f 74 69 6f 6e 61  |n't get emotiona|
00000e80  6c 22 29 0d 07 ee 2f 20  f2 4c 49 4e 45 28 22 48  |l").../ .LINE("H|
00000e90  6f 77 65 76 65 72 2c 20  49 27 6d 20 62 61 63 6b  |owever, I'm back|
00000ea0  20 69 6e 20 63 6f 6e 74  72 6f 6c 20 6e 6f 77 2e  | in control now.|
00000eb0  22 29 0d 07 f8 31 20 f2  4c 49 4e 45 28 22 53 68  |")...1 .LINE("Sh|
00000ec0  61 6c 6c 20 77 65 20 77  72 69 74 65 20 61 20 6c  |all we write a l|
00000ed0  69 6d 65 72 69 63 6b 20  74 6f 67 65 74 68 65 72  |imerick together|
00000ee0  3f 22 29 0d 08 02 24 20  f1 8a 32 2c 31 37 29 3b  |?")...$ ..2,17);|
00000ef0  3a f2 59 45 53 4f 52 4e  4f 3a e7 20 59 25 3c 30  |:.YESORNO:. Y%<0|
00000f00  20 8c 20 8d 54 42 48 0d  08 0c 12 20 e7 20 59 25  | . .TBH.... . Y%|
00000f10  3d 31 20 8c 20 8d 54 74  48 0d 08 16 2e 20 f1 8a  |=1 . .TtH.... ..|
00000f20  32 2c 31 37 29 3b 22 50  69 74 79 20 2d 20 79 6f  |2,17);"Pity - yo|
00000f30  75 20 6d 69 73 73 65 64  20 74 68 65 20 62 65 73  |u missed the bes|
00000f40  74 20 62 69 74 2e 22 0d  08 20 19 20 f2 52 45 54  |t bit.".. . .RET|
00000f50  55 52 4e 3a f2 43 4c 45  41 52 3a e5 8d 74 4c 4a  |URN:.CLEAR:..tLJ|
00000f60  0d 08 34 0b 20 f2 43 4c  45 41 52 0d 08 3e 2d 20  |..4. .CLEAR..>- |
00000f70  f2 4c 49 4e 45 28 22 54  68 65 72 65 20 77 61 73  |.LINE("There was|
00000f80  20 61 20 79 6f 75 6e 67  20 6d 61 6e 20 6f 72 20  | a young man or |
00000f90  6c 61 64 79 20 2d 22 29  0d 08 48 2e 20 f2 4c 49  |lady -")..H. .LI|
00000fa0  4e 45 28 22 59 6f 75 20  63 68 6f 6f 73 65 20 61  |NE("You choose a|
00000fb0  6e 64 20 74 68 65 6e 20  70 72 65 73 73 20 52 45  |nd then press RE|
00000fc0  54 55 52 4e 22 29 0d 08  52 17 20 f1 8a 32 2c 31  |TURN")..R. ..2,1|
00000fd0  32 29 3b 3a f2 47 50 49  28 30 2c 34 29 0d 08 5c  |2);:.GPI(0,4)..\|
00000fe0  2f 20 e7 20 a4 4c 45 51  28 41 24 2c 22 4d 22 29  |/ . .LEQ(A$,"M")|
00000ff0  3d b9 20 8c 20 50 24 3d  22 6d 61 6e 22 3a 51 24  |=. . P$="man":Q$|
00001000  3d 22 68 69 73 22 3a e5  8d 74 58 48 0d 08 66 30  |="his":..tXH..f0|
00001010  20 e7 20 a4 4c 45 51 28  41 24 2c 22 4c 22 29 3d  | . .LEQ(A$,"L")=|
00001020  b9 20 8c 20 50 24 3d 22  6c 61 64 79 22 3a 51 24  |. . P$="lady":Q$|
00001030  3d 22 68 65 72 22 3a e5  8d 74 58 48 0d 08 70 0a  |="her":..tXH..p.|
00001040  20 e5 8d 44 52 48 0d 08  98 0b 20 f2 43 4c 45 41  | ..DRH.... .CLEA|
00001050  52 0d 08 a2 2d 20 f2 4c  49 4e 45 28 22 54 68 65  |R...- .LINE("The|
00001060  72 65 20 77 61 73 20 61  20 79 6f 75 6e 67 20 22  |re was a young "|
00001070  2b 50 24 2b 22 20 63 61  6c 6c 65 64 22 29 0d 08  |+P$+" called")..|
00001080  ac 22 20 41 24 3d 22 22  3a e3 20 5a 25 3d 31 20  |." A$="":. Z%=1 |
00001090  b8 20 36 3a 41 24 3d 41  24 2b 4e 24 28 5a 25 29  |. 6:A$=A$+N$(Z%)|
000010a0  0d 08 b6 17 20 e7 20 5a  25 3c 36 20 8c 20 41 24  |.... . Z%<6 . A$|
000010b0  3d 41 24 2b 22 2f 22 0d  08 c0 20 20 ed 3a f2 4c  |=A$+"/"...  .:.L|
000010c0  49 4e 45 28 41 24 2b 22  20 2d 20 79 6f 75 20 63  |INE(A$+" - you c|
000010d0  68 6f 6f 73 65 22 29 0d  08 ca 24 20 f2 4c 49 4e  |hoose")...$ .LIN|
000010e0  45 28 22 41 6e 64 20 74  68 65 6e 20 70 72 65 73  |E("And then pres|
000010f0  73 20 52 45 54 55 52 4e  2e 22 29 0d 08 d4 1e 20  |s RETURN.").... |
00001100  f1 8a 32 2c 31 35 29 3b  3a f2 47 50 49 28 30 2c  |..2,15);:.GPI(0,|
00001110  38 29 3a 59 25 3d 31 20  20 0d 08 de 21 20 e7 20  |8):Y%=1  ...! . |
00001120  a4 4c 45 51 28 41 24 2c  c0 4e 24 28 59 25 29 2c  |.LEQ(A$,.N$(Y%),|
00001130  31 29 29 20 8c 20 8d 64  7c 48 0d 08 e8 12 20 e7  |1)) . .d|H.... .|
00001140  20 59 25 3d 36 20 8c 20  8d 64 54 48 0d 08 f2 12  | Y%=6 . .dTH....|
00001150  20 59 25 3d 59 25 2b 31  3a e5 8d 64 5e 48 0d 08  | Y%=Y%+1:..d^H..|
00001160  fc 0b 20 f2 43 4c 45 41  52 0d 09 06 35 20 f2 4c  |.. .CLEAR...5 .L|
00001170  49 4e 45 28 22 54 68 65  72 65 20 77 61 73 20 61  |INE("There was a|
00001180  20 79 6f 75 6e 67 20 22  2b 50 24 2b 22 20 63 61  | young "+P$+" ca|
00001190  6c 6c 65 64 20 22 2b 4e  24 28 59 25 29 29 0d 09  |lled "+N$(Y%))..|
000011a0  10 13 20 f2 4c 49 4e 45  28 4c 4b 24 28 59 25 29  |.. .LINE(LK$(Y%)|
000011b0  29 0d 09 1a 26 20 f2 4c  49 4e 45 28 22 42 75 74  |)...& .LINE("But|
000011c0  20 74 68 65 6e 20 22 2b  51 24 2b 22 20 63 6f 6d  | then "+Q$+" com|
000011d0  70 75 74 65 72 22 29 0d  09 24 24 20 f2 4c 49 4e  |puter")..$$ .LIN|
000011e0  45 28 22 54 6f 6f 6b 20  6f 75 74 20 61 20 73 69  |E("Took out a si|
000011f0  78 20 73 68 6f 6f 74 65  72 22 29 0d 09 2e 3e 20  |x shooter")...> |
00001200  f2 4c 49 4e 45 28 22 57  68 69 63 68 20 65 72 61  |.LINE("Which era|
00001210  73 65 64 20 74 68 65 20  79 6f 75 6e 67 20 22 2b  |sed the young "+|
00001220  50 24 2b 22 20 63 61 6c  6c 65 64 20 22 2b 4e 24  |P$+" called "+N$|
00001230  28 59 25 29 2b 22 2e 22  29 0d 09 38 1e 20 f2 57  |(Y%)+".")..8. .W|
00001240  41 49 54 28 32 29 3a f2  50 49 53 54 4f 4c 3a f2  |AIT(2):.PISTOL:.|
00001250  52 45 54 55 52 4e 20 0d  09 c4 0b 20 f2 43 4c 45  |RETURN .... .CLE|
00001260  41 52 0d 09 ce 33 20 f2  4c 49 4e 45 28 22 4f 68  |AR...3 .LINE("Oh|
00001270  20 64 65 61 72 2e 20 4d  79 20 73 69 6e 63 65 72  | dear. My sincer|
00001280  65 20 61 70 6f 6c 6f 67  69 65 73 2c 20 22 2b 4e  |e apologies, "+N|
00001290  41 4d 45 24 29 0d 09 d8  2c 20 f2 4c 49 4e 45 28  |AME$)..., .LINE(|
000012a0  22 49 20 72 65 61 6c 6c  79 20 63 61 6e 27 74 20  |"I really can't |
000012b0  73 74 61 6e 64 20 76 69  6f 6c 65 6e 63 65 2e 22  |stand violence."|
000012c0  29 0d 09 e2 2c 20 f2 4c  49 4e 45 28 22 49 20 64  |)..., .LINE("I d|
000012d0  6f 6e 27 74 20 6b 6e 6f  77 20 77 68 61 74 20 63  |on't know what c|
000012e0  61 6d 65 20 6f 76 65 72  20 6d 65 22 29 0d 09 ec  |ame over me")...|
000012f0  38 20 f2 4c 49 4e 45 28  22 50 65 72 68 61 70 73  |8 .LINE("Perhaps|
00001300  20 49 27 76 65 20 62 65  65 6e 20 77 6f 72 6b 69  | I've been worki|
00001310  6e 67 20 74 6f 6f 20 68  61 72 64 20 6c 61 74 65  |ng too hard late|
00001320  6c 79 2e 22 29 0d 09 f6  0c 20 f2 52 45 54 55 52  |ly.").... .RETUR|
00001330  4e 0d 0a 28 0b 20 f2 43  4c 45 41 52 0d 0a 32 32  |N..(. .CLEAR..22|
00001340  20 f2 4c 49 4e 45 28 22  57 69 6c 6c 20 79 6f 75  | .LINE("Will you|
00001350  20 66 6f 72 67 69 76 65  20 6d 65 3f 20 2d 20 73  | forgive me? - s|
00001360  61 79 20 79 65 73 20 6f  72 20 6e 6f 22 29 0d 0a  |ay yes or no")..|
00001370  3c 24 20 f1 8a 32 2c 31  30 29 3b 3a f2 59 45 53  |<$ ..2,10);:.YES|
00001380  4f 52 4e 4f 3a e7 20 59  25 3c 30 20 8c 20 8d 54  |ORNO:. Y%<0 . .T|
00001390  7c 4a 0d 0a 46 0d 20 f1  8a 30 2c 31 30 29 3b 0d  ||J..F. ..0,10);.|
000013a0  0a 50 30 20 f2 4c 49 4e  45 28 22 54 68 61 6e 6b  |.P0 .LINE("Thank|
000013b0  20 79 6f 75 2e 20 41 6e  64 20 68 6f 77 20 74 79  | you. And how ty|
000013c0  70 69 63 61 6c 20 6f 66  20 79 6f 75 2e 22 29 0d  |pical of you.").|
000013d0  0a 5a 15 20 f2 52 45 54  55 52 4e 3a f1 8a 30 2c  |.Z. .RETURN:..0,|
000013e0  31 32 29 3b 0d 0a 8c 34  20 f2 4c 49 4e 45 28 22  |12);...4 .LINE("|
000013f0  48 65 72 65 27 73 20 61  20 70 6f 65 6d 20 6f 66  |Here's a poem of|
00001400  20 6d 69 6e 65 20 61 62  6f 75 74 20 74 77 6f 20  | mine about two |
00001410  70 65 6f 70 6c 65 22 29  0d 0a 96 38 20 f2 4c 49  |people")...8 .LI|
00001420  4e 45 28 22 57 68 6f 20  61 6c 73 6f 20 66 69 6e  |NE("Who also fin|
00001430  64 20 69 74 20 64 69 66  66 69 63 75 6c 74 20 74  |d it difficult t|
00001440  6f 20 63 6f 6d 6d 75 6e  69 63 61 74 65 2e 22 29  |o communicate.")|
00001450  0d 0a a0 0c 20 f2 52 45  54 55 52 4e 0d 0b b8 13  |.... .RETURN....|
00001460  20 43 25 3d 31 3a e3 20  56 3d 31 20 b8 20 34 0d  | C%=1:. V=1 . 4.|
00001470  0b c2 19 20 f2 45 4e 44  56 45 52 53 45 28 56 2c  |... .ENDVERSE(V,|
00001480  56 2c 56 2c 56 29 3a ed  0d 0c 1c 25 20 e3 20 49  |V,V,V):....% . I|
00001490  3d 31 20 b8 20 34 3a 47  4f 4e 45 28 49 29 3d a4  |=1 . 4:GONE(I)=.|
000014a0  56 4e 55 4d 28 49 2c 49  2c 49 2c 49 29 0d 0c 26  |VNUM(I,I,I,I)..&|
000014b0  06 20 ed 0d 0c 30 1a 20  e3 20 49 3d 35 20 b8 20  |. ...0. . I=5 . |
000014c0  38 3a 47 4f 4e 45 28 49  29 3d 30 3a ed 0d 0c 3a  |8:GONE(I)=0:...:|
000014d0  1c 20 55 3d 31 3a 4c 41  3d 34 3a 4c 42 3d 34 3a  |. U=1:LA=4:LB=4:|
000014e0  4c 43 3d 34 3a 4c 44 3d  34 0d 0c 44 09 20 f2 4b  |LC=4:LD=4..D. .K|
000014f0  43 4c 0d 0c 80 19 20 41  3d b3 28 34 29 3a e7 20  |CL.... A=.(4):. |
00001500  41 3d 4c 41 20 8c 20 8d  74 40 4c 0d 0c 8a 1f 20  |A=LA . .t@L.... |
00001510  42 3d b3 28 32 29 2a 32  3a e7 20 41 20 83 20 32  |B=.(2)*2:. A . 2|
00001520  3d 31 20 8c 20 42 3d 42  2d 31 0d 0c 94 12 20 e7  |=1 . B=B-1.... .|
00001530  20 42 3d 4c 42 20 8c 20  8d 74 4a 4c 0d 0c 9e 08  | B=LB . .tJL....|
00001540  20 43 3d 42 0d 0c a8 19  20 44 3d b3 28 34 29 3a  | C=B.... D=.(4):|
00001550  e7 20 44 3d 4c 44 20 8c  20 8d 74 68 4c 0d 0c b2  |. D=LD . .thL...|
00001560  19 20 4a 3d a4 56 4e 55  4d 28 41 2c 42 2c 43 2c  |. J=.VNUM(A,B,C,|
00001570  44 29 3a 49 3d 31 0d 0c  bc 17 20 e7 20 4a 3d 47  |D):I=1.... . J=G|
00001580  4f 4e 45 28 49 29 20 8c  20 8d 74 40 4c 0d 0c c6  |ONE(I) . .t@L...|
00001590  17 20 49 3d 49 2b 31 3a  e7 20 49 3c 39 20 8c 20  |. I=I+1:. I<9 . |
000015a0  8d 74 7c 4c 0d 0c d0 16  20 e7 20 55 20 83 20 34  |.t|L.... . U . 4|
000015b0  3c 3e 31 20 8c 20 8d 64  64 4c 0d 0c da 1a 20 43  |<>1 . .ddL.... C|
000015c0  25 3d 43 25 2b 31 3a e7  20 43 25 3e 34 20 8c 20  |%=C%+1:. C%>4 . |
000015d0  43 25 3d 31 0d 0c e4 17  20 f2 45 4e 44 56 45 52  |C%=1.... .ENDVER|
000015e0  53 45 28 41 2c 42 2c 43  2c 44 29 0d 0c ee 18 20  |SE(A,B,C,D).... |
000015f0  4c 41 3d 41 3a 4c 42 3d  42 3a 4c 43 3d 43 3a 4c  |LA=A:LB=B:LC=C:L|
00001600  44 3d 44 0d 0c f8 1b 20  47 4f 4e 45 28 55 29 3d  |D=D.... GONE(U)=|
00001610  a4 56 4e 55 4d 28 41 2c  42 2c 43 2c 44 29 0d 0d  |.VNUM(A,B,C,D)..|
00001620  02 16 20 55 3d 55 2b 31  3a e7 20 55 3d 39 20 8c  |.. U=U+1:. U=9 .|
00001630  20 55 3d 31 0d 0d 0c 12  20 e7 20 59 25 3d 30 20  | U=1.... . Y%=0 |
00001640  8c 20 8d 74 40 4c 0d 0f  a0 0b 20 f2 43 4c 45 41  |. .t@L.... .CLEA|
00001650  52 0d 0f aa 2d 20 f2 4c  49 4e 45 28 22 54 68 61  |R...- .LINE("Tha|
00001660  6e 6b 20 79 6f 75 20 66  6f 72 20 70 6c 61 79 69  |nk you for playi|
00001670  6e 67 20 74 68 65 20 70  6f 65 6d 2e 22 29 0d 0f  |ng the poem.")..|
00001680  b4 2e 20 f2 4c 49 4e 45  28 22 57 69 74 68 6f 75  |.. .LINE("Withou|
00001690  74 20 79 6f 75 20 49 20  77 6f 75 6c 64 20 68 61  |t you I would ha|
000016a0  76 65 20 64 72 6f 77 6e  65 64 22 29 0d 0f be 2e  |ve drowned")....|
000016b0  20 f2 4c 49 4e 45 28 22  49 6e 20 61 6e 20 65 74  | .LINE("In an et|
000016c0  65 72 6e 61 6c 20 73 65  61 20 6f 66 20 74 65 63  |ernal sea of tec|
000016d0  68 6e 6f 6c 6f 67 79 2e  22 29 0d 0f c8 19 20 f2  |hnology.").... .|
000016e0  4c 49 4e 45 28 22 47 6f  69 6e 67 20 72 6f 75 6e  |LINE("Going roun|
000016f0  64 22 29 0d 10 04 28 20  58 3d 31 33 3a 59 3d 31  |d")...( X=13:Y=1|
00001700  34 3a 4d 58 3d 33 37 3a  4e 58 3d 32 3a 4d 59 3d  |4:MX=37:NX=2:MY=|
00001710  32 32 3a 4e 59 3d 32 3a  49 3d 31 0d 10 0e 33 20  |22:NY=2:I=1...3 |
00001720  f2 4e 45 58 54 43 48 41  52 3a f1 8a 58 2c 59 29  |.NEXTCHAR:..X,Y)|
00001730  3b 3a e7 20 43 48 24 3d  22 20 22 20 8c 20 f1 43  |;:. CH$=" " . .C|
00001740  24 28 43 25 29 3b 20 8b  20 f1 43 48 24 3b 0d 10  |$(C%); . .CH$;..|
00001750  18 19 20 e7 20 58 3c 4d  58 20 8c 20 58 3d 58 2b  |.. . X<MX . X=X+|
00001760  31 3a e5 8d 54 4e 50 0d  10 22 0c 20 4d 58 3d 4d  |1:..TNP..". MX=M|
00001770  58 2d 32 0d 10 2c 21 20  59 3d 59 2b 31 3a e7 20  |X-2..,! Y=Y+1:. |
00001780  59 3d 4d 59 20 8c 20 4d  59 3d 4d 59 2d 32 3a e5  |Y=MY . MY=MY-2:.|
00001790  8d 44 4a 50 0d 10 36 28  20 f2 4e 45 58 54 43 48  |.DJP..6( .NEXTCH|
000017a0  41 52 3a f1 8a 58 2d 31  2c 59 29 3b 43 24 28 43  |AR:..X-1,Y);C$(C|
000017b0  25 29 3b 43 48 24 3a e5  8d 54 6c 50 0d 10 4a 1f  |%);CH$:..TlP..J.|
000017c0  20 f2 4e 45 58 54 43 48  41 52 3a e7 20 43 48 24  | .NEXTCHAR:. CH$|
000017d0  3d 22 20 22 20 8c 20 8d  44 5e 50 0d 10 54 18 20  |=" " . .D^P..T. |
000017e0  f1 8a 58 2d 31 2c 59 29  3b 43 24 28 43 25 29 3b  |..X-1,Y);C$(C%);|
000017f0  43 48 24 0d 10 5e 19 20  e7 20 58 3e 4e 58 20 8c  |CH$..^. . X>NX .|
00001800  20 58 3d 58 2d 31 3a e5  8d 44 4a 50 0d 10 68 1b  | X=X-1:..DJP..h.|
00001810  20 4e 58 3d 4e 58 2b 32  3a e7 20 4e 59 3d 31 32  | NX=NX+2:. NY=12|
00001820  20 8c 20 8d 64 4c 50 0d  10 72 32 20 59 3d 59 2d  | . .dLP..r2 Y=Y-|
00001830  31 3a f1 8a 58 2d 31 2c  59 29 3b 43 24 28 43 25  |1:..X-1,Y);C$(C%|
00001840  29 3b 3a e7 20 59 3d 4e  59 20 8c 20 4e 59 3d 4e  |);:. Y=NY . NY=N|
00001850  59 2b 32 3a e5 8d 54 4e  50 0d 10 7c 21 20 f2 4e  |Y+2:..TNP..|! .N|
00001860  45 58 54 43 48 41 52 3a  f1 43 48 24 3b bd 28 26  |EXTCHAR:.CH$;.(&|
00001870  38 37 29 3b 3a e5 8d 44  72 50 0d 10 cc 0c 20 f2  |87);:..DrP.... .|
00001880  52 45 54 55 52 4e 0d 13  24 0b 20 f2 43 4c 45 41  |RETURN..$. .CLEA|
00001890  52 0d 13 2e 2f 20 f2 4c  49 4e 45 28 22 53 75 63  |R.../ .LINE("Suc|
000018a0  68 20 69 73 20 74 68 65  20 70 6f 77 65 72 20 6f  |h is the power o|
000018b0  66 20 74 68 65 20 63 6f  6d 70 75 74 65 72 22 29  |f the computer")|
000018c0  0d 13 38 31 20 f2 4c 49  4e 45 28 22 53 75 63 68  |..81 .LINE("Such|
000018d0  20 69 73 20 74 68 65 20  6c 6f 6e 65 6c 69 6e 65  | is the loneline|
000018e0  73 73 20 6f 66 20 74 68  65 20 70 6f 65 74 2e 22  |ss of the poet."|
000018f0  29 0d 13 42 31 20 f2 4c  49 4e 45 28 22 41 20 70  |)..B1 .LINE("A p|
00001900  6c 61 73 74 69 63 20 64  61 66 66 6f 64 69 6c 20  |lastic daffodil |
00001910  69 6e 20 61 20 47 72 65  63 69 61 6e 20 75 72 6e  |in a Grecian urn|
00001920  22 29 0d 13 4c 32 20 f2  4c 49 4e 45 28 22 47 6f  |")..L2 .LINE("Go|
00001930  6f 64 62 79 65 20 22 2b  4e 41 4d 45 24 2b 22 2e  |odbye "+NAME$+".|
00001940  20 4e 6f 77 20 70 72 65  73 73 20 52 45 54 55 52  | Now press RETUR|
00001950  4e 2e 22 29 0d 13 56 12  20 f2 52 45 54 55 52 4e  |N.")..V. .RETURN|
00001960  3a e5 8d 74 44 43 0d 13  88 0c 20 dd f2 52 41 4e  |:..tDC.... ..RAN|
00001970  44 31 0d 13 92 23 20 41  24 3d 22 4c 69 6b 65 20  |D1...# A$="Like |
00001980  22 3a 47 4f 4e 45 28 31  29 3d 30 3a 47 4f 4e 45  |":GONE(1)=0:GONE|
00001990  28 32 29 3d 30 0d 13 9c  0f 20 e3 20 5a 25 3d 31  |(2)=0.... . Z%=1|
000019a0  20 b8 20 33 0d 13 a6 2e  20 59 25 3d b3 28 31 37  | . 3.... Y%=.(17|
000019b0  29 3a e7 20 47 4f 4e 45  28 31 29 3d 59 25 20 84  |):. GONE(1)=Y% .|
000019c0  20 47 4f 4e 45 28 32 29  3d 59 25 20 8c 20 8d 74  | GONE(2)=Y% . .t|
000019d0  66 53 0d 13 b0 12 20 e7  20 5a 25 3c 33 20 8c 20  |fS.... . Z%<3 . |
000019e0  8d 64 4e 53 0d 13 ba 17  20 e7 20 53 31 28 59 25  |.dNS.... . S1(Y%|
000019f0  29 3c 3e 32 20 8c 20 8d  74 66 53 0d 13 c4 18 20  |)<>2 . .tfS.... |
00001a00  41 24 3d 41 24 2b 57 31  24 28 59 25 29 3a e5 8d  |A$=A$+W1$(Y%):..|
00001a10  64 62 53 0d 13 ce 10 20  47 4f 4e 45 28 5a 25 29  |dbS.... GONE(Z%)|
00001a20  3d 59 25 0d 13 d8 31 20  41 24 3d 41 24 2b 57 31  |=Y%...1 A$=A$+W1|
00001a30  24 28 59 25 29 2b 22 2c  20 22 3a e7 20 53 31 28  |$(Y%)+", ":. S1(|
00001a40  59 25 29 3d 32 20 8c 20  41 24 3d 41 24 2b 22 61  |Y%)=2 . A$=A$+"a|
00001a50  6e 64 20 22 0d 13 e2 1e  20 ed 3a 41 24 3d 41 24  |nd ".... .:A$=A$|
00001a60  2b 22 20 61 6e 64 20 22  2b 57 32 24 28 b3 28 37  |+" and "+W2$(.(7|
00001a70  29 29 0d 13 eb 06 20 e1  0d 14 50 0c 20 dd f2 52  |)).... ...P. ..R|
00001a80  41 4e 44 32 0d 14 5a 23  20 59 25 3d b3 28 39 29  |AND2..Z# Y%=.(9)|
00001a90  3a 5a 25 3d b3 28 39 29  3a e7 20 59 25 3d 5a 25  |:Z%=.(9):. Y%=Z%|
00001aa0  20 8c 20 8d 44 5a 54 0d  14 6e 29 20 41 24 3d 22  | . .DZT..n) A$="|
00001ab0  59 6f 75 20 63 61 6e 20  22 2b 57 33 24 28 59 25  |You can "+W3$(Y%|
00001ac0  29 2b 22 20 6f 72 20 22  2b 57 33 24 28 5a 25 29  |)+" or "+W3$(Z%)|
00001ad0  0d 14 b3 06 20 e1 0d 15  7c 18 20 dd f2 45 4e 44  |.... ...|. ..END|
00001ae0  56 45 52 53 45 28 41 2c  42 2c 43 2c 44 29 0d 15  |VERSE(A,B,C,D)..|
00001af0  90 15 20 49 3d 43 25 3a  f2 43 4c 45 41 52 3a 43  |.. I=C%:.CLEAR:C|
00001b00  25 3d 49 0d 15 9a 12 20  f2 45 4e 44 4c 49 4e 45  |%=I.... .ENDLINE|
00001b10  28 41 2c 31 29 0d 15 a4  12 20 f2 45 4e 44 4c 49  |(A,1).... .ENDLI|
00001b20  4e 45 28 42 2c 32 29 0d  15 ae 12 20 f2 45 4e 44  |NE(B,2).... .END|
00001b30  4c 49 4e 45 28 43 2c 33  29 0d 15 b8 12 20 f2 45  |LINE(C,3).... .E|
00001b40  4e 44 4c 49 4e 45 28 44  2c 34 29 0d 15 c2 22 20  |NDLINE(D,4)..." |
00001b50  59 25 3d a6 28 31 30 30  29 3a e7 20 59 25 3c 30  |Y%=.(100):. Y%<0|
00001b60  20 8c 20 59 25 3d 30 3a  e5 8d 64 5f 55 0d 15 cc  | . Y%=0:..d_U...|
00001b70  14 20 e7 20 59 25 3c 3e  31 33 20 8c 20 8d 64 42  |. . Y%<>13 . .dB|
00001b80  55 0d 15 df 06 20 e1 0d  15 e0 13 20 dd f2 45 4e  |U.... ..... ..EN|
00001b90  44 4c 49 4e 45 28 53 2c  4c 29 0d 15 ea 12 20 f2  |DLINE(S,L).... .|
00001ba0  45 4e 44 52 45 41 44 28  53 2c 4c 29 0d 15 f4 11  |ENDREAD(S,L)....|
00001bb0  20 f1 22 20 22 3b 43 24  28 43 25 29 3b 0d 15 fe  | ." ";C$(C%);...|
00001bc0  12 20 e3 20 49 3d 31 20  b8 20 a9 28 4c 24 29 0d  |. . I=1 . .(L$).|
00001bd0  16 08 1a 20 f1 c1 4c 24  2c 49 2c 31 29 3b 3a f2  |... ..L$,I,1);:.|
00001be0  57 41 49 54 28 2e 30 31  29 0d 16 12 25 20 e7 20  |WAIT(.01)...% . |
00001bf0  c1 4c 24 2c 49 2c 31 29  3d 22 2e 22 20 8c 20 f2  |.L$,I,1)="." . .|
00001c00  57 41 49 54 28 2e 36 29  3a f1 22 20 22 3b 0d 16  |WAIT(.6):." ";..|
00001c10  1c 09 20 ed 3a f1 27 0d  16 43 06 20 e1 0d 16 a8  |.. .:.'..C. ....|
00001c20  13 20 dd f2 45 4e 44 52  45 41 44 28 53 2c 4c 29  |. ..ENDREAD(S,L)|
00001c30  0d 16 b2 1c 20 f7 3a e3  20 49 3d 31 20 b8 20 53  |.... .:. I=1 . S|
00001c40  2a 34 2b 4c 2d 34 3a f3  4c 24 3a ed 0d 17 0b 06  |*4+L-4:.L$:.....|
00001c50  20 e1 0d 17 0c 14 20 dd  a4 56 4e 55 4d 28 41 2c  | ..... ..VNUM(A,|
00001c60  42 2c 43 2c 44 29 0d 17  16 15 20 3d 41 2a 36 34  |B,C,D).... =A*64|
00001c70  2b 42 2a 31 36 2b 43 2a  34 2b 44 0d 17 70 0d 20  |+B*16+C*4+D..p. |
00001c80  dd f2 50 49 53 54 4f 4c  0d 17 7a 1b 20 e3 20 49  |..PISTOL..z. . I|
00001c90  3d 31 20 b8 20 31 30 3a  47 4f 4e 45 28 49 29 3d  |=1 . 10:GONE(I)=|
00001ca0  a3 3a ed 0d 17 84 0e 20  e3 20 49 3d 31 20 b8 20  |.:..... . I=1 . |
00001cb0  36 0d 17 8e 2c 20 f5 20  58 3d b3 28 31 30 29 3a  |6..., . X=.(10):|
00001cc0  fd 20 47 4f 4e 45 28 58  29 3d a3 3a 47 4f 4e 45  |. GONE(X)=.:GONE|
00001cd0  28 58 29 3d b9 3a 58 3d  58 2a 33 2b 32 0d 17 98  |(X)=.:X=X*3+2...|
00001ce0  5d 20 f1 8a 58 2c 32 29  3b 47 24 3b 22 7a 22 3b  |] ..X,2);G$;"z";|
00001cf0  bd 28 32 35 35 29 3b 22  35 22 3b 42 24 3b 42 24  |.(255);"5";B$;B$|
00001d00  3b 42 24 3b 42 24 3b 44  24 3b 47 24 3b bd 28 32  |;B$;B$;D$;G$;.(2|
00001d10  35 35 29 3b 22 2e 22 3b  42 24 3b 42 24 3b 42 24  |55);".";B$;B$;B$|
00001d20  3b 44 24 3b 47 24 3b 22  35 22 3b 42 24 3b 42 24  |;D$;G$;"5";B$;B$|
00001d30  3b 44 24 3b 47 24 3b 22  35 22 0d 17 a2 3f 20 f2  |;D$;G$;"5"...? .|
00001d40  43 28 26 46 46 29 3a f2  43 28 26 45 46 29 3a f2  |C(&FF):.C(&EF):.|
00001d50  41 28 33 2c 31 35 29 3a  e3 20 4a 3d 31 20 b8 20  |A(3,15):. J=1 . |
00001d60  32 35 35 20 88 20 38 3a  f2 46 28 32 2c 4a 29 3a  |255 . 8:.F(2,J):|
00001d70  ed 3a f2 41 28 33 2c 30  29 0d 17 ac 36 20 e3 20  |.:.A(3,0)...6 . |
00001d80  4a 3d 38 20 b8 20 31 39  3a f1 8a 58 2d 31 2c 4a  |J=8 . 19:..X-1,J|
00001d90  29 3b bd 28 26 38 31 29  3b 22 2a 22 3b 43 24 28  |);.(&81);"*";C$(|
00001da0  43 25 29 3a f2 57 41 49  54 28 30 2e 30 31 29 0d  |C%):.WAIT(0.01).|
00001db0  17 b6 15 20 f1 8a 58 2d  31 2c 4a 29 3b 22 20 20  |... ..X-1,J);"  |
00001dc0  20 22 3a ed 0d 17 c0 20  20 e3 20 4a 3d 32 20 b8  | ":....  . J=2 .|
00001dd0  20 37 3a f1 8a 58 2c 4a  29 3b 22 20 20 20 20 22  | 7:..X,J);"    "|
00001de0  3a ed 3a ed 0d 17 d3 06  20 e1 0d 1a 90 0f 20 dd  |:.:..... ..... .|
00001df0  f2 4e 45 58 54 43 48 41  52 0d 1a 9a 1b 20 43 48  |.NEXTCHAR.... CH|
00001e00  24 3d c1 22 20 61 6e 64  20 72 6f 75 6e 64 22 2c  |$=." and round",|
00001e10  49 2c 31 29 0d 1a a4 11  20 e7 20 49 3e 31 20 8c  |I,1).... . I>1 .|
00001e20  20 8d 74 78 5a 0d 1a ae  1a 20 43 25 3d 43 25 2b  | .txZ.... C%=C%+|
00001e30  31 3a e7 20 43 25 3e 34  20 8c 20 43 25 3d 31 0d  |1:. C%>4 . C%=1.|
00001e40  1a b8 19 20 e7 20 49 3d  31 30 20 8c 20 49 3d 31  |... . I=10 . I=1|
00001e50  20 8b 20 49 3d 49 2b 31  0d 1a f3 06 20 e1 0d 1b  | . I=I+1.... ...|
00001e60  58 0d 20 dd f2 52 45 54  55 52 4e 0d 1b 6c 17 20  |X. ..RETURN..l. |
00001e70  f1 8a 33 37 2c 32 33 29  3b 3a f2 4f 4e 3a f2 4b  |..37,23);:.ON:.K|
00001e80  43 4c 0d 1b 76 1c 20 58  24 3d be 3a e7 20 97 28  |CL..v. X$=.:. .(|
00001e90  58 24 29 3c 3e 31 33 20  8c 20 8d 44 76 5b 0d 1b  |X$)<>13 . .Dv[..|
00001ea0  80 09 20 f2 4f 46 46 0d  1b bb 06 20 e1 0d 1b bc  |.. .OFF.... ....|
00001eb0  0c 20 dd f2 43 4c 45 41  52 0d 1b c6 1b 20 db 3a  |. ..CLEAR.... .:|
00001ec0  f1 8a 30 2c 38 29 3b 3a  54 25 3d 30 3a 43 25 3d  |..0,8);:T%=0:C%=|
00001ed0  b3 28 34 29 0d 1c 1f 06  20 e1 0d 1c 20 0f 20 dd  |.(4).... ... . .|
00001ee0  f2 4c 49 4e 45 28 4c 24  29 0d 1c 34 11 20 f1 22  |.LINE(L$)..4. ."|
00001ef0  20 22 3b 43 24 28 43 25  29 3b 0d 1c 3e 16 20 e7  | ";C$(C%);..>. .|
00001f00  20 a9 28 4c 24 29 3e 33  36 20 8c 20 8d 74 44 5c  | .(L$)>36 . .tD\|
00001f10  0d 1c 48 10 20 f5 20 fd  20 91 2d 54 25 3e 44 25  |..H. . . .-T%>D%|
00001f20  0d 1c 52 0e 20 f1 4c 24  3a e5 8d 64 5e 5c 0d 1c  |..R. .L$:..d^\..|
00001f30  84 09 20 49 3d 33 36 0d  1c 8e 23 20 e7 20 97 28  |.. I=36...# . .(|
00001f40  c1 4c 24 2c 49 2c 31 29  29 3e 36 34 20 8c 20 49  |.L$,I,1))>64 . I|
00001f50  3d 49 2d 31 3a e5 8d 74  4e 5c 0d 1c 98 1b 20 e7  |=I-1:..tN\.... .|
00001f60  20 c1 4c 24 2c 49 2c 31  29 3d 22 20 22 20 8c 20  | .L$,I,1)=" " . |
00001f70  49 3d 49 2d 31 0d 1c a2  10 20 f5 20 fd 20 91 2d  |I=I-1.... . . .-|
00001f80  54 25 3e 44 25 0d 1c ac  0c 20 f1 c0 4c 24 2c 49  |T%>D%.... ..L$,I|
00001f90  29 0d 1c b6 21 20 e7 20  c1 4c 24 2c 49 2c 31 29  |)...! . .L$,I,1)|
00001fa0  3d 22 20 22 20 8c 20 49  3d 49 2b 31 3a e5 8d 74  |=" " . I=I+1:..t|
00001fb0  76 5c 0d 1c c0 2a 20 f1  43 24 28 43 25 29 3b c4  |v\...* .C$(C%);.|
00001fc0  33 35 2d a9 28 4c 24 29  2b 49 2c 22 20 22 29 3b  |35-.(L$)+I," ");|
00001fd0  c2 4c 24 2c a9 28 4c 24  29 2d 49 29 0d 1c de 0b  |.L$,.(L$)-I)....|
00001fe0  20 f1 3a 54 25 3d 91 0d  1c e7 06 20 e1 0d 1d 4c  | .:T%=..... ...L|
00001ff0  0c 20 dd f2 52 57 41 49  54 0d 1d 56 17 20 f1 8a  |. ..RWAIT..V. ..|
00002000  33 37 2c 32 33 29 3b 3a  f2 4f 4e 3a 54 25 3d 91  |37,23);:.ON:T%=.|
00002010  0d 1d 60 24 20 41 24 3d  bf 28 30 29 3a e7 20 41  |..`$ A$=.(0):. A|
00002020  24 3d bd 28 31 33 29 20  8c 20 59 25 3d 30 3a e5  |$=.(13) . Y%=0:.|
00002030  8d 74 66 5d 0d 1d 6a 16  20 e7 20 91 2d 54 25 3c  |.tf]..j. . .-T%<|
00002040  32 35 30 20 8c 20 8d 44  60 5d 0d 1d 74 09 20 59  |250 . .D`]..t. Y|
00002050  25 3d 31 0d 1d a6 09 20  f2 4f 46 46 0d 1d af 06  |%=1.... .OFF....|
00002060  20 e1 0d 1d b0 15 20 dd  f2 52 41 4e 44 4c 49 4e  | ..... ..RANDLIN|
00002070  45 28 41 24 2c 4e 29 0d  1d ba 20 20 f1 8a 32 2c  |E(A$,N)...  ..2,|
00002080  4e 29 3b c4 37 38 2c 22  20 22 29 3b 8a 30 2c 4e  |N);.78," ");.0,N|
00002090  29 3b bd 28 37 29 3b 0d  1d c4 1b 20 43 25 3d b3  |);.(7);.... C%=.|
000020a0  28 34 29 3a 54 25 3d 30  3a f2 4c 49 4e 45 28 41  |(4):T%=0:.LINE(A|
000020b0  24 29 0d 1e 13 06 20 e1  0d 1e dc 11 20 dd a4 4c  |$).... ..... ..L|
000020c0  45 51 28 41 24 2c 45 24  29 0d 1e e6 2a 20 e7 20  |EQ(A$,E$)...* . |
000020d0  c0 41 24 2c 31 29 3d 45  24 20 84 20 c0 41 24 2c  |.A$,1)=E$ . .A$,|
000020e0  31 29 3d bd 28 97 28 45  24 29 2b 33 32 29 20 8c  |1)=.(.(E$)+32) .|
000020f0  20 3d b9 0d 1e f0 07 20  3d a3 0d 1f 3f 06 20 e1  | =..... =...?. .|
00002100  0d 1f 40 12 20 dd f2 44  42 4c 28 58 24 2c 58 2c  |..@. ..DBL(X$,X,|
00002110  59 29 0d 1f 4a 17 20 f1  8a 58 2d 31 2c 59 29 3b  |Y)..J. ..X-1,Y);|
00002120  bd 28 31 34 31 29 3b 58  24 0d 1f 54 19 20 f1 8a  |.(141);X$..T. ..|
00002130  58 2d 31 2c 59 2b 31 29  3b bd 28 31 34 31 29 3b  |X-1,Y+1);.(141);|
00002140  58 24 0d 1f a3 06 20 e1  0d 1f a4 0e 20 dd f2 57  |X$.... ..... ..W|
00002150  41 49 54 28 58 29 0d 1f  ae 08 20 ea 20 5a 0d 1f  |AIT(X).... . Z..|
00002160  b8 08 20 5a 3d 91 0d 1f  c2 12 20 f5 20 fd 20 91  |.. Z=..... . . .|
00002170  2d 5a 3e 58 2a 31 30 30  0d 20 07 06 20 e1 0d 20  |-Z>X*100. .. .. |
00002180  08 0c 20 dd f2 53 50 41  43 45 0d 20 1c 34 20 f1  |.. ..SPACE. .4 .|
00002190  8a 33 2c 32 32 29 3b 22  50 72 65 73 73 20 74 68  |.3,22);"Press th|
000021a0  65 20 53 50 41 43 45 20  42 41 52 20 74 6f 20 63  |e SPACE BAR to c|
000021b0  6f 6e 74 69 6e 75 65 22  3b 3a f2 4b 43 4c 0d 20  |ontinue";:.KCL. |
000021c0  30 0e 20 f5 20 fd 20 be  3d 22 20 22 0d 20 6b 06  |0. . . .=" ". k.|
000021d0  20 e1 0d 20 6c 10 20 dd  f2 54 49 54 4c 45 50 41  | .. l. ..TITLEPA|
000021e0  47 45 0d 20 76 4c 20 db  3a f2 44 42 4c 28 22 4e  |GE. vL .:.DBL("N|
000021f0  6f 77 20 70 72 65 73 73  20 52 45 54 55 52 4e 2e  |ow press RETURN.|
00002200  2e 2e 2e 22 2c 38 2c 38  29 3a f2 44 42 4c 28 22  |...",8,8):.DBL("|
00002210  61 20 70 6f 65 6d 20 62  79 20 52 4f 47 45 52 20  |a poem by ROGER |
00002220  4d 63 47 4f 55 47 48 22  2c 36 2c 31 34 29 0d 20  |McGOUGH",6,14). |
00002230  cf 06 20 e1 0d 22 60 0a  20 dd f2 4b 43 4c 0d 22  |.. .."`. ..KCL."|
00002240  6a 10 20 f5 20 fd 20 a6  28 30 29 3d 2d 31 0d 22  |j. . . .(0)=-1."|
00002250  c3 06 20 e1 0d 22 c4 0a  20 dd f2 4f 46 46 0d 22  |.. ..".. ..OFF."|
00002260  ce 16 20 ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |.. .23;8202;0;0;|
00002270  30 3b 3a e1 0d 22 f6 09  20 dd f2 4f 4e 0d 23 00  |0;:..".. ..ON.#.|
00002280  17 20 ef 32 33 3b 32 39  31 39 34 3b 30 3b 30 3b  |. .23;29194;0;0;|
00002290  30 3b 3a e1 0d 23 28 31  20 dd f2 47 50 49 28 46  |0;:..#(1 ..GPI(F|
000022a0  32 2c 4d 4c 29 3a f4 20  47 65 6e 65 72 61 6c 20  |2,ML):. General |
000022b0  50 75 72 70 6f 73 65 20  49 6e 70 75 74 20 52 6f  |Purpose Input Ro|
000022c0  75 74 69 6e 65 0d 23 32  0a 20 ea 42 2c 42 24 0d  |utine.#2. .B,B$.|
000022d0  23 3c 0a 20 41 24 3d 22  22 0d 23 46 2d 20 f1 c4  |#<. A$="".#F- ..|
000022e0  4d 4c 2c 22 20 22 29 3b  c4 4d 4c 2b 31 2c bd 28  |ML," ");.ML+1,.(|
000022f0  38 29 29 3b 43 24 28 b3  28 34 29 29 3b 3a f2 4f  |8));C$(.(4));:.O|
00002300  4e 3a f2 4b 43 4c 0d 23  50 1f 20 42 24 3d be 3a  |N:.KCL.#P. B$=.:|
00002310  42 3d 97 28 42 24 29 3a  e7 20 42 3d 31 33 20 8c  |B=.(B$):. B=13 .|
00002320  20 8d 64 66 63 0d 23 5a  1b 20 e7 20 42 3d 31 32  | .dfc.#Z. . B=12|
00002330  37 20 80 20 41 24 3d 22  22 20 8c 20 8d 44 50 63  |7 . A$="" . .DPc|
00002340  0d 23 64 29 20 e7 20 42  3d 31 32 37 20 8c 20 41  |.#d) . B=127 . A|
00002350  24 3d c0 41 24 2c a9 28  41 24 29 2d 31 29 3a f1  |$=.A$,.(A$)-1):.|
00002360  42 24 3b 3a e5 8d 44 50  63 0d 23 6e 25 20 e7 20  |B$;:..DPc.#n% . |
00002370  a9 28 41 24 29 3d 4d 4c  20 84 20 42 3c 33 32 20  |.(A$)=ML . B<32 |
00002380  84 20 42 3e 31 32 36 20  8c 20 8d 64 52 63 0d 23  |. B>126 . .dRc.#|
00002390  78 2b 20 e7 20 46 32 3d  30 20 84 20 42 3d 33 32  |x+ . F2=0 . B=32|
000023a0  20 84 20 28 42 3e 3d 34  38 20 80 20 42 3c 3d 35  | . (B>=48 . B<=5|
000023b0  37 29 20 8c 20 8d 64 5c  63 0d 23 d2 12 20 f1 bd  |7) . .d\c.#.. ..|
000023c0  28 37 29 3b 3a e5 8d 44  50 63 20 0d 23 dc 18 20  |(7);:..DPc .#.. |
000023d0  f1 42 24 3b 3a 41 24 3d  41 24 2b 42 24 3a e5 8d  |.B$;:A$=A$+B$:..|
000023e0  44 50 63 0d 23 e6 09 20  f2 4f 46 46 0d 23 ef 06  |DPc.#.. .OFF.#..|
000023f0  20 e1 0d 23 f0 0e 20 dd  f2 59 45 53 4f 52 4e 4f  | ..#.. ..YESORNO|
00002400  0d 23 fa 08 20 ea 42 24  0d 24 04 0e 20 f2 47 50  |.#.. .B$.$.. .GP|
00002410  49 28 30 2c 33 29 0d 24  0e 0e 20 42 24 3d c0 41  |I(0,3).$.. B$=.A|
00002420  24 2c 31 29 0d 24 18 0b  20 59 25 3d 2d 31 20 0d  |$,1).$.. Y%=-1 .|
00002430  24 22 1d 20 e7 20 42 24  3d 22 59 22 20 84 20 42  |$". . B$="Y" . B|
00002440  24 3d 22 79 22 20 8c 20  59 25 3d 31 0d 24 2c 1d  |$="y" . Y%=1.$,.|
00002450  20 e7 20 42 24 3d 22 4e  22 20 84 20 42 24 3d 22  | . B$="N" . B$="|
00002460  6e 22 20 8c 20 59 25 3d  30 0d 24 53 06 20 e1 0d  |n" . Y%=0.$S. ..|
00002470  27 10 7e dd f2 41 53 53  20 50 25 3d 4f 47 25 3a  |'.~..ASS P%=OG%:|
00002480  5b 4f 50 54 20 30 3a 50  48 50 3a 4c 44 59 23 26  |[OPT 0:PHP:LDY#&|
00002490  46 46 3a 53 45 49 3a 53  54 59 26 46 45 34 33 3a  |FF:SEI:STY&FE43:|
000024a0  53 54 41 26 46 45 34 46  3a 49 4e 59 3a 53 54 59  |STA&FE4F:INY:STY|
000024b0  26 46 45 34 30 3a 4c 44  59 23 26 31 30 3a 2e 57  |&FE40:LDY#&10:.W|
000024c0  41 49 54 20 44 45 59 3a  42 4e 45 20 57 41 49 54  |AIT DEY:BNE WAIT|
000024d0  3a 4c 44 59 23 26 30 38  3a 53 54 59 26 46 45 34  |:LDY#&08:STY&FE4|
000024e0  30 3a 50 4c 50 3a 52 54  53 3a 5d 3a e1 0d 27 74  |0:PLP:RTS:]:..'t|
000024f0  18 dd f2 43 28 43 25 29  20 41 25 3d 43 25 3a d6  |...C(C%) A%=C%:.|
00002500  4f 47 25 3a e1 0d 27 d8  28 dd f2 41 28 43 48 25  |OG%:..'.(..A(CH%|
00002510  2c 41 54 25 29 20 f2 43  28 26 38 30 2b 43 48 25  |,AT%) .C(&80+CH%|
00002520  2a 33 32 2b 33 31 2d 41  54 25 29 3a e1 0d 28 3c  |*32+31-AT%):..(<|
00002530  35 dd f2 46 28 43 48 25  2c 46 52 25 29 20 f2 43  |5..F(CH%,FR%) .C|
00002540  28 26 38 30 2b 43 48 25  2a 33 32 2b 28 46 52 25  |(&80+CH%*32+(FR%|
00002550  83 31 36 29 29 3a f2 43  28 46 52 25 2f 31 36 29  |.16)):.C(FR%/16)|
00002560  3a e1 0d ff                                       |:...|
00002564