Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03a_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_tape03a_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:�"�"