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:
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03a_c16_basic2.wav » sentences
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03b_c16_basic2.wav » sentences
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 1984 U �0,2:�4,15,4:�"�"