Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03b_c16_basic2.wav » sentences

sentences

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03b_c16_basic2.wav
Filename: sentences
Read OK:
File size: 0C1D bytes
Load address: 1001
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
     3 REM SENTENCES(UNIT 6)
     5 REM COPYRIGHT (C) ANDREW COLIN 1984
     7 COLOR0,2:COLOR4,15,4:PRINT"<black>"
    10 N=13
    15 DIM W$(300)
    20 DIMP(13,2)
    30 GOSUB2000
    40 GOSUB100
    45 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down>"
    46 X$=MID$(X$,2,LEN(X$)-1)+"."
    50 GOSUB5000
    60 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"          FOR THE NEXT SENTENCE"
    70 PRINT:PRINT"               HIT ANY KEY"
    80 POKE 239,0
    85 X=RND(1)
    90 GETA$:IFA$=""THEN85
    95 GOTO40
   100 REM MAIN SENTENCE GENERATOR
   105 X$=""
   110 IF RND(1)<0.5THEN300
   120 GOSUB1100
   130 IFRND(1)<0.3THEN700
   140 IFRND(1)<0.5THEN170
   150 A=2:GOSUB1000
   160 GOSUB1200:GOTO800
   170 A=3:GOSUB1000
   180 A=4:GOSUB1000
   190 GOTO800
   300 GOSUB1200
   310 IFRND(1)<0.3THEN700
   320 IFRND(1)>0.5THEN370
   330 A=2:GOSUB1000
   340 GOSUB1100
   350 GOTO800
   370 A=3:GOSUB1000
   380 A=5:GOSUB1000
   390 GOTO800
   700 A=1:GOSUB1000:GOTO900
   800 IFRND(1)<0.6THEN RETURN
   810 A=6:GOSUB1000:RETURN
   900 IFRND(1)>0.5THEN RETURN
   910 A=7:GOSUB1000:RETURN
  1000 REM SUBROUTINE TO SELECT A RANDOM WORD FROM CATEGORY A.
  1005 Y=P(A,1)+INT((P(A,2)-P(A,1)+1)*RND(1))
  1010 Y$=W$(Y)
  1020 X$=X$+" "+Y$
  1030 RETURN
  1100 REM SELECT MALE SUBJECT.
  1105 IFRND(1)>0.5THEN1120
  1110 A=8:GOSUB1000:RETURN
  1120 X$=X$+" THE"
  1130 IF RND(1)<0.4THENA=9:GOSUB1000
  1140 A=10:GOSUB1000
  1150 RETURN
  1200 REM SELECT FEMALE SUBJECT.
  1205 IFRND(1)>0.5THEN1220
  1210 A=11:GOSUB1000:RETURN
  1220 X$=X$+" THE"
  1230 IFRND(1)<0.4THENA=12:GOSUB1000
  1240 A=13:GOSUB1000:RETURN
  2000 REM SET UP POINTER TABLE
  2010 X=1
  2020 FORJ=1TON
  2030 P(J,1)=X
  2040 READX$:W$(X)=X$
  2050 IFX$<>"Z"THENX=X+1:GOTO2040
  2060 P(J,2)=X-1:X=X+1
  2070 NEXTJ
  2090 RETURN
  5000 REM DISPLAY SENTENCE X$ WITHOUT BREAKING UP WORDS ACROSS LINES
  5005 IFLEN(X$)>40THEN5020
  5010 PRINTX$:RETURN
  5020 IF MID$(X$,41,1)<>" "THEN 5050
  5030 PRINTMID$(X$,1,40)
  5040 X$=RIGHT$(X$,LEN(X$)-41):PRINT
  5045 GOTO5000
  5050 IFMID$(X$,41,1)<>" "THEN5080
  5060 PRINTMID$(X$,1,40)
  5065 X$=MID$(X$,41,LEN(X$)-40):PRINT
  5070 GOTO5000
  5080 P=39
  5090 IFMID$(X$,P,1)<>" "THENP=P-1:GOTO5090
  5100 PRINTMID$(X$,1,P-1) :PRINT
  5110 X$=MID$(X$,P+1,LEN(X$)-P)
  5120 GOTO5000
  9000 DATASINGS,SCRATCHES,PLAYS THE CELLO,MEDITATES,DAY-DREAMS
  9001 DATAPRACTICES THE FRENCH HORN,PAINTS ABSTRACT PICTURES,READS THE SUN
  9002 DATAMAKES POTTERY,WRITES BAD PROGRAMS,Z
  9010 DATAMET,SHOOK HANDS WITH,HAD A DRINK WITH,GREETED,KISSED,ATTACKED
  9011 DATAASSAULTED,IGNORED,DID NOT RECOGNISE,WALKED RIGHT PAST,RAN AWAY FROM
  9012 DATAARGUED WITH,CAME TO BLOWS WITH,Z
  9020 DATATOOK  OFF, REMOVED,DISCARDED,SOLD,WASHED,TORE OFF,GAVE AWAY,Z
  9030 DATAHIS SHIRT,HIS SHOES,HIS COAT,HIS SOCKS,HIS TOUPEE,HIS WATCH
  9031 DATAHIS FALSE TEETH,HIS DIAMOND CUFFLINKS,HIS TOP HAT,Z
  9040 DATAHER WIG,HER SHOES,HER HAT,HER SPECTACLES,HER STOCKINGS,HER WELLIES,Z
  9050 DATAWITH DELIGHT,IN THE PARK,EVERY DAY,YESTERDAY,LAST WEEK,THIS MORNING
  9051 DATAIN THE PUBLIC LIBRARY,IN THE SWIMMING POOL,IN THE HOME COMPUTER SHOP
  9052 DATAIN THE STREET,IN A PHONE BOX,IN THE NEW COMMODORE FACTORY AT CORBY,Z
  9060 DATAALL THE TIME,OFTEN,IN THE BATH,QUIETLY,LOUDLY,EVERY DAY AT TEN O'CLOCK
  9061 DATAWHENEVER THE TIME IS RIGHT,AT SUNSET,AT MIDNIGHT EVERY NIGHT,Z
  9070 DATASUPERMAN,PRINCE CHARLES,SIR CLIVE SINCLAIR,MR. ARTHUR SCARGILL,Z
  9080 DATA CLEVER,HUSKY,BURLY,FAT,STUPID,HALFWITTED,AIMIABLE,GRUBBY,ELEGANT,Z
  9090 DATAENGINE DRIVER,PILOT,PROFESSOR,LAVATORY ATTENDANT,FOOTBALLER,LIBRARIAN
  9091 DATAAUTHOR OF THIS PROGRAM,CBM SALESMAN,COMPUTER DESIGNER,Z
  9100 DATAMRS. MARGARET THATCHER, PRINCESS ANNE, MISS WORLD, DAME JANET BAKER,Z
  9110 DATABEAUTIFUL,PRETTY,UGLY,PLAIN,CURVACEOUS,FASCINATING,BRAINY,DEMENTED,Z
  9120 DATAGIRL,POLICEWOMAN,BARMAID,CONDUCTRESS,SECRETARY,YOUNG LADY,DOWAGER
  9121 DATAMODEL,BALLET DANCER,AIR HOSTESS,WAITRESS,GO-GO DANCER,Z

� SENTENCES(UNIT 6)?� COPYRIGHT (C) ANDREW COLIN 1984U�0,2:�4,15,4:�"�"^
N�13l� W$(300)y�P(13,2)��2000�(�100�-�"�"�.X$��(X$,2,�(X$)�1)�"."�2�5000�<�:�:�:�:�:�:�"          FOR THE NEXT SENTENCE"F�:�"               HIT ANY KEY"$P� 239,0/UX��(1)AZ�A$:�A$�""�85I_�40gd� MAIN SENTENCE GENERATORqiX$�""�n� �(1)�0.5�300�x�1100����(1)�0.3�700����(1)�0.5�170��A�2:�1000���1200:�800��A�3:�1000��A�4:�1000���800�,�12006��(1)�0.3�700"@��(1)�0.5�3700JA�2:�1000:T�1100C^�800QrA�3:�1000_|A�5:�1000h��800{�A�1:�1000:�900� ��(1)�0.6� ��*A�6:�1000:�����(1)�0.5� ���A�7:�1000:���� SUBROUTINE TO SELECT A RANDOM WORD FROM CATEGORY A.�Y�P(A,1)��((P(A,2)�P(A,1)�1)��(1))+�Y$�W$(Y)<�X$�X$�" "�Y$B�]L� SELECT MALE SUBJECT.pQ��(1)�0.5�1120�VA�8:�1000:��`X$�X$�" THE"�j� �(1)�0.4�A�9:�1000�tA�10:�1000�~���� SELECT FEMALE SUBJECT.����(1)�0.5�1220�A�11:�1000:��X$�X$�" THE"*���(1)�0.4�A�12:�1000;�A�13:�1000:�V�� SET UP POINTER TABLE^�X�1i��J�1�Nv�P(J,1)�X���X$:W$(X)�X$��X$��"Z"�X�X�1:�2040�P(J,2)�X�1:X�X�1��J�*��� DISPLAY SENTENCE X$ WITHOUT BREAKING UP WORDS ACROSS LINES���(X$)�40�5020 ��X$:�<�� �(X$,41,1)��"�"� 5050L���(X$,1,40)d�X$��(X$,�(X$)�41):�n��5000����(X$,41,1)��" "�5080����(X$,1,40)��X$��(X$,41,�(X$)�40):����5000��P�39����(X$,P,1)��" "�P�P�1:�5090����(X$,1,P�1) :��X$��(X$,P�1,�(X$)�P)�5000W(#�SINGS,SCRATCHES,PLAYS THE CELLO,MEDITATES,DAY-DREAMS�)#�PRACTICES THE FRENCH HORN,PAINTS ABSTRACT PICTURES,READS THE SUN�*#�MAKES POTTERY,WRITES BAD PROGRAMS,Z	2#�MET,SHOOK HANDS WITH,HAD A DRINK WITH,GREETED,KISSED,ATTACKEDR3#�ASSAULTED,IGNORED,DID NOT RECOGNISE,WALKED RIGHT PAST,RAN AWAY FROMx4#�ARGUED WITH,CAME TO BLOWS WITH,Z�<#�TOOK  OFF, REMOVED,DISCARDED,SOLD,WASHED,TORE OFF,GAVE AWAY,Z�F#�HIS SHIRT,HIS SHOES,HIS COAT,HIS SOCKS,HIS TOUPEE,HIS WATCH5G#�HIS FALSE TEETH,HIS DIAMOND CUFFLINKS,HIS TOP HAT,ZP#�HER WIG,HER SHOES,HER HAT,HER SPECTACLES,HER STOCKINGS,HER WELLIES,Z�Z#�WITH DELIGHT,IN THE PARK,EVERY DAY,YESTERDAY,LAST WEEK,THIS MORNING[#�IN THE PUBLIC LIBRARY,IN THE SWIMMING POOL,IN THE HOME COMPUTER SHOP\\#�IN THE STREET,IN A PHONE BOX,IN THE NEW COMMODORE FACTORY AT CORBY,Z�d#�ALL THE TIME,OFTEN,IN THE BATH,QUIETLY,LOUDLY,EVERY DAY AT TEN O'CLOCK�e#�WHENEVER THE TIME IS RIGHT,AT SUNSET,AT MIDNIGHT EVERY NIGHT,Z2n#�SUPERMAN,PRINCE CHARLES,SIR CLIVE SINCLAIR,MR. ARTHUR SCARGILL,Z{x#� CLEVER,HUSKY,BURLY,FAT,STUPID,HALFWITTED,AIMIABLE,GRUBBY,ELEGANT,Z��#�ENGINE DRIVER,PILOT,PROFESSOR,LAVATORY ATTENDANT,FOOTBALLER,LIBRARIAN�#�AUTHOR OF THIS PROGRAM,CBM SALESMAN,COMPUTER DESIGNER,ZN�#�MRS. MARGARET THATCHER, PRINCESS ANNE, MISS WORLD, DAME JANET BAKER,Z��#�BEAUTIFUL,PRETTY,UGLY,PLAIN,CURVACEOUS,FASCINATING,BRAINY,DEMENTED,Z��#�GIRL,POLICEWOMAN,BARMAID,CONDUCTRESS,SECRETARY,YOUNG LADY,DOWAGER�#�MODEL,BALLET DANCER,AIR HOSTESS,WAITRESS,GO-GO DANCER,Z
YPC@. sentences(unit 6)@?PE@. copyright (c) andrew colin 1984@uPG@.0,2:.4,15,4:."."@.PJ@n.13@LPO@. w$(300)@YPT@.p(13,2)@.P.@.2000@.P(@.100@.P-@.".QQQQQQQ"@.P.@x$..(x$,2,.(x$).1)."."@.P2@.5000@.P<@.:.:.:.:.:.:."          for the next sentence"@XQf@.:."               hit any key"@$Qp@. 239,0@/Qu@x..(1)@aQz@.a$:.a$."".85@iQ.@.40@GQD@. main sentence generator@QQI@x$.""@.QN@. .(1).0.5.300@.QX@.1100@.Q.@..(1).0.3.700@.Q.@..(1).0.5.170@.Q.@a.2:.1000@.Q.@.1200:.800@.Q.@a.3:.1000@.Q.@a.4:.1000@.Q.@.800@.Q,A.1200@PR6A..(1).0.3.700@"R@A..(1).0.5.370@0RjAa.2:.1000@:RtA.1100@cR.A.800@qRRAa.3:.1000@.R.Aa.5:.1000@HR.A.800@.R.Ba.1:.1000:.900@.R C..(1).0.6. .@.R*Ca.6:.1000:.@.R.C..(1).0.5. .@.R.Ca.7:.1000:.@.R.C. subroutine to select a random word from category a.@.S.Cy.p(a,1)..((p(a,2).p(a,1).1)..(1))@+S.Cy$.w$(y)@<S.Cx$.x$." ".y$@bSFD.@]SlD. select male subject.@PSqD..(1).0.5.1120@.SvDa.8:.1000:.@.S.Dx$.x$." the"@.SJD. .(1).0.4.a.9:.1000@.STDa.10:.1000@.S.D.@.S.D. select female subject.@.S.D..(1).0.5.1220@@T.Da.11:.1000:.@QT.Dx$.x$." the"@*T.D..(1).0.4.a.12:.1000@;T.Da.13:.1000:.@vT.G. set up pointer table@.T.Gx.1@IT.G.j.1.n@VT.Gp(j,1).x@.T.G.x$:w$(x).x$@.TBH.x$.."z".x.x.1:.2040@.TLHp(j,2).x.1:x.x.1@.TVH.j@.T*H.@CU.S. display sentence x$ without breaking up words across lines@VU.S..(x$).40.5020@ U.S.x$:.@<U.S. .(x$,41,1)..".". 5050@lU.S..(x$,1,40)@DU.Sx$..(x$,.(x$).41):.@NU.S.5000@.U.S..(x$,41,1).." ".5080@.U.S..(x$,1,40)@.U.Sx$..(x$,41,.(x$).40):.@.U.S.5000@.U.Sp.39@.U.S..(x$,p,1).." ".p.p.1:.5090@.U.S..(x$,1,p.1) :.@SV.Sx$..(x$,p.1,.(x$).p)@]V@T.5000@wV(#.sings,scratches,plays the cello,meditates,day-dreams@.V)#.practices the french horn,paints abstract pictures,reads the sun@.V*#.makes pottery,writes bad programs,z@IW2#.met,shook hands with,had a drink with,greeted,kissed,attacked@rW3#.assaulted,ignored,did not recognise,walked right past,ran away from@XW4#.argued with,came to blows with,z@.W<#.took  off, removed,discarded,sold,washed,tore off,gave away,z@.Wf#.his shirt,his shoes,his coat,his socks,his toupee,his watch@5Xg#.his false teeth,his diamond cufflinks,his top hat,z@.Xp#.her wig,her shoes,her hat,her spectacles,her stockings,her wellies,z@.Xz#.with delight,in the park,every day,yesterday,last week,this morning@RY[#.in the public library,in the swimming pool,in the home computer shop@£Y£#.in the street,in a phone box,in the new commodore factory at corby,z@.YD#.all the time,often,in the bath,quietly,loudly,every day at ten o'clock@.YE#.whenever the time is right,at sunset,at midnight every night,z@2ZN#.superman,prince charles,sir clive sinclair,mr. arthur scargill,z@.ZX#. clever,husky,burly,fat,stupid,halfwitted,aimiable,grubby,elegant,z@.Z.#.engine driver,pilot,professor,lavatory attendant,footballer,librarian@C[.#.author of this program,cbm salesman,computer designer,z@n[.#.mrs. margaret thatcher, princess anne, miss world, dame janet baker,z@.[.#.beautiful,pretty,ugly,plain,curvaceous,fascinating,brainy,demented,z@.[.#.girl,policewoman,barmaid,conductress,secretary,young lady,dowager@££.#.model,ballet dancer,air hostess,waitress,go-go dancer,z@@@
00000000  19 10 03 00 8f 20 53 45  4e 54 45 4e 43 45 53 28  |..... SENTENCES(|
00000010  55 4e 49 54 20 36 29 00  3f 10 05 00 8f 20 43 4f  |UNIT 6).?.... CO|
00000020  50 59 52 49 47 48 54 20  28 43 29 20 41 4e 44 52  |PYRIGHT (C) ANDR|
00000030  45 57 20 43 4f 4c 49 4e  20 31 39 38 34 00 55 10  |EW COLIN 1984.U.|
00000040  07 00 e7 30 2c 32 3a e7  34 2c 31 35 2c 34 3a 99  |...0,2:.4,15,4:.|
00000050  22 90 22 00 5e 10 0a 00  4e b2 31 33 00 6c 10 0f  |".".^...N.13.l..|
00000060  00 86 20 57 24 28 33 30  30 29 00 79 10 14 00 86  |.. W$(300).y....|
00000070  50 28 31 33 2c 32 29 00  83 10 1e 00 8d 32 30 30  |P(13,2)......200|
00000080  30 00 8c 10 28 00 8d 31  30 30 00 9c 10 2d 00 99  |0...(..100...-..|
00000090  22 93 11 11 11 11 11 11  11 22 00 b7 10 2e 00 58  |"........".....X|
000000a0  24 b2 ca 28 58 24 2c 32  2c c3 28 58 24 29 ab 31  |$..(X$,2,.(X$).1|
000000b0  29 aa 22 2e 22 00 c1 10  32 00 8d 35 30 30 30 00  |)."."...2..5000.|
000000c0  f4 10 3c 00 99 3a 99 3a  99 3a 99 3a 99 3a 99 3a  |..<..:.:.:.:.:.:|
000000d0  99 22 20 20 20 20 20 20  20 20 20 20 46 4f 52 20  |."          FOR |
000000e0  54 48 45 20 4e 45 58 54  20 53 45 4e 54 45 4e 43  |THE NEXT SENTENC|
000000f0  45 22 00 18 11 46 00 99  3a 99 22 20 20 20 20 20  |E"...F..:."     |
00000100  20 20 20 20 20 20 20 20  20 20 48 49 54 20 41 4e  |          HIT AN|
00000110  59 20 4b 45 59 22 00 24  11 50 00 97 20 32 33 39  |Y KEY".$.P.. 239|
00000120  2c 30 00 2f 11 55 00 58  b2 bb 28 31 29 00 41 11  |,0./.U.X..(1).A.|
00000130  5a 00 a1 41 24 3a 8b 41  24 b2 22 22 a7 38 35 00  |Z..A$:.A$."".85.|
00000140  49 11 5f 00 89 34 30 00  67 11 64 00 8f 20 4d 41  |I._..40.g.d.. MA|
00000150  49 4e 20 53 45 4e 54 45  4e 43 45 20 47 45 4e 45  |IN SENTENCE GENE|
00000160  52 41 54 4f 52 00 71 11  69 00 58 24 b2 22 22 00  |RATOR.q.i.X$."".|
00000170  84 11 6e 00 8b 20 bb 28  31 29 b3 30 2e 35 a7 33  |..n.. .(1).0.5.3|
00000180  30 30 00 8e 11 78 00 8d  31 31 30 30 00 a0 11 82  |00...x..1100....|
00000190  00 8b bb 28 31 29 b3 30  2e 33 a7 37 30 30 00 b2  |...(1).0.3.700..|
000001a0  11 8c 00 8b bb 28 31 29  b3 30 2e 35 a7 31 37 30  |.....(1).0.5.170|
000001b0  00 c0 11 96 00 41 b2 32  3a 8d 31 30 30 30 00 cf  |.....A.2:.1000..|
000001c0  11 a0 00 8d 31 32 30 30  3a 89 38 30 30 00 dd 11  |....1200:.800...|
000001d0  aa 00 41 b2 33 3a 8d 31  30 30 30 00 eb 11 b4 00  |..A.3:.1000.....|
000001e0  41 b2 34 3a 8d 31 30 30  30 00 f4 11 be 00 89 38  |A.4:.1000......8|
000001f0  30 30 00 fe 11 2c 01 8d  31 32 30 30 00 10 12 36  |00...,..1200...6|
00000200  01 8b bb 28 31 29 b3 30  2e 33 a7 37 30 30 00 22  |...(1).0.3.700."|
00000210  12 40 01 8b bb 28 31 29  b1 30 2e 35 a7 33 37 30  |.@...(1).0.5.370|
00000220  00 30 12 4a 01 41 b2 32  3a 8d 31 30 30 30 00 3a  |.0.J.A.2:.1000.:|
00000230  12 54 01 8d 31 31 30 30  00 43 12 5e 01 89 38 30  |.T..1100.C.^..80|
00000240  30 00 51 12 72 01 41 b2  33 3a 8d 31 30 30 30 00  |0.Q.r.A.3:.1000.|
00000250  5f 12 7c 01 41 b2 35 3a  8d 31 30 30 30 00 68 12  |_.|.A.5:.1000.h.|
00000260  86 01 89 38 30 30 00 7b  12 bc 02 41 b2 31 3a 8d  |...800.{...A.1:.|
00000270  31 30 30 30 3a 89 39 30  30 00 8c 12 20 03 8b bb  |1000:.900... ...|
00000280  28 31 29 b3 30 2e 36 a7  20 8e 00 9c 12 2a 03 41  |(1).0.6. ....*.A|
00000290  b2 36 3a 8d 31 30 30 30  3a 8e 00 ad 12 84 03 8b  |.6:.1000:.......|
000002a0  bb 28 31 29 b1 30 2e 35  a7 20 8e 00 bd 12 8e 03  |.(1).0.5. ......|
000002b0  41 b2 37 3a 8d 31 30 30  30 3a 8e 00 f7 12 e8 03  |A.7:.1000:......|
000002c0  8f 20 53 55 42 52 4f 55  54 49 4e 45 20 54 4f 20  |. SUBROUTINE TO |
000002d0  53 45 4c 45 43 54 20 41  20 52 41 4e 44 4f 4d 20  |SELECT A RANDOM |
000002e0  57 4f 52 44 20 46 52 4f  4d 20 43 41 54 45 47 4f  |WORD FROM CATEGO|
000002f0  52 59 20 41 2e 00 1e 13  ed 03 59 b2 50 28 41 2c  |RY A......Y.P(A,|
00000300  31 29 aa b5 28 28 50 28  41 2c 32 29 ab 50 28 41  |1)..((P(A,2).P(A|
00000310  2c 31 29 aa 31 29 ac bb  28 31 29 29 00 2b 13 f2  |,1).1)..(1)).+..|
00000320  03 59 24 b2 57 24 28 59  29 00 3c 13 fc 03 58 24  |.Y$.W$(Y).<...X$|
00000330  b2 58 24 aa 22 20 22 aa  59 24 00 42 13 06 04 8e  |.X$." ".Y$.B....|
00000340  00 5d 13 4c 04 8f 20 53  45 4c 45 43 54 20 4d 41  |.].L.. SELECT MA|
00000350  4c 45 20 53 55 42 4a 45  43 54 2e 00 70 13 51 04  |LE SUBJECT..p.Q.|
00000360  8b bb 28 31 29 b1 30 2e  35 a7 31 31 32 30 00 80  |..(1).0.5.1120..|
00000370  13 56 04 41 b2 38 3a 8d  31 30 30 30 3a 8e 00 91  |.V.A.8:.1000:...|
00000380  13 60 04 58 24 b2 58 24  aa 22 20 54 48 45 22 00  |.`.X$.X$." THE".|
00000390  aa 13 6a 04 8b 20 bb 28  31 29 b3 30 2e 34 a7 41  |..j.. .(1).0.4.A|
000003a0  b2 39 3a 8d 31 30 30 30  00 b9 13 74 04 41 b2 31  |.9:.1000...t.A.1|
000003b0  30 3a 8d 31 30 30 30 00  bf 13 7e 04 8e 00 dc 13  |0:.1000...~.....|
000003c0  b0 04 8f 20 53 45 4c 45  43 54 20 46 45 4d 41 4c  |... SELECT FEMAL|
000003d0  45 20 53 55 42 4a 45 43  54 2e 00 ef 13 b5 04 8b  |E SUBJECT.......|
000003e0  bb 28 31 29 b1 30 2e 35  a7 31 32 32 30 00 00 14  |.(1).0.5.1220...|
000003f0  ba 04 41 b2 31 31 3a 8d  31 30 30 30 3a 8e 00 11  |..A.11:.1000:...|
00000400  14 c4 04 58 24 b2 58 24  aa 22 20 54 48 45 22 00  |...X$.X$." THE".|
00000410  2a 14 ce 04 8b bb 28 31  29 b3 30 2e 34 a7 41 b2  |*.....(1).0.4.A.|
00000420  31 32 3a 8d 31 30 30 30  00 3b 14 d8 04 41 b2 31  |12:.1000.;...A.1|
00000430  33 3a 8d 31 30 30 30 3a  8e 00 56 14 d0 07 8f 20  |3:.1000:..V.... |
00000440  53 45 54 20 55 50 20 50  4f 49 4e 54 45 52 20 54  |SET UP POINTER T|
00000450  41 42 4c 45 00 5e 14 da  07 58 b2 31 00 69 14 e4  |ABLE.^...X.1.i..|
00000460  07 81 4a b2 31 a4 4e 00  76 14 ee 07 50 28 4a 2c  |..J.1.N.v...P(J,|
00000470  31 29 b2 58 00 87 14 f8  07 87 58 24 3a 57 24 28  |1).X......X$:W$(|
00000480  58 29 b2 58 24 00 a0 14  02 08 8b 58 24 b3 b1 22  |X).X$......X$.."|
00000490  5a 22 a7 58 b2 58 aa 31  3a 89 32 30 34 30 00 b5  |Z".X.X.1:.2040..|
000004a0  14 0c 08 50 28 4a 2c 32  29 b2 58 ab 31 3a 58 b2  |...P(J,2).X.1:X.|
000004b0  58 aa 31 00 bc 14 16 08  82 4a 00 c2 14 2a 08 8e  |X.1......J...*..|
000004c0  00 03 15 88 13 8f 20 44  49 53 50 4c 41 59 20 53  |...... DISPLAY S|
000004d0  45 4e 54 45 4e 43 45 20  58 24 20 57 49 54 48 4f  |ENTENCE X$ WITHO|
000004e0  55 54 20 42 52 45 41 4b  49 4e 47 20 55 50 20 57  |UT BREAKING UP W|
000004f0  4f 52 44 53 20 41 43 52  4f 53 53 20 4c 49 4e 45  |ORDS ACROSS LINE|
00000500  53 00 16 15 8d 13 8b c3  28 58 24 29 b1 34 30 a7  |S.......(X$).40.|
00000510  35 30 32 30 00 20 15 92  13 99 58 24 3a 8e 00 3c  |5020. ....X$:..<|
00000520  15 9c 13 8b 20 ca 28 58  24 2c 34 31 2c 31 29 b3  |.... .(X$,41,1).|
00000530  b1 22 a0 22 a7 20 35 30  35 30 00 4c 15 a6 13 99  |.".". 5050.L....|
00000540  ca 28 58 24 2c 31 2c 34  30 29 00 64 15 b0 13 58  |.(X$,1,40).d...X|
00000550  24 b2 c9 28 58 24 2c c3  28 58 24 29 ab 34 31 29  |$..(X$,.(X$).41)|
00000560  3a 99 00 6e 15 b5 13 89  35 30 30 30 00 88 15 ba  |:..n....5000....|
00000570  13 8b ca 28 58 24 2c 34  31 2c 31 29 b3 b1 22 20  |...(X$,41,1).." |
00000580  22 a7 35 30 38 30 00 98  15 c4 13 99 ca 28 58 24  |".5080.......(X$|
00000590  2c 31 2c 34 30 29 00 b3  15 c9 13 58 24 b2 ca 28  |,1,40).....X$..(|
000005a0  58 24 2c 34 31 2c c3 28  58 24 29 ab 34 30 29 3a  |X$,41,.(X$).40):|
000005b0  99 00 bd 15 ce 13 89 35  30 30 30 00 c6 15 d8 13  |.......5000.....|
000005c0  50 b2 33 39 00 e6 15 e2  13 8b ca 28 58 24 2c 50  |P.39.......(X$,P|
000005d0  2c 31 29 b3 b1 22 20 22  a7 50 b2 50 ab 31 3a 89  |,1).." ".P.P.1:.|
000005e0  35 30 39 30 00 fa 15 ec  13 99 ca 28 58 24 2c 31  |5090.......(X$,1|
000005f0  2c 50 ab 31 29 20 3a 99  00 13 16 f6 13 58 24 b2  |,P.1) :......X$.|
00000600  ca 28 58 24 2c 50 aa 31  2c c3 28 58 24 29 ab 50  |.(X$,P.1,.(X$).P|
00000610  29 00 1d 16 00 14 89 35  30 30 30 00 57 16 28 23  |)......5000.W.(#|
00000620  83 53 49 4e 47 53 2c 53  43 52 41 54 43 48 45 53  |.SINGS,SCRATCHES|
00000630  2c 50 4c 41 59 53 20 54  48 45 20 43 45 4c 4c 4f  |,PLAYS THE CELLO|
00000640  2c 4d 45 44 49 54 41 54  45 53 2c 44 41 59 2d 44  |,MEDITATES,DAY-D|
00000650  52 45 41 4d 53 00 9d 16  29 23 83 50 52 41 43 54  |REAMS...)#.PRACT|
00000660  49 43 45 53 20 54 48 45  20 46 52 45 4e 43 48 20  |ICES THE FRENCH |
00000670  48 4f 52 4e 2c 50 41 49  4e 54 53 20 41 42 53 54  |HORN,PAINTS ABST|
00000680  52 41 43 54 20 50 49 43  54 55 52 45 53 2c 52 45  |RACT PICTURES,RE|
00000690  41 44 53 20 54 48 45 20  53 55 4e 00 c6 16 2a 23  |ADS THE SUN...*#|
000006a0  83 4d 41 4b 45 53 20 50  4f 54 54 45 52 59 2c 57  |.MAKES POTTERY,W|
000006b0  52 49 54 45 53 20 42 41  44 20 50 52 4f 47 52 41  |RITES BAD PROGRA|
000006c0  4d 53 2c 5a 00 09 17 32  23 83 4d 45 54 2c 53 48  |MS,Z...2#.MET,SH|
000006d0  4f 4f 4b 20 48 41 4e 44  53 20 57 49 54 48 2c 48  |OOK HANDS WITH,H|
000006e0  41 44 20 41 20 44 52 49  4e 4b 20 57 49 54 48 2c  |AD A DRINK WITH,|
000006f0  47 52 45 45 54 45 44 2c  4b 49 53 53 45 44 2c 41  |GREETED,KISSED,A|
00000700  54 54 41 43 4b 45 44 00  52 17 33 23 83 41 53 53  |TTACKED.R.3#.ASS|
00000710  41 55 4c 54 45 44 2c 49  47 4e 4f 52 45 44 2c 44  |AULTED,IGNORED,D|
00000720  49 44 20 4e 4f 54 20 52  45 43 4f 47 4e 49 53 45  |ID NOT RECOGNISE|
00000730  2c 57 41 4c 4b 45 44 20  52 49 47 48 54 20 50 41  |,WALKED RIGHT PA|
00000740  53 54 2c 52 41 4e 20 41  57 41 59 20 46 52 4f 4d  |ST,RAN AWAY FROM|
00000750  00 78 17 34 23 83 41 52  47 55 45 44 20 57 49 54  |.x.4#.ARGUED WIT|
00000760  48 2c 43 41 4d 45 20 54  4f 20 42 4c 4f 57 53 20  |H,CAME TO BLOWS |
00000770  57 49 54 48 2c 5a 00 bb  17 3c 23 83 54 4f 4f 4b  |WITH,Z...<#.TOOK|
00000780  20 20 4f 46 46 2c 20 52  45 4d 4f 56 45 44 2c 44  |  OFF, REMOVED,D|
00000790  49 53 43 41 52 44 45 44  2c 53 4f 4c 44 2c 57 41  |ISCARDED,SOLD,WA|
000007a0  53 48 45 44 2c 54 4f 52  45 20 4f 46 46 2c 47 41  |SHED,TORE OFF,GA|
000007b0  56 45 20 41 57 41 59 2c  5a 00 fc 17 46 23 83 48  |VE AWAY,Z...F#.H|
000007c0  49 53 20 53 48 49 52 54  2c 48 49 53 20 53 48 4f  |IS SHIRT,HIS SHO|
000007d0  45 53 2c 48 49 53 20 43  4f 41 54 2c 48 49 53 20  |ES,HIS COAT,HIS |
000007e0  53 4f 43 4b 53 2c 48 49  53 20 54 4f 55 50 45 45  |SOCKS,HIS TOUPEE|
000007f0  2c 48 49 53 20 57 41 54  43 48 00 35 18 47 23 83  |,HIS WATCH.5.G#.|
00000800  48 49 53 20 46 41 4c 53  45 20 54 45 45 54 48 2c  |HIS FALSE TEETH,|
00000810  48 49 53 20 44 49 41 4d  4f 4e 44 20 43 55 46 46  |HIS DIAMOND CUFF|
00000820  4c 49 4e 4b 53 2c 48 49  53 20 54 4f 50 20 48 41  |LINKS,HIS TOP HA|
00000830  54 2c 5a 00 7f 18 50 23  83 48 45 52 20 57 49 47  |T,Z...P#.HER WIG|
00000840  2c 48 45 52 20 53 48 4f  45 53 2c 48 45 52 20 48  |,HER SHOES,HER H|
00000850  41 54 2c 48 45 52 20 53  50 45 43 54 41 43 4c 45  |AT,HER SPECTACLE|
00000860  53 2c 48 45 52 20 53 54  4f 43 4b 49 4e 47 53 2c  |S,HER STOCKINGS,|
00000870  48 45 52 20 57 45 4c 4c  49 45 53 2c 5a 00 c8 18  |HER WELLIES,Z...|
00000880  5a 23 83 57 49 54 48 20  44 45 4c 49 47 48 54 2c  |Z#.WITH DELIGHT,|
00000890  49 4e 20 54 48 45 20 50  41 52 4b 2c 45 56 45 52  |IN THE PARK,EVER|
000008a0  59 20 44 41 59 2c 59 45  53 54 45 52 44 41 59 2c  |Y DAY,YESTERDAY,|
000008b0  4c 41 53 54 20 57 45 45  4b 2c 54 48 49 53 20 4d  |LAST WEEK,THIS M|
000008c0  4f 52 4e 49 4e 47 00 12  19 5b 23 83 49 4e 20 54  |ORNING...[#.IN T|
000008d0  48 45 20 50 55 42 4c 49  43 20 4c 49 42 52 41 52  |HE PUBLIC LIBRAR|
000008e0  59 2c 49 4e 20 54 48 45  20 53 57 49 4d 4d 49 4e  |Y,IN THE SWIMMIN|
000008f0  47 20 50 4f 4f 4c 2c 49  4e 20 54 48 45 20 48 4f  |G POOL,IN THE HO|
00000900  4d 45 20 43 4f 4d 50 55  54 45 52 20 53 48 4f 50  |ME COMPUTER SHOP|
00000910  00 5c 19 5c 23 83 49 4e  20 54 48 45 20 53 54 52  |.\.\#.IN THE STR|
00000920  45 45 54 2c 49 4e 20 41  20 50 48 4f 4e 45 20 42  |EET,IN A PHONE B|
00000930  4f 58 2c 49 4e 20 54 48  45 20 4e 45 57 20 43 4f  |OX,IN THE NEW CO|
00000940  4d 4d 4f 44 4f 52 45 20  46 41 43 54 4f 52 59 20  |MMODORE FACTORY |
00000950  41 54 20 43 4f 52 42 59  2c 5a 00 a8 19 64 23 83  |AT CORBY,Z...d#.|
00000960  41 4c 4c 20 54 48 45 20  54 49 4d 45 2c 4f 46 54  |ALL THE TIME,OFT|
00000970  45 4e 2c 49 4e 20 54 48  45 20 42 41 54 48 2c 51  |EN,IN THE BATH,Q|
00000980  55 49 45 54 4c 59 2c 4c  4f 55 44 4c 59 2c 45 56  |UIETLY,LOUDLY,EV|
00000990  45 52 59 20 44 41 59 20  41 54 20 54 45 4e 20 4f  |ERY DAY AT TEN O|
000009a0  27 43 4c 4f 43 4b 00 ec  19 65 23 83 57 48 45 4e  |'CLOCK...e#.WHEN|
000009b0  45 56 45 52 20 54 48 45  20 54 49 4d 45 20 49 53  |EVER THE TIME IS|
000009c0  20 52 49 47 48 54 2c 41  54 20 53 55 4e 53 45 54  | RIGHT,AT SUNSET|
000009d0  2c 41 54 20 4d 49 44 4e  49 47 48 54 20 45 56 45  |,AT MIDNIGHT EVE|
000009e0  52 59 20 4e 49 47 48 54  2c 5a 00 32 1a 6e 23 83  |RY NIGHT,Z.2.n#.|
000009f0  53 55 50 45 52 4d 41 4e  2c 50 52 49 4e 43 45 20  |SUPERMAN,PRINCE |
00000a00  43 48 41 52 4c 45 53 2c  53 49 52 20 43 4c 49 56  |CHARLES,SIR CLIV|
00000a10  45 20 53 49 4e 43 4c 41  49 52 2c 4d 52 2e 20 41  |E SINCLAIR,MR. A|
00000a20  52 54 48 55 52 20 53 43  41 52 47 49 4c 4c 2c 5a  |RTHUR SCARGILL,Z|
00000a30  00 7b 1a 78 23 83 20 43  4c 45 56 45 52 2c 48 55  |.{.x#. CLEVER,HU|
00000a40  53 4b 59 2c 42 55 52 4c  59 2c 46 41 54 2c 53 54  |SKY,BURLY,FAT,ST|
00000a50  55 50 49 44 2c 48 41 4c  46 57 49 54 54 45 44 2c  |UPID,HALFWITTED,|
00000a60  41 49 4d 49 41 42 4c 45  2c 47 52 55 42 42 59 2c  |AIMIABLE,GRUBBY,|
00000a70  45 4c 45 47 41 4e 54 2c  5a 00 c6 1a 82 23 83 45  |ELEGANT,Z....#.E|
00000a80  4e 47 49 4e 45 20 44 52  49 56 45 52 2c 50 49 4c  |NGINE DRIVER,PIL|
00000a90  4f 54 2c 50 52 4f 46 45  53 53 4f 52 2c 4c 41 56  |OT,PROFESSOR,LAV|
00000aa0  41 54 4f 52 59 20 41 54  54 45 4e 44 41 4e 54 2c  |ATORY ATTENDANT,|
00000ab0  46 4f 4f 54 42 41 4c 4c  45 52 2c 4c 49 42 52 41  |FOOTBALLER,LIBRA|
00000ac0  52 49 41 4e 00 03 1b 83  23 83 41 55 54 48 4f 52  |RIAN....#.AUTHOR|
00000ad0  20 4f 46 20 54 48 49 53  20 50 52 4f 47 52 41 4d  | OF THIS PROGRAM|
00000ae0  2c 43 42 4d 20 53 41 4c  45 53 4d 41 4e 2c 43 4f  |,CBM SALESMAN,CO|
00000af0  4d 50 55 54 45 52 20 44  45 53 49 47 4e 45 52 2c  |MPUTER DESIGNER,|
00000b00  5a 00 4e 1b 8c 23 83 4d  52 53 2e 20 4d 41 52 47  |Z.N..#.MRS. MARG|
00000b10  41 52 45 54 20 54 48 41  54 43 48 45 52 2c 20 50  |ARET THATCHER, P|
00000b20  52 49 4e 43 45 53 53 20  41 4e 4e 45 2c 20 4d 49  |RINCESS ANNE, MI|
00000b30  53 53 20 57 4f 52 4c 44  2c 20 44 41 4d 45 20 4a  |SS WORLD, DAME J|
00000b40  41 4e 45 54 20 42 41 4b  45 52 2c 5a 00 98 1b 96  |ANET BAKER,Z....|
00000b50  23 83 42 45 41 55 54 49  46 55 4c 2c 50 52 45 54  |#.BEAUTIFUL,PRET|
00000b60  54 59 2c 55 47 4c 59 2c  50 4c 41 49 4e 2c 43 55  |TY,UGLY,PLAIN,CU|
00000b70  52 56 41 43 45 4f 55 53  2c 46 41 53 43 49 4e 41  |RVACEOUS,FASCINA|
00000b80  54 49 4e 47 2c 42 52 41  49 4e 59 2c 44 45 4d 45  |TING,BRAINY,DEME|
00000b90  4e 54 45 44 2c 5a 00 df  1b a0 23 83 47 49 52 4c  |NTED,Z....#.GIRL|
00000ba0  2c 50 4f 4c 49 43 45 57  4f 4d 41 4e 2c 42 41 52  |,POLICEWOMAN,BAR|
00000bb0  4d 41 49 44 2c 43 4f 4e  44 55 43 54 52 45 53 53  |MAID,CONDUCTRESS|
00000bc0  2c 53 45 43 52 45 54 41  52 59 2c 59 4f 55 4e 47  |,SECRETARY,YOUNG|
00000bd0  20 4c 41 44 59 2c 44 4f  57 41 47 45 52 00 1c 1c  | LADY,DOWAGER...|
00000be0  a1 23 83 4d 4f 44 45 4c  2c 42 41 4c 4c 45 54 20  |.#.MODEL,BALLET |
00000bf0  44 41 4e 43 45 52 2c 41  49 52 20 48 4f 53 54 45  |DANCER,AIR HOSTE|
00000c00  53 53 2c 57 41 49 54 52  45 53 53 2c 47 4f 2d 47  |SS,WAITRESS,GO-G|
00000c10  4f 20 44 41 4e 43 45 52  2c 5a 00 00 00           |O DANCER,Z...|
00000c1d