From cb12a1e1951635abf6b83fc0d24e14348f28d69e Mon Sep 17 00:00:00 2001 From: Stephen MacKenzie Date: Fri, 10 May 2019 12:10:54 -0700 Subject: [PATCH] all text files --- 1/1.TXT | 1 + 1/1.bas | 75 ++++++++++++++++++++++++++ 10/10.TXT | 1 + 11/11.TXT | 1 + 12/12.TXT | 1 + 14/14.TXT | 1 + 15/15.TXT | 1 + 19/19.TXT | 1 + 2/2.TXT | 1 + 20/20.TXT | 1 + 23/23.TXT | 1 + 24/24.TXT | 1 + 28/28.TXT | 1 + 29/29.TXT | 1 + 3/3.TXT | 1 + 32/32.TXT | 1 + 33/33.TXT | 1 + 34/34.TXT | 1 + 36/36.TXT | 1 + 4/4.TXT | 1 + 4SCI/4SCI.TXT | 1 + 5/5.TXT | 1 + 6LAT1/6LAT1.TXT | 1 + 7/7.TXT | 1 + 8/8.TXT | 1 + 9/9.TXT | 1 + ACT/ACT.TXT | 1 + ALL ABOUT AFRICA/ALL ABOUT AFRICA.TXT | 1 + ARITHEORY/ARTHSENT.TXT | 1 + ARITHEORY/TYPES.TXT | 1 + ASIA/Asia.TXT | 1 + AUSTRALIA/AUSTRALIA.TXT | 1 + AUTHORS/athrs.TXT | 1 + AUTHORTEST/athrsQUIZ GAME.TXT | Bin 0 -> 10304 bytes CCA/CENT. AMERICA.TXT | 1 + COSU/COSU.TXT | 1 + DEA/DEA.TXT | 1 + DEC/DEC.TXT | 1 + DIVIDE/DIVIDE.TXT | 1 + DPN/DPN.TXT | 1 + EXACTA/EXACTA.TXT | 1 + FLASHCARDS/FLASH CARDS FAST.TXT | 1 + FLASHCARDS/FLASH CARDSREGULAR.TXT | 1 + FLASHCARDS/FD DECS.TXT | 1 + FLASHCARDS/FD DRILLS.TXT | 1 + FLASHCARDS/KIDDY WO PROS.TXT | 1 + GND/GND.TXT | 1 + HISTORY/HISTORY.TXT | 1 + LOGIC/LOGIC.TXT | 1 + MAP 1/MAP 1.TXT | 1 + MEMORIA/Memoria.TXT | 1 + PAC-NW/PAC-NW.TXT | 1 + PARTES/PARTES.TXT | 1 + PARTIBUS/PARTIBUS.TXT | 1 + SENTS5/SENTS5.TXT | 1 + SENLAT/SENTLAT.TXT | 1 + STH. AM/STH. AM.TXT | 1 + STUFF/STUFF.TXT | 1 + SUB/SUB.TXT | 1 + VOC3/VOC3.TXT | 1 + VOC4/VOC4.TXT | 1 + VOC5/VOC5.TXT | 1 + VOC6/VOC6.TXT | 1 + VOC7/VOC7.TXT | 1 + 64 files changed, 137 insertions(+) create mode 100644 1/1.TXT create mode 100644 1/1.bas create mode 100644 10/10.TXT create mode 100644 11/11.TXT create mode 100644 12/12.TXT create mode 100644 14/14.TXT create mode 100644 15/15.TXT create mode 100644 19/19.TXT create mode 100644 2/2.TXT create mode 100644 20/20.TXT create mode 100644 23/23.TXT create mode 100644 24/24.TXT create mode 100644 28/28.TXT create mode 100644 29/29.TXT create mode 100644 3/3.TXT create mode 100644 32/32.TXT create mode 100644 33/33.TXT create mode 100644 34/34.TXT create mode 100644 36/36.TXT create mode 100644 4/4.TXT create mode 100644 4SCI/4SCI.TXT create mode 100644 5/5.TXT create mode 100644 6LAT1/6LAT1.TXT create mode 100644 7/7.TXT create mode 100644 8/8.TXT create mode 100644 9/9.TXT create mode 100644 ACT/ACT.TXT create mode 100644 ALL ABOUT AFRICA/ALL ABOUT AFRICA.TXT create mode 100644 ARITHEORY/ARTHSENT.TXT create mode 100644 ARITHEORY/TYPES.TXT create mode 100644 ASIA/Asia.TXT create mode 100644 AUSTRALIA/AUSTRALIA.TXT create mode 100644 AUTHORS/athrs.TXT create mode 100644 AUTHORTEST/athrsQUIZ GAME.TXT create mode 100644 CCA/CENT. AMERICA.TXT create mode 100644 COSU/COSU.TXT create mode 100644 DEA/DEA.TXT create mode 100644 DEC/DEC.TXT create mode 100644 DIVIDE/DIVIDE.TXT create mode 100644 DPN/DPN.TXT create mode 100644 EXACTA/EXACTA.TXT create mode 100644 FLASHCARDS/FLASH CARDS FAST.TXT create mode 100644 FLASHCARDS/FLASH CARDSREGULAR.TXT create mode 100644 FLASHCARDS/FD DECS.TXT create mode 100644 FLASHCARDS/FD DRILLS.TXT create mode 100644 FLASHCARDS/KIDDY WO PROS.TXT create mode 100644 GND/GND.TXT create mode 100644 HISTORY/HISTORY.TXT create mode 100644 LOGIC/LOGIC.TXT create mode 100644 MAP 1/MAP 1.TXT create mode 100644 MEMORIA/Memoria.TXT create mode 100644 PAC-NW/PAC-NW.TXT create mode 100644 PARTES/PARTES.TXT create mode 100644 PARTIBUS/PARTIBUS.TXT create mode 100644 SENTS5/SENTS5.TXT create mode 100644 SENLAT/SENTLAT.TXT create mode 100644 STH. AM/STH. AM.TXT create mode 100644 STUFF/STUFF.TXT create mode 100644 SUB/SUB.TXT create mode 100644 VOC3/VOC3.TXT create mode 100644 VOC4/VOC4.TXT create mode 100644 VOC5/VOC5.TXT create mode 100644 VOC6/VOC6.TXT create mode 100644 VOC7/VOC7.TXT diff --git a/1/1.TXT b/1/1.TXT new file mode 100644 index 0000000..f864cad --- /dev/null +++ b/1/1.TXT @@ -0,0 +1 @@ +10 CLS:PRINT" THIS IS EXERCISE 1" 12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ 13 IF ANS$ = "Y" THEN 17 15 IF ANS$= "N" THEN RUN "GRAM 1" 16 BEEP:GOTO 12 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 18 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=1 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=1 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 17 23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL CLS PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " PRINT" INPUT 'QUIT' FOR THE CHOICE OF NOUN. REMEMBER THIS." PRINT"" PRINT" THE COMPLETE EXERCISE HAS 25 ITEMS, AND" PRINT" YOU WILL BE ABLE TO DO IT ONLY TWICE, IF YOU DO IT OVER" PRINT" RIGHT AWAY AT THE CHOICE AT THE END." PRINT"" INPUT"TO GET GOING, PRESS THE 'RETURN' KEY.", V TOT=25 25 CLS:SCORE =0:ITEM=0:TRY=0:CORRECT=0 26 TIM$=TIME$ 27 TIM=VAL(RIGHT$(TIM$,1))+1 28 ON TIM GOTO 500,503,506,510,513,517,519,525,530,537 30 ITEM=ITEM+1:IF ITEM>=26 THEN 600 31 J1$="":J2$="":J3$="":J4$="":J5$="":AT=1 32 CLS:CALL MOVETO(20,20):PRINT NOMEN$" SENTENCES LEFT "25-ITEM" SCORE "SCORE"%" 33 CALL TEXTFONT(CHICAGO):CALL MOVETO(20,50):PRINT"Exercise Sentence:" 34 CALL TEXTFONT(12):CALL MOVETO(20,70):PRINT S$ 40 CALL MOVETO(20,100):INPUT"TYPE IN A NOUN FROM THE SENTENCE."; N$ 41 IF N$="" THEN BEEP:GOTO 40 42 IF N$="QUIT" THEN 600 43 IF N$=N1$ OR N$=N2$ OR N$=N3$ OR N$=N4$ OR N$=N5$ THEN 50 44 CALL MOVETO(20,150):PRINT"SORRY, THAT IS NOT A NOUN. TRY ANOTHER WORD.":SOUND 60,5,0:FOR DL=1 TO 2000:NEXT DL 45 TRY=TRY+1:SCORE = INT(100*(CORRECT/TRY)) 46 CLS:GOTO 32 50 IF N$=N1$ AND J1$<>"" THEN GOTO 62 51 IF N$=N1$ THEN J1$="YOU" 52 IF N$=N2$ AND J2$<>"" THEN GOTO 62 53 IF N$=N2$ THEN J2$="YOU" 54 IF N$=N3$ AND J3$<>"" THEN GOTO 62 55 IF N$=N3$ THEN J3$="YOU" 56 IF N$=N4$ AND J4$<>"" THEN GOTO 62 57 IF N$=N4$ THEN J4$="YOU" 58 IF N$=N5$ AND J5$<>"" THEN GOTO 62 \ No newline at end of file diff --git a/1/1.bas b/1/1.bas new file mode 100644 index 0000000..d6a93e0 --- /dev/null +++ b/1/1.bas @@ -0,0 +1,75 @@ +9 SCREEN 12 +10 CLS: PRINT " THIS IS EXERCISE 1" +12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N ", ANS$ +13 IF ANS$ = "Y" THEN 17 +15 IF ANS$= "N" THEN RUN "GRAM 1" +16 BEEP:GOTO 12 +17 CLS +18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ + IF NOMEN$="" THEN BEEP:GOTO 18 + A=0:SCORE=0:CICI=0 + ON ERROR GOTO 22 + OPEN NOMEN$ FOR INPUT AS #1 +19 IF EOF(1) THEN 20 + INPUT #1, N,S + IF N=1 THEN A=1 + GOTO 19 +20 CLOSE #1 + IF A>0 THEN 21 + OPEN NOMEN$ FOR APPEND AS #1 + N=1 + S=SCORE + PRINT#1,N,S + CLOSE#1 + GOTO 23 +21 PRINT"" + PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." + INPUT" PLEASE PRESS THE 'RETURN' KEY"; V + CLS + RUN "GRAM 1" +22 PRINT"":PRINT"" + PRINT" NAME NOT FOUND." + INPUT" PLEASE PRESS THE 'RETURN' KEY"; V + CLS + CLEAR + GOTO 17 + +23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL + CLS + PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " + PRINT" INPUT 'QUIT' FOR THE CHOICE OF NOUN. REMEMBER THIS." + PRINT"" + PRINT" THE COMPLETE EXERCISE HAS 25 ITEMS, AND" + PRINT" YOU WILL BE ABLE TO DO IT ONLY TWICE, IF YOU DO IT OVER" + PRINT" RIGHT AWAY AT THE CHOICE AT THE END." + PRINT"" + INPUT"TO GET GOING, PRESS THE 'RETURN' KEY.", V + TOT=25 + +25 CLS:SCORE =0:ITEM=0:TRY=0:CORRECT=0 +26 TIM$=TIME$ +27 TIM=VAL(RIGHT$(TIM$,1))+1 +28 ON TIM GOTO 500,503,506,510,513,517,519,525,530,537 + +30 ITEM=ITEM+1:IF ITEM>=26 THEN 600 +31 J1$="":J2$="":J3$="":J4$="":J5$="":AT=1 +32 CLS:CALL MOVETO(20,20):PRINT NOMEN$" SENTENCES LEFT "25-ITEM" SCORE "SCORE"%" +33 CALL TEXTFONT(CHICAGO):CALL MOVETO(20,50):PRINT"Exercise Sentence:" +34 CALL TEXTFONT(12):CALL MOVETO(20,70):PRINT S$ +40 CALL MOVETO(20,100):INPUT"TYPE IN A NOUN FROM THE SENTENCE."; N$ +41 IF N$="" THEN BEEP:GOTO 40 +42 IF N$="QUIT" THEN 600 +43 IF N$=N1$ OR N$=N2$ OR N$=N3$ OR N$=N4$ OR N$=N5$ THEN 50 +44 CALL MOVETO(20,150):PRINT"SORRY, THAT IS NOT A NOUN. TRY ANOTHER WORD.":SOUND 60,5,0:FOR DL=1 TO 2000:NEXT DL +45 TRY=TRY+1:SCORE = INT(100*(CORRECT/TRY)) +46 CLS:GOTO 32 + +50 IF N$=N1$ AND J1$<>"" THEN GOTO 62 +51 IF N$=N1$ THEN J1$="YOU" +52 IF N$=N2$ AND J2$<>"" THEN GOTO 62 +53 IF N$=N2$ THEN J2$="YOU" +54 IF N$=N3$ AND J3$<>"" THEN GOTO 62 +55 IF N$=N3$ THEN J3$="YOU" +56 IF N$=N4$ AND J4$<>"" THEN GOTO 62 +57 IF N$=N4$ THEN J4$="YOU" +58 IF N$=N5$ AND J5$<>"" THEN GOTO 62 diff --git a/10/10.TXT b/10/10.TXT new file mode 100644 index 0000000..4661ec1 --- /dev/null +++ b/10/10.TXT @@ -0,0 +1 @@ +10 CLS:PRINT" THIS IS EXERCISE 10" 12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ 13 IF ANS$ = "Y" THEN 17 15 IF ANS$= "N" THEN RUN "GRAM 1" 16 BEEP:GOTO 12 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 18 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=10 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=10 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 17 23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL 24 PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,3,100 CLS PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " PRINT" INPUT 'QUIT' FOR THE CHOICE OF NOUN. REMEMBER THIS." PRINT"" PRINT" IN THIS EXERCISE YOU WILL HAVE A SENTENCE WITH A BLANK." PRINT" YOU WILL BE GIVEN A WORD; YOU ARE TO INPUT THE" PRINT" APPROPRIATE FORM OF THE POSSESSIVE OF THAT WORD AS IT" PRINT" WOULD GO INTO THAT BLANK--SINGULAR OR PLURAL." PRINT" BE AWARE, TOO, THE PROGRAM WILL NOT GO ON UNTIL YOU" PRINT" GET THE ITEM RIGHT. GET HELP, IF NEEDED." PRINT" THE EXERCISE HAS 18 ITEMS AND YOU WILL GET AT MOST 2 TRIES." PRINT"" INPUT" WHEN YOU ARE READY TO GO, PRESS THE 'RETURN' KEY.", V 25 CLS:SCORE =0:ITEM=-1:TRY=0:CORRECT=0:TOT=18 26 TIM$=TIME$ 27 TIM=VAL(RIGHT$(TIM$,1))+1 28 ON TIM GOTO 101,103,106,110,113,117,119,123,125,127 30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=0 THEN 600 CALL TEXTSIZE(18):CALL MOVETO(20,30) PRINT"NAME: "NOMEN$" LEFT: "LEFT" SCORE="SCORE"%" CALL TEXTFONT(CHICAGO):CALL MOVETO(20,80):PRINT"Sentence:" CALL TEXTFONT(12):CALL MOVETO(30,100):PRINT S1$ IF S2$<>"" THEN CALL MOVETO(40,124):PRINT S2$ 31 CALL TEXTFONT(CHICAGO):CALL MOVETO(20,180):PRINT"Word for the blank: "W$ \ No newline at end of file diff --git a/11/11.TXT b/11/11.TXT new file mode 100644 index 0000000..e416767 --- /dev/null +++ b/11/11.TXT @@ -0,0 +1 @@ +5 DIM A$(5) 10 CLS:PRINT" THIS IS EXERCISE 11" 12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ 13 IF ANS$ = "Y" THEN 17 15 IF ANS$= "N" THEN RUN "GRAM 1" 16 BEEP:GOTO 12 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 18 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=11 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=11 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 17 23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL SOUND 196,2,100:FOR D=1 TO 400:NEXT D:SOUND 262,6,50:FOR D=1 TO 400:NEXT D CLS PRINT"" PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " PRINT" INPUT 'QUIT' FOR THE CHOICE OF ENDING. REMEMBER THIS." PRINT"" PRINT" IN THIS EXERCISE YOU WILL BE GIVEN A SENTENCE WITH SOME" PRINT" WORDS THAT HAVE (#) AFTER THEM." PRINT" THE QUESTION WILL BE: DOES 'S OR ' OR NOTHING GO IN THE ( )." PRINT" AS EACH NUMBER OF THE ( ) IS ASKED, YOU INPUT ONE OF:" PRINT" 'S, ', OR 0--I.E. THE ZERO KEY--TO TELL WHAT GOES THERE." PRINT"" PRINT" EXERCISE HAS 18 SENTENCES, YOU WILL GET TWO TRIES AT IT." PRINT"" INPUT" WHEN YOU ARE READY TO GO, PRESS THE 'RETURN' KEY", V 25 CLS:SCORE =0:ITEM=-1:TRY=0:CORRECT=0:TOT=18 GOTO 130 26 TIM$=TIME$ 27 TIM=VAL(RIGHT$(TIM$,1))+1 28 ON TIM GOTO 500,503,506,510,513,517,519,525,529,533 30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=0 THEN 600 SOUND 196,1,200:FOR D=1 TO 200:NEXT D:SOUND 131,4,30 CALL TEXTSIZE(18):CALL MOVETO(20,30) PRINT"Name: "NOMEN$" Left:"LEFT" Score:"SCORE"%" CALL TEXTFONT(CHICAGO):CALL MOVETO(20,70) PRINT"Sample sentence:" CALL TEXTFONT(12):CALL MOVETO(30,120):PRINT S1$ IF S2$<>"" THEN CALL MOVETO(40,150):PRINT S2$ FOR N=1 TO Q CALL TEXTFONT(CHICAGO):CALL MOVETO(20,200) PRINT"WHAT GOES IN ("N")?" 31 CALL TEXTFONT(12):CALL MOVETO(10,240) INPUT CH$ IF CH$=A$(N) THEN 32 IF CH$="QUIT" THEN ITEM=ITEM-1:GOTO 600 SOUND 65,8,70 CALL MOVETO(20,260):PRINT"That is WRONG. Try again." FOR D=1 TO 4000:NEXT D LINE(10,220)-(480,280),30,BF TRY=TRY+1 GOTO 31 32 SOUND 262,1,180:FOR D=1 TO 200:NEXT D:SOUND 262,2,10:FOR D=1 TO 400:NEXT D SOUND 175,4,180:FOR D=1 TO 800:NEXT D:SOUND 175,6,0 TRY=TRY+1:CORRECT=CORRECT+1 CALL MOVETO(20,260):PRINT"That is CORRECT. Wonderful !" FOR D=1 TO 2000:NEXT D LINE(10,220)-(480,280),30,BF NEXT N 35 SCORE=INT(100*(CORRECT/TRY)) RETURN 100 S1$="James(1), John(2), and Joseph(3) new boat":S2$="was launched yesterday.":A$(1)="0":A$(2)="0":A$(3)="'S":Q=3:GOSUB 30 101 S1$="Maria(1) and Patricia(2) papers are":S2$="always quite neat.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30 102 S1$="Frederick(1) and Nelson(2) store":S2$="has closed.":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30 103 S1$="We shall visit John(1) and Regina(2)":S2$="new house.":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30 104 S1$="Peter(1), Andrew(2), James(3), and John(4)":S2$="vision of the Lord was astounding.":A$(1)="0":A$(2)="0":A$(3)="0":A$(4)="'S":Q=4:GOSUB 30 105 S1$="I shall employ Dane(1) and Bosworth(2) firm":S2$="as my investors.":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30 106 S1$="John(1) and Luke(2) dogs are the ":S2$="same breed.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30 107 S1$="I particularly enjoy Bach(1) and":S2$="Buxtehude(2) works for the organ.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30 108 S1$="Have you ever met Sarah(1) and":S2$="Maria(2) uncle?":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30 109 S1$="We studied Augustine(1) and Aquinas(2) ":S2$="philosophical writings.":A$(1)="'S":A$(2)="'":Q=2:GOSUB 30 110 S1$="Have you seen John(1) and James(2) shoes?":S2$="":A$(1)="'S":A$(2)="'":Q=2:GOSUB 30 111 S1$="Both Kenworth(1) and Boeing(2) factories":S2$="are in this area.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30 112 S1$="We especially like the new ":S2$="Funk(1) and Wagnall(2) encyclopedia.":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30 113 S1$="James(1) and TJ(2) new pigeons":S2$="get along well together.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30 114 S1$="Have you ever met Samuel(1), Sarah(2),":S2$="and Maria(3) mother?":A$(1)="0":A$(2)="0":A$(3)="'S":Q=3:GOSUB 30 115 S1$="Do you enjoy Rodgers(1) and ":S2$="Hammerstein(2) musicals?":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30 116 S1$="Many people have heard of Abbot(1) and":S2$="Costello(2) 'Who's on first?' routine.":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30 117 S1$="The boys(1) and girls(2) rooms":S2$="must be kept clean.":A$(1)="'":A$(2)="'":Q=2:GOSUB 30 118 S1$="Ladies(1) and Gentlemen(2) coats may":S2$="be checked in at the entrance.":A$(1)="'":A$(2)="'S":Q=2:GOSUB 30 119 S1$="Matthew(1), Mark(2) and Luke(3) gospels":S2$="are known as the 'Synoptics'.":A$(1)="'S":A$(2)="'S":A$(3)="'S":Q=3:GOSUB 30 120 S1$="Leilani played some of Bach(1) and":S2$="Mozart(2) compositions.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30 \ No newline at end of file diff --git a/12/12.TXT b/12/12.TXT new file mode 100644 index 0000000..0335773 --- /dev/null +++ b/12/12.TXT @@ -0,0 +1 @@ +5 N1$="A":T1$="B":N2$="C":T2$="D":N3$="E":T3$="F":N4$="G":T4$="H":N5$="I":T5$="J" 10 CLS:PRINT" THIS IS EXERCISE 12" 12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ 13 IF ANS$ = "Y" THEN 17 15 IF ANS$= "N" THEN RUN "GRAM 1" 16 BEEP:GOTO 12 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 18 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=12 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=12 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 17 23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL 24 PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,3,100 PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " PRINT" INPUT 'QUIT' FOR THE CHOICE OF NOUN. REMEMBER THIS." PRINT"" PRINT" A COMPLETE EXERCISE HAS 20 SENTENCES." PRINT" YOU WILL BE ALLOWED UP TO THREE RUN-THROUGHS OF THIS EXERCISE." PRINT"" INPUT"TO GO, PRESS THE 'RETURN' KEY.", V TOT=20 25 CLS:SCORE =0:ITEM=0:TRY=0:CORRECT=0 26 TIM$=TIME$ 27 TIM=VAL(RIGHT$(TIM$,1))+1 28 ON TIM GOTO 500,506,510,513,517,523,527,530,537,542 30 ITEM=ITEM+1:IF ITEM>=21 THEN 600 31 J1$="":J2$="":J3$="":J4$="":J5$="":AT=1 SOUND 1176,.5,100:FOR D=1 TO 100:NEXT D:SOUND 784,8,50 32 CLS:CALL MOVETO(20,20):PRINT NOMEN$" SENTENCES LEFT "20-ITEM" SCORE "SCORE"%" 33 CALL TEXTFONT(CHICAGO):CALL MOVETO(20,50):PRINT"Exercise Sentence:" 34 CALL TEXTFONT(12):CALL MOVETO(20,70):PRINT S$ 40 CALL MOVETO(20,100):INPUT"TYPE IN AN OBJECTIVE CASE NOUN FROM THE SENTENCE."; N$ 41 IF N$="" THEN BEEP:GOTO 40 42 IF N$="QUIT" THEN ITEM=ITEM-1:GOTO 600 43 IF N$=N1$ OR N$=N2$ OR N$=N3$ OR N$=N4$ OR N$=N5$ THEN 50 44 CALL MOVETO(20,150):PRINT"SORRY, THAT IS NOT AN OBJECTIVE NOUN. TRY ANOTHER WORD.":SOUND 60,5,0:FOR DL=1 TO 2000:NEXT DL 45 TRY=TRY+1:SCORE = INT(100*(CORRECT/TRY)) 46 CLS:GOTO 32 50 IF N$=N1$ AND J1$<>"" THEN 62 51 IF N$=N1$ THEN J1$="YOU":TG$=T1$ 52 IF N$=N2$ AND J2$<>"" THEN 62 53 IF N$=N2$ THEN J2$="YOU":TG$=T2$ 54 IF N$=N3$ AND J3$<>"" THEN 62 55 IF N$=N3$ THEN J3$="YOU":TG$=T3$ 56 IF N$=N4$ AND J4$<>"" THEN 62 57 IF N$=N4$ THEN J4$="YOU":TG$=T4$ 58 IF N$=N5$ AND J5$<>"" THEN 62 59 IF N$=N5$ THEN J5$="YOU":TG$=T5$ 60 GOSUB 64 61 GOTO 65 62 CALL MOVETO(20,150):PRINT"YOU ALREADY DID THAT ONE. TRY ANOTHER.":SOUND 131,4,100:FOR DL=1 TO 800:NEXT DL:SOUND 87,6,100:FOR DL=1 TO 1200:NEXT DL 63 CLS:GOTO 32 64 CALL TEXTSIZE(24):CALL MOVETO(20,200):PRINT"THAT IS CORRECT.":SOUND 175,4,30:FOR DL=1 TO 800:NEXT DL:SOUND 233,4,60:FOR DL=1 TO 800:NEXT DL:CORRECT=CORRECT+1:TRY=TRY+1 RETURN 65 LINE(10,220)-(480,270),30,BF:CALL TEXTFONT(CHICAGO):CALL TEXTSIZE(18):CALL MOVETO(20,250) PRINT"CHOICES: DO, IO, OP, APP, AO, RO, OC, CO" 65 CALL TEXTFONT(12):CALL TEXTSIZE(12):LINE(15,150)-(480,220),30,BF CALL MOVETO(20,160):INPUT"WHAT IS ITS SYNTAX"; T$ 66 IF T$="" THEN BEEP:GOTO 65 67 IF T$ =TG$ THEN GOSUB 64 ELSE 80 72 LINE(10,220)-(480,270),30,BF:SOUND 393,.5,100:FOR D=1 TO 100:NEXT D:SOUND 524,3,50 CALL TEXTSIZE(12):CALL MOVETO(20,240):INPUT"ARE THERE ANY MORE OBJECTIVE NOUNS IN THE SENTENCE? Y/N ";CH$ 73 IF CH$="Y" AND AT<>Q THEN PRINT"VERY GOOD, CHOOSE ANOTHER.":SOUND 523,5,80:FOR DL=1 TO 3000:NEXT DL:AT=AT+1:CORRECT=CORRECT+1:B=2:GOTO 77 74 IF CH$="N" AND AT=Q THEN PRINT"THAT IS CORRECT.":SOUND 523,5,80:FOR DL=1 TO 3000:NEXT DL:CORRECT=CORRECT+1:B=1:GOTO 77 75 IF CH$="Y" AND AT=Q THEN PRINT"SORRY, BUT THERE AREN'T.":SOUND 55,5,80:FOR DL=1 TO 3000:NEXT DL:B=1:GOTO 77 76 IF CH$="N" AND AT<>Q THEN PRINT"THERE SURE ARE. SEE IF YOU CAN FIND ANOTHER.":AT=AT+1:SOUND 55,5,80:FOR DL=1 TO 3000:NEXT DL:B=2:GOTO 77 77 IF CH$ ="Y" OR CH$="N" THEN 78 ELSE BEEP:GOTO 72 78 TRY=TRY+1:SCORE=INT(100*(CORRECT/TRY)):ON B GOTO 79,32 79 RETURN 80 CALL TEXTSIZE(24):CALL MOVETO(20,200):PRINT"THAT IS NOT CORRECT":SOUND 60,6,100:FOR DL=1 TO 1200:NEXT DL 81 TRY=TRY+1:SCORE=INT(100*(CORRECT/TRY)) 82 LINE(10,220)-(480,270),30,BF:CALL MOVETO(20,240):CALL TEXTSIZE(12):INPUT"DO YOU WANT TO TRY AGAIN? Y/N";CH$ 83 IF CH$="Y" THEN 65 84 IF CH$="N" THEN 72 85 BEEP:LINE(10,220)-(480,270),30,BF:GOTO 82 500 S$="I saw John at the church." N1$="JOHN":T1$="DO":N2$="CHURCH":T2$="OP":Q=2:GOSUB 30 501 S$="Always say your daily rosary, John." N1$="ROSARY":T1$="DO":Q=1:GOSUB 30 503 S$="Canada, our neighbor to the north, exports wheat." N1$="NORTH":T1$="OP":N2$="WHEAT":T2$="DO":Q=2:GOSUB 30 504 S$="Seattle is the biggest city in our state, Washington." N1$="STATE":T1$="OP":N2$="WASHINGTON":T2$="APP":Q=2:GOSUB 30 505 S$="My brother plays left field for the Mariners." N1$="FIELD":T1$="DO":N2$="MARINERS":T2$="OP":Q=2:GOSUB 30 506 S$="The party searched the woods for the child three days." N1$="WOODS":T1$="DO":N2$="CHILD":T2$="OP":N3$="DAYS":T3$="AO":Q=3:GOSUB 30 507 S$="John's grandfather came for a visit last summer." N1$="VISIT":T1$="OP":N2$="SUMMER":T2$="AO":Q=2:GOSUB 30 508 S$="James was given permission by his mother.." N1$="PERMISSION":T1$="RO":N2$="MOTHER":T2$="OP":Q=2:GOSUB 30 509 S$="The couple named their new child John." N1$="CHILD":T1$="DO":N2$="JOHN":T2$="OC":Q=2:GOSUB 30 510 S$="St. Peter, the first pope, denied Jesus three times." N1$="JESUS":T1$="DO":N2$="TIMES":T2$="AO":Q=2:GOSUB 30 511 S$="Mary was given a present, a medal of St. Thomas." N1$="PRESENT":T1$="RO":N2$="MEDAL":T2$="APP":N3$="ST. THOMAS":T3$="OP":Q=3:GOSUB 30 512 S$="Terry dreamed a dream of future greatness, sainthood." N1$="DREAM":T1$="CO":N2$="GREATNESS":T2$="OP":N3$="SAINTHOOD":T3$="APP":Q=3:GOSUB 30 513 S$="We saw John, our friend, yesterday.." N1$="JOHN":T1$="DO":N2$="FRIEND":T2$="APP":N3$="YESTERDAY":T3$="AO":Q=3:GOSUB 30 514 S$="They considered slavery a remote cause of the Civil War." N1$="SLAVERY":T1$="DO":N2$="CAUSE":T2$="OC":N3$="CIVIL WAR":T3$="OP":Q=3:GOSUB 30 515 S$="Which do you prefer, chocolate or vanilla?" N1$="CHOCOLATE":T1$="APP":N2$="VANILLA":T2$="APP":Q=2:GOSUB 30 516 S$="They called Abraham Lincoln an honest man." N1$="MAN":T1$="OC":N2$="ABRAHAM LINCOLN":T2$="DO":Q=2:GOSUB 30 517 S$="Please pass your sister Marie the salt." N1$="SISTER":T1$="IO":N2$="MARIE":T2$="APP":N3$="SALT":T3$="DO":Q=3:GOSUB 30 518 S$="The boys ran a race for charity." N1$="RACE":T1$="CO":N2$="CHARITY":T2$="OP":Q=2:GOSUB 30 519 S$="Julius Caesar titled his book GALLIC WARS." N1$="BOOK":T1$="DO":N2$="GALLIC WARS":T2$="OC":Q=2:GOSUB 30 520 S$="Return the book to Miss Smith, the librarian." N1$="MISS SMITH":T1$="OP":N2$="LIBRARIAN":T2$="APP":N3$="BOOK":T3$="DO":Q=3:GOSUB 30 521 S$="Dawn approaching, Jesus' actual body came back to life, boys" N1$="LIFE":T1$="OP":Q=1:GOSUB 30 522 S$="Baptism and Penance are called sacraments of the dead." N1$="DEAD":T1$="OP":Q=1:GOSUB 30 523 S$="St. Thomas called Aristotle, the Greek, THE philosopher." N1$="PHILOSOPHER":T1$="OC":N2$="ARISTOTLE":T2$="DO":N3$="GREEK":T3$="APP":Q=3:GOSUB 30 524 S$="Fr. Demetrius Gallitzin spread the Church in our country." N1$="CHURCH":T1$="DO":N2$="COUNTRY":T2$="OP":Q=2:GOSUB 30 525 S$="The boys are playing tag in the back yard, James." N1$="TAG":T1$="DO":N2$="YARD":T2$="OP":Q=2:GOSUB 30 526 S$="This morning May will be awarded a scholarship." N1$="MORNING":T1$="AO":N2$="SCHOLARSHIP":T2$="RO":Q=2:GOSUB 30 527 S$="A bishop is the usual minister of Confirmation." N1$="CONFIRMATION":T1$="OP":Q=1:GOSUB 30 528 S$="Freedom of worship was granted the Christians by Constantine." N1$="WORSHIP":T1$="OP":N2$="CHRISTIANS":T2$="IO":N3$="CONSTANTINE":T3$="OP":Q=3:GOSUB 30 529 S$="We studied about Fr. Peter Hylebos, an early priest in this area." N1$="PRIEST":T1$="APP":N2$="FR. PETER HYLEBOS":T2$="OP":N3$="AREA":T3$="OP":Q=3:GOSUB 30 530 S$="This afternoon Frances will sing a song for the class." \ No newline at end of file diff --git a/14/14.TXT b/14/14.TXT new file mode 100644 index 0000000..367382f --- /dev/null +++ b/14/14.TXT @@ -0,0 +1 @@ +10 CLS:PRINT" THIS IS EXERCISE 14" 12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ 13 IF ANS$ = "Y" THEN 17 15 IF ANS$= "N" THEN RUN "GRAM 1" 16 BEEP:GOTO 12 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 18 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=14 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=14 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 17 23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 1000:NEXT DL 24 SOUND 196,1,100:FOR D=1 TO 200:NEXT D:SOUND 262,5,50 CLS PRINT"" PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " PRINT" INPUT 'QUIT' FOR THE CHOICE OF PRONOUN. REMEMBER THIS." PRINT"" PRINT" IN THIS EXERCISE, YOU WILL BE GIVEN A SENTENCE." PRINT" YOU WILL 'ENTER' A POSSIBLE PERSONAL PRONOUN." PRINT" IF YOU ARE WRONG, YOU WILL GET TO TRY AGAIN." PRINT" IF YOU ARE RIGHT, YOU WILL BE ASKED TO TELL, IN ORDER," PRINT" THE PERSON, NUMBER, GENDER, AND CASE OF THAT PRONOUN." PRINT" NOTE * * GENDER CHOICE 'C' IS 'COMMON'= MASC. OR FEM." PRINT"" PRINT" THE EXERCISE HAS 12 ITEMS AND YOU MAY HAVE ONLY 2 TRIES AT IT." 25 PRINT"" INPUT" WHEN YOU ARE READY TO GO, 'ENTER' THE 'G' KEY."; V$ IF V$="G" THEN 27 \ No newline at end of file diff --git a/15/15.TXT b/15/15.TXT new file mode 100644 index 0000000..e30b77d --- /dev/null +++ b/15/15.TXT @@ -0,0 +1 @@ +5 DIM SCR(8000):DIM BOX(1000) 10 CLS:PRINT" THIS IS EXERCISE 15" CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ IF ANS$ = "Y" THEN 17 IF ANS$= "N" THEN RUN "GRAM 1" BEEP:GOTO 10 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 18 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=15 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=15 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 17 23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL 24 PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,4,100 PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " PRINT" CLICK ON THE LITTLE HAND. REMEMBER THIS." PRINT"" PRINT" IN THIS EXERCISE YOU WILL BE GIVEN A SCREEN WITH BOXES" PRINT" LABELLED 'INTENSIVE' AND 'REFELXIVE'." PRINT" YOU WILL BE GIVEN A SENTENCE WITH A COMPOUND PERSONAL" PRINT" PRONOUN IN IT. YOU CLICK WITH THE MOUSE ON THE BOX THAT" PRINT" TELLS HOW THE PRONOUN IS USED." PRINT"" 25 INPUT" WHEN YOU ARE READY TO GO, 'ENTER' A 'G'.", V$ IF V$="G" THEN 27 BEEP:BEEP:CLS:PRINT"":GOTO 25 27 CLS SOUND 466,4,80:FOR D=1 TO 800:NEXT D SOUND 350,4,10:FOR D=1 TO 800:NEXT D SOUND 294,4,80:FOR D=1 TO 800:NEXT D SOUND 262,4,160:FOR D=1 TO 800:NEXT D SOUND 392,2,10:FOR D=1 TO 500:NEXT D SOUND 392,6,80 OPEN "COMP" FOR INPUT AS #1 IMAGE$=INPUT$(LOF(1),1) PICTURE (20,20)-(470,270), IMAGE$ CLOSE 28 GET(0,0)-(490,290),SCR FOR D=1 TO 3000:NEXT D PUT(0,0),SCR 29 CLS:SCORE =0:ITEM=0:TRY=0:CORRECT=0:TOT=20 TIM$=TIME$ TIM=VAL(RIGHT$(TIM$,1))+1 ON TIM GOTO 101,106,110,113,117,118,122,125,127,132 30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT<0 THEN 600 PUT(0,0),SCR CALL TEXTFACE(1) CALL MOVETO(124,77):PRINT NOMEN$ CALL MOVETO(250,77):PRINT LEFT CALL MOVETO(344,77):PRINT SCORE"%" CALL MOVETO(124,116):PRINT S1$ CALL MOVETO(124,132):PRINT S2$ 32 B=0 B=MOUSE(0) IF B=-1 THEN 33 ELSE 32 33 X=MOUSE(1) Y=MOUSE(2) IF X>68 AND X<196 AND Y>173 AND Y<227 THEN G$="I":GOTO 40 IF X>295 AND X<425 AND Y>173 AND Y<227 THEN G$="R":GOTO 40 IF X>60 AND X<130 AND Y>100 AND Y<180 THEN ITEM=ITEM-1:GOTO 600 GOTO 32 40 IF G$="R" THEN 60 GET(68,173)-(196,227),BOX LINE(68,173)-(196,227),,BF PUT(68,173),BOX SOUND 350,2,100:FOR D=1 TO 400:NEXT D SOUND 233,6,10:FOR D=1 TO 1200:NEXT D LINE(74,180)-(189,220),,BF IF T$="I" THEN 41 ELSE 42 41 CALL MOVETO(96,204):PRINT" CORRECT " FOR N=1 TO 7 SOUND 294,1,30:FOR D=1 TO 200:NEXT D NEXT N CORRECT=CORRECT+1:TRY=TRY+1:SCORE=INT(100*(CORRECT/TRY)) RETURN 42 CALL MOVETO(100,204):PRINT"WRONG" SOUND 73,8,100:FOR D=1 TO 1600:NEXT D TRY=TRY+1:SCORE=INT(100*(CORRECT/TRY)) RETURN 60 GET(295,173)-(425,227),BOX LINE(295,173)-(425,227),,BF PUT(295,173),BOX SOUND 350,2,100:FOR D=1 TO 400:NEXT D SOUND 233,6,10:FOR D=1 TO 1200:NEXT D LINE(303,180)-(418,220),,BF IF T$="R" THEN 61 ELSE 62 61 CALL MOVETO(326,204):PRINT" CORRECT " FOR N=1 TO 7 SOUND 294,1,30:FOR D=1 TO 200:NEXT D NEXT N CORRECT=CORRECT+1:TRY=TRY+1:SCORE=INT(100*(CORRECT/TRY)) RETURN 62 CALL MOVETO(332,204):PRINT"WRONG" SOUND 73,8,100:FOR D=1 TO 1600:NEXT D TRY=TRY+1:SCORE=INT(100*(CORRECT/TRY)) RETURN 101 S1$="Jesus Himself showed us the way" S2$="to salvation." T$="I" GOSUB 30 102 S1$="Do not hurt yourself doing that." S2$="" T$="R" GOSUB 30 103 S1$="John is not himself today." S2$="" T$="R" GOSUB 30 104 S1$="They themselves said we were" S2$="to hit them that hard." T$="I" GOSUB 30 105 S1$="Children, behave yourselves," S2$="please." T$="R" GOSUB 30 106 S1$="Even if God Himself said so," S2$="many would still not believe." T$="I" GOSUB 30 107 S1$="The children hid themselves in" S2$="the old barn." T$="R" GOSUB 30 108 S1$="Jeffry scratched himself" S2$="behind the left ear." T$="R" GOSUB 30 109 S1$="James made this model boat" S2$="himself." T$="I" GOSUB 30 110 S1$="Please, I'd rather do it myself." S2$="" T$="I" GOSUB 30 111 S1$="People who take pride in themselves" S2$="often do well in life." T$="R" GOSUB 30 112 S1$="O Joe, make yourself at home." S2$="" T$="R" GOSUB 30 113 S1$="We seldom see ourselves as" S2$="others see us." T$="R" GOSUB 30 114 S1$="Okay! Go ahead and do it yourself." S2$="" T$="I" GOSUB 30 115 S1$="The boss himself went to get" S2$="the needed part." T$="I" GOSUB 30 116 S1$="If you want it done right, do" S2$="it yourself." T$="I" GOSUB 30 117 S1$="We'll probably have to go ourselves" S2$="to find the right piece." T$="I" GOSUB 30 118 S1$="I bought this candy for myself." S2$="" T$="R" GOSUB 30 119 S1$="She made me this coat herself." S2$="" T$="I" GOSUB 30 120 S1$="So, you think the pencil broke" S2$="itself, do you?" T$="R" GOSUB 30 121 S1$="In solitaire, you play " S2$="against yourself." T$="R" GOSUB 30 122 S1$="You all will be responsible for" S2$="yourselves." T$="R" GOSUB 30 123 S1$="I myself will go with you" S2$="and help you do it right." T$="I" GOSUB 30 124 S1$="Which is the story he tells" S2$="about himself?" T$="R" GOSUB 30 125 S1$="My mother did all the planning" S2$="and work for the party herself." T$="I" GOSUB 30 126 S1$="Who lives in that house " S2$="lives by himself." T$="R" GOSUB 30 127 S1$="Who lives right works with God;" S2$="who sins, does it himself." T$="I" GOSUB 30 128 S1$="What did she do to herself?" S2$="" T$="R" GOSUB 30 129 S1$="The Pope himself acted as our" S2$="guide through the Vatican." T$="I" GOSUB 30 130 S1$="Did the evangelists write their" S2$="gospels by themselves?" T$="I" GOSUB 30 131 S1$="Whom did they themselves select?" S2$="" T$="I" GOSUB 30 132 S1$="Mary seems herself again, finally" S2$="" T$="R" GOSUB 30 133 S1$="We should make penances for" S2$="ourselves often." T$="R" GOSUB 30 134 S1$="The boys were proud of themselves" S2$="for winning the big game." T$="R" GOSUB 30 135 S1$="Make yourselves some room in the" S2$="back and we will start." T$="R" GOSUB 30 500 GOTO 101 600 CLS 601 CALL TEXTSIZE(24) 602 CALL MOVETO(20,30):PRINT NOMEN$ 603 CALL MOVETO(20,60):PRINT"DID "ITEM-1" ITEMS OF "TOT 605 CALL MOVETO(20,90):PRINT"EX. #15 FOR A" 607 CALL MOVETO(20,120):PRINT"SCORE = "SCORE"%" 610 CALL TEXTSIZE(12) OPEN NOMEN$ FOR APPEND AS #1 N=15:S=SCORE PRINT #1, N,S CLOSE #1 612 IF CICI=1 THEN 630 CICI=1 CALL MOVETO(20,180):PRINT"AT THIS TIME YOU MAY QUIT OR TRY AGAIN." 620 CALL MOVETO(20,210):INPUT"DO YOU WANT TO QUIT 'Q' OR TRY AGAIN 'A'?"; CHC$ IF CHC$="Q" THEN RUN "GRAM 1" IF CHC$="A" THEN 29 GOTO 620 630 CALL MOVETO(20,180):PRINT"THAT IS ALL YOU GET TO DO." CALL MOVETO(20,210):INPUT"GET YOUR SCORE RECORDED AND THEN PRESS 'RETURN' KEY."; V RUN "GRAM 1" \ No newline at end of file diff --git a/19/19.TXT b/19/19.TXT new file mode 100644 index 0000000..671fe1c --- /dev/null +++ b/19/19.TXT @@ -0,0 +1 @@ +5 DIM SCR(6000):DIM BOX(800) 10 CLS:PRINT" THIS IS EXERCISE 19" 12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ 13 IF ANS$ = "Y" THEN 17 15 IF ANS$= "N" THEN RUN "GRAM 1" 16 BEEP:GOTO 12 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 18 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=19 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=19 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 17 23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,3,100 CLS PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " PRINT" CLICK ON THE NAME BOX. REMEMBER THIS." PRINT"" PRINT" IN THIS EXERCISE YOU WILL BE GIVEN A SENTENCE WITH A" CALL TEXTFACE(1):PRINT" COMPOUND RELATIVE PRONOUN" CALL TEXTFACE(0):PRINT" IN IT. YOU ARE TO CLICK ON THE BOX THAT BEST TELLS" PRINT" THE SYNTAX OF THAT PRONOUN." PRINT"" PRINT" EXERCISE HAS 17 SENTENCES. YOU MAY HAVE TWO TRIES." 24 PRINT"" INPUT" WHEN YOU ARE READY TO GO, ENTER A 'G'.", V$ IF V$="G" THEN 25 ELSE BEEP:BEEP:CLS:GOTO 24 \ No newline at end of file diff --git a/2/2.TXT b/2/2.TXT new file mode 100644 index 0000000..cd48ff9 --- /dev/null +++ b/2/2.TXT @@ -0,0 +1 @@ +10 CLS:PRINT" THIS IS EXERCISE 2" 12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ 13 IF ANS$ = "Y" THEN 17 15 IF ANS$= "N" THEN RUN "GRAM 1" 16 BEEP:GOTO 12 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 18 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=2 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=2 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 17 23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL CLS SOUND 330,2,100:FOR DLY=1 TO 400:NEXT DLY SOUND 262,8,30:FOR DLY=1 TO 2000:NEXT DLY 24 PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " PRINT" INPUT 'QUIT' FOR THE CHOICE OF NOUN. REMEMBER THIS." PRINT"" PRINT" THE COMPLETE EXERCISE HAS 20 ITEMS." PRINT" YOU WILL BE ALLOWED ONLY TWO TRIES AT IT." PRINT"" INPUT"TO GET GOING, PRESS THE 'RETURN' KEY."; V TOT=20 25 CLS:SCORE =0:ITEM=0:TRY=0:CORRECT=0 \ No newline at end of file diff --git a/20/20.TXT b/20/20.TXT new file mode 100644 index 0000000..d233774 --- /dev/null +++ b/20/20.TXT @@ -0,0 +1 @@ +3 DIM SCR(5000):DIM BOX(800):DIM SMFC(200):DIM FFC(200):DIM PIECE(800) DIM SIGN(800) 10 CLS:PRINT" THIS IS EXERCISE 20" CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ IF ANS$ = "Y" THEN 17 IF ANS$= "N" THEN RUN "GRAM 1" BEEP:GOTO 10 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ \ No newline at end of file diff --git a/23/23.TXT b/23/23.TXT new file mode 100644 index 0000000..3978501 --- /dev/null +++ b/23/23.TXT @@ -0,0 +1 @@ +3 DIM SCR(5000):DIM BOX(800):DIM SMFC(200):DIM FFC(200):DIM PIECE(800) DIM SIGN(800) 10 CLS:PRINT" THIS IS EXERCISE 23" CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ IF ANS$ = "Y" THEN 17 IF ANS$= "N" THEN RUN "GRAM 1" BEEP:GOTO 10 17 CLS CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 17 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=23 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=23 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 17 23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL CLS PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,3,100 CLS PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " PRINT" CLICK ON THE 'QUIT' SQUARE. REMEMBER THIS." PRINT"" PRINT" IN THIS EXERCISE YOU WILL BE GIVEN A SENTENCE WITH ONE OR" PRINT" MORE POSSESSIVE WORDS IN IT." PRINT" YOU WILL ENTER A POSSIBLE POSSESSIVE WORD." PRINT" YOU WILL BE TOLD IF YOU ARE RIGHT OR WRONG, AND BE GIVEN" PRINT" ADDITIONAL CHANCES AS NEEDED. YOU WILL NOT GO ON UNTIL YOU" PRINT" GET IT RIGHT." PRINT" THEN YOU WILL CLICK ON THE BOX TO TELL IF IT IS" PRINT" AN ADJECTIVE OR A PRONOUN." PRINT" EXERCISE HAS 15 SENTENCES; YOU MAY DO IT TWICE, MAXIMUM." 24 PRINT"" INPUT" WHEN YOU ARE READY, INPUT A 'G'.", V$ IF V$="G" THEN 25 ELSE BEEP:BEEP:CLS:GOTO 24 25 CLS OPEN "AQP" FOR INPUT AS #1 IMAGE$=INPUT$(LOF(1),1) PICTURE (30,26)-(445,265), IMAGE$ CLOSE LINE(90,110)-(232,146),,BF:LINE(92,112)-(230,144),30,BF GET(90,110)-(232,146),BOX PUT(90,110),BOX GET (58,170)-(84,208),SMFC PUT(58,170),SMFC GET(390,170)-(418,208),FFC PUT(390,170),FFC GET(30,26)-(445,265),SCR GET(203,34)-(272,74),SIGN 27 CLS:SCORE =100:ITEM=-1:TRY=0:CORRECT=0:TOT=15 TIM$=TIME$ TIM=VAL(RIGHT$(TIM$,1))+1 ON TIM GOTO 101,103,106,110,113,115,119,121,125,127 30 ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=0 THEN 600 J1$="":J2$="" 31 CLS:PUT(30,26)-(445,265),SCR PUT(203,34)-(272,74),SIGN CALL TEXTFONT(CHICAGO):CALL TEXTSIZE(9):CALL MOVETO(153,180):PRINT"POSSESSIVE WORD: " CALL TEXTFONT(12):CALL TEXTSIZE(12):CALL TEXTFACE(1) CALL MOVETO(100,248):PRINT NOMEN$ CALL MOVETO(304,248):PRINT LEFT CALL MOVETO(370,248):PRINT SCORE"%" IF S2$="" THEN 32 CALL MOVETO(60,120):PRINT S1$ CALL MOVETO(60,140):PRINT S2$ GOTO 33 32 CALL MOVETO(60,130):PRINT S1$ 33 GET(330,188)-(460,203),PIECE CALL MOVETO(170,200):INPUT GW$ PUT(330,188),PIECE IF GW$=W1$ AND J1$="" THEN J1$="YOU ALREADY DID ":GOTO 50 IF GW$=W2$ AND J2$="" THEN J2$="YOU ALREADY DID ":GOTO 50 IF GW$=W1$ AND J1$<>"" THEN CALL MOVETO(20,280):PRINT J1$ W1$:FOR D=1 TO 3000:NEXT D:GOTO 33 IF GW$=W2$ AND J2$<>"" THEN CALL MOVETO(20,280):PRINT J2$ W2$:FOR D=1 TO 3000:NEXT D:GOTO 33 LINE(203,34)-(272,74),,BF CALL MOVETO(210,60):PRINT"WRONG" SOUND 55,8,100:FOR D=1 TO 2000:NEXT D LINE(203,34)-(272,74),,BF TRY=TRY+1 CALL MOVETO(210,46):PRINT"TRY" CALL MOVETO(210,58):PRINT"AGAIN?" CALL MOVETO(210,71):PRINT" Y/N " 35 A$="" A$=INKEY$ IF A$="Y" THEN LINE(203,34)-(272,74),30,BF:PUT (203,34), SIGN:GOTO 33 IF A$="N" THEN 99 GOTO 35 50 LINE(203,34)-(272,74),,BF CALL MOVETO(210,60):PRINT" RIGHT " SOUND 196,4,100:FOR D=1 TO 800:NEXT D SOUND 196,2,0:FOR D=1 TO 400:NEXT D SOUND 262,6,50:FOR D=1 TO 1200:NEXT D TRY=TRY+1:CORRECT=CORRECT+1 60 LINE(203,34)-(272,74),,BF \ No newline at end of file diff --git a/24/24.TXT b/24/24.TXT new file mode 100644 index 0000000..d4ada18 --- /dev/null +++ b/24/24.TXT @@ -0,0 +1 @@ +5 DIM SCR(6000):DIM BUT(1000) DIM COR(1000):DIM WRG(1000) 10 CLS:PRINT" THIS IS EXERCISE 24" CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ IF ANS$ = "Y" THEN 17 IF ANS$= "N" THEN RUN "GRAM 1" BEEP:GOTO 10 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 18 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=24 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=24 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 17 23 CALL MOVETO(20,50):PRINT"THANK YOU." SOUND 523,2,100:FOR D=1 TO 500:NEXT D:SOUND 350,4,50:FOR D=1 TO 2000:NEXT D PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,3,100 CLS PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " PRINT" CLICK ON THE SCORE NUMBER. REMEMBER THIS." PRINT"" PRINT" IN THIS EXERCISE YOU WILL BE GIVEN A SENTENCE WITH" PRINT" A BLANK IN IT." PRINT" TWO CHOICES OF PRONOUN(S) TO GO IN THE BLANK WILL BE" PRINT" DISPLAYED IN BUTTONS." PRINT" YOU WILL CLICK ON THE BUTTON TO INDICATE YOUR CHOICE OF" PRINT" PRONOUN TO GO INTO THE BLANK." PRINT"" PRINT" EXERCSIE HAS 15 SENTENCES; YOU MAY HAVE TWO TRIES AT IT." 24 PRINT"" INPUT" WHEN YOU ARE READY TO GO, INPUT 'GO'.", V$ IF V$="GO" THEN 25 CLS:BEEP:BEEP GOTO 24 25 CLS OPEN "CUP" FOR INPUT AS #1 IMAGE$=INPUT$(LOF(1),1) PICTURE (36,21)-(450,260), IMAGE$ CLOSE GET(314,120)-(414,163),WRG PUT(314,120)-(414,163),WRG GET(60,120)-(180,163),COR PUT(60,120)-(180,163),COR GET(183,120)-(300,160),BUT PUT(183,120)-(300,160),BUT GET(36,21)-(450,260),SCR CLS 27 CLS:SCORE =0:ITEM=-1:TRY=0:CORRECT=0:TOT=15 TIM$=TIME$ TIM=VAL(RIGHT$(TIM$,1))+1 ON TIM GOTO 100,103,106,110,113,117,119,123,125,127 30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=0 THEN 600 PUT(36,21),SCR CALL MOVETO(50,242):PRINT "NAME: "NOMEN$" LEFT: "LEFT" SCORE: "SCORE"%" IF S2$="" THEN 33 CALL MOVETO(60,130):PRINT S1$ CALL MOVETO(60,144):PRINT S2$ GOTO 35 33 CALL MOVETO(60,140):PRINT S1$ 35 CALL MOVETO(66,46):PRINT W1$ CALL MOVETO(363,46):PRINT W2$ 40 B=0 B=MOUSE(0) IF B=-1 THEN 41 ELSE 40 41 X=MOUSE(1) Y=MOUSE(2) IF X>39 AND X<180 AND Y>25 AND Y<65 THEN CH=1:GOTO 50 IF X>326 AND X<466 AND Y>25 AND Y<65 THEN CH=2:GOTO 50 IF X>200 AND X<450 AND Y>220 AND Y<260 THEN 600 GOTO 40 50 IF CH=1 THEN PUT(39,25),BUT:SOUND 1760,1,200:FOR D=1 TO 200:NEXT D:GOTO 55 PUT(326,25),BUT:SOUND 1046,1,100:FOR D=1 TO 200:NEXT D:GOTO 55 55 IF CH=T THEN PUT(184,26),COR ELSE PUT(193,25),WRG IF CH=T THEN SOUND 784,1,100:FOR D=1 TO 250:NEXT D:SOUND 660,1,100:FOR D=1 TO 250:NEXT D:SOUND 524,1,100:CORRECT=CORRECT+1:GOTO 60 SOUND 55,4,80:FOR D=1 TO 800:NEXT D:GOTO 60 60 FOR D=1 TO 2000:NEXT D TRY=TRY+1 SCORE=INT(100*(CORRECT/TRY)) IF CH=1 THEN PUT(39,25),BUT:GOTO 65 PUT(326,25),BUT 65 RETURN 101 S1$="John and ____ will help with the dishes." S2$="":W1$="I":W2$="me":T=1:GOSUB 30 102 S1$="All the children and ___ went to the" S2$="circus together last week." W1$="him":W2$="he":T=2:GOSUB 30 103 S1$="May ____ help you wash the car?" S2$="":W1$="he and I":W2$="me and him":T=1:GOSUB 30 104 S1$="___ was sure to win a prize for her poem." S2$="":W1$="Her":W2$="She":T=2:GOSUB 30 105 S1$="Now at last ___ were sure that the" S2$="killer was indeed the butler." W1$="we":W2$="us":T=1:GOSUB 30 106 S1$="Both _____ wanted to go to the beach." S2$="":W1$="they and we":W2$="us and them":T=1:GOSUB 30 107 S1$="Neither ___ may have a piece of the cake" S2$="mother baked for her Ladies' Club." W1$="you nor I":W2$="me or you":T=1:GOSUB 30 108 S1$="George and ___ were on the same side" S2$="in the debate." W1$="me":W2$="I":T=2:GOSUB 30 109 S1$="Regina and ___ write so beautifully." S2$="":W1$="she":W2$="her":T=1:GOSUB 30 110 S1$="___ rode in the backseat all the way." S2$="":W1$="She and I":W2$="Her and me":T=1:GOSUB 30 111 S1$="My brother and ___ carried the canoe around" S2$="the rapids." W1$="me":W2$="I":T=2:GOSUB 30 112 S1$="May ___ come with us?" S2$="":W1$="he":W2$="him":T=1:GOSUB 30 113 S1$="Somewhere along the way, ___ became" S2$="separated from the rest of us." W1$="them":W2$="they":T=2:GOSUB 30 114 S1$="Either ___ will find the lost child, of that" S2$="I am sure." W1$="he or she":W2$="him or her":T=1:GOSUB 30 115 S1$="Now where would ___ put a thing like a" S2$="genuine Degas painting?" W1$="him":W2$="he":T=2:GOSUB 30 116 S1$="Neither James nor ___ got the part of" S2$="Sheridan Whiteside in the play." W1$="he":W2$="him":T=1:GOSUB 30 117 S1$="No one but ___ could have done such a" S2$="truly ingenious thing." W1$="he":W2$="him":T=1:GOSUB 30 118 S1$="There but for the grace of God go ___." S2$="":W1$="me":W2$="I":T=2:GOSUB 30 119 S1$="____ surely dance well together." S2$="":W1$="He and she":W2$="Him and her":T=1:GOSUB 30 120 S1$="Patricia and ___ received scholarships for" S2$="our good grades." W1$="I":W2$="me":T=1:GOSUB 30 121 S1$="____ will have to do something about the" S2$="problem before it gets worse." W1$="They or we":W2$="Us or them":T=1:GOSUB 30 122 S1$="Not only ____ had exhibits at the state" S2$="Science Fair at Bremerton." W1$="he but also I":W2$="him but also me":T=1:GOSUB 30 123 S1$="___ and Maria are taking ballet lessons." \ No newline at end of file diff --git a/28/28.TXT b/28/28.TXT new file mode 100644 index 0000000..71de08b --- /dev/null +++ b/28/28.TXT @@ -0,0 +1 @@ +5 CLS:DIM BUT(2000):DIM COR(800) DIM WRG(800):DIM SCR(6000) DIM PIECE(500) 10 CLS:PRINT" THIS IS EXERCISE 28" CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ IF ANS$ = "Y" THEN 15 IF ANS$= "N" THEN RUN "GRAM 1" BEEP:GOTO 10 15 CLS CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 15 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=28 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=28 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 15 23 CALL MOVETO(20,50):PRINT"THANK YOU." SOUND 523,2,100:FOR D=1 TO 500:NEXT D:SOUND 350,4,50:FOR D=1 TO 2000:NEXT D PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,3,100 CLS PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " PRINT" CLICK ON THE QUIT BUTTON. REMEMBER THIS." PRINT"" PRINT" IN THIS EXERCISE YOU WILL BE GIVEN A SENTENCE WITH" PRINT" A BLANK IN IT." PRINT" TWO CHOICES OF PRONOUN(S) TO GO IN THE BLANK WILL BE" PRINT" DISPLAYED IN BUTTONS." PRINT" YOU WILL CLICK ON THE BUTTON TO INDICATE YOUR CHOICE OF" PRINT" PRONOUN TO GO INTO THE BLANK." PRINT"" PRINT" EXERCISE HAS 15 SENTENCES, YOU MAY HAVE TWO TRIES AT IT." 24 PRINT"" INPUT" WHEN YOU ARE READY TO GO, INPUT 'GO'.", V$ IF V$="GO" THEN 25 CLS:BEEP:BEEP GOTO 24 25 CLS OPEN "UOC" FOR INPUT AS #1 IMAGE$=INPUT$(LOF(1),1) PICTURE (30,20)-(456,260), IMAGE$ CLOSE LINE(30,20)-(456,20):LINE-(456,260) LINE-(30,260):LINE-(30,20) GET(63,99)-(184,137),BUT LINE(63,99)-(184,137),30,BF GET(318,101)-(415,136),WRG PUT(318,101),WRG GET(207,101)-(305,136),COR PUT(207,101),COR GET(347,223)-(429,251),PIECE GET(30,20)-(456,260),SCR CLS 27 ITEM=0:CORRECT=0:TRY=0:TOT=15 TIM$=TIME$ TIM=VAL(RIGHT$(TIM$,1))+1 ON TIM GOTO 101,103,106,110,113,117,119,123,125,127 30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=-1 THEN ITEM=ITEM-1:GOTO 600 PUT(30,20),SCR CALL TEXTFACE(1):CALL MOVETO(200,242):PRINT NOMEN$ CALL MOVETO(50,54):PRINT LEFT" LEFT" CALL MOVETO(320,54):PRINT SCORE"%" SOUND 110,2,80:FOR D=1 TO 400:NEXT D \ No newline at end of file diff --git a/29/29.TXT b/29/29.TXT new file mode 100644 index 0000000..5d79372 --- /dev/null +++ b/29/29.TXT @@ -0,0 +1 @@ +5 CLS:DIM BUT(2000):DIM COR(800) DIM WRG(800):DIM SCR(6000) \ No newline at end of file diff --git a/3/3.TXT b/3/3.TXT new file mode 100644 index 0000000..14fc131 --- /dev/null +++ b/3/3.TXT @@ -0,0 +1 @@ +10 CLS:PRINT" THIS IS EXERCISE 3" 12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ 13 IF ANS$ = "Y" THEN 17 15 IF ANS$= "N" THEN RUN "GRAM 1" 16 BEEP:GOTO 12 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 18 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=3 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=3 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." \ No newline at end of file diff --git a/32/32.TXT b/32/32.TXT new file mode 100644 index 0000000..17f8e4c --- /dev/null +++ b/32/32.TXT @@ -0,0 +1 @@ +5 DIM SCR(6000):DIM COR(500) DIM WRG(500):DIM CLK(1000) DIM BUT(800) 10 CLS:PRINT" THIS IS EXERCISE 32" CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ IF ANS$ = "Y" THEN 17 IF ANS$= "N" THEN RUN "GRAM 1" BEEP:BEEP:GOTO 10 17 CLS CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 17 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=32 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=32 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 17 23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL CLS PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,3,100 \ No newline at end of file diff --git a/33/33.TXT b/33/33.TXT new file mode 100644 index 0000000..12f2edd --- /dev/null +++ b/33/33.TXT @@ -0,0 +1 @@ +10 CLS:PRINT" THIS IS EXERCISE 33" CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ IF ANS$ = "Y" THEN 17 IF ANS$= "N" THEN RUN "GRAM 1" BEEP:GOTO 10 17 CLS CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ \ No newline at end of file diff --git a/34/34.TXT b/34/34.TXT new file mode 100644 index 0000000..f123be2 --- /dev/null +++ b/34/34.TXT @@ -0,0 +1 @@ +5 DIM SCR(6000):DIM COR(500) DIM WRG(500):DIM CLK(1000) DIM BUT(800) 10 CLS:PRINT" THIS IS EXERCISE 34" CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ IF ANS$ = "Y" THEN 12 IF ANS$= "N" THEN RUN "GRAM 1" \ No newline at end of file diff --git a/36/36.TXT b/36/36.TXT new file mode 100644 index 0000000..13bd802 --- /dev/null +++ b/36/36.TXT @@ -0,0 +1 @@ +3 DIM SCR(6000) 4 CLS:PRINT" THIS IS EXERCISE 36" CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ IF ANS$ = "Y" THEN 5 IF ANS$= "N" THEN RUN "GRAM 1" BEEP:GOTO 4 5 CLS CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 5 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=36 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=36 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 5 23 CALL MOVETO(20,50):PRINT"THANK YOU." SOUND 524,1,100:FOR D=1 TO 200:NEXT D SOUND 392,4,10 FOR DL=1 TO 3000:NEXT DL 24 CLS PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,3,100 PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " PRINT" CLICK ON THE SCORE BOX. REMEMBER THIS." PRINT"" PRINT" IN THIS EXERCISE YOU WILL HAVE A SENTENCE WITH A" PRINT" CHOICE OF WORDS IN PARENTHESES." PRINT" THERE ARE THREE BUTTONS LOCATED IN THE FRAME OF THE SCREEN." PRINT" CLICK ON THE BUTTON THAT TELLS THE BEST CHOICE. " PRINT"" PRINT" THE PROGRAM WILL TELL YOU IF YOU ARE RIGHT OR WRONG." PRINT" THEN IT WILL GO ON TO THE NEXT SENTENCE." PRINT"" PRINT" THERE ARE 25 SENTENCES, AND YOU MAY THEM ONLY ONCE." PRINT"" INPUT" WHEN YOU ARE READY TO GO, PRESS THE 'RETURN' KEY.", V 5 CLS OPEN "RELDR" FOR INPUT AS #1 IMAGE$=INPUT$(LOF(1),1) PICTURE (20,20)-(470,270), IMAGE$ CLOSE GET(20,20)-(470,270),SCR CLS 25 CLS:SCORE =0:ITEM=-1:TRY=0:CORRECT=0:TOT=25 26 TIM$=TIME$ 27 TIM=VAL(RIGHT$(TIM$,1))+1 28 ON TIM GOTO 101,103,106,110,113,117,119,123,125,127 30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=0 THEN 600 PUT(20,20),SCR L=LEN(NOMEN$) L=8*(L/2) CALL MOVETO(246-L,52):PRINT NOMEN$ CALL MOVETO(350,202):PRINT SCORE"%" CALL MOVETO(128,202):PRINT LEFT IF S2$="" THEN 31 CALL MOVETO(100,110):PRINT S1$ CALL MOVETO(100,130):PRINT S2$:GOTO 40 31 CALL MOVETO(100,110):PRINT S1$ 40 B=0 B=MOUSE(0) IF B=-1 THEN 45 ELSE 40 45 X=MOUSE(1) Y=MOUSE(2) IF X>420 AND X<460 AND Y>123 AND Y<162 THEN GT=3:GOTO 50 IF X>30 AND X<68 AND Y>122 AND Y<166 THEN GT=1:GOTO 50 IF X>206 AND X<280 AND Y>222 AND Y<264 THEN GT=2:GOTO 50 IF X>300 AND X<410 AND Y>180 AND Y<220 THEN 600 GOTO 40 50 IF GT=1 THEN LINE(31,125)-(64,163),,BF IF GT=2 THEN LINE(208,225)-(276,260),,BF IF GT=3 THEN LINE(420,124)-(456,161),,BF SOUND 117,2,100:FOR D=1 TO 400:NEXT D IF GT=T THEN 55 ELSE 60 55 CALL MOVETO(165,52):PRINT" C O R R E C T " SOUND 466,2,100:FOR D=1 TO 400:NEXT D SOUND 350,1,100:FOR D=1 TO 200:NEXT D SOUND 350,1,0:FOR D=1 TO 200:NEXT D SOUND 294,2,100:FOR D=1 TO 400:NEXT D SOUND 233,4,100:FOR D=1 TO 2000:NEXT D CORRECT=CORRECT+1:TRY=TRY+1 GOTO 90 60 CALL MOVETO(165,52):PRINT" W R O N G " SOUND 58,5,100 FOR D=1 TO 2600:NEXT D TRY=TRY+1 GOTO 90 90 SCORE=INT(100*(CORRECT/TRY)) S1$="":S2$="":T=0 RETURN 101 S1$="James in the one (who,whom) will be" S2$="the first affirmative speaker.":T=1:GOSUB 30 102 S1$="He will hit (whoever,whomever)takes" S2$="his pencil.":T=1:GOSUB 30 103 S1$="Was it she from (who,whom) you received that" S2$="beautiful pen and pencil set?":T=3:GOSUB 30 104 S1$="(Whoever,Whosever) eraser this is" S2$="better come and get it.":T=2:GOSUB 30 105 S1$="Are those the relatives (who,whom) are" S2$="visiting you this week?":T=1:GOSUB 30 106 S1$="It was Alexander Graham Bell (who,whom)" S2$="invented the telephone.":T=1:GOSUB 30 107 S1$="And Alexander Graham Kowalski (who,whom)" S2$="they made the first telephone pole.":T=3:GOSUB 30 108 S1$="(Whoever, Whomever) sticks by you in time" S2$="of need is the true friend.":T=1:GOSUB 30 109 S1$="Return the book to me (who,whom) am" S2$="the librarian.":T=1:GOSUB 30 110 S1$="He is the man (who,whom) I gave the box." S2$="":T=3:GOSUB 30 111 S1$="That is the boy (who,whose) house this is." S2$="":T=2:GOSUB 30 112 S1$="Maria is a student in (who,whom) I have" S2$="great confidence.":T=3:GOSUB 30 113 S1$="Any boy (who,whom) reads this book" S2$="will enjoy it.":T=1:GOSUB 30 114 S1$="He was a messenger (who,whom) all" S2$="could trust.":T=3:GOSUB 30 115 S1$="(Whoever, Whomever) wants some candy" S2$="should just come and ask for some.":T=1:GOSUB 30 116 S1$="Give the candy to (whoever,whomever)" S2$="asks for some.":T=1:GOSUB 30 117 S1$="There goes the woman with (who,whom)" S2$="I had that interesting conversation.":T=3:GOSUB 30 118 S1$="He is the type (who,whose) every move" S2$="is well thought out.":T=2:GOSUB 30 119 S1$="Mr. Cantwell encourages " S2$="(whoever, whomever) really tries hard.":T=1:GOSUB 30 120 S1$="The Lord is the One in (Who,Whom)" S2$="I place my trust.":T=3:GOSUB 30 121 S1$="Regina is the person (who,whom) you" S2$="gave the best grade in penmanship":T=3:GOSUB 30 122 S1$="Open to (whoever,whomever) knocks." S2$="":T=1:GOSUB 30 123 S1$="Everyone voted for the girl (who,whom)" S2$="they wished to see elected.":T=3:GOSUB 30 124 S1$="Are you the one for (who,whom) the" S2$="police are searching?":T=3:GOSUB 30 125 S1$="Patricia is the girl (who,whose) brother" S2$="you helped.":T=2:GOSUB 30 126 S1$="I am always the one (who,whom)" S2$="everybody appreciates.":T=3:GOSUB 30 127 S1$="It is he upon (whom,whose) words we" S2$="pondered for hours.":T=2:GOSUB 30 128 S1$="Are you the man (who,whom) owns" S2$="this dog?":T=1:GOSUB 30 129 S1$="TJ is one boy about (who,whom) I" S2$="have no worries.":T=3:GOSUB 30 130 S1$="My brother is the type who speaks easily" S2$="to (whoever,whomever) he meets.":T=3:GOSUB 30 131 S1$="Give (whoever,whomever) arrives first" S2$="this message.":T=1:GOSUB 30 132 S1$="(Whover,Whosever) mess this is better" S2$="admit making it.":T=2:GOSUB 30 133 S1$="We studied about Fr. Hylebos (who,whom)" S2$="was an early priest in this area.":T=1:GOSUB 30 134 S1$="Was it Cardinal Gibbons about (who,whom)" S2$="you wrote?":T=3:GOSUB 30 135 S1$="It is he about (who,whose) hair we" S2$="were recently talking.":T=2:GOSUB 30 190 GOTO 101 600 CLS 601 CALL TEXTSIZE(24) 602 CALL MOVETO(20,30):PRINT NOMEN$ 603 CALL MOVETO(20,60):PRINT"DID "ITEM" ITEMS OF "TOT 605 CALL MOVETO(20,90):PRINT"EX. #36 FOR A" 607 CALL MOVETO(20,120):PRINT"SCORE = "SCORE"%" 610 CALL TEXTSIZE(12) OPEN NOMEN$ FOR APPEND AS #1 N=36:S=SCORE PRINT #1, N,S CLOSE #1 630 CALL MOVETO(20,180):PRINT"THAT IS ALL YOU GET TO DO." CALL MOVETO(20,210):INPUT"GET YOUR SCORE RECORDED AND THEN PRESS 'RETURN' KEY."; V RUN "GRAM 1" \ No newline at end of file diff --git a/4/4.TXT b/4/4.TXT new file mode 100644 index 0000000..d2bc475 --- /dev/null +++ b/4/4.TXT @@ -0,0 +1 @@ +5 DIM SCR(8000):DIM BUT(3000) 10 CLS:PRINT" THIS IS EXERCISE 4" 12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ 13 IF ANS$ = "Y" THEN 17 15 IF ANS$= "N" THEN RUN "GRAM 1" 16 BEEP:GOTO 12 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 18 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=4 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=4 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 23 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 17 23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL CLS SOUND 196,4,100:FOR DLY=1 TO 800:NEXT DLY SOUND 196,2,30:FOR DLY=1 TO 400:NEXT DLY SOUND 262,8,50:FOR DLY=1 TO 1000:NEXT DLY 24 PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, " PRINT" CLICK ON THE SCORE VALUE. REMEMBER THIS." PRINT"" PRINT" THE COMPLETE EXERCISE HAS 25 ITEMS." PRINT" YOU WILL BE ALLOWED ONLY TWO TRIES." PRINT"" INPUT"TO GET GOING, PRESS 'RETURN' KEY.", V 30 OPEN "PERSON" FOR INPUT AS #1 31 IMAGE$=INPUT$(LOF(1),1) 32 PICTURE (20,20)-(470,270), IMAGE$ 33 CLOSE 34 GET(20,20)-(470,270),SCR:TOT=25 35 SCORE =0:ITEM=0:TRY=0:COR=0 36 TIM$=TIME$ 37 TIM=VAL(RIGHT$(TIM$,1))+1 39 ON TIM GOTO 500,507,509,513,519,527,533,542,547,550 50 CLS:ITEM=ITEM+1:LEFT=25-ITEM:IF ITEM>=26 THEN 600 51 PUT(20,20),SCR 52 CALL TEXTSIZE(18) CALL MOVETO(120,54):PRINT NOMEN$ CALL MOVETO(160,254):PRINT LEFT:CALL MOVETO(360,254):PRINT SCORE"%" CALL TEXTSIZE(12)::CALL MOVETO(50,100):PRINT S$ 53 B=0 54 B=MOUSE(0) 55 IF B=-1 THEN 56 ELSE 53 56 X=MOUSE(1) 57 Y=MOUSE(2) 58 IF Y>154 AND Y<213 THEN 60 ELSE 59 59 IF Y>220 AND Y<280 AND X>360 AND X<480 THEN 600 ELSE 53 60 Y1=156:Y2=213 61 IF X>40 AND X<160 THEN 62 ELSE 64 62 X1=40:X2=146:C$="1" 63 GOTO 80 64 IF X>160 AND X<325 THEN 65 ELSE 67 65 X1=190:X2=295:C$="2" 66 GOTO 80 67 IF X>340 AND X<450 THEN 68 ELSE 53 68 X1=340:X2=445:C$="3" 69 GOTO 80 80 GET(X1,Y1)-(X2,Y2),BUT 81 LINE(X1,Y1)-(X2,Y2),,BF 82 PUT(X1,Y1),BUT 83 SOUND 1760,.5,200:FOR DL=1 TO 100:NEXT DL 84 IF C$=P$ THEN GOSUB 100 ELSE GOSUB 200 85 RETURN 100 SOUND 131,8,200:FOR DL=1 TO 1600:NEXT DL SOUND 165,4,0:FOR DL=1 TO 800:NEXT DL SOUND 196,4,0:FOR DL=1 TO 800:NEXT DL LINE(X1,Y1)-(X2,Y2),,BF CALL MOVETO(X1+25,Y1+33):PRINT"CORRECT" FOR DL=1 TO 3000:NEXT DL TRY=TRY+1:COR=COR+1:SCORE=INT(100*(COR/TRY)) RETURN 200 SOUND 55,8,200:FOR DL=1 TO 1600:NEXT DL LINE(X1,Y1)-(X2,Y2),,BF CALL MOVETO(X1+25,Y1+33):PRINT" WRONG " FOR DL=1 TO 3000:NEXT DL TRY=TRY+1:SCORE=INT(100*(COR/TRY)) RETURN 500 S$="JOHN, you may play the organ for Mass.":P$="2":GOSUB 50 501 S$="New York is a major CITY on the east coast.":P$="3":GOSUB 50 502 S$="We, your PARENTS, love you.":P$="1":GOSUB 50 503 S$="We, the JURY, find the defendant guilty.":P$="1":GOSUB 50 504 S$="Winter is my favorite SEASON.":P$="3":GOSUB 50 505 S$="Play in the backyard, CHILDREN.":P$="2":GOSUB 50 506 S$="You PEOPLE are always bugging me.":P$="2":GOSUB 50 507 S$="Fr. Kieran will say MASS at 8:00 today.":P$="3":GOSUB 50 508 S$="DINNER is almost ready.":P$="3":GOSUB 50 509 S$="Return the book to me who am the LIBRARIAN.":P$="1":GOSUB 50 510 S$="Not all who say to me ''LORD, LORD'' will enter.":P$="2":GOSUB 50 511 S$="That was nice of you, SISTER dearest.":P$="2":GOSUB 50 512 S$="The governor will address our CLASS tomorrow.":P$="3":GOSUB 50 513 S$="I am your best FRIEND.":P$="1":GOSUB 50 514 S$="We, the MEMBERS of the team, thank you for this award.":P$="1":GOSUB 50 515 S$="Can you CHILDREN see this picture all right?":P$="2":GOSUB 50 516 S$="The TELEVISION isn't working right.":P$="3":GOSUB 50 \ No newline at end of file diff --git a/4SCI/4SCI.TXT b/4SCI/4SCI.TXT new file mode 100644 index 0000000..7acf349 --- /dev/null +++ b/4SCI/4SCI.TXT @@ -0,0 +1 @@ +60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) 84 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126) \ No newline at end of file diff --git a/5/5.TXT b/5/5.TXT new file mode 100644 index 0000000..0ab6750 --- /dev/null +++ b/5/5.TXT @@ -0,0 +1 @@ +10 CLS:PRINT" THIS IS EXERCISE 5" 12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ 13 IF ANS$ = "Y" THEN 17 15 IF ANS$= "N" THEN RUN "GRAM 1" 16 BEEP:GOTO 12 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ \ No newline at end of file diff --git a/6LAT1/6LAT1.TXT b/6LAT1/6LAT1.TXT new file mode 100644 index 0000000..aebdf27 --- /dev/null +++ b/6LAT1/6LAT1.TXT @@ -0,0 +1 @@ +60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) 84 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126) 85 PSET(281,126):PSET(282,126):PSET(283,126):PSET(280,127):PSET(280,128):PSET(280,129):PSET(280,130):PSET(280,131):PSET(280,132):PSET(280,133):PSET(280,134):PSET(286,126):PSET(286,127):PSET(286,128):PSET(286,129):PSET(286,130):PSET(286,131):PSET(286,132) 86 PSET(286,133):PSET(286,134):PSET(289,126):PSET(290,126):PSET(291,126):PSET(292,126):PSET(293,126):PSET(288,127):PSET(288,128):PSET(288,129):PSET(288,130):PSET(288,131):PSET(288,132):PSET(288,133):PSET(289,134):PSET(289,134):PSET(290,134):PSET(291,134) 87 PSET(292,134):PSET(293,134):PSET(294,127):PSET(294,129):PSET(294,130):PSET(294,131):PSET(294,132):PSET(294,133):PSET(294,128):PSET(296,126):PSET(296,127):PSET(296,128):PSET(296,129):PSET(296,130):PSET(296,131):PSET(296,132):PSET(296,133):PSET(296,134) 88 PSET(296,134):PSET(297,128):PSET(298,129):PSET(299,130):PSET(300,131):PSET(301,132):PSET(302,126):PSET(302,127):PSET(302,128):PSET(302,129):PSET(302,130):PSET(302,131):PSET(302,132):PSET(302,133):PSET(302,134):PSET(305,126):PSET(306,126):PSET(307,126) 89 PSET(308,126):PSET(309,126):PSET(310,127):PSET(304,127):PSET(304,128):PSET(304,129):PSET(305,130):PSET(306,130):PSET(307,130):PSET(308,130):PSET(309,130):PSET(310,131):PSET(310,132):PSET(310,133):PSET(309,134):PSET(308,134):PSET(307,134):PSET(306,134) 90 PSET(305,134):PSET(304,133):PSET(230,140):PSET(230,141):PSET(230,142):PSET(230,143):PSET(230,144):PSET(230,145):PSET(230,146):PSET(230,147):PSET(230,148):PSET(231,140):PSET(232,140):PSET(233,140):PSET(234,140):PSET(235,140):PSET(236,141):PSET(236,142) 91 PSET(236,143):PSET(235,144):PSET(234,144):PSET(233,144):PSET(232,144):PSET(231,144):PSET(238,140):PSET(238,141):PSET(238,142):PSET(238,143):PSET(238,144):PSET(238,145):PSET(238,146):PSET(238,147):PSET(238,148):PSET(239,140):PSET(240,140):PSET(241,140) 92 PSET(242,140):PSET(243,140):PSET(244,141):PSET(244,142):PSET(244,143):PSET(244,144):PSET(243,144):PSET(242,144):PSET(241,144):PSET(240,144):PSET(239,144):PSET(242,145):PSET(243,146):PSET(243,147):PSET(244,148):PSET(246,140):PSET(247,140):PSET(248,140) 93 PSET(249,140):PSET(250,140):PSET(251,140):PSET(252,140):PSET(246,141):PSET(246,142):PSET(246,143):PSET(246,144):PSET(246,145):PSET(246,146):PSET(246,147):PSET(246,148):PSET(247,148):PSET(248,148):PSET(249,148):PSET(250,148):PSET(251,148):PSET(252,148) \ No newline at end of file diff --git a/7/7.TXT b/7/7.TXT new file mode 100644 index 0000000..da187d4 --- /dev/null +++ b/7/7.TXT @@ -0,0 +1 @@ +5 DIM SCR(8000):DIM BUT(2000) 10 CLS:PRINT" THIS IS EXERCISE 7" 12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ \ No newline at end of file diff --git a/8/8.TXT b/8/8.TXT new file mode 100644 index 0000000..cf73a54 --- /dev/null +++ b/8/8.TXT @@ -0,0 +1 @@ +5 N1$="A":T1$="B":N2$="C":T2$="D":N3$="E":T3$="F":N4$="G":T4$="H":N5$="I":T5$="J" 6 CALL TEXTFONT(3) 10 CLS:PRINT" THIS IS EXERCISE 8" 12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ 13 IF ANS$ = "Y" THEN 17 15 IF ANS$= "N" THEN RUN "GRAM 1" 16 BEEP:GOTO 12 17 CLS 18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$ IF NOMEN$="" THEN BEEP:GOTO 18 A=0:SCORE=0:CICI=0 ON ERROR GOTO 22 OPEN NOMEN$ FOR INPUT AS #1 19 IF EOF(1) THEN 20 INPUT #1, N,S IF N=8 THEN A=1 GOTO 19 20 CLOSE #1 IF A>0 THEN 21 OPEN NOMEN$ FOR APPEND AS #1 N=8 S=SCORE PRINT#1,N,S CLOSE#1 GOTO 27 21 PRINT"" PRINT" YOU HAVE ALREADY DONE THIS EXERCISE." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS RUN "GRAM 1" 22 PRINT"":PRINT"" PRINT" NAME NOT FOUND." INPUT" PLEASE PRESS THE 'RETURN' KEY"; V CLS CLEAR GOTO 17 23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL \ No newline at end of file diff --git a/9/9.TXT b/9/9.TXT new file mode 100644 index 0000000..796c215 --- /dev/null +++ b/9/9.TXT @@ -0,0 +1 @@ +5 DIM SCR(5000):DIM BOX(500) 10 CLS:PRINT" THIS IS EXERCISE 9" 12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ 13 IF ANS$ = "Y" THEN 17 15 IF ANS$= "N" THEN RUN "GRAM 1" \ No newline at end of file diff --git a/ACT/ACT.TXT b/ACT/ACT.TXT new file mode 100644 index 0000000..6037665 --- /dev/null +++ b/ACT/ACT.TXT @@ -0,0 +1 @@ +10 CLS 15 WAVE 0, SIN 20 SCORE = 0:ITEM=0:TRY=0:COR=0:SKP=0 30 DIM ANS(1000):DIM A$(10):DIM B$(10) 190 CLS:PRINT"":PRINT"" 191 PRINT" Please type in your name and press the ENTER key." 192 PRINT"":PRINT"":INPUT; NOMEN$ 200 CLS PRINT"" PRINT" THE PROGRAM RUNS AUTOMATICALLY. IF A WORD IS PRESENTED THAT" \ No newline at end of file diff --git a/ALL ABOUT AFRICA/ALL ABOUT AFRICA.TXT b/ALL ABOUT AFRICA/ALL ABOUT AFRICA.TXT new file mode 100644 index 0000000..00ff14f --- /dev/null +++ b/ALL ABOUT AFRICA/ALL ABOUT AFRICA.TXT @@ -0,0 +1 @@ +10 20 CLS:GOSUB 370 30 DIM A(3000):DIM B(2000):DIM X(50):DIM CN(200):DIM ANSY(100) 31 DIM DOT(100):DIM MTN(100):DIM SCR(5000) 40 GPA=0:MISS=0:TEMPU$=TIME$ 100 LINE(316,96)-(312,96):LINE-(311,95):LINE-(307,95):LINE-(305,96):LINE-(297,96):LINE-(286,91):LINE-(282,93):LINE-(284,95):LINE-(281,97):LINE-(273,94):LINE-(270,90):LINE-(267,89):LINE-(264,90):LINE-(260,87):LINE-(260,86):LINE-(262,84):LINE-(262,80) 101 LINE(262,80)-(264,78):LINE-(262,79):LINE-(261,78):LINE-(257,78):LINE-(255,79):LINE-(253,78):LINE-(249,79):LINE-(246,78):LINE-(242,78):LINE-(232,81):LINE-(226,81):LINE-(224,78):LINE-(222,80):LINE-(220,83):LINE-(213,87):LINE-(212,92):LINE-(206,97) 102 LINE(206,97)-(203,98):LINE-(189,115):LINE-(190,120):LINE-(190,124):LINE-(187,131):LINE-(183,135):LINE-(185,137):LINE-(185,140):LINE-(192,150):LINE-(192,154):LINE-(197,159):LINE-(200,160):LINE-(205,164):LINE-(210,165):LINE-(216,163):LINE-(219,163) 103 LINE(219,163)-(222,164):LINE-(225,164):LINE-(237,160):LINE-(240,160):LINE-(242,165):LINE-(245,165):LINE-(249,167):LINE-(249,165):LINE-(254,169):LINE-(251,181):LINE-(251,184):LINE-(261,201):LINE-(260,204):LINE-(262,210):LINE-(261,212):LINE-(257,223) 104 LINE(257,223)-(257,229):LINE-(258,229):LINE-(258,234):LINE-(263,240):LINE-(262,243):LINE-(265,252):LINE-(272,265):LINE-(272,267):LINE-(271,268):LINE-(271,269):LINE-(272,270):LINE-(272,272):LINE-(275,272):LINE-(276,274):LINE-(279,272):LINE-(282,272) 105 LINE(282,272)-(284,271):LINE-(286,272):LINE-(290,272):LINE-(291,271):LINE-(293,271):LINE-(302,265):LINE-(309,256):LINE-(310,250):LINE-(316,247):LINE-(318,239):LINE-(316,236):LINE-(334,221):LINE-(332,219):LINE-(333,214):LINE-(334,211):LINE-(334,209) 106 LINE(334,209)-(330,203):LINE-(330,198):LINE-(329,196):LINE-(336,186):LINE-(339,186):LINE-(341,183):LINE-(343,179):LINE-(355,169):LINE-(365,152):LINE-(364,151):LINE-(364,148):LINE-(361,148):LINE-(358,151):LINE-(356,151):LINE-(348,152):LINE-(344,152) 107 LINE(344,152)-(344,150):LINE-(340,150):LINE-(342,148):LINE-(334,138):LINE-(332,138):LINE-(332,136):LINE-(329,130):LINE-(326,130):LINE-(326,120):LINE-(321,117):LINE-(321,113):LINE-(313,100):LINE-(314,100):LINE-(318,104):LINE-(318,100):LINE-(316,96) 108 LINE(355,215)-(355,219):LINE-(351,219):LINE-(351,223):LINE-(342,226):LINE-(340,232):LINE-(340,237):LINE-(337,242):LINE-(336,245):LINE-(337,250):LINE-(339,252):LINE-(345,250):LINE-(350,240):LINE-(354,228):LINE-(354,226):LINE-(355,224):LINE-(357,228) 109 LINE(357,228)-(358,226):LINE-(357,217):LINE-(355,215) 110 IF TITLE>0 THEN 264 160 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 161 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 162 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 163 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 164 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 165 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 166 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 167 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) \ No newline at end of file diff --git a/ARITHEORY/ARTHSENT.TXT b/ARITHEORY/ARTHSENT.TXT new file mode 100644 index 0000000..a1c0001 --- /dev/null +++ b/ARITHEORY/ARTHSENT.TXT @@ -0,0 +1 @@ +3 DIM WF%(256) FOR I=0 TO 127 WF%(I)= 127 WF%(255-I)=-128 NEXT I WAVE 0, WF% 60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) 84 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126) 85 PSET(281,126):PSET(282,126):PSET(283,126):PSET(280,127):PSET(280,128):PSET(280,129):PSET(280,130):PSET(280,131):PSET(280,132):PSET(280,133):PSET(280,134):PSET(286,126):PSET(286,127):PSET(286,128):PSET(286,129):PSET(286,130):PSET(286,131):PSET(286,132) 86 PSET(286,133):PSET(286,134):PSET(289,126):PSET(290,126):PSET(291,126):PSET(292,126):PSET(293,126):PSET(288,127):PSET(288,128):PSET(288,129):PSET(288,130):PSET(288,131):PSET(288,132):PSET(288,133):PSET(289,134):PSET(289,134):PSET(290,134):PSET(291,134) 87 PSET(292,134):PSET(293,134):PSET(294,127):PSET(294,129):PSET(294,130):PSET(294,131):PSET(294,132):PSET(294,133):PSET(294,128):PSET(296,126):PSET(296,127):PSET(296,128):PSET(296,129):PSET(296,130):PSET(296,131):PSET(296,132):PSET(296,133):PSET(296,134) 88 PSET(296,134):PSET(297,128):PSET(298,129):PSET(299,130):PSET(300,131):PSET(301,132):PSET(302,126):PSET(302,127):PSET(302,128):PSET(302,129):PSET(302,130):PSET(302,131):PSET(302,132):PSET(302,133):PSET(302,134):PSET(305,126):PSET(306,126):PSET(307,126) \ No newline at end of file diff --git a/ARITHEORY/TYPES.TXT b/ARITHEORY/TYPES.TXT new file mode 100644 index 0000000..e9794ad --- /dev/null +++ b/ARITHEORY/TYPES.TXT @@ -0,0 +1 @@ +3 DIM WF%(256) FOR I=0 TO 127 WF%(I)= 127 WF%(255-I)=-128 NEXT I WAVE 0, WF% 60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) \ No newline at end of file diff --git a/ASIA/Asia.TXT b/ASIA/Asia.TXT new file mode 100644 index 0000000..e41210a --- /dev/null +++ b/ASIA/Asia.TXT @@ -0,0 +1 @@ +3 DIM MAP(9000):DIM BUT(200):DIM DET(9000) DIM QMRK(200):DIM QSHD(200):DIM ANSM(200):DIM ASHD(200) DIM MAGG(200):DIM MSHD(200):DIM DEMK(200):DIM DESH(200) DIM RARR(200):DIM RSHD(200):DIM LARR(200):DIM LSHD(200) DIM UARR(200):DIM USHD(200):DIM DARR(200):DIM DSHD(200) DIM UNDO(200) DIM Wf%(255):DIM Wg%(255) FOR I=0 TO 127 Wf%(I)=127 Wf%(255-I)=-128 NEXT I FOR I=255 TO 0 STEP -1 Wg%(I)=I-128 NEXT I Q1=1:Q2=1:Q3=1:Q4=1:Q5=1:Q6=1:Q7=1:Q8=1:Q9=1:Q10=1:Q11=1:Q12=1:Q13=1:Q14=1 WAVE 0,Wf% WAVE 1,Wg% WAVE 2,Wg% WAVE 3,Wg% GOTO 19 4 OPEN "Mr.C" FOR INPUT AS #1 MUS = 0 CALL TEXTSIZE(24) 5 SOUND WAIT SOUND 698,12,,0 SOUND (8/5)*698,12,,1 SOUND (8/7)*698,12,,2 SOUND 2*698,12,,3 SOUND RESUME SOUND WAIT SOUND 698,12,,0 SOUND (4/3)*698,12,,1 SOUND 2*698,12,,2 SOUND RESUME SOUND WAIT SOUND 698,12,,0 SOUND (8/5)*698,12,,1 SOUND (8/7)*698,12,,2 SOUND 2*698,12,,3 SOUND RESUME SOUND WAIT SOUND 587,6,,0 SOUND (8/5)*587,6,,1 SOUND (8/7)*587,6,,2 SOUND 2*587,6,,3 SOUND RESUME SOUND WAIT SOUND 523,6,,0 SOUND (8/5)*523,6,,1 SOUND (8/7)*523,6,,2 SOUND 2*523,6,,3 SOUND RESUME SOUND WAIT SOUND 587,12,,0 SOUND (4/3)*587,12,,1 SOUND 2*587,12,,2 SOUND RESUME SOUND WAIT SOUND 523,6,,0 SOUND (8/7)*523,6,,1 SOUND (8/5)*523,6,,2 SOUND 2*523,6,,3 SOUND RESUME SOUND WAIT SOUND 445,6,,0 SOUND (8/7)*445,6,,1 SOUND (8/5)*445,6,,2 SOUND 2*445,6,,3 SOUND RESUME SOUND WAIT SOUND 445,16,,0 SOUND (8/7)*445,16,,1 SOUND (4/3)*445,16,,2 SOUND 2*445,16,,3 SOUND RESUME IF MUS=1 THEN 7 6 IMAGE$=INPUT$(LOF(1),1) PICTURE (40,30), IMAGE$ CLOSE SOUND WAIT SOUND 587,12,,0 SOUND (8/7)*587,12,,1 SOUND (8/5)*587,12,,2 SOUND 2*587,12,,3 SOUND RESUME SOUND WAIT SOUND 587,12,,0 SOUND (4/3)*587,12,,1 SOUND 2*587,12,,2 SOUND RESUME SOUND WAIT SOUND 587,12,,0 SOUND (8/7)*587,12,,1 SOUND (8/5)*587,12,,2 SOUND 2*587,12,,3 SOUND RESUME SOUND WAIT SOUND 523,6,,0 SOUND (8/7)*523,6,,1 SOUND (8/5)*523,6,,2 SOUND 2*523,6,,3 SOUND RESUME SOUND WAIT SOUND 445,6,,0 SOUND (8/7)*445,6,,1 SOUND (5/7)*445,6,,2 SOUND 2*445,6,,3 SOUND RESUME SOUND WAIT SOUND 523,6,,0 SOUND (8/7)*523,6,,1 SOUND (8/5)*523,6,,2 SOUND 2*523,6,,3 SOUND RESUME SOUND WAIT SOUND 445,6,,0 SOUND (8/7)*445,6,,1 SOUND (8/5)*445,6,,2 SOUND 2*445,6,,3 SOUND RESUME SOUND WAIT SOUND 392,6,,0 SOUND (8/7)*392,6,,1 SOUND (8/5)*392,6,,2 SOUND 2*392,6,,3 SOUND RESUME SOUND WAIT SOUND 392,16,,0 SOUND 400,16,,1 SOUND (4/3)*392,16,,2 SOUND 2*396,16,,3 SOUND RESUME MUS=1:GOTO 5 7 SOUND WAIT SOUND 392,12,,0 SOUND (16/12)*392,12,,1 SOUND (19/12)*392,12,,2 SOUND 2*392,12,,3 SOUND RESUME SOUND WAIT SOUND 587,12,,0 SOUND (16/12)*587,12,,1 SOUND (19/12)*587,12,,2 SOUND 2*587,12,,3 SOUND RESUME SOUND WAIT SOUND 445,12,,0 SOUND (16/12)*445,12,,1 SOUND (19/12)*445,12,,2 SOUND 2*445,12,,3 SOUND RESUME SOUND WAIT SOUND 392,12,,0 SOUND (16/12)*392,12,,1 SOUND (19/12)*392,12,,2 SOUND 2*392,12,,3 SOUND RESUME SOUND WAIT SOUND 445,12,,0 SOUND (16/12)*445,12,,1 SOUND (19/12)*445,12,,2 SOUND 2*445,12,,3 SOUND RESUME SOUND WAIT SOUND 349,12,,0 SOUND (16/12)*349,12,,1 \ No newline at end of file diff --git a/AUSTRALIA/AUSTRALIA.TXT b/AUSTRALIA/AUSTRALIA.TXT new file mode 100644 index 0000000..27808d2 --- /dev/null +++ b/AUSTRALIA/AUSTRALIA.TXT @@ -0,0 +1 @@ +10 CLS 11 DIM ANSY (100):DIM A(3000) 12 GA=0:TRY=0:CORRECT=0 13 DIM WF%(256) FOR I=0 TO 127 WF%(I)=127 WF%(255-I)=-128 NEXT I WAVE 0, WF% 18 PSET(326,32):PSET(327,32):PSET(328,32):PSET(325,33):PSET(328,33):PSET(248,34):PSET(249,34):PSET(280,34):PSET(325,34):PSET(328,34):PSET(247,35):PSET(249,35):PSET(279,35):PSET(280,35):PSET(325,35):PSET(328,35):PSET(228,36):PSET(244,36) 19 PSET(245,36):PSET(246,36):PSET(248,36):PSET(279,36):PSET(281,36):PSET(324,36):PSET(328,36):PSET(227,37):PSET(230,37):PSET(242,37):PSET(243,37):PSET(249,37):PSET(279,37):PSET(281,37):PSET(324,37):PSET(328,37):PSET(227,38):PSET(230,38) 20 PSET(232,38):PSET(233,38):PSET(234,38):PSET(241,38):PSET(250,38):PSET(276,38):PSET(277,38):PSET(278,38):PSET(281,38):PSET(324,38):PSET(330,38):PSET(331,38):PSET(332,38):PSET(333,38):PSET(227,39):PSET(229,39):PSET(232,39):PSET(234,39) 21 PSET(242,39):PSET(250,39):PSET(276,39):PSET(281,39):PSET(324,39):PSET(332,39):PSET(227,40):PSET(230,40):PSET(232,40):PSET(235,40):PSET(240,40):PSET(250,40):PSET(273,40):PSET(281,40):PSET(323,40):PSET(332,40):PSET(227,41):PSET(229,41) 22 PSET(232,41):PSET(234,41):PSET(240,41):PSET(250,41):PSET(273,41):PSET(281,41):PSET(323,41):PSET(332,41):PSET(226,42):PSET(227,42):PSET(228,42):PSET(232,42):PSET(239,42):PSET(250,42):PSET(251,42):PSET(252,42):PSET(267,42):PSET(273,42) 23 PSET(274,40):PSET(279,42):PSET(323,42):PSET(332,42):PSET(224,43):PSET(228,43):PSET(240,43):PSET(255,43):PSET(266,43):PSET(268,43):PSET(273,43):PSET(278,43):PSET(323,43):PSET(332,43):PSET(226,44):PSET(240,44):PSET(256,44):PSET(257,44) 24 PSET(258,44):PSET(259,44):PSET(260,44):PSET(261,44):PSET(262,44):PSET(263,44):PSET(267,44):PSET(270,44):PSET(271,44):PSET(272,44):PSET(274,44):PSET(277,44):PSET(323,44):PSET(332,44):PSET(233,45):PSET(238,45):PSET(263,45):PSET(265,45) 25 PSET(270,45):PSET(273,45):PSET(277,45):PSET(280,45):PSET(323,45):PSET(332,45):PSET(333,45):PSET(334,45):PSET(232,46):PSET(239,46):PSET(263,46):PSET(264,46):PSET(266,46):PSET(267,46):PSET(268,46):PSET(269,46):PSET(270,46):PSET(273,46) 26 PSET(277,46):PSET(279,46):PSET(280,46):PSET(332,46):PSET(334,46):PSET(230,47):PSET(281,47):PSET(321,47):PSET(334,47):PSET(320,48):PSET(281,48):PSET(321,48):PSET(334,48):PSET(229,49):PSET(281,49):PSET(321,49):PSET(334,49):PSET(228,50) 27 PSET(281,50):PSET(320,50):PSET(334,50):PSET(227,51):PSET(278,51):PSET(279,51):PSET(320,51):PSET(334,51):PSET(227,52):PSET(278,52):PSET(320,52):PSET(335,52):PSET(227,52):PSET(278,52):PSET(320,52):PSET(335,52):PSET(227,53):PSET(278,53) 28 PSET(320,53):PSET(336,53):PSET(227,54):PSET(276,54):PSET(278,54):PSET(320,54):PSET(336,54):PSET(226,55):PSET(274,55):PSET(320,55):PSET(336,55):PSET(225,56):PSET(275,56):PSET(320,56):PSET(336,56):PSET(225,57):PSET(276,57):PSET(319,57) 29 PSET(234,44):PSET(235,44):PSET(236,44):PSET(237,44):PSET(238,44):PSET(336,57):PSET(202,58):PSET(224,58):PSET(274,58):PSET(275,58):PSET(279,58):PSET(280,58):PSET(282,58):PSET(319,58):PSET(336,58):PSET(201,59):PSET(203,59):PSET(223,59) 30 PSET(274,59):PSET(278,59):PSET(280,59):PSET(318,59):PSET(336,59):PSET(200,60):PSET(204,60):PSET(222,60):PSET(274,60):PSET(277,60):PSET(281,60):PSET(318,60):PSET(336,60):PSET(199,61):PSET(205,61):PSET(222,61):PSET(274,61):PSET(277,61) \ No newline at end of file diff --git a/AUTHORS/athrs.TXT b/AUTHORS/athrs.TXT new file mode 100644 index 0000000..d995e02 --- /dev/null +++ b/AUTHORS/athrs.TXT @@ -0,0 +1 @@ +5 DIM SCN(8000):DIM BUT(300):DIM BTN(300) DIM Wf%(255):DIM Wg%(255):DIM Wa%(255) FOR I=0 TO 127 Wf%(I)=127 Wf%(255-I)=-128 NEXT I FOR I=127 TO 0 STEP -1 I2=I+2 Wg%(I)=I2-128 Wg%(255-I)=I2-128 NEXT I FOR I=255 TO 0 STEP -1 Wa%(I)=I-128 NEXT I GOTO 10 6 WAVE 0,Wa% WAVE 1,SIN WAVE 2,SIN WAVE 3,SIN MUS=0 7 MUS=MUS+1 SOUND WAIT SOUND 1175,3.5,,0 SOUND 0,.5,,0 SOUND 1175,1.8,,0 SOUND 0,.2,,0 SOUND 1175,2,,0 SOUND 880,4,,0 SOUND 740,4,,0 SOUND 440,8,,1 SOUND 370,8,,1 SOUND 294,16,,2 SOUND RESUME SOUND WAIT SOUND 784,4,,0 SOUND 988,4,,0 SOUND 880,8,,0 SOUND 494,4,,1 SOUND 392,4,,1 SOUND 370,8,,1 SOUND 294,16,,2 SOUND RESUME SOUND WAIT SOUND 1174,3.5,,0 SOUND 0,.5,,0 SOUND 1174,4,,0 SOUND 880,4,,0 SOUND 740,4,,0 SOUND 440,8,,1 SOUND 370,8,,1 SOUND 294,16,,2 SOUND RESUME SOUND WAIT SOUND 698,4,,0 SOUND 740,4,,0 SOUND 587,8,,0 SOUND 440,8,,1 SOUND 370,8,,1 SOUND 277,8,,2 SOUND 294,8,,2 SOUND RESUME IF MUS<2 THEN 7 RETURN 8 MUS=MUS+1 SOUND WAIT SOUND 698,4,,0 SOUND 740,4,,0 SOUND 659,2,,0 SOUND 587,2,,0 SOUND 494,4,,0 SOUND 0,1,,1 SOUND 440,7,,1 SOUND 0,1,,1 SOUND 392,7,,1 SOUND 0,1,,2 SOUND 294,7,,2 SOUND 0,1,,2 SOUND 294,7,,2 SOUND RESUME SOUND WAIT SOUND 698,2,,0 SOUND 740,3.8,,0 SOUND 0,.2,,0 SOUND 740,2,,0 SOUND 440,8,,0 SOUND 0,.2,,1 SOUND 440,3.8,,1 SOUND 0,4,,1 SOUND 370,8,,1 SOUND 0,.2,,2 SOUND 294,3.8,,2 SOUND 0,4,,2 SOUND 294,8,,2 SOUND RESUME 9 SOUND WAIT SOUND 698,4,,0 SOUND 740,4,,0 SOUND 659,2,,0 SOUND 587,2,,0 SOUND 494,4,,0 SOUND 0,1,,1 SOUND 440,7,,1 SOUND 0,1,,1 SOUND 392,7,,1 SOUND 0,1,,2 SOUND 294,7,,2 SOUND 0,1,,2 SOUND 294,7,,2 SOUND RESUME SOUND WAIT SOUND 440,5,,0 SOUND 494,5,,0 SOUND 587,12,,0 SOUND 370,5,,1 SOUND 392,5,,1 SOUND 370,12,,1 SOUND 0,5,,2 SOUND 330,5,,2 SOUND 294,12,,2 SOUND RESUME RETURN 10 OPEN "Mr.C" FOR INPUT AS #1 IMAGE$=INPUT$(LOF(1),1) PICTURE (40,30)-(455,269), IMAGE$ CLOSE GOSUB 6 FOR DLY=1 TO 1000:NEXT DLY CLS 15 CALL TEXTFONT(0):CALL TEXTSIZE(72) CALL MOVETO(100,70):PRINT "Author" CALL MOVETO(200,180):PRINT"Author" CALL TEXTFONT(3):CALL TEXTSIZE(12) GOSUB 8 FOR DLY=1 TO 3000: NEXT DLY 16 PRINT,"THE GAME DISPLAYS A SCREEN WITH THE NAME OF AN AUTHOR AND" PRINT,"THE NAMES OF TWO OF HIS BOOKS." PRINT"" PRINT,"THE GOAL IS TO FIND THE LOCATION IN COLUMN ONE OF THE NAME" PRINT,"OF THE FIRST BOOK - - AND - -" PRINT,"THEN TO FIND THE NAME OF THE SECOND BOOK AT THE SAME TIME." PRINT"" PRINT,"IF ONE FINDS ONLY THE FIRST ONE, THAT DOES NOT COUNT, " PRINT,"BOTH NAMES HAVE TO SHOW AT THE SAME TIME FOR A PLAYER" PRINT,"TO GET THE SCORE POINT." PRINT"" INPUT "PRESS THE 'RETURN' KEY.", V 20 OPEN "scrn" FOR INPUT AS #1 IMAGE$=INPUT$(LOF(1),1) PICTURE (0,0)-(496,310), IMAGE$ CLOSE GET (0,0)-(496,310), SCN CLS 25 CALL MOVETO(50,50) INPUT"NAME OF PLAYER #1-- ", NOMEN1$ IF NOMEN1$="" THEN BEEP:GOTO 25 26 CALL MOVETO(50,100) INPUT "NAME OF PLAYER #2-- ", NOMEN2$ IF NOMEN2$="" THEN BEEP:GOTO 26 CALL MOVETO(50,150) PRINT"THANK YOU" FOR DLY=1 TO 2000:NEXT DLY PRINT"" CALL TEXTFACE(5) PRINT" TO END, CLICK ON THE AUTHOR NAME." CALL TEXTFACE(0) PRINT"" INPUT" TO GET GOING, PRESS THE 'RETURN' KEY.", V 28 CLS GOSUB 9 SCORE1=0:SCORE2=0:PLR=1 CHC=VAL(RIGHT$(TIME$,1))+1 ON CHC GOTO 101,102,103,104,105,106,107,108,109,110 30 CLS:ATT=0 PUT (0,0), SCN CALL MOVETO(22,46):PRINT AUTH$ CALL MOVETO(46,72):PRINT TIT1$ CALL MOVETO(247,72):PRINT TIT2$ 31 IF PLR=1 THEN LINE(245,6)-(465,19),30,BF:CALL MOVETO(19,17):PRINT NOMEN1$" SCORE="SCORE1 IF PLR=2 THEN LINE(19,6)-(230,19),30,BF:CALL MOVETO(245,17):PRINT NOMEN2$" SCORE="SCORE2 WAVE 0,Wf% SOUND 196,3,,0 SOUND 262,8,,0 32 B=0 B=MOUSE(0) IF B=-1 THEN 33 ELSE 32 33 X=MOUSE(1):Y=MOUSE(2) IF X>17 AND X<247 AND Y>25 AND Y<46 THEN 700 IF X>43 AND X<232 AND ATT=0 THEN 35 IF X>245 AND X<433 AND ATT=1 THEN 40 ELSE 32 GOTO 32 35 IF Y>85 AND Y<107 THEN X1=43:X2=232:Y1=85:Y2=107:TI=1:GOTO 50 IF Y>115 AND Y<137 THEN X1=43:X2=232:Y1=115:Y2=137:TI=2:GOTO 50 IF Y>145 AND Y<167 THEN X1=43:X2=232:Y1=145:Y2=167:TI=3:GOTO 50 IF Y>175 AND Y<197 THEN X1=43:X2=232:Y1=175:Y2=197:TI=4:GOTO 50 IF Y>205 AND Y<227 THEN X1=43:X2=232:Y1=205:Y2=227:TI=5:GOTO 50 IF Y>235 AND Y<257 THEN X1=43:X2=232:Y1=235:Y2=257:TI=6:GOTO 50 40 IF Y>85 AND Y<107 THEN X3=245:X4=433:Y3=85:Y4=107:TI=11:GOTO 52 IF Y>115 AND Y<137 THEN X3=245:X4=433:Y3=115:Y4=137:TI=12:GOTO 52 IF Y>145 AND Y<167 THEN X3=245:X4=433:Y3=145:Y4=167:TI=13:GOTO 52 IF Y>175 AND Y<197 THEN X3=245:X4=433:Y3=175:Y4=197:TI=14:GOTO 52 IF Y>205 AND Y<227 THEN X3=244:X4=433:Y3=206:Y4=227:TI=15:GOTO 52 IF Y>235 AND Y<257 THEN X3=244:X4=433:Y3=236:Y4=257:TI=16:GOTO 52 BEEP GOTO 32 50 GET(X1,Y1)-(X2,Y2),BUT LINE(X1,Y1)-(X2,Y2),30,BF SOUND 16,5,,0 SOUND 131,1,,0 IF TI=TT1 THEN 51 ELSE 55 51 CALL MOVETO(X1+3,Y2-3):PRINT TIT1$:ATT=1:GOTO 32 52 GET(X3,Y3)-(X4,Y4),BTN LINE(X3,Y3)-(X4,Y4),30,BF SOUND 16,5,,0 SOUND 131,1,,0 IF TI=TT2 THEN 53 ELSE 55 53 CALL MOVETO(X3+3,Y4-3):PRINT TIT2$ IF PLR=1 THEN SCORE1=SCORE1+1:PLR=2:GOTO 54 IF PLR=2 THEN SCORE2=SCORE2+1:PLR=1 54 GOSUB 9 FOR DLY=1 TO 5000:NEXT DLY RETURN 55 FOR DLY=1 TO 2000:NEXT DLY LINE(X1,Y1)-(X2,Y2),30,BF PUT(X1,Y1),BUT SOUND WAIT SOUND 131,1,,0 SOUND 16,5,,0 SOUND RESUME 56 IF TI<10 THEN 58 FOR DLY=1 TO 1000:NEXT DLY LINE(X3,Y3)-(X4,Y4),30,BF PUT(X3,Y3),BTN SOUND WAIT SOUND 131,1,,0 SOUND 16,5,,0 SOUND RESUME 58 FOR DLY=1 TO 800:NEXT DLY IF PLR=1 THEN PLR=2:ATT=0:GOTO 31 IF PLR=2 THEN PLR=1:ATT=0:GOTO 31 101 AUTH$="Nathaniel Hawthorne" TIT1$="The Scarlet Letter":TIT2$="House of the Seven Gables" TT1=5:TT2=12 GOSUB 30 102 AUTH$="James Fenimore Cooper" TIT1$="Pathfinder":TIT2$="Last of the Mohicans" TT1=3:TT2=16 GOSUB 30 103 AUTH$="Edgar Allen Poe" TIT1$="The Raven":TIT2$="The Telltale Heart" TT1=1:TT2=13 GOSUB 30 104 AUTH$="William Shakespeare" TIT1$="Romeo and Juliet":TIT2$="Julius Caesar" TT1=6:TT2=12 GOSUB 30 105 AUTH$="Marcus Tullius Cicero" TIT1$="On Friendship":TIT2$="On Old Age" TT1=2:TT2=12 GOSUB 30 106 AUTH$="Saint John" TIT1$="John's Gospel":TIT2$="The Apocalypse" TT1=4:TT2=11 GOSUB 30 107 AUTH$="St. Thomas Aquinas" TIT1$="Summa Theologiae":TIT2$="De Veritate" TT1=3:TT2=16 GOSUB 30 108 AUTH$="Mark Twain" TIT1$="Huckleberry Finn":TIT2$="Tom Sawyer" TT1=6:TT2=16 GOSUB 30 109 AUTH$="John Greenleaf Whittier" TIT1$="The Fish I didn't Catch":TIT2$="The Corn Song" TT1=2:TT2=13 GOSUB 30 110 AUTH$="Oliver Goldsmith" TIT1$="Vicar of Wakefield":TIT2$="She Stoops to Conquer" TT1=3:TT2=15 GOSUB 30 111 AUTH$="Henry Wadsworth Longfellow" TIT1$="The Song of Hiawatha":TIT2$="The Village Blacksmith" TT1=4:TT2=12 GOSUB 30 112 AUTH$="Louisa May Alcott" TIT1$="Little Women":TIT2$="Little Men" TT1=2:TT2=15 GOSUB 30 113 AUTH$="Henry D. Thoreau" TIT1$="Walden":TIT2$="Civil Disobedience" TT1=4:TT2=11 GOSUB 30 114 AUTH$="William Makepeace Thackeray" TIT1$="Vanity Fair":TIT2$="The Virginians" TT1=5:TT2=12 GOSUB 30 115 AUTH$="James Sheridan Knowles" TIT1$="William Tell":TIT2$="Caius Gracchus" TT1=5:TT2=14 GOSUB 30 116 AUTH$="James Henry Leigh Hunt" TIT1$="Abou Ben Adhem":TIT2$="The Story of Bimini" TT1=4:TT2=11 GOSUB 30 117 AUTH$="William Cullen Bryant" TIT1$="Thanatopsis":TIT2$="The Death of the Flowers" TT1=3:TT2=16 GOSUB 30 118 AUTH$="James Russell Lowell" TIT1$="The Vision of Sir Launfal":TIT2$="My Study Windows" TT1=3:TT2=15 GOSUB 30 119 AUTH$="Charles Dickins" TIT1$="Pickwick Papers":TIT2$="Nicholas Nickelby" TT1=2:TT2=14 GOSUB 30 120 AUTH$="Alfred Lord Tennyson" TIT1$="Idyls of the King":TIT2$="Crossing the Bar" TT1=6:TT2=13 GOSUB 30 121 AUTH$="Washington Irving" TIT1$="Salmagundi":TIT2$="Bracebridge Hall" TT1=1:TT2=13 GOSUB 30 122 AUTH$="Sir Francis Bacon" TIT1$="Novum Organum":TIT2$="Advancement of Learning" TT1=2:TT2=12 GOSUB 30 123 AUTH$="Elizabeth Barrett Browning" TIT1$="He Giveth His Beloved Sleep":TIT2$="Aurora Leigh" TT1=1:TT2=16 GOSUB 30 123 AUTH$="Edmund Burke" TIT1$="Conciliation with America":TIT2$="Revolution in France" TT1=3:TT2=12 GOSUB 30 124 AUTH$="John Milton" TIT1$="On His Blindness":TIT2$="Paradise Lost" TT1=5:TT2=13 GOSUB 30 125 AUTH$="Alexander Pope" TIT1$="Rape of the Lock":TIT2$="The Dunciad" TT1=4:TT2=16 GOSUB 30 126 AUTH$="Robert Louis Stevenson" TIT1$="Treasure Island":TIT2$="Kidnapped" TT1=4:TT2=11 GOSUB 30 127 AUTH$="Rudyard Kipling" TIT1$="Rikki-tikki-tavi":TIT2$="Gunga Din" TT1=2:TT2=15 GOSUB 30 128 AUTH$="Walt Whitman" TIT1$="O Captain! My Captain!":TIT2$="I Hear America Singing" TT1=4:TT2=13 GOSUB 30 129 AUTH$="Leonard Feeney" TIT1$="The Bread of Life":TIT2$="The Altar Boy" TT1=2:TT2=12 GOSUB 30 130 AUTH$="John Masefield" TIT1$="Sea Fever":TIT2$="Jim Davis" TT1=1:TT2=15 GOSUB 30 131 AUTH$="Washington Irving" TIT1$="Rip Van Winkle":TIT2$="Legend of Sleepy Hollow" TT1=4:TT2=15 GOSUB 30 132 AUTH$="William Shakespeare" TIT1$="Hamlet":TIT2$="Macbeth" TT1=2:TT2=13 GOSUB 30 133 AUTH$="G. K. Chesterton" TIT1$="Orthodoxy":TIT2$="The Everlasting Man" TT1=6:TT2=12 GOSUB 30 134 AUTH$="C. S. Lewis" TIT1$="Chronicles of Narnia":TIT2$="Screwtape Letters" TT1=5:TT2=14 GOSUB 30 135 AUTH$="Laura Ingalls Wilder" TIT1$="Little House on the Prairie":TIT2$="Little House in the Big Woods" TT1=4:TT2=11 GOSUB 30 136 AUTH$="Richard Weaver" TIT1$="Ideas Have Consequences":TIT2$="Visions of Order" TT1=1:TT2=11 GOSUB 30 137 AUTH$="Sterling North" TIT1$="So Dear to my Heart":TIT2$="Rascal" TT1=3:TT2=13 GOSUB 30 138 AUTH$="Charles Dickins" TIT1$="Oliver Twist":TIT2$="David Copperfiled" TT1=3:TT2=11 GOSUB 30 139 AUTH$="Robert W. Service" TIT1$="The Cremation of Sam McGee":TIT2$="Carry On!" TT1=2:TT2=11 GOSUB 30 140 AUTH$="Henry Wadsworth Longfellow" TIT1$="Paul Revere's Ride":TIT2$="Evangeline" TT1=3:TT2=16 GOSUB 30 141 AUTH$="Sir Walter Scott" TIT1$="Ivanhoe":TIT2$="Lochinvar" TT1=4:TT2=11 GOSUB 30 142 AUTH$="Nicollo Machiavelli" TIT1$="The Prince":TIT2$="The Discourses" TT1=1:TT2=11 GOSUB 30 143 AUTH$="St. Augustine" TIT1$="Confessions":TIT2$="City of God" TT1=3:TT2=16 GOSUB 30 144 AUTH$="Bede the Venerable" TIT1$="History of England":TIT2$="Life of Cuthbert" TT1=2:TT2=15 GOSUB 30 145 AUTH$="Sir Arthur Conan Doyle" TIT1$="Adventures of Sherlock Holmes":TIT2$="A Study in Scarlet" TT1=5:TT2=12 GOSUB 30 146 AUTH$="Charles Dickins" TIT1$="A Christmas Carol":TIT2$="The Old Curiosity Shop" TT1=6:TT2=15 GOSUB 30 147 AUTH$="O. Henry" TIT1$="Ransom of Redchief":TIT2$="Gift of the Magi" TT1=5:TT2=15 GOSUB 30 148 AUTH$="Plato" TIT1$="The Republic":TIT2$="Laws" TT1=4:TT2=12 GOSUB 30 149 AUTH$="William Shakespeare" TIT1$="A Midsummer-night's Dream":TIT2$="A Comedy of Errors" TT1=5:TT2=12 GOSUB 30 150 AUTH$="Homer" TIT1$="Illiad":TIT2$="Oddessy" TT1=5:TT2=12 GOSUB 30 151 AUTH$="Charles Dickins" TIT1$="Great Expectations":TIT2$="A Tale of Two Cities" TT1=3:TT2=15 GOSUB 30 152 GOTO 101 1 AUTH$="" TIT1$="":TIT2$="" TT1=:TT2= GOSUB 30 INPUT v M=0 650 B=0 B=MOUSE(0) IF B=-1 THEN 655 ELSE 650 655 X=MOUSE(1) Y=MOUSE(2) M=M+1 CALL MOVETO(50,270) PRINT M,X,Y FOR DL=1 TO 2000:NEXT DL GOTO 650 700 CLS PRINT"" PRINT"" PRINT" "NOMEN1$" SCORE="SCORE1 PRINT"" PRINT"" PRINT" "NOMEN2$" SCORE ="SCORE2 PRINT"" PRINT"" PRINT" RECORD YOUR SCORES AND SUBMIT FOR EXTRA CREDIT." PRINT"" PRINT"" INPUT" WHEN FINISHED, PRESS THE 'RETURN' KEY.", V 750 END 700 \ No newline at end of file diff --git a/AUTHORTEST/athrsQUIZ GAME.TXT b/AUTHORTEST/athrsQUIZ GAME.TXT new file mode 100644 index 0000000000000000000000000000000000000000..61b3fad39ae87b641891967ecff405713d382520 GIT binary patch literal 10304 zcmdT~&2t>bbsti)v=l`x36PX1Q&JOxNFW))CM+p75+~YSEU-)LS9S)3m|JtFu{*}> z3^cO~5KbJyQ4%XkY$dTmsd&syi4ICtT%}6+kVC5CWBvdi6IW^@%2lpPin1%E{9aG@ zd;kcQiw{v17t=G{@Atmn>u&vGf8H>@aR0l^s0lOUj+L! z#J`Wh?}@_we`KHjmtjoP!^MZ+HJ>THWEiH2>1XKG8S|M}I_gDc&Qk~HF!iFS=}b!+ z@$jK-^IT?l{9kj!V;`9pOcTt+laGaJcv_M=cG)bRHce<$@_PUM4AYAG=^VL-ew-g} z6FG>ZsDDCVQ?NJl!~Z+BQpTMJDJ+J3_|8Fweu>IB{tr2@1FAm0mRH9AqIspNb2J%> zSHsI{nAl;e@E(I7{l_%>3AyE?h{wW*(#5359dxmn%;zxpeKYGg;5R!wCXEMMo{C*_ zDr?D)%%|k=sBdo``j!<7>o82$9sZVxoWx5aOw3>G4bb*8rLR6XG%zP8k~Bd!+GHfb zL1U5#4n-2L6pJ|r)*hQgt6UEe)cVVMeJUc>XGM&StVP^Ei2zecArbNc4txCnm&KsZ z^Z9fT594G5e=9zo{T$NlY_^DpDm8_2c4`=WOci^bmSUKuF;K=>D_RDN@o*u|%Sfn? z{Vkhmh6|M$_71ztKK*a@JSd+l)SIQ%>g?q1?A%|^P0gEAC}^zk^L;i~oHL8h&fi0k z`)Bjwu~YLVi>Fc;euqlI9g50F4C6@@s^!Mb$rLKg#fScV>3tgEOX2<-#{PN4_Z#dN zKb<=>zl6UZ&lP8Z@N@ysKbtE$W^r+T=>s-X8jl7+IAa(W)R!Nb#oPFje$Y#PY!?5X zKKwRYXLa^FSaOz@{B-WD26!9*iaSXERF=DwA1$$%z5UZr-TgO+r%xcaVZ2iKV20s8 zyH>Z@YN=Ue>sHlb?N;L^-c^}hw;LF*blXiiZsTQ_mDcTAyK8}ql3Fj9wp%fs<+@c_ zV64+9-DGu}t+(uYgWYVev$a-xBSUrp1Reze{CQc?DOZ`b-UTkOE2WOb8tuv&18?n> zm8(}PwJMEl20FA@a}SVz&x z4}eBb)vZ=rY@=@1B#{=WyS)O2l|qSia5a~qL2F6jwq0#@Y=E~}XWeG?7Us=o<`FGY z60R66(aN)vB6{wN=(>*IRZ* zRhMA?&$sqID$IpAq!%fqsVTlYqs^*J_x!c1R~cNS)oxZ>*JcglA_}}3OlD?KDP5SB6&wzeh`uPU^Y|)QLKSTQQW2(doM$aN~A`sE^@4svq&%Fn40x%31 zYk1l$BHMqUZAs{xiE~arWSv#TfrdWyAAkag7j2-7q@| zd^!E(%r9x@Lr_uh!|Te@Vj{!f zPnZo?2D93`^*70{`bM!dpNjvjMEnv`2UV$91?3hIIVS;#s22IfUxLVJL=ut7JS6rd z5_`o&SB>C~d%rIhaJMBi0b3kqBp&q>(2xwO||x7HqN+%@I4o zXRG{{CnBsrU9jzIlk-cqy*MdCX4U09YwSZ&n+p0mABu>r2;UtBpL*Z4OJ`Y*R^T25*AThtJkx0xghX{#u z^u`vRH{zaPHNnGCBGyz4b1Dl1jSdvdhU%qXsibQWTz7nz30CIW>b<$mFJLqw5Z#zm6&cz7W zSEc4b7TeMYqXlLUf+3Gs>9w)zb24m#WQ~VIj_)Gyg1*Z|0=6vJ4H3E{K1z{}as!k4tBYUAFPCvJ%_++!=QpK*l%#^k$u(m8Wh$$1*ipN0y6)WTLnA$(8p zO|~&`McMSk?&P7qL+QRR6VcMpmUv9GInMn=_0+ zVb+8Xg>7&r+6}_dfHlDHCITne1^RDkbP|UoAqHwL-=(aR;M2z&h#KA(tnBgLmS#Ry zw(^@?8hOqzwiN@7VC+VmHTfQ5yBCZoP=8h9HlTR~@CJe|HK=;o#H$0|pA!;_eJv;C zvUJc;@G;h1)esxpb27v$?vCrRWj6|L2?v4KOWpFQ06=Rq!LaZ8ZZ;tvm4H!MBLx^IU|2tN9qzL=KiG}acM=ntCCY?} zxhkAe&1%Sdy}>xmz6uOoSL!DK8|A=aZ)pg(KVY@7Pqunl3s$-nj9D4Ux#SGQFoBb< zGYa5j@SUZ%{_$U*g;gG_yxO% zkaJ#&0=KJ>D+4Oj5uC5L<;uGFk_PSI)h_AXLLEs_f;$cg8x5(4ts8jVI zXHI;)t*}boW+)tp7dohuzP}d*6itaS>&~7RX$`Kq$YHu~sDwcj;f3rQ%7;r`F1aDj z_p~uNN|@gtL2vbNhbU%}x5d37?~i@QO>oL^P;m>cjjU4R(gv|)N7ZlOd{g0&MOH%Y z_uPn;c~6R!r0rI)Gaj;b*ysK@bZn+;8$* z0v-o-gy^#1sll$IkR;)m{lXrgct0<0G202TGvbCFbFw1HN;n9NhNQtSYex) zpgTk8jg`mY7Nx4Pb{W)xo{LUqM4q~fYQjoGWQtyzx4U8|@W%4HOKk?}AVF18l9Ty@ zVf>zwS(eDA>%p8@l5|ICOr&%kJl_{l>Zlzaa>qr(*$ASv6;nAU=Q0-!<68=()Q1#KjImLaD#C9N}@tMTm-x~5AE8A?AV!qjD(tepgj z%||&(TNkCogQohn0&R%EC&^aOGzrQ=$u58_QicK@vRA|1Oj|$tQbLCwvT|@JapfEj zKJf<%D0Vy^sUFBMu4wrz!2yp3DiP_rJ7mkyWtxFiEafsVa>pBq>JI0qB~8EUZZi~b z%Iat|6Oe}Jqdk|kfMR)%)dJN$#mPe{E(eM2#vf|PBexqf8nniT*t;cQP2QtKleo6Z z@;R%Z@A)G|e071XEwIW!MA-Sop?XbIZll`^oZ$9eLY(YTh5k@aMld~Evef5}+Q%Rr z{ILSU;j^`XytONJov5rb2m{~kQBi~OTa;GQ^kelxu{)wbj(4W1m5ypfAo6z<80syO zWF2AQp+=#{p&h1SG__=^KU5oBUlyuPhSS@ZW<2lHFBl1$Wk4`giQbvyIPvDDh zDn`1fzU1^90((zlAxZXi2N?rpYln6Lek9P5Be|yOFm52ER@!0Aey+IX5(p6gL?I$Q zg_Jp1i<)&HCi%k(7`mR2b^t^8pxp85lHKJIHglLAW2n@ga~dS6x3nz}wIOMGk2feb z%$)ipMVJFIkqE<0*UMx>1(Xv8(e|fWeR1O5fbR%&1hV*KT05vN6vMcFQKyAHd9$}F zQX5uKZTDE)zm!O(!XXEULj7k7@PT`sBrrOB>@n0v5en>$yRMTWR?#Q)1q^VgPUeaW zBJjJ~VCY6DA)|&_YIE~~_R~734RDa5&4faR4rwRTQXS=g$Q|EP#L@Iou0fz;A$$#o z2v9{@w&2s9(50%bAt=PLx9J7rFv^_tsI-{V+ZPSvZ7l@0_N8%uOlg56Pqt_9?M+m9 zbQq~?S7>(wd#wg(Sv;!c#?ir_EBa;O2pNGlP&`69gaXK~X*Hpt(A$Tq-_I3bDkp?h z!L1$@@q><#OS&lef1w3}RZ0k;aY*5boW30FNzi2tik1-FAZoshQQBj9Xfr6cJ6UR7b!Q-m3+AQUnz=u7n?tkOU^h;tm!%t&X+`Z z)kotzLews!;mGv&u<}q~Lk2mkAzJJ-!yjcP2y;h4*RYNfds2_eQ$Pk+KV{x)0s9{qjG*gu8Qt2B!)y-yZy(&IE9@xO6RnsiBYTHPcp;@1BO zIp+h`G+#AwrGHM|rBCEVzq;fg&PXOAT`-RSkS?jzotgSGtM1EY)K#CnO_m4h>3vXs z#pT?J_%cXcAu+WE_d)qJOKJ@+Zrj~uy3^~%hxh6le7)SnZTSlBKC7?VUBq&?x?Im* qbSiQ$s{6T(8ZM|;>aDs}tKyRHL06z8_b2z?j&C9!fev6G<9`6D8_V(l literal 0 HcmV?d00001 diff --git a/CCA/CENT. AMERICA.TXT b/CCA/CENT. AMERICA.TXT new file mode 100644 index 0000000..dec9f6c --- /dev/null +++ b/CCA/CENT. AMERICA.TXT @@ -0,0 +1 @@ +10 CLS 12 VERS=0:BOBO=0:GPA=0:ZULU = 0 13 SECTION1=0:SECTION2=0:SECTION3=0:SECTION4=0:SECTION5=0:SECTION6=0 14 SECTION7=0:SECTION8=0:SECTION9=0:SECTION10=0:SECTION11=0:SECTION12=0 20 DIM MAP(5000):DIM ANSY(1000):DIM IC(50):DIM MTN(50):DIM SCN(5000) 21 DIM MG(500):DIM DOT(100):DIM HAT(500):DIM MEX(3000) 60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) 84 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126) 85 PSET(281,126):PSET(282,126):PSET(283,126):PSET(280,127):PSET(280,128):PSET(280,129):PSET(280,130):PSET(280,131):PSET(280,132):PSET(280,133):PSET(280,134):PSET(286,126):PSET(286,127):PSET(286,128):PSET(286,129):PSET(286,130):PSET(286,131):PSET(286,132) 86 PSET(286,133):PSET(286,134):PSET(289,126):PSET(290,126):PSET(291,126):PSET(292,126):PSET(293,126):PSET(288,127):PSET(288,128):PSET(288,129):PSET(288,130):PSET(288,131):PSET(288,132):PSET(288,133):PSET(289,134):PSET(289,134):PSET(290,134):PSET(291,134) 87 PSET(292,134):PSET(293,134):PSET(294,127):PSET(294,129):PSET(294,130):PSET(294,131):PSET(294,132):PSET(294,133):PSET(294,128):PSET(296,126):PSET(296,127):PSET(296,128):PSET(296,129):PSET(296,130):PSET(296,131):PSET(296,132):PSET(296,133):PSET(296,134) 88 PSET(296,134):PSET(297,128):PSET(298,129):PSET(299,130):PSET(300,131):PSET(301,132):PSET(302,126):PSET(302,127):PSET(302,128):PSET(302,129):PSET(302,130):PSET(302,131):PSET(302,132):PSET(302,133):PSET(302,134):PSET(305,126):PSET(306,126):PSET(307,126) 89 PSET(308,126):PSET(309,126):PSET(310,127):PSET(304,127):PSET(304,128):PSET(304,129):PSET(305,130):PSET(306,130):PSET(307,130):PSET(308,130):PSET(309,130):PSET(310,131):PSET(310,132):PSET(310,133):PSET(309,134):PSET(308,134):PSET(307,134):PSET(306,134) \ No newline at end of file diff --git a/COSU/COSU.TXT b/COSU/COSU.TXT new file mode 100644 index 0000000..d2906cf --- /dev/null +++ b/COSU/COSU.TXT @@ -0,0 +1 @@ +5 DIM GP$(75):DIM SP$(75):DIM IP$(75) FOR N=1 TO 75 GP$(N)="" NEXT N FOR N=1 TO 75 SP$(N)="" NEXT N 15 WAVE 0, SIN 10 SOUND 524,6,80:FOR DL=1 TO 1100:NEXT DL SOUND 392,3,50:FOR DL=1 TO 500:NEXT DL SOUND 330,2,30:FOR DL=1 TO 300:NEXT DL SOUND 262,3,10:FOR DL=1 TO 700:NEXT DL SOUND 330,2,10:FOR DL=1 TO 300:NEXT DL SOUND 444,2,80:FOR DL=1 TO 300:NEXT DL SOUND 392,2,10:FOR DL=1 TO 500:NEXT DL SOUND 524,3,80:FOR DL=1 TO 800:NEXT DL SOUND 392,8,50:FOR DL=1 TO 1400:NEXT DL SOUND 524,12,180:FOR DL=1 TO 2400:NEXT DL 12 CLS:PRINT"" PRINT"" INPUT" WHAT IS YOUR NAME"; NOMEN$ IF NOMEN$="" THEN SOUND 1500,1,100:FOR DL=1 TO 200:NEXT DL:GOTO 12 PRINT"" PRINT" THANK YOU." FOR DL=1 TO 3000:NEXT DL 15 CLS PRINT"" PRINT" FIRST THING YOU WILL BE ASKED IS TO INPUT A LIST OF" PRINT" ADJECTIVES YOU WANT TO DRILL ON." PRINT" MINIMUM NUMBER IS 10; MAXIMUM IS 70" PRINT"" PRINT" YOU WILL THEN BE PRESENTED AN ADJECTIVE." PRINT" YOU MUST TELL THE COMPARATIVE AND SUPERLATIVE." PRINT"" PRINT" IF YOU ARE CORRECT, FINE; BUT IF YOU ARE WRONG" PRINT" THAT WRONG ONE WILL BE SAVED AND PRESENTED" PRINT" AGAIN AT A LATER TIME IN THE DRILL." PRINT"" PRINT" SUCCESS IN THE DRILL IS HAVING NONE LEFT TO DO." PRINT"" PRINT" WHEN YOU UNDERSTAND THIS AND ARE READY TO GO, PRESS 'RETURN'." INPUT V FOR DL=1 TO 200:NEXT DL AM=0:TRY=0:CORRECT=0:SCORE=0 CHK=1 MES1$="INPUT YOUR FIRST CHOICE OF ADJECTIVE." MES2$="INPUT ANOTHER ADJECTIVE" MES3$="INPUT ANOTHER ADJECTIVE. IF YOU HAVE NO MORE, INPUT 'K'." 20 CLS WHILE CHK=1 AM=AM+1 IF AM=1 THEN MES$=MES1$ IF AM>1 AND AM<11 THEN MES$=MES2$ IF AM>10 THEN MES$=MES3$ IF AM=71 THEN CHK=1 CALL MOVETO(20,50):PRINT MES$ SOUND 523,1,50:FOR DL=1 TO 200:NEXT DL CALL MOVETO(50,80):INPUT GP$(AM) AN=AM-1 FOR Q=1 TO AN IF GP$(AM)=IP$(Q) THEN CALL MOVETO(20,100):PRINT"YOU DID THAT ALREADY, TRY ANOTHER":FOR DL=1 TO 2000:NEXT DL:AM=AM-1:KL=1 NEXT Q IF GP$(AM)="K" AND AM>10 THEN CHK=0:GOTO 25 21 READ P$,C$,S$ IF P$="YOU PUT IN SOMETHING THAT IS NOT ON THE LIST" THEN 24 IF P$=GP$(AM) THEN 25 ELSE 21 24 CALL MOVETO(20,180):PRINT P$ AM=AM-1 SOUND 50,1,100:FOR DL=1 TO 2000:NEXT DL 25 IP$(AM)=GP$(AM) RESTORE 100 CLS WEND MM=0 F=AM-1 26 FOR MM=1 TO AM SP$(MM)=GP$(MM) NEXT MM MM=0 GOTO 28 27 FOR MM=1 TO AM GP$(MM)=SP$(MM) NEXT MM MM=0 28 MM=MM+1 IF GP$(MM)="" AND MM A$(NN) THEN BEEP:FOR DLAY=1 TO 2000:NEXT DLAY:CALL MOVETO(X+100,Y+30):PRINT A$(N):TRY=TRY+1:GOTO 370 351 SOUND 1100,1:FOR DLAY=1 TO 2000:NEXT DLAY 353 COR=COR+1:TRY=TRY+1 355 LINE(X,Y)-(X+200,Y+30),30,BF:PUT(X,Y),ANS 370 NN=NN+1 375 NEXT Y 380 IF A$(6)="O" THEN 390 IF X=20 THEN X=250:GOTO 345 390 SOUND 300,2,30:FOR DL=1 TO 400:NEXT DL SOUND 220,2,30:FOR DL=1 TO 400:NEXT DL SOUND 150,3,30:FOR DL=1 TO 600:NEXT DL CALL MOVETO(20,260):PRINT"TO GO TO NEXT WORD, PRESS '2', TO REPEAT SAME WORD, PRESS '1'." 391 RY$="" RY$=INKEY$ IF RY$="1" THEN RPT=RPT+1:GOTO 322 IF RY$="2" THEN 400 GOTO 391 400 SCORE = INT((COR/TRY) *100) 405 GOTO 300 450 CLS:PRINT"":PRINT"" PRINT" AT THIS TIME YOU HAVE THE FOLLOWING CHOICES:" PRINT"" PRINT,"1. QUIT--GO TO MAIN MENU" PRINT,"2. CONTINUE" PRINT"" PRINT" PRESS THE NUMBER KEY FOR YOUR CHOICE" 457 PRINT"" PRINT" TO GET SOME CREDIT FOR THIS, GET THE TEACHER TO LOOK AT" PRINT" THIS BEFORE QUITTING. IF CONTINUING, JUST GO ON." PRINT" "NOMEN$" GOT "SCORE" % ON "ITEM" ITEMS" PRINT" DECLENSION OF NOUNS" PRINT" HE DID THE FOLLOWING SECTIONS:" PRINT" "S(1) S(2) S(3) S(4) S(5) S(6) S(7) S(8) S(9) S(10) PRINT" "S(11) S(12) S(13) S(14) S(15) S(16) S(17) S(18) S(19) S(20) PRINT" AND REPEATED ANY "RPT" TIMES." 462 CHC$ = "" CHC$ = INKEY$ IF CHC$ = "1" THEN RUN "PARTIBUS" IF CHC$ = "2" THEN RESTORE:GOTO 90 470 GOTO 462 \ No newline at end of file diff --git a/DIVIDE/DIVIDE.TXT b/DIVIDE/DIVIDE.TXT new file mode 100644 index 0000000..f7010b7 --- /dev/null +++ b/DIVIDE/DIVIDE.TXT @@ -0,0 +1 @@ +3 DIM WF%(256) FOR I = 0 TO 127 WF%(I)=127 WF%(255-I)=-128 NEXT I WAVE 0,WF% 50 SOUND 175,2,200 60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121):FOR DL=1 TO 100:NEXT DL:SOUND 131,2,70 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 73 SOUND 175,2,70 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 82 SOUND 220,2,200 83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) 84 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126) 85 PSET(281,126):PSET(282,126):PSET(283,126):PSET(280,127):PSET(280,128):PSET(280,129):PSET(280,130):PSET(280,131):PSET(280,132):PSET(280,133):PSET(280,134):PSET(286,126):PSET(286,127):PSET(286,128):PSET(286,129):PSET(286,130):PSET(286,131):PSET(286,132) 86 PSET(286,133):PSET(286,134):PSET(289,126):PSET(290,126):PSET(291,126):PSET(292,126):PSET(293,126):PSET(288,127):PSET(288,128):PSET(288,129):PSET(288,130):PSET(288,131):PSET(288,132):PSET(288,133):PSET(289,134):PSET(289,134):PSET(290,134):PSET(291,134) 87 PSET(292,134):PSET(293,134):PSET(294,127):PSET(294,129):PSET(294,130):PSET(294,131):PSET(294,132):PSET(294,133):PSET(294,128):PSET(296,126):PSET(296,127):PSET(296,128):PSET(296,129):PSET(296,130):PSET(296,131):PSET(296,132):PSET(296,133):PSET(296,134) 88 PSET(296,134):PSET(297,128):PSET(298,129):PSET(299,130):PSET(300,131):PSET(301,132):PSET(302,126):PSET(302,127):PSET(302,128):PSET(302,129):PSET(302,130):PSET(302,131):PSET(302,132):PSET(302,133):PSET(302,134):PSET(305,126):PSET(306,126):PSET(307,126) 89 PSET(308,126):PSET(309,126):PSET(310,127):PSET(304,127):PSET(304,128):PSET(304,129):PSET(305,130):PSET(306,130):PSET(307,130):PSET(308,130):PSET(309,130):PSET(310,131):PSET(310,132):PSET(310,133):PSET(309,134):PSET(308,134):PSET(307,134):PSET(306,134) 90 PSET(305,134):PSET(304,133):PSET(230,140):PSET(230,141):PSET(230,142):PSET(230,143):PSET(230,144):PSET(230,145):PSET(230,146):PSET(230,147):PSET(230,148):PSET(231,140):PSET(232,140):PSET(233,140):PSET(234,140):PSET(235,140):PSET(236,141):PSET(236,142) 91 PSET(236,143):PSET(235,144):PSET(234,144):PSET(233,144):PSET(232,144):PSET(231,144):PSET(238,140):PSET(238,141):PSET(238,142):PSET(238,143):PSET(238,144):PSET(238,145):PSET(238,146):PSET(238,147):PSET(238,148):PSET(239,140):PSET(240,140):PSET(241,140) 91 SOUND 175,2,70 92 PSET(242,140):PSET(243,140):PSET(244,141):PSET(244,142):PSET(244,143):PSET(244,144):PSET(243,144):PSET(242,144):PSET(241,144):PSET(240,144):PSET(239,144):PSET(242,145):PSET(243,146):PSET(243,147):PSET(244,148):PSET(246,140):PSET(247,140):PSET(248,140) 93 PSET(249,140):PSET(250,140):PSET(251,140):PSET(252,140):PSET(246,141):PSET(246,142):PSET(246,143):PSET(246,144):PSET(246,145):PSET(246,146):PSET(246,147):PSET(246,148):PSET(247,148):PSET(248,148):PSET(249,148):PSET(250,148):PSET(251,148):PSET(252,148) 94 PSET(245,144):PSET(246,144):PSET(247,144):PSET(248,144):PSET(249,144):PSET(250,144):PSET(255,140):PSET(256,140):PSET(257,140):PSET(258,140):PSET(259,140):PSET(260,141):PSET(254,141):PSET(254,142):PSET(254,143):PSET(255,144):PSET(256,144):PSET(257,144) 95 PSET(258,144):PSET(259,144):PSET(260,145):PSET(260,147):PSET(259,148):PSET(258,148):PSET(257,148):PSET(256,148):PSET(255,148):PSET(254,147):PSET(263,140):PSET(264,140):PSET(262,140):PSET(265,140):PSET(266,140):PSET(267,140):PSET(268,140):PSET(262,141) 96 PSET(262,142):PSET(262,143):PSET(262,144):PSET(262,145):PSET(262,146):PSET(262,147):PSET(262,148):PSET(263,148):PSET(265,148):PSET(266,148):PSET(267,148):PSET(268,148):PSET(263,144):PSET(264,144):PSET(265,144):PSET(266,144):PSET(270,140):PSET(270,141) 97 PSET(270,142):PSET(270,143):PSET(270,144):PSET(270,145):PSET(270,146):PSET(270,147):PSET(270,148):PSET(271,142):PSET(272,143):PSET(273,144):PSET(274,145):PSET(275,146):PSET(276,140):PSET(276,142):PSET(276,143):PSET(276,144):PSET(276,145):PSET(276,146) 98 PSET(276,147):PSET(276,148):PSET(276,141):PSET(278,140):PSET(279,140):PSET(280,140):PSET(281,140):PSET(282,140):PSET(283,140):PSET(284,140):PSET(281,141):PSET(281,142):PSET(281,143):PSET(281,144):PSET(281,145):PSET(281,146):PSET(281,147):PSET(281,148) 99 PSET(287,140):PSET(288,140):PSET(289,140):PSET(290,140):PSET(291,140):PSET(292,141):PSET(286,141):PSET(286,142):PSET(286,143):PSET(287,144):PSET(288,144):PSET(289,144):PSET(290,144):PSET(291,144):PSET(292,145):PSET(292,146):PSET(292,147):PSET(291,148) 100 PSET(290,148):PSET(289,148):PSET(288,148):PSET(287,148):PSET(286,147) 101 SOUND 220,2,70 133 LINE (380,270)-(380,274):LINE(381,269)-(384,269):LINE(385,270)-(385,274):LINE(380,275)-(384,275):PSET(382,271):PSET(383,271):PSET(382,272):PSET(382,273):PSET(283,273):LINE(388,270)-(388,274):PSET(390,271):PSET(391,270):PSET(391,272):PSET(392,270) 134 PSET(393,271):PSET(393,272):PSET(392,273):PSET(391,274):PSET(395,271):PSET(395,273):PSET(396,270):PSET(396,272):PSET(396,274):PSET(397,271):PSET(397,273):PSET(399,271):PSET(400,270):PSET(400,272):PSET(401,270):PSET(401,273) 135 PSET(401,272):PSET(401,273):PSET(400,274):PSET(402,271):PSET(402,272):PSET(383,273) 140 FOR DLAY = 1 TO 150:NEXT DLAY 141 SOUND 262,2,200:FOR DLAY=1 TO 300:NEXT DLAY \ No newline at end of file diff --git a/DPN/DPN.TXT b/DPN/DPN.TXT new file mode 100644 index 0000000..3439a65 --- /dev/null +++ b/DPN/DPN.TXT @@ -0,0 +1 @@ +10 CLS 20 SCORE = 0:ITEM=0:TRY=0:COR=0:SK=0 30 DIM ANS(1000):DIM A$(10):DIM B$(10) 90 CLS:PRINT"":PRINT"" 91 PRINT" Please type in your name and press the ENTER key." 92 PRINT"":PRINT"" \ No newline at end of file diff --git a/EXACTA/EXACTA.TXT b/EXACTA/EXACTA.TXT new file mode 100644 index 0000000..60f6555 --- /dev/null +++ b/EXACTA/EXACTA.TXT @@ -0,0 +1 @@ +3 DIM WF%(256) FOR I= 0 TO 127 WF%(I)=127 WF%(255-I)=-128 NEXT I WAVE 0,WF% 60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) 84 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126) 85 PSET(281,126):PSET(282,126):PSET(283,126):PSET(280,127):PSET(280,128):PSET(280,129):PSET(280,130):PSET(280,131):PSET(280,132):PSET(280,133):PSET(280,134):PSET(286,126):PSET(286,127):PSET(286,128):PSET(286,129):PSET(286,130):PSET(286,131):PSET(286,132) 86 PSET(286,133):PSET(286,134):PSET(289,126):PSET(290,126):PSET(291,126):PSET(292,126):PSET(293,126):PSET(288,127):PSET(288,128):PSET(288,129):PSET(288,130):PSET(288,131):PSET(288,132):PSET(288,133):PSET(289,134):PSET(289,134):PSET(290,134):PSET(291,134) 87 PSET(292,134):PSET(293,134):PSET(294,127):PSET(294,129):PSET(294,130):PSET(294,131):PSET(294,132):PSET(294,133):PSET(294,128):PSET(296,126):PSET(296,127):PSET(296,128):PSET(296,129):PSET(296,130):PSET(296,131):PSET(296,132):PSET(296,133):PSET(296,134) 88 PSET(296,134):PSET(297,128):PSET(298,129):PSET(299,130):PSET(300,131):PSET(301,132):PSET(302,126):PSET(302,127):PSET(302,128):PSET(302,129):PSET(302,130):PSET(302,131):PSET(302,132):PSET(302,133):PSET(302,134):PSET(305,126):PSET(306,126):PSET(307,126) 89 PSET(308,126):PSET(309,126):PSET(310,127):PSET(304,127):PSET(304,128):PSET(304,129):PSET(305,130):PSET(306,130):PSET(307,130):PSET(308,130):PSET(309,130):PSET(310,131):PSET(310,132):PSET(310,133):PSET(309,134):PSET(308,134):PSET(307,134):PSET(306,134) 90 PSET(305,134):PSET(304,133):PSET(230,140):PSET(230,141):PSET(230,142):PSET(230,143):PSET(230,144):PSET(230,145):PSET(230,146):PSET(230,147):PSET(230,148):PSET(231,140):PSET(232,140):PSET(233,140):PSET(234,140):PSET(235,140):PSET(236,141):PSET(236,142) 91 PSET(236,143):PSET(235,144):PSET(234,144):PSET(233,144):PSET(232,144):PSET(231,144):PSET(238,140):PSET(238,141):PSET(238,142):PSET(238,143):PSET(238,144):PSET(238,145):PSET(238,146):PSET(238,147):PSET(238,148):PSET(239,140):PSET(240,140):PSET(241,140) 92 PSET(242,140):PSET(243,140):PSET(244,141):PSET(244,142):PSET(244,143):PSET(244,144):PSET(243,144):PSET(242,144):PSET(241,144):PSET(240,144):PSET(239,144):PSET(242,145):PSET(243,146):PSET(243,147):PSET(244,148):PSET(246,140):PSET(247,140):PSET(248,140) 93 PSET(249,140):PSET(250,140):PSET(251,140):PSET(252,140):PSET(246,141):PSET(246,142):PSET(246,143):PSET(246,144):PSET(246,145):PSET(246,146):PSET(246,147):PSET(246,148):PSET(247,148):PSET(248,148):PSET(249,148):PSET(250,148):PSET(251,148):PSET(252,148) 94 PSET(245,144):PSET(246,144):PSET(247,144):PSET(248,144):PSET(249,144):PSET(250,144):PSET(255,140):PSET(256,140):PSET(257,140):PSET(258,140):PSET(259,140):PSET(260,141):PSET(254,141):PSET(254,142):PSET(254,143):PSET(255,144):PSET(256,144):PSET(257,144) 95 PSET(258,144):PSET(259,144):PSET(260,145):PSET(260,147):PSET(259,148):PSET(258,148):PSET(257,148):PSET(256,148):PSET(255,148):PSET(254,147):PSET(263,140):PSET(264,140):PSET(262,140):PSET(265,140):PSET(266,140):PSET(267,140):PSET(268,140):PSET(262,141) 96 PSET(262,142):PSET(262,143):PSET(262,144):PSET(262,145):PSET(262,146):PSET(262,147):PSET(262,148):PSET(263,148):PSET(265,148):PSET(266,148):PSET(267,148):PSET(268,148):PSET(263,144):PSET(264,144):PSET(265,144):PSET(266,144):PSET(270,140):PSET(270,141) 97 PSET(270,142):PSET(270,143):PSET(270,144):PSET(270,145):PSET(270,146):PSET(270,147):PSET(270,148):PSET(271,142):PSET(272,143):PSET(273,144):PSET(274,145):PSET(275,146):PSET(276,140):PSET(276,142):PSET(276,143):PSET(276,144):PSET(276,145):PSET(276,146) 98 PSET(276,147):PSET(276,148):PSET(276,141):PSET(278,140):PSET(279,140):PSET(280,140):PSET(281,140):PSET(282,140):PSET(283,140):PSET(284,140):PSET(281,141):PSET(281,142):PSET(281,143):PSET(281,144):PSET(281,145):PSET(281,146):PSET(281,147):PSET(281,148) 99 PSET(287,140):PSET(288,140):PSET(289,140):PSET(290,140):PSET(291,140):PSET(292,141):PSET(286,141):PSET(286,142):PSET(286,143):PSET(287,144):PSET(288,144):PSET(289,144):PSET(290,144):PSET(291,144):PSET(292,145):PSET(292,146):PSET(292,147):PSET(291,148) 100 PSET(290,148):PSET(289,148):PSET(288,148):PSET(287,148):PSET(286,147) 133 LINE (380,270)-(380,274):LINE(381,269)-(384,269):LINE(385,270)-(385,274):LINE(380,275)-(384,275):PSET(382,271):PSET(383,271):PSET(382,272):PSET(382,273):PSET(283,273):LINE(388,270)-(388,274):PSET(390,271):PSET(391,270):PSET(391,272):PSET(392,270) 134 PSET(393,271):PSET(393,272):PSET(392,273):PSET(391,274):PSET(395,271):PSET(395,273):PSET(396,270):PSET(396,272):PSET(396,274):PSET(397,271):PSET(397,273):PSET(399,271):PSET(400,270):PSET(400,272):PSET(401,270):PSET(401,273) 135 PSET(401,272):PSET(401,273):PSET(400,274):PSET(402,271):PSET(402,272):PSET(383,273) 140 FOR DLAY = 1 TO 1500:NEXT DLAY 200 GOTO 201 201 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3 202 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6 203 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5 250 SOUND AM,7:SOUND 0,1:SOUND CT,5:SOUND 0,2:SOUND AM,3:SOUND 0,1:SOUND FM,5:SOUND 0,1:SOUND EM,3:SOUND 0,1:SOUND DM,3:SOUND 0,1:SOUND EM,6:SOUND 0,1:SOUND DM,3:SOUND 0,1 253 SOUND CM,3:SOUND 0,4:SOUND CHM,5:SOUND 0,1:SOUND DM,3:SOUND 0,2:SOUND A,5:SOUND 0,1:SOUND GH,3:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND CM,6:SOUND 0,3 255 SOUND A,5:SOUND 0,1:SOUND G,3:SOUND 0,2:SOUND F,5:SOUND 0,1:SOUND G,5:SOUND 0,2:SOUND A,5:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND FM,5:SOUND 0,1 259 SOUND DM,3:SOUND 0,1:SOUND CM,3:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND EM,4:SOUND 0,1:SOUND GM,4:SOUND 0,1:SOUND EM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND EM,3:SOUND 0,1:SOUND GM,6:SOUND 0,1:SOUND CM,3:SOUND 0,4 262 SOUND CT,6:SOUND 0,1:SOUND AM,4:SOUND 0,1:SOUND FM,4:SOUND 0,1:SOUND EM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND EM,6:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,5:SOUND 0,1:CLS 265 SOUND CHM,7:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND AM,4:SOUND 0,1:SOUND AHM,3:SOUND 0,1:SOUND AM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1 266 SOUND DM,3:SOUND EM,3:SOUND FM,3:SOUND DM,3:SOUND EM,3:SOUND FM,3:SOUND DM,3:SOUND EM,3:SOUND FM,3:SOUND 0,1:SOUND FM,4:SOUND 0,1:SOUND GM,4:SOUND 0,1:SOUND AM,4:SOUND 0,1:SOUND CT,7:SOUND 0,1 269 SOUND AM,4:SOUND 0,1:SOUND GM,1:SOUND AM,1:SOUND GM,1:SOUND AM,1:SOUND GM,1:SOUND AM,1:SOUND GM,1:SOUND AM,1:SOUND 0,1:SOUND FM,3:SOUND 0,1:SOUND GM,3:SOUND 0,1:SOUND FM,10 300 LINE(175,100)-(150,100):LINE-(150,50):LINE-(175,50):LINE(150,75)-(170,75):LINE(188,50)-(213,100):LINE(188,100)-(213,50):LINE(215,100)-(237,50):LINE-(259,100):LINE(226,75)-(248,75) 301 CIRCLE(285,75),25,,1,5.2:LINE(300,50)-(325,50):LINE(313,50)-(313,100):LINE(325,100)-(347,50):LINE-(369,100):LINE(336,75)-(358,75) 305 LINE(100,150)-(122,200):LINE-(144,150):LINE(175,200)-(150,200):LINE-(150,150):LINE-(175,150):LINE(150,175)-(170,175):LINE(185,200)-(185,150):LINE-(212,150):LINE-(215,153):LINE-(215,172):LINE-(212,175):LINE-(185,175):LINE(190,175)-(215,200) 308 LINE(247,175)-(250,178):LINE-(250,197):LINE-(247,200):LINE-(225,200):LINE-(225,150):LINE-(247,150):LINE-(250,153):LINE-(250,172):LINE-(247,175):LINE-(225,175):CIRCLE(275,175),25 313 LINE(300,200)-(300,150):LINE-(327,150):LINE-(330,153):LINE-(330,172):LINE-(327,175):LINE-(300,175):LINE(305,175)-(330,200):LINE(337,150)-(337,200):LINE-(365,195):LINE(365,150)-(365,200) 315 LINE(375,200)-(375,150):LINE-(395,170):LINE-(415,150):LINE-(415,200) 320 FOR DLAY = 1 TO 1500:NEXT DLAY 325 CLS 330 PRINT"":PRINT"" 331 PRINT" Please press the number key indicating your grade level or" 333 PRINT" the grade level of vocabulary you wish to drill on--" 334 PRINT"":PRINT" 3, 4, 5, 6, 7, 8, 9=VIZ-ED SET 335 PRINT"":PRINT" NOTE: numbers 1 and 2 access special vocabulary lists." 337 PRINT" 1 gets HENLE'S FIRST, PART 1, 2 gets HENLE'S FIRST, PART2" \ No newline at end of file diff --git a/FLASHCARDS/FLASH CARDS FAST.TXT b/FLASHCARDS/FLASH CARDS FAST.TXT new file mode 100644 index 0000000..f107cea --- /dev/null +++ b/FLASHCARDS/FLASH CARDS FAST.TXT @@ -0,0 +1 @@ +60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) \ No newline at end of file diff --git a/FLASHCARDS/FLASH CARDSREGULAR.TXT b/FLASHCARDS/FLASH CARDSREGULAR.TXT new file mode 100644 index 0000000..47acd7a --- /dev/null +++ b/FLASHCARDS/FLASH CARDSREGULAR.TXT @@ -0,0 +1 @@ +60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) 84 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126) 85 PSET(281,126):PSET(282,126):PSET(283,126):PSET(280,127):PSET(280,128):PSET(280,129):PSET(280,130):PSET(280,131):PSET(280,132):PSET(280,133):PSET(280,134):PSET(286,126):PSET(286,127):PSET(286,128):PSET(286,129):PSET(286,130):PSET(286,131):PSET(286,132) 86 PSET(286,133):PSET(286,134):PSET(289,126):PSET(290,126):PSET(291,126):PSET(292,126):PSET(293,126):PSET(288,127):PSET(288,128):PSET(288,129):PSET(288,130):PSET(288,131):PSET(288,132):PSET(288,133):PSET(289,134):PSET(289,134):PSET(290,134):PSET(291,134) 87 PSET(292,134):PSET(293,134):PSET(294,127):PSET(294,129):PSET(294,130):PSET(294,131):PSET(294,132):PSET(294,133):PSET(294,128):PSET(296,126):PSET(296,127):PSET(296,128):PSET(296,129):PSET(296,130):PSET(296,131):PSET(296,132):PSET(296,133):PSET(296,134) 88 PSET(296,134):PSET(297,128):PSET(298,129):PSET(299,130):PSET(300,131):PSET(301,132):PSET(302,126):PSET(302,127):PSET(302,128):PSET(302,129):PSET(302,130):PSET(302,131):PSET(302,132):PSET(302,133):PSET(302,134):PSET(305,126):PSET(306,126):PSET(307,126) 89 PSET(308,126):PSET(309,126):PSET(310,127):PSET(304,127):PSET(304,128):PSET(304,129):PSET(305,130):PSET(306,130):PSET(307,130):PSET(308,130):PSET(309,130):PSET(310,131):PSET(310,132):PSET(310,133):PSET(309,134):PSET(308,134):PSET(307,134):PSET(306,134) 90 PSET(305,134):PSET(304,133):PSET(230,140):PSET(230,141):PSET(230,142):PSET(230,143):PSET(230,144):PSET(230,145):PSET(230,146):PSET(230,147):PSET(230,148):PSET(231,140):PSET(232,140):PSET(233,140):PSET(234,140):PSET(235,140):PSET(236,141):PSET(236,142) 91 PSET(236,143):PSET(235,144):PSET(234,144):PSET(233,144):PSET(232,144):PSET(231,144):PSET(238,140):PSET(238,141):PSET(238,142):PSET(238,143):PSET(238,144):PSET(238,145):PSET(238,146):PSET(238,147):PSET(238,148):PSET(239,140):PSET(240,140):PSET(241,140) 92 PSET(242,140):PSET(243,140):PSET(244,141):PSET(244,142):PSET(244,143):PSET(244,144):PSET(243,144):PSET(242,144):PSET(241,144):PSET(240,144):PSET(239,144):PSET(242,145):PSET(243,146):PSET(243,147):PSET(244,148):PSET(246,140):PSET(247,140):PSET(248,140) \ No newline at end of file diff --git a/FLASHCARDS/FD DECS.TXT b/FLASHCARDS/FD DECS.TXT new file mode 100644 index 0000000..302d420 --- /dev/null +++ b/FLASHCARDS/FD DECS.TXT @@ -0,0 +1 @@ +3 DIM WF%(256) FOR I = 0 TO 127 WF%(I)= 127 WF%(255-I)=-128 NEXT I WAVE 0,WF% 60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) 84 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126) 85 PSET(281,126):PSET(282,126):PSET(283,126):PSET(280,127):PSET(280,128):PSET(280,129):PSET(280,130):PSET(280,131):PSET(280,132):PSET(280,133):PSET(280,134):PSET(286,126):PSET(286,127):PSET(286,128):PSET(286,129):PSET(286,130):PSET(286,131):PSET(286,132) 86 PSET(286,133):PSET(286,134):PSET(289,126):PSET(290,126):PSET(291,126):PSET(292,126):PSET(293,126):PSET(288,127):PSET(288,128):PSET(288,129):PSET(288,130):PSET(288,131):PSET(288,132):PSET(288,133):PSET(289,134):PSET(289,134):PSET(290,134):PSET(291,134) 87 PSET(292,134):PSET(293,134):PSET(294,127):PSET(294,129):PSET(294,130):PSET(294,131):PSET(294,132):PSET(294,133):PSET(294,128):PSET(296,126):PSET(296,127):PSET(296,128):PSET(296,129):PSET(296,130):PSET(296,131):PSET(296,132):PSET(296,133):PSET(296,134) 88 PSET(296,134):PSET(297,128):PSET(298,129):PSET(299,130):PSET(300,131):PSET(301,132):PSET(302,126):PSET(302,127):PSET(302,128):PSET(302,129):PSET(302,130):PSET(302,131):PSET(302,132):PSET(302,133):PSET(302,134):PSET(305,126):PSET(306,126):PSET(307,126) 89 PSET(308,126):PSET(309,126):PSET(310,127):PSET(304,127):PSET(304,128):PSET(304,129):PSET(305,130):PSET(306,130):PSET(307,130):PSET(308,130):PSET(309,130):PSET(310,131):PSET(310,132):PSET(310,133):PSET(309,134):PSET(308,134):PSET(307,134):PSET(306,134) 90 PSET(305,134):PSET(304,133):PSET(230,140):PSET(230,141):PSET(230,142):PSET(230,143):PSET(230,144):PSET(230,145):PSET(230,146):PSET(230,147):PSET(230,148):PSET(231,140):PSET(232,140):PSET(233,140):PSET(234,140):PSET(235,140):PSET(236,141):PSET(236,142) 91 PSET(236,143):PSET(235,144):PSET(234,144):PSET(233,144):PSET(232,144):PSET(231,144):PSET(238,140):PSET(238,141):PSET(238,142):PSET(238,143):PSET(238,144):PSET(238,145):PSET(238,146):PSET(238,147):PSET(238,148):PSET(239,140):PSET(240,140):PSET(241,140) 92 PSET(242,140):PSET(243,140):PSET(244,141):PSET(244,142):PSET(244,143):PSET(244,144):PSET(243,144):PSET(242,144):PSET(241,144):PSET(240,144):PSET(239,144):PSET(242,145):PSET(243,146):PSET(243,147):PSET(244,148):PSET(246,140):PSET(247,140):PSET(248,140) 93 PSET(249,140):PSET(250,140):PSET(251,140):PSET(252,140):PSET(246,141):PSET(246,142):PSET(246,143):PSET(246,144):PSET(246,145):PSET(246,146):PSET(246,147):PSET(246,148):PSET(247,148):PSET(248,148):PSET(249,148):PSET(250,148):PSET(251,148):PSET(252,148) 94 PSET(245,144):PSET(246,144):PSET(247,144):PSET(248,144):PSET(249,144):PSET(250,144):PSET(255,140):PSET(256,140):PSET(257,140):PSET(258,140):PSET(259,140):PSET(260,141):PSET(254,141):PSET(254,142):PSET(254,143):PSET(255,144):PSET(256,144):PSET(257,144) 95 PSET(258,144):PSET(259,144):PSET(260,145):PSET(260,147):PSET(259,148):PSET(258,148):PSET(257,148):PSET(256,148):PSET(255,148):PSET(254,147):PSET(263,140):PSET(264,140):PSET(262,140):PSET(265,140):PSET(266,140):PSET(267,140):PSET(268,140):PSET(262,141) 96 PSET(262,142):PSET(262,143):PSET(262,144):PSET(262,145):PSET(262,146):PSET(262,147):PSET(262,148):PSET(263,148):PSET(265,148):PSET(266,148):PSET(267,148):PSET(268,148):PSET(263,144):PSET(264,144):PSET(265,144):PSET(266,144):PSET(270,140):PSET(270,141) 97 PSET(270,142):PSET(270,143):PSET(270,144):PSET(270,145):PSET(270,146):PSET(270,147):PSET(270,148):PSET(271,142):PSET(272,143):PSET(273,144):PSET(274,145):PSET(275,146):PSET(276,140):PSET(276,142):PSET(276,143):PSET(276,144):PSET(276,145):PSET(276,146) 98 PSET(276,147):PSET(276,148):PSET(276,141):PSET(278,140):PSET(279,140):PSET(280,140):PSET(281,140):PSET(282,140):PSET(283,140):PSET(284,140):PSET(281,141):PSET(281,142):PSET(281,143):PSET(281,144):PSET(281,145):PSET(281,146):PSET(281,147):PSET(281,148) 99 PSET(287,140):PSET(288,140):PSET(289,140):PSET(290,140):PSET(291,140):PSET(292,141):PSET(286,141):PSET(286,142):PSET(286,143):PSET(287,144):PSET(288,144):PSET(289,144):PSET(290,144):PSET(291,144):PSET(292,145):PSET(292,146):PSET(292,147):PSET(291,148) 100 PSET(290,148):PSET(289,148):PSET(288,148):PSET(287,148):PSET(286,147) 133 LINE (380,270)-(380,274):LINE(381,269)-(384,269):LINE(385,270)-(385,274):LINE(380,275)-(384,275):PSET(382,271):PSET(383,271):PSET(382,272):PSET(382,273):PSET(283,273):LINE(388,270)-(388,274):PSET(390,271):PSET(391,270):PSET(391,272):PSET(392,270) 134 PSET(393,271):PSET(393,272):PSET(392,273):PSET(391,274):PSET(395,271):PSET(395,273):PSET(396,270):PSET(396,272):PSET(396,274):PSET(397,271):PSET(397,273):PSET(399,271):PSET(400,270):PSET(400,272):PSET(401,270):PSET(401,273) 135 PSET(401,272):PSET(401,273):PSET(400,274):PSET(402,271):PSET(402,272):PSET(383,273) 140 FOR DLAY = 1 TO 3000:NEXT DLAY 150 CLS 160 FOR MUS=1 TO 5 161 SOUND 1760,1,150:FOR D=1 TO 200:NEXT D 162 SOUND 1568,1,10:FOR D=1 TO 200:NEXT D 163 NEXT MUS 170 OPEN "INTRO" FOR INPUT AS #1 171 IMAGE$=INPUT$(LOF(1),1) 172 PICTURE (75,34)-(420,250), IMAGE$ 173 CLOSE 175 SOUND 96,5,150:FOR D=1 TO 1000:NEXT D 176 SOUND 110,5,150:FOR D=1 TO 1000:NEXT D 177 SOUND 131,5,150:FOR D=1 TO 3000:NEXT D 178 CLS:PRINT"" PRINT" THE ITEMS ON THIS DISC ARE ALL":CALL TEXTFACE(1) PRINT" LEARNING EXERCISES.":CALL TEXTFACE (0) PRINT" THEY ARE WORTH 2 TO 4 QP'S FOR JUST DOING THEM, IF" PRINT" YOU WOULD LEARN SOMETHING BY DOING THEM." PRINT" THEY DO NOT PROVIDE A SCORE." PRINT"" PRINT" THE DRILLS THAT EARN YOU QP'S ARE ON THE DISC OF DRILLS" PRINT" ON FRACTIONS AND DECIMALS." PRINT"" PRINT" IF THIS IS NOT THE DISC YOU WANT, QUIT AND TRY ANOTHER." PRINT"" PRINT" TO GO ON WITH THIS DISC, PRESS 'RETURN'." INPUT V 180 CLS:PRINT"" 181 PRINT" WHICH WOULD YOU LIKE TO DO? PRESS THE KEY FOR YOUR CHOICE." 184 PRINT"" 185 PRINT,"1. LEARN HOW TO FIND A LEAST COMMON DENOMINATOR" 186 PRINT"" 187 PRINT,"2. LEARN TO REDUCE TO LOWEST TERMS." 188 PRINT"" 189 PRINT,"3. ADD AND SUBTRACT FRACTIONS" 190 PRINT"" 191 PRINT,"4. MULTIPLY AND DIVIDE FRACTIONS" 192 PRINT"" 194 PRINT,"5. CHANGE FROM IMPROPER TO MIXED NUMBER AND BACK" 196 PRINT"" 198 PRINT,"6. CHANGE A FRACTION INTO A DECIMAL AND BACK" 200 PRINT"" 201 PRINT" TO SEE MORE CHOICES, PRESS THE 'M' KEY." 220 CHC$="" 222 CHC$= INKEY$ 224 IF CHC$="1" THEN RUN "LCD" 225 IF CHC$="2" THEN RUN "RED" 226 IF CHC$="3" THEN RUN "ADSUB" 227 IF CHC$="4" THEN RUN "MULDIV" 228 IF CHC$="5" THEN RUN "IMPMIX" 229 IF CHC$="6" THEN RUN "FRDEC" 230 IF CHC$="M" THEN 250 232 IF CHC$="7" THEN RUN "A/S-DEC" 233 IF CHC$="8" THEN RUN "MULTDEC" 234 IF CHC$="9" THEN RUN "DIVDEC" 235 IF CHC$="A" THEN RUN "PERDEC" 236 IF CHC$="Q" THEN END 237 IF CHC$="O" THEN 180 249 GOTO 220 250 CLS:PRINT"" 252 PRINT,"7. ADDING AND SUBTRACTING WITH DECIMALS" 254 PRINT"" 255 PRINT,"8. MULTIPLYING WITH DECIMALS" 256 PRINT"" 258 PRINT,"9. DIVIDING WITH DECIMALS" 259 PRINT"" 260 PRINT,"A. CHANGING PERCENTS TO DECIMALS AND VICE VERSA" 261 PRINT"" 262 PRINT,"Q. QUIT" 265 PRINT"":PRINT"":PRINT"" 280 PRINT" TO RETURN TO ORIGINAL LIST, PRESS THE 'O' KEY." 300 GOTO 220 \ No newline at end of file diff --git a/FLASHCARDS/FD DRILLS.TXT b/FLASHCARDS/FD DRILLS.TXT new file mode 100644 index 0000000..34419a4 --- /dev/null +++ b/FLASHCARDS/FD DRILLS.TXT @@ -0,0 +1 @@ + 40 OPEN "SCR1" FOR INPUT AS #1 IMAGE$=INPUT$(LOF(1),1) 43 DIM WF%(256) FOR I = 0 TO 127 WF%(I)= 127 WF%(255-I)=-128 NEXT I WAVE 0,WF% 60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) 84 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126) 85 PSET(281,126):PSET(282,126):PSET(283,126):PSET(280,127):PSET(280,128):PSET(280,129):PSET(280,130):PSET(280,131):PSET(280,132):PSET(280,133):PSET(280,134):PSET(286,126):PSET(286,127):PSET(286,128):PSET(286,129):PSET(286,130):PSET(286,131):PSET(286,132) 86 PSET(286,133):PSET(286,134):PSET(289,126):PSET(290,126):PSET(291,126):PSET(292,126):PSET(293,126):PSET(288,127):PSET(288,128):PSET(288,129):PSET(288,130):PSET(288,131):PSET(288,132):PSET(288,133):PSET(289,134):PSET(289,134):PSET(290,134):PSET(291,134) 87 PSET(292,134):PSET(293,134):PSET(294,127):PSET(294,129):PSET(294,130):PSET(294,131):PSET(294,132):PSET(294,133):PSET(294,128):PSET(296,126):PSET(296,127):PSET(296,128):PSET(296,129):PSET(296,130):PSET(296,131):PSET(296,132):PSET(296,133):PSET(296,134) 88 PSET(296,134):PSET(297,128):PSET(298,129):PSET(299,130):PSET(300,131):PSET(301,132):PSET(302,126):PSET(302,127):PSET(302,128):PSET(302,129):PSET(302,130):PSET(302,131):PSET(302,132):PSET(302,133):PSET(302,134):PSET(305,126):PSET(306,126):PSET(307,126) 89 PSET(308,126):PSET(309,126):PSET(310,127):PSET(304,127):PSET(304,128):PSET(304,129):PSET(305,130):PSET(306,130):PSET(307,130):PSET(308,130):PSET(309,130):PSET(310,131):PSET(310,132):PSET(310,133):PSET(309,134):PSET(308,134):PSET(307,134):PSET(306,134) 90 PSET(305,134):PSET(304,133):PSET(230,140):PSET(230,141):PSET(230,142):PSET(230,143):PSET(230,144):PSET(230,145):PSET(230,146):PSET(230,147):PSET(230,148):PSET(231,140):PSET(232,140):PSET(233,140):PSET(234,140):PSET(235,140):PSET(236,141):PSET(236,142) 91 PSET(236,143):PSET(235,144):PSET(234,144):PSET(233,144):PSET(232,144):PSET(231,144):PSET(238,140):PSET(238,141):PSET(238,142):PSET(238,143):PSET(238,144):PSET(238,145):PSET(238,146):PSET(238,147):PSET(238,148):PSET(239,140):PSET(240,140):PSET(241,140) 92 PSET(242,140):PSET(243,140):PSET(244,141):PSET(244,142):PSET(244,143):PSET(244,144):PSET(243,144):PSET(242,144):PSET(241,144):PSET(240,144):PSET(239,144):PSET(242,145):PSET(243,146):PSET(243,147):PSET(244,148):PSET(246,140):PSET(247,140):PSET(248,140) \ No newline at end of file diff --git a/FLASHCARDS/KIDDY WO PROS.TXT b/FLASHCARDS/KIDDY WO PROS.TXT new file mode 100644 index 0000000..9e0d504 --- /dev/null +++ b/FLASHCARDS/KIDDY WO PROS.TXT @@ -0,0 +1 @@ + 3 DIM WF%(256) FOR I =0 TO 127 WF%(I)=127 WF%(255-I)= -128 NEXT I WAVE 0, WF% 10 CLS 15 BUBU=0:TRY=0:ITEM=0 20 DIM NOMEN$ (10): DIM SCORE(10):DIM CN(25) 60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) 84 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126) 85 PSET(281,126):PSET(282,126):PSET(283,126):PSET(280,127):PSET(280,128):PSET(280,129):PSET(280,130):PSET(280,131):PSET(280,132):PSET(280,133):PSET(280,134):PSET(286,126):PSET(286,127):PSET(286,128):PSET(286,129):PSET(286,130):PSET(286,131):PSET(286,132) 86 PSET(286,133):PSET(286,134):PSET(289,126):PSET(290,126):PSET(291,126):PSET(292,126):PSET(293,126):PSET(288,127):PSET(288,128):PSET(288,129):PSET(288,130):PSET(288,131):PSET(288,132):PSET(288,133):PSET(289,134):PSET(289,134):PSET(290,134):PSET(291,134) 87 PSET(292,134):PSET(293,134):PSET(294,127):PSET(294,129):PSET(294,130):PSET(294,131):PSET(294,132):PSET(294,133):PSET(294,128):PSET(296,126):PSET(296,127):PSET(296,128):PSET(296,129):PSET(296,130):PSET(296,131):PSET(296,132):PSET(296,133):PSET(296,134) 88 PSET(296,134):PSET(297,128):PSET(298,129):PSET(299,130):PSET(300,131):PSET(301,132):PSET(302,126):PSET(302,127):PSET(302,128):PSET(302,129):PSET(302,130):PSET(302,131):PSET(302,132):PSET(302,133):PSET(302,134):PSET(305,126):PSET(306,126):PSET(307,126) 89 PSET(308,126):PSET(309,126):PSET(310,127):PSET(304,127):PSET(304,128):PSET(304,129):PSET(305,130):PSET(306,130):PSET(307,130):PSET(308,130):PSET(309,130):PSET(310,131):PSET(310,132):PSET(310,133):PSET(309,134):PSET(308,134):PSET(307,134):PSET(306,134) 90 PSET(305,134):PSET(304,133):PSET(230,140):PSET(230,141):PSET(230,142):PSET(230,143):PSET(230,144):PSET(230,145):PSET(230,146):PSET(230,147):PSET(230,148):PSET(231,140):PSET(232,140):PSET(233,140):PSET(234,140):PSET(235,140):PSET(236,141):PSET(236,142) \ No newline at end of file diff --git a/GND/GND.TXT b/GND/GND.TXT new file mode 100644 index 0000000..ab22e1f --- /dev/null +++ b/GND/GND.TXT @@ -0,0 +1 @@ +10 CLS DIM S(25) FOR N=1 TO 20 S(N)=0 NEXT N 20 SCORE=0:TRY=0:COR=0:ITEM=-1:N=0 25 PRINT"":PRINT"":PRINT" Please type in and ENTER your name." 27 PRINT"":INPUT; NOMEN$ 30 IF NOMEN$ = "" THEN PRINT"YOUR NAME DID NOT REGISTER":BEEP:PRINT"CLICK ON THE CURSOR AND TRY AGAIN.":GOTO 25 200 WAVE 0, SIN 201 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3 202 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6 203 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5 210 SOUND C,4:SOUND 0,1:SOUND C,4:SOUND 0,2:SOUND C,3:SOUND 0,1:SOUND C,4:SOUND 0,2:SOUND C,3:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND D,8:SOUND 0,1:SOUND C,12:SOUND 0,1 211 SOUND F,4:SOUND 0,1:SOUND G,4:SOUND 0,2:SOUND G,3:SOUND 0,1:SOUND G,4:SOUND 0,2:SOUND G,3:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND G,12:SOUND 0,1 212 SOUND F,4:SOUND 0,1:SOUND G,4:SOUND 0,2:SOUND G,3:SOUND 0,1:SOUND G,4:SOUND 0,2:SOUND G,3:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND G,12:SOUND 0,1 213 SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND D,8:SOUND 0,1:SOUND C,12 214 GOTO 280 240 IF BOBO = 1 THEN BOBO = 0:GOTO 250 241 SOUND E,6:SOUND 0,1:SOUND D,3:SOUND 0,1:SOUND C,2:SOUND 0,1:SOUND C,6 242 BOBO = 1:RETURN 250 SOUND GB,6:SOUND 0,1:SOUND AB,3:SOUND 0,1:SOUND C,2:SOUND 0,1:SOUND C,6 251 BOBO=0:RETURN 270 SOUND AB,8:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND D,12:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,20:SOUND 0,1 271 SOUND DM,4:SOUND 0,1:SOUND CHM,4:SOUND 0,1:SOUND B,20:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND A,20:SOUND 0,1 272 SOUND A,8:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,12:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND D,20:SOUND 0,1 273 SOUND E,8:SOUND 0,1:SOUND FH,20:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,20:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND FH,20:SOUND 0,1 274 SOUND E,8:SOUND 0,1:SOUND E,8:SOUND 0,1:SOUND D,20 275 RETURN 280 CLS PRINT"" PRINT" WHICH SET OF WORDS WOULD YOU LIKE TO STUDY?" PRINT"" PRINT" 1. Pages 2 and 4" PRINT" 2. Pages 6 and 12" INPUT CHC 285 IF CHC>2 THEN BEEP:GOTO 280 IF CHC=1 THEN RESTORE 500:GOTO 290 IF CHC=2 THEN RESTORE 506:GOTO 290 290 N=N+1 S(N)=CHC 300 CLS 305 ITEM = ITEM +1 310 LINE(10,20)-(470,50),,BF:LINE(12,22)-(468,48),30,BF:LINE(300,22)-(302,48),,BF 312 CALL MOVETO(15,40):PRINT NOMEN$ 315 CALL MOVETO(307,40):PRINT"SCORE = "SCORE" %" 320 READ LW$,LG$,GEN$ 321 IF LW$ = "CHOICE" THEN 450 322 IF LW$ = "END" THEN 475 325 CALL MOVETO(20,100):PRINT" What is the gender of " LW$" - "LG$" ?" 330 LINE(75,125)-(150,200),,B:LINE(77,127)-(148,198),,B:LINE(100,175)-(100,150):LINE-(113,163):LINE-(125,150):LINE-(125,175) 331 CIRCLE(250,163),38:CIRCLE(250,163),35:LINE(238,175)-(238,150):LINE-(263,150):LINE(238,163)-(250,163) 332 LINE(387,125)-(350,163):LINE-(387,200):LINE-(425,163):LINE-(387,125):LINE(387,127)-(352,163):LINE-(387,198):LINE-(423,163):LINE-(387,127):LINE(375,175)-(375,150):LINE-(400,175):LINE-(400,150) 335 CALL MOVETO(20,250):PRINT"CLICK ON YOUR CHOICE WITH MOUSE ARROW." 336 LINE (420,220)-(470,240),,BF:CALL MOVETO (426,235):PRINT" QUIT " 340 BM=0 341 BM=MOUSE(0) 342 IF BM <>-1 THEN 340 343 X=MOUSE(1) 344 Y=MOUSE(2) 345 IF Y>125 AND Y< 200 THEN 346 ELSE 351 346 IF X>75 AND X<150 THEN GDR$ = "M":GOTO 370 348 IF X>200 AND X<275 THEN GDR$ = "F":GOTO 370 350 IF X>350 AND X<450 THEN GDR$ = "N":GOTO 370 351 IF X>420 AND X<470 AND Y>220 AND Y <240 THEN CLS:GOTO 479 352 GOTO 340 370 IF GDR$ = GEN$ THEN 400 ELSE 405 375 SCORE = INT((COR/TRY) *100) 376 RETURN 400 PRINT" That is correct, CONGRATULATIONS ! ! ! ":GOSUB 240 401 COR = COR+1:GOTO 406 405 PRINT" THAT IS NOT CORRECT ":BEEP 406 TRY = TRY +1 407 GOSUB 375 410 FOR DLAY = 1 TO 3000:NEXT DLAY 415 GOTO 300 450 CLS:PRINT"":PRINT"" PRINT" AT THIS TIME YOU HAVE THE FOLLOWING CHOICES:" PRINT"" PRINT,"1. QUIT--GO TO MAIN MENU" PRINT,"2. CONTINUE" PRINT"" PRINT" PRESS THE NUMBER KEY FOR YOUR CHOICE" PRINT"" PRINT" TO GET SOME CREDIT FOR THIS, GET THE TEACHER TO LOOK AT" PRINT" THIS BEFORE QUITTING. IF CONTINUING ETC,JUST GO ON." PRINT" "NOMEN$" GOT "SCORE" % ON "ITEM" ITEMS--GENDERS" PRINT" AND DID THE FOLLOWING SECTIONS:" PRINT" "S(1) S(2) S(3) S(4) S(5) S(6) S(7) S(8) S(9) S(10) PRINT" "S(11) S(12) S(13) S(14) S(15) S(16) S(17) S(18) S(19) S(20) \ No newline at end of file diff --git a/HISTORY/HISTORY.TXT b/HISTORY/HISTORY.TXT new file mode 100644 index 0000000..558c85c --- /dev/null +++ b/HISTORY/HISTORY.TXT @@ -0,0 +1 @@ +5 DIM BUT(200):DIM SCN(10000) DIM Q1$(5,4):DIM Q2$(5,4):DIM Q3$(5,4) DIM A1$(5,4):DIM A2$(5,4):DIM A3$(5,4):DIM A4$(5,4):DIM A5$(5,4) DIM ANS(5,4) DIM WF%(255):DIM WS%(255) FOR I=255 TO 0 STEP -1 WF%(I)=I-128 NEXT I FOR I=0 TO 127 WS%(I)=127 WS%(255-I)=-128 NEXT I MUS = 0 OPEN "HIST:title" FOR INPUT AS #1 IMAGO$=INPUT$(LOF(1),1) CLOSE #1 10 OPEN "HIST:Mr.C" FOR INPUT AS #1 IMAGE$=INPUT$(LOF(1),1) PICTURE (40,30)-(455,269), IMAGE$ CLOSE 11 WAVE 0,WF% WAVE 1,SIN WAVE 2 ,SIN WAVE 3,WS% 12 SOUND 784,4,,0 SOUND WAIT SOUND 784,6,,0 SOUND 880,2,,0 SOUND 784,4,,0 SOUND 262,4,,1 SOUND 330,4,,1 SOUND 392,4,,1 SOUND 49,2,,3 SOUND RESUME SOUND WAIT SOUND 659,4,,0 SOUND 523,4,,0 SOUND 659,4,,0 SOUND 262,4,,1 SOUND 330,4,,1 SOUND 392,4,,1 SOUND 65,2,,3 SOUND RESUME SOUND WAIT SOUND 784,6,,0 SOUND 880,2,,0 SOUND 784,4,,0 SOUND 262,4,,1 SOUND 330,4,,1 SOUND 392,4,,1 SOUND 49,2,,3 SOUND RESUME SOUND WAIT SOUND 659,7.5,,0 \ No newline at end of file diff --git a/LOGIC/LOGIC.TXT b/LOGIC/LOGIC.TXT new file mode 100644 index 0000000..eb00de9 --- /dev/null +++ b/LOGIC/LOGIC.TXT @@ -0,0 +1 @@ + 1 DIM WF%(256) FOR I = 0 TO 127 WF%(I)=127 WF%(255-I)=-128 NEXT I WAVE 0, WF% 60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) \ No newline at end of file diff --git a/MAP 1/MAP 1.TXT b/MAP 1/MAP 1.TXT new file mode 100644 index 0000000..a627521 --- /dev/null +++ b/MAP 1/MAP 1.TXT @@ -0,0 +1 @@ +10 LINE(444,60)-(428,50):LINE-(424,50):LINE-(421,47):LINE-(416,46) LINE-(414,47):LINE-(410,47):LINE-(410,49):LINE-(401,48):LINE-(399,50) LINE-(392,44):LINE-(387,44):LINE-(384,45):LINE-(380,45):LINE-(372,40) LINE-(373,39):LINE-(369,38):LINE-(368,39):LINE-(364,34):LINE-(360,34) LINE-(359,40):LINE-(356,42):LINE-(352,42):LINE-(350,44):LINE-(346,42) LINE-(340,45):LINE-(339,42):LINE-(340,38):LINE-(336,37):LINE-(335,38) LINE-(332,38):LINE-(331,34):LINE-(328,34):LINE-(326,39):LINE-(324,39) LINE-(321,38):LINE-(320,40):LINE-(318,40):LINE-(318,35):LINE-(313,35) LINE-(310,37):LINE-(307,35):LINE-(302,38):LINE-(298,38):LINE-(302,32) LINE-(308,30):LINE-(311,26):LINE-(310,24):LINE-(303,24):LINE-(302,26) LINE-(299,26):LINE-(298,24):LINE-(296,24):LINE-(295,21):LINE-(292,21) LINE-(288,22):LINE-(286,26):LINE-(282,26):LINE-(281,28):LINE-(276,26) LINE-(271,28):LINE-(265,28):LINE-(264,34):LINE-(260,34):LINE-(260,36) LINE-(256,36):LINE-(256,39):LINE-(259,42):LINE-(259,50):LINE-(257,48) LINE-(256,42):LINE-(250,38):LINE-(247,40):LINE-(249,44):LINE-(247,45) LINE-(242,42):LINE-(240,44):LINE-(240,59):LINE-(239,60):LINE-(238,60) LINE-(237,58):LINE-(234,58):LINE-(237,52):LINE-(238,42):LINE-(239,38) LINE-(235,38):LINE-(235,36):LINE-(230,39):LINE-(228,42):LINE-(230,50) 20 LINE-(229,52):LINE-(226,50):LINE-(222,50):LINE-(221,47):LINE-(216,46) LINE-(216,50):LINE-(215,51):LINE-(213,50):LINE-(211,50):LINE-(211,52) LINE-(207,50):LINE-(206,53):LINE-(204,53):LINE-(204,51):LINE-(203,50) LINE-(200,54):LINE-(199,52):LINE-(199,48):LINE-(197,48):LINE-(196,52) LINE-(196,55):LINE-(195,57):LINE-(190,56):LINE-(191,53):LINE-(188,52) LINE-(186,54):LINE-(188,56):LINE-(186,60):LINE-(182,60):LINE-(182,65) LINE-(180,67):LINE-(178,66):LINE-(177,63):LINE-(174,64):LINE-(172,64) LINE-(171,62):LINE-(171,59):LINE-(177,62):LINE-(178,62):LINE-(180,60) LINE-(181,55):LINE-(181,54):LINE-(171,50):LINE-(170,50):LINE-(169,52) LINE-(166,47):LINE-(164,48):LINE-(163,47):LINE-(161,51) 30 LINE-(162,53):LINE-(162,56):LINE-(168,68):LINE-(158,74):LINE-(158,80) LINE-(153,78):LINE-(151,83):LINE-(145,86):LINE-(145,88):LINE-(150,94) LINE-(149,104):LINE-(150,107):LINE-(154,106):LINE-(156,106) LINE-(158,108):LINE-(158,110):LINE-(161,112):LINE-(164,110) LINE-(166,110):LINE-(166,114):LINE-(171,114):LINE-(172,113) LINE-(172,112):LINE-(170,111):LINE-(170,110):LINE-(172,110) LINE-(174,111):LINE-(176,108):LINE-(178,108):LINE-(178,110) LINE-(174,112):LINE-(174,114):LINE-(179,114):LINE-(182,116) LINE-(182,118):LINE-(178,124):LINE-(176,124):LINE-(174,120) LINE-(170,120):LINE-(168,121):LINE-(164,120):LINE-(161,122) LINE-(158,123):LINE-(156,126):LINE-(156,128):LINE-(160,133) LINE-(167,133):LINE-(170,131):LINE-(172,131):LINE-(174,132) LINE-(174,135):LINE-(171,137):LINE-(168,142):LINE-(166,142) 40 LINE-(170,146):LINE-(172,143):LINE-(184,166):LINE-(187,174) LINE-(188,177):LINE-(188,178):LINE-(190,178):LINE-(210,164) LINE-(214,160):LINE-(212,156):LINE-(210,155):LINE-(209,152) LINE-(208,152):LINE-(206,154):LINE-(204,156):LINE-(202,152) LINE-(196,148):LINE-(196,145):LINE-(198,145):LINE-(201,150) LINE-(205,152):LINE-(208,150):LINE-(210,150):LINE-(214,153) LINE-(215,154):LINE-(223,154):LINE-(227,155):LINE-(229,155) LINE-(232,159):LINE-(235,159):LINE-(237,161):LINE-(239,160) LINE-(242,174):LINE-(244,176):LINE-(247,185):LINE-(249,186) LINE-(253,180):LINE-(252,174):LINE-(252,172):LINE-(254,170) LINE-(256,168):LINE-(261,166):LINE-(264,160):LINE-(270,160) LINE-(272,159):LINE-(274,162):LINE-(276,162):LINE-(278,166) LINE-(277,168):LINE-(279,172):LINE-(280,172):LINE-(281,170) LINE-(283,171):LINE-(285,176):LINE-(284,180):LINE-(286,186) LINE-(291,194):LINE-(295,198) 50 LINE-(295,194):LINE-(293,189):LINE-(290,187):LINE-(288,184) LINE-(288,178):LINE-(289,176):LINE-(291,177):LINE-(295,180) LINE-(297,183):LINE-(300,183):LINE-(300,182):LINE-(304,178) LINE-(305,174):LINE-(300,166):LINE-(299,162):LINE-(302,160) LINE-(304,160):LINE-(304,162):LINE-(306,162):LINE-(306,160) LINE-(316,158):LINE-(319,156):LINE-(321,153):LINE-(324,152) LINE-(326,150):LINE-(328,146):LINE-(328,142):LINE-(325,136) LINE-(325,132):LINE-(327,130):LINE-(326,128):LINE-(322,129) LINE-(320,127):LINE-(320,124):LINE-(323,125):LINE-(325,122) LINE-(326,125):LINE-(331,124):LINE-(332,127):LINE-(334,128) LINE-(336,134):LINE-(340,133):LINE-(340,130):LINE-(338,126) LINE-(338,124):LINE-(340,122):LINE-(340,119):LINE-(346,118) 60 LINE-(351,114):LINE-(359,104):LINE-(361,102):LINE-(362,96) LINE-(360,91):LINE-(356,92):LINE-(354,91):LINE-(354,88):LINE-(359,85) LINE-(362,78):LINE-(367,79):LINE-(376,76):LINE-(378,76):LINE-(381,79) LINE-(383,79):LINE-(386,77):LINE-(388,74):LINE-(392,71):LINE-(394,71) LINE-(393,75):LINE-(394,76):LINE-(400,70):LINE-(402,72):LINE-(388,84) LINE-(386,90):LINE-(386,100):LINE-(388,102):LINE-(390,100) LINE-(390,98):LINE-(393,96):LINE-(392,94):LINE-(399,88):LINE-(399,83) LINE-(398,80):LINE-(404,75):LINE-(412,76):LINE-(414,74):LINE-(418,75) LINE-(419,75):LINE-(421,70):LINE-(426,70):LINE-(430,68):LINE-(429,66) LINE-(426,65):LINE-(422,63):LINE-(430,64):LINE-(431,59):LINE-(434,64) LINE-(440,66):LINE-(444,60) INPUT V \ No newline at end of file diff --git a/MEMORIA/Memoria.TXT b/MEMORIA/Memoria.TXT new file mode 100644 index 0000000..166b654 --- /dev/null +++ b/MEMORIA/Memoria.TXT @@ -0,0 +1 @@ +3 DIM WF%(256) FOR I=0 TO 127 WF%(I)= 127 WF%(255-I)=-128 NEXT I 10 CLS:CALL TEXTFONT(3) 20 DIM NOMEN$(30):DIM CARDS(3000):DIM SCORE(30):DIM INTCDS(3000):DIM BOX(100) 21 DIM X(30):DIM Y(30):DIM A$(10):DIM B$(10):DIM C$(10):DIM D$(10):DIM E$(10):DIM F$(10):DIM G$(10):DIM H$(10) 22 DIM I$(10):DIM J$(10):DIM K$(10):DIM L$(10):DIM M$(10):DIM N$(10):DIM O$(10):DIM P$(10):DIM Q$(10):DIM R$(10) 23 DIM S$(10):DIM T$(10):DIM U$(10):DIM X$(10):DIM Y$(10):DIM Z$(10) 24 DIM CA(10):DIM CB(10):DIM CC(10):DIM CD(10):DIM CE(10):DIM CF(10):DIM CG(10):DIM CH(10):DIM CI(10):DIM CJ(10) 25 DIM CK(10):DIM CL(10):DIM CN(10):DIM CM(10):DIM CO(10):DIM CP(10):DIM CQ(10):DIM CR(10):DIM CS(10):DIM CT(10) 26 DIM CU(10):DIM CX(10):DIM CY(10):DIM CZ(10) 30 BOBO=0:TRY =0:GAME = 1 50 WAVE 0, WF% 51 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3 52 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6 53 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5:FHT = 1397 55 SOUND CM,3:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND CM,3:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,8 56 SOUND C,3:SOUND 0,1:SOUND BB,4:SOUND 0,1:SOUND C,3:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND C,4:SOUND 0,8 57 SOUND CM,4:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND DHM,4:SOUND 0,1:SOUND EM,6 160 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 161 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 162 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 163 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 164 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 165 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 166 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 167 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 168 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 169 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 170 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 171 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 172 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 173 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 174 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 175 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 176 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 177 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 178 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 179 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 180 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 181 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 182 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 183 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) 184 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126) 185 PSET(281,126):PSET(282,126):PSET(283,126):PSET(280,127):PSET(280,128):PSET(280,129):PSET(280,130):PSET(280,131):PSET(280,132):PSET(280,133):PSET(280,134):PSET(286,126):PSET(286,127):PSET(286,128):PSET(286,129):PSET(286,130):PSET(286,131):PSET(286,132) 186 PSET(286,133):PSET(286,134):PSET(289,126):PSET(290,126):PSET(291,126):PSET(292,126):PSET(293,126):PSET(288,127):PSET(288,128):PSET(288,129):PSET(288,130):PSET(288,131):PSET(288,132):PSET(288,133):PSET(289,134):PSET(289,134):PSET(290,134):PSET(291,134) \ No newline at end of file diff --git a/PAC-NW/PAC-NW.TXT b/PAC-NW/PAC-NW.TXT new file mode 100644 index 0000000..08651c3 --- /dev/null +++ b/PAC-NW/PAC-NW.TXT @@ -0,0 +1 @@ +20 CLS 30 DIM A(3000):DIM B(2000):DIM X(50):DIM CN(200):DIM ANSY(100) 40 GPA=0:MISS=0 41 CALL TEXTFONT(3) 100 LINE(105,5)-(250,5):LINE-(250,12):LINE-(250,40):LINE-(258,41):LINE-(262,50):LINE-(260,54):LINE-(266,64):LINE-(274,64):LINE-(284,78):LINE-(295,85):LINE-(295,120):LINE-(300,122):LINE-(304,116) 101 LINE(305,116)-(310,116):LINE-(336,156):LINE-(344,150):LINE-(356,150):LINE-(362,148):LINE-(366,144):LINE-(372,138):LINE-(378,146):LINE-(380,149):LINE-(380,240):LINE-(54,240):LINE-(52,235):LINE-(54,230):LINE-(50,220):LINE-(55,195):LINE-(60,187) 102 LINE(60,187)-(59,178):LINE-(62,166):LINE-(61,160):LINE-(70,120):LINE-(70,100):LINE-(90,103):LINE-(89,100):LINE-(79,100):LINE-(75,97):LINE-(70,97):LINE-(70,84):LINE-(72,84):LINE-(72,93):LINE-(75,93):LINE-(75,86):LINE-(78,86):LINE-(78,84):LINE-(74,84) 103 LINE(74,84)-(74,82):LINE-(70,83):LINE-(70,72):LINE-(74,74):LINE-(74,71):LINE-(68,72):LINE-(60,40):LINE-(54,28):LINE-(58,20):LINE-(72,30):LINE-(84,32):LINE-(90,34):LINE-(95,34):LINE-(98,32):LINE-(101,32):LINE-(101,40):LINE-(94,52):LINE-(92,58) 104 LINE(92,58)-(96,60):LINE-(98,58):LINE-(94,56):LINE-(102,44):LINE-(104,44):LINE-(102,50):LINE-(104,56):LINE-(102,62):LINE-(98,62):LINE-(98,66):LINE-(105,66):LINE-(106,64):LINE-(106,59):LINE-(108,54):LINE-(106,44):LINE-(108,38):LINE-(105,38) \ No newline at end of file diff --git a/PARTES/PARTES.TXT b/PARTES/PARTES.TXT new file mode 100644 index 0000000..a246b86 --- /dev/null +++ b/PARTES/PARTES.TXT @@ -0,0 +1 @@ +10 CLS 60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) \ No newline at end of file diff --git a/PARTIBUS/PARTIBUS.TXT b/PARTIBUS/PARTIBUS.TXT new file mode 100644 index 0000000..05d4a37 --- /dev/null +++ b/PARTIBUS/PARTIBUS.TXT @@ -0,0 +1 @@ +10 CLS 300 CLS 301 PRINT"" 302 PRINT" WHICH DO YOU WANT TO DO NOW?" 303 PRINT"" 304 PRINT,"0. QUIT" 305 PRINT,"1. DECLENSION ENDINGS--NOUN" 306 PRINT,"2. DECLENSION ENDINGS--ADJECTIVE" 307 PRINT,"3. GENDER OF NOUNS" \ No newline at end of file diff --git a/SENTS5/SENTS5.TXT b/SENTS5/SENTS5.TXT new file mode 100644 index 0000000..37e68f7 --- /dev/null +++ b/SENTS5/SENTS5.TXT @@ -0,0 +1 @@ +5 CORRECT=0:TRY=0:SCORE=0:ITEM=0:ATP=0:N=0 DIM T(10):DIM S(10):DIM I(10) FOR NN=1 TO 5 SOUND 880,3,200:FOR D=1 TO 600:NEXT D SOUND 200,3,100:FOR D=1 TO 600:NEXT D NEXT NN 10 CLS:PRINT"":PRINT"IF YOUR NAME DOES NOT PRINT, CLICK ON THE CURSOR." INPUT "WHAT IS YOUR NAME"; NOMEN$ IF NOMEN$="" THEN BEEP: GOTO 10 PRINT"":PRINT" THANK YOU.":FOR DLY=1 TO 1500:NEXT DLY SOUND 82,4,80:FOR D=1 TO 800:NEXT D SOUND 65,3,20:FOR D=1 TO 1800:NEXT D CLS 24 PRINT"":PRINT" THE SECTIONS AVAILABLE ARE:" PRINT" 1- COVERS LESSONS 1 THROUGH 4; 2- LESSONS 5 THROUGH 8" PRINT" 3- LESSON 9 REV 1-8; 4- LESSONS 10 THROUGH 12" PRINT" 5- LESSONS 13 & 14; 6- LESSONS 15 THROUGH 18" PRINT" 7- LESSONS 19 THROUGH 22; 8- LESSONS 23 THROUGH 26" PRINT" 9- LESSONS 27 THROUGH 30; 10- LESONS 30 THROUGH 35" PRINT" 11- LESSONS 36 THROUGH 40; 12- LESSONS 41 THROUGH 45" PRINT" 13- LESSONS 46 THROUGH 50" PRINT"" PRINT" * * EACH SECTION HAS 12 TO 15 SENTENCES TO DO. * * " PRINT"" PRINT" 'ENTER' THE NUMBER OF THE SECTION YOU WANT TO DO." 25 INPUT SEC IF SEC>6 THEN SEC=1 26 ON SEC GOTO 100,120,140,160,180,200,220,240,260,280,300,320,340 30 ITEM=ITEM+1:ATP=0: SOUND 392,5:FOR DL=1 TO 1000:NEXT DL:SOUND 392,2:FOR DL=1 TO 400:NEXT DL:SOUND 523,5:FOR DL=1 TO 1000:NEXT DL 31 CLS 34 CALL MOVETO(20,40):PRINT NOMEN$" ITEMS "ITEM" SCORE= "SCORE"%" 35 CALL MOVETO(20,100):PRINT L$ 36 PRINT,"1) "E1$:PRINT,"2) "E2$ 37 PRINT,"3) "E3$:PRINT,"4) "E4$:PRINT,"5) QUIT" 38 CALL MOVETO(20,220):PRINT"WHICH IS THE BEST ENGLISH SENTENCE FOR THE LATIN ONE?" 39 PRINT" PRESS THE NUMBER OF YOUR CHOICE." 40 CH$="" 41 CH$=INKEY$ 42 IF CH$=A$ THEN 50 43 IF CH$="5" THEN 600 44 IF CH$="1" OR CH$="2" OR CH$="3" OR CH$="4" THEN 46 45 GOTO 40 46 SOUND 50,8:FOR DLAY=1 TO 1600:NEXT DLAY 47 TRY=TRY+1:ATP=ATP+1:SCORE=INT(100*(CORRECT/TRY)) 48 IF ATP=3 THEN CALL MOVETO (20,270):PRINT"THOSE ARE ALL THE TRIES YOU GET":FOR DLY=1 TO 2000:NEXT DLY:RETURN 49 CALL MOVETO(20,270):PRINT"WRONG. TRY AGAIN":FOR DL=1 TO 2000:NEXT DL:GOTO 31 50 SOUND 392,2:FOR DL=1 TO 400:NEXT DL:SOUND 523,5:FOR DL=1 TO 1000:NEXT DL 51 IF ATP>0 THEN CALL MOVETO(20,270):PRINT" NOW IT'S CORRECT.":GOTO 53 52 CALL MOVETO(20,270):PRINT"THAT IS CORRECT" 53 CORRECT=CORRECT+1:TRY=TRY+1:SCORE= INT(100*(CORRECT/TRY)) 55 FOR DLAY=1 TO 2000:NEXT DLAY 56 RETURN 100 L$="PUELLA TE AMAT." E1$="THE GIRL LIKES YOU." E2$="YOU LIKE THE GIRL." E3$="THE GIRL SEES YOU." E4$="THE BOY LIKES YOU.":A$="1":GOSUB 30 101 L$="ME ADJUVAT." E1$="I HELP." E2$="HE HELPS ME." E3$="SOMEONE IS HELPING ME." E4$="HELP SOMEONE.":A$="3":GOSUB 30 102 L$="PUER NOS AUDIT." E1$="WE HEAR THE BOY." E2$="WE LISTEN TO THE BOY." E3$="THE BOY HELPS US." E4$="THE BOY HEARS US.":A$="4":GOSUB 30 103 L$="PUER MATREM VIDET." E1$="THE BOY SEES HIS MOTHER." E2$="THE MOTHER SEES HER BOY." E3$="THE BOY HEARS HIS MOTHER." E4$="THE BOYS HEAR THEIR MOTHER.":A$="1":GOSUB 30 104 L$="PUELLA PATREM ADJUVAT." E1$="THE GIRLS HELP THEIR FATHER." E2$="THE GIRLS HELP THEIR FATHERS." E3$="THE GIRL HELPS HER FATHER." E4$="THE FATHER HELPS HIS DAUGHTER.":A$="3":GOSUB 30 105 L$="MATER LIBRUM HABET." E1$="MOTHER HAS THE BOOK." E2$="MOTHER HAD THE BOOK." E3$="MOTHER HAS THE BOOKS." E4$="MOTHER SEES THE BOOK.":A$="1":GOSUB 30 106 L$="MATER ET PUELLA NOS AMANT." E1$="WE GIRLS LOVE YOU MOTHER." E2$="MOTHER AND THE GIRL LOVE US." E3$="WE LOVE MOTHER AND THE GIRL." E4$="THEY LOVE MOTHER AND THE GIRL.":A$="2":GOSUB 30 107 L$="MATER ET PATER PUERUM VOCANT." E1$="MOTHER CALLS THE FATHER OF THE BOY." E2$="THE BOY CALLS HIS MOTHER AND FATHER." E3$="HIS MOTHER AND FATHER CALL THE BOY." E4$="MOTHER CALLS THE BOY AND HIS FATHER.":A$="3":GOSUB 30 108 L$="NOS NON AUDIUNT." E1$="WE ARE NOT LISTENING." E2$="THEY ARE NOT LISTENING." E3$="THEY DO NOT HELP US." E4$="THEY DO NOT HEAR US.":A$="4":GOSUB 30 109 L$="PUELLA LIBRUM NON HABET." E1$="THE GIRLS DO NOT HAVE BOOKS." E2$="THEY DO NOT HAVE THE GIRL'S BOOK." E3$="THE GIRL DOES NOT HAVE A BOOK." E4$="THE GIRL DOES NOT HAVE BOOKS.":A$="3":GOSUB 30 110 L$="MATER ET PATER ME NON AUDIUNT." E1$="MY MOTHER AND FATHER DO NOT LISTEN TO ME." E2$="MY MOTHER AND FATHER LISTEN TO US." E3$="MOTHER DOES NOT HEAR FATHER AND ME." E4$="MY MOTHER DOES NOT LISTEN TO MY FATHER.":A$="1":GOSUB 30 111 L$="ME NON VIDET." E1$="I DO NOT HEAR THEM." E2$="I DO NOT SEE THEM." E3$="I SEE US." E4$="NO ONE SEES ME.":A$="4":GOSUB 30 112 L$="PUELLA PATREM AUDIT." E1$="FATHER HEARS THE GIRL." E2$="THE GIRL HEARD FATHER." E3$="THE GIRL HEARS HER FATHER." E4$="THE GIRL LOVES HER FATHER.":A$="3":GOSUB 30 119 GOTO 600 120 L$="PUELLAE NOS NON ADJUVANT." E1$="THE GIRL DOES NOT HELP US." E2$="THE GIRLS DO NOT HELP US." E3$="WE DO NOT HELP THE GIRL." E4$="THEY DO NOT HELP US GIRLS.":A$="2":GOSUB 30 121 L$="MATER LIBRUM LEGIT." E1$="MOTHER IS READING THE BOOK." E2$="MOTHER READ THE BOOK." E3$="MOTHER HAS THE BOOK." E4$="MOTHER DOES NOT SEE THE BOOK.":A$="1":GOSUB 30 122 L$="PUERI PUELLAM VIDENT." E1$="THE BOY SEES THE GIRL." E2$="THE BOY IS LOOKING AT THE GIRL." E3$="THE BOYS SEE THE GIRL." E4$="THE BOYS SEE THE GIRLS.":A$="3":GOSUB 30 123 L$="PUER MAGNUS NOS VIDET." E1$="THE BIG BOY DOES NOT SEE." E2$="THE BIG BOY SEES US." E3$="THE BOYS DO NOT SEE THE BIG THING." E4$="WE SEE THE BIG BOYS.":A$="2":GOSUB 30 124 L$="PUELLAE PUERUM BONUM AMANT." E1$="THE GIRLS LIKE THE BIG BOY." E2$="THE GIRL LIKES THE BIG BOYS." E3$="THE GIRL LIKES THE GOOD BOYS." E4$="THE GIRLS LIKE THE GOOD BOY.":A$="4":GOSUB 30 125 L$="PUELLAE PUERUM MAGNUM NON ADJUVANT." E1$="THE GIRL DOES NOT HELP THE BIG BOY." E2$="THE GIRL DOES NOT HELP THE BIG BOYS." E3$="WE GIRLS HELP THE BIG BOY." E4$="THE GIRLS DO NOT HELP THE BIG BOY.":A$="4":GOSUB 30 126 L$="PUERUM MAGNUM NON VOCANT." E1$="WE CALL THE BIG BOY." E2$="THE BIG BOY CALLS US." E3$="THEY DO NOT CALL THE BIG BOY." E4$="THE BIG BOYS CALL US.":A$="3":GOSUB 30 127 L$="PUERI LIBRUM HABENT." E1$="THEY HAVE THE BOY'S BOOK." E2$="THE BOYS HAVE A BOOK." E3$="THE BOYS HAVE BOOKS." E4$="THE BOY HAS A BOOK.":A$="2":GOSUB 30 128 L$="PUER MATREM ET PATREM VIDET." E1$="HIS MOTHER AND FATHER SEE THE BOY." E2$="THE BOYS SEE THEIR MOTHER AND FATHER." E3$="THE BOY SEES HIS MOTHER AND FATHER." E4$="THE MOTHER AND FATHER SEE THEIR BOYS.":A$="3":GOSUB 30 129 L$="MATER LIBRUM NON LEGIT." E1$="MOTHER DOES NOT READ THE BOOK." E2$="MOTHER READS US THE BOOK." E3$="OUR MOTHER READS THE BOOK." E4$="MOTHER DOES NOT READ BOOKS.":A$="1":GOSUB 30 130 L$="PUELLA BONA PUERUM VIDET." E1$="THE GIRL SEES THE GOOD BOY." E2$="THE GOOD BOY SEES THE GIRL." E3$="THE GOOD GIRLS SEE THE BOY." E4$="THE GOOD GIRL SEES THE BOY.":A$="4":GOSUB 30 131 L$="PUELLAE SUNT MAGNAE ET BONAE." E1$="THE GOOD GIRLS ARE BIG." E2$="THE BIG GIRLS ARE GOOD." E3$="THE GIRLS ARE BIG AND GOOD." E4$="THE GIRL IS BIG AND GOOD.":A$="3":GOSUB 30 139 GOTO 600 140 L$="PUELLAE MAGNAE SUNT BONAE." E1$="THE GIRLS ARE BIG AND GOOD." E2$="THE GOOD GIRLS ARE BIG." E3$="THE BIG GIRLS ARE GOOD." E4$="THE BIG GIRL IS GOOD.":A$="3":GOSUB 30 141 L$="SELLA MEA EST RUBRA." E1$="THE RED CHAIR IS MINE." E2$="MY CHAIR IS RED." E3$="MY CHAIRS ARE RED." E4$="THE RED CHAIRS ARE MINE.":A$="2":GOSUB 30 142 L$="SELLAE TUAE SUNT FLAVAE." E1$="TWO CHAIRS ARE YELLOW." E2$="TWO CHAIRS ARE ORANGE." E3$="YOUR CHAIRS ARE YELLOW." E4$="YOUR CHAIR IS YELLOW.":A$="3":GOSUB 30 143 L$="PUERI MAGNI SACCUM MEUM NON HABENT." E1$="THE BOY HAS MY BIG YELLOW WALLET." E2$="THEY DO NOT HAVE MY BOY'S BIG WALLET." E3$="THE BIG BOYS DO NOT HAVE MY WALLET." E4$="THE BOYS DO NOT HAVE MY BIG WALLET.":A$="3":GOSUB 30 144 L$="PUELLAE MAGNAE NOS ADJUVANT." E1$="THE BIG GIRLS DO NOT HELP." E2$="THE BIG GIRL DOES NOT HELP." E3$="THEY DO NOT HELP THE BIG GIRLS." E4$="THE BIG GIRLS HELP US.":A$="4":GOSUB 30 145 L$="MATER MAGNAM SELLAM RUBRAM AMAT." E1$="THE BIG MOTHER LIKES THE RED CHAIR." E2$="MOTHER LIKES THE BIG RED CHAIR." E3$="THE BIG RED MOTHER LIKES THE CHAIR." E4$="HE LIKES HIS MOTHER'S BIG, RED CHAIR.":A$="2":GOSUB 30 146 L$="PUER MAGNUS LIBRUM RUBRUM NON HABET." E1$="THE BIG BOY DOES NOT HAVE THE RED BOOK." E2$="THE BIG BOY HAS OUR RED BOOK." E3$="THE BOY HAS THE BIG RED BOOK." E4$="THE BOY DOES NOT HAVE A BIG RED BOOK.":A$="1":GOSUB 30 147 L$="PUERI BONI SUNT MAGNI." E1$="THE BIG BOYS ARE GOOD." E2$="THE GOOD BOYS ARE BIG." E3$="THE GOOD BOY IS BIG." E4$="THE BIG BOY IS GOOD.":A$="2":GOSUB 30 148 L$="LIBER RUBRUS NON EST MAGNUS." E1$="THE RED BOOK IS NOT BIG." E2$="THE BIG BOOK IS NOT RED." E3$="THE RED BOOKS ARE NOT BIG." E4$="THE BIG BOOKS ARE NOT RED.":A$="1":GOSUB 30 149 L$="NOS ADJUVANT." E1$="THEY DO NOT HELP." E2$="WE DO NOT HELP." E3$="WE DO NOT HELP THEM." E4$="THEY HELP US.":A$="4":GOSUB 30 150 L$="PUERI MAGNI NOS VOCANT." E1$="WE CALL THE BIG BOYS." E2$="THEY DO NOT CALL THE BIG BOYS." E3$="THE BIG BOYS ARE CALLING US." E4$="THE BIG BOYS ARE NOT CALLING.":A$="3":GOSUB 30 151 L$="MAGNUS SACCUS MEUS EST FLAVUS." E1$="MY BIG WALLET IS YELLOW." E2$="MY BIG WALLET IS RED." E3$="THE BIG WALLET IS MY YELLOW ONE." E4$="MY YELLOW WALLET IS BIG.":A$="1":GOSUB 30 152 L$="SACCUM TUUM RUBRUM NON HABET." E1$="YOU DO NOT HAVE A RED WALLET." E2$="YOUR WALLET IS NOT RED." E3$="YOU DO NOT HAVE OUR YELLOW WALLET." E4$="NO ONE HAS YOUR YELLOW WALLET.":A$="4":GOSUB 30 159 GOTO 600 160 L$="MATER BONA PUELLAM ADJUVAT." E1$="MOTHER HELPS THE GOOD GIRL." E2$="THE MOTHER HELPS HER GOOD GIRL." E3$="THE GOOD MOTHER HELPS HER GIRL." E4$="A GOOD MOTHER LIKES THE GIRL.":A$="3":GOSUB 30 161 L$="LIBER BONUS EST AMICUS VERUS." E1$="A GOOD BOOK IS A TRUE FRIEND." E2$="A BOOK IS A GOOD AND TRUE FRIEND." E3$="GOOD BOOKS ARE TRUE FRIENDS." \ No newline at end of file diff --git a/SENLAT/SENTLAT.TXT b/SENLAT/SENTLAT.TXT new file mode 100644 index 0000000..b8dfde9 --- /dev/null +++ b/SENLAT/SENTLAT.TXT @@ -0,0 +1 @@ +10 CLS 11 BOOB=0 12 IF BOOB>1 THEN 254 60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120) 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) 84 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126) 85 PSET(281,126):PSET(282,126):PSET(283,126):PSET(280,127):PSET(280,128):PSET(280,129):PSET(280,130):PSET(280,131):PSET(280,132):PSET(280,133):PSET(280,134):PSET(286,126):PSET(286,127):PSET(286,128):PSET(286,129):PSET(286,130):PSET(286,131):PSET(286,132) 86 PSET(286,133):PSET(286,134):PSET(289,126):PSET(290,126):PSET(291,126):PSET(292,126):PSET(293,126):PSET(288,127):PSET(288,128):PSET(288,129):PSET(288,130):PSET(288,131):PSET(288,132):PSET(288,133):PSET(289,134):PSET(289,134):PSET(290,134):PSET(291,134) 87 PSET(292,134):PSET(293,134):PSET(294,127):PSET(294,129):PSET(294,130):PSET(294,131):PSET(294,132):PSET(294,133):PSET(294,128):PSET(296,126):PSET(296,127):PSET(296,128):PSET(296,129):PSET(296,130):PSET(296,131):PSET(296,132):PSET(296,133):PSET(296,134) 88 PSET(296,134):PSET(297,128):PSET(298,129):PSET(299,130):PSET(300,131):PSET(301,132):PSET(302,126):PSET(302,127):PSET(302,128):PSET(302,129):PSET(302,130):PSET(302,131):PSET(302,132):PSET(302,133):PSET(302,134):PSET(305,126):PSET(306,126):PSET(307,126) \ No newline at end of file diff --git a/STH. AM/STH. AM.TXT b/STH. AM/STH. AM.TXT new file mode 100644 index 0000000..3f2777a --- /dev/null +++ b/STH. AM/STH. AM.TXT @@ -0,0 +1 @@ +10 CLS 12 VERS=0:BOBO=0:GPA=0:ZULU = 0 20 DIM MAP(5000):DIM ANSY(1000):DIM IC(50):DIM MTN(50):DIM SCN(5000) 21 DIM BOX(500):DIM DOT(50):DIM SAM(5000) 59 GOSUB 300 60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) \ No newline at end of file diff --git a/STUFF/STUFF.TXT b/STUFF/STUFF.TXT new file mode 100644 index 0000000..f8252dc --- /dev/null +++ b/STUFF/STUFF.TXT @@ -0,0 +1 @@ + 10 CLS:GOTO 200 12 GOSUB 210 60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121) 61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115) 62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118) 63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116) 64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121) 65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126) 66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127) 67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130) 68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133) 69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139) 70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146) 71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143) 72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145) 73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114) 74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112) 75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115) 76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120):GOSUB 215 77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130) 78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126) 79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130) 80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134) 81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126) 82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133) 83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126) 84 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126) 85 PSET(281,126):PSET(282,126):PSET(283,126):PSET(280,127):PSET(280,128):PSET(280,129):PSET(280,130):PSET(280,131):PSET(280,132):PSET(280,133):PSET(280,134):PSET(286,126):PSET(286,127):PSET(286,128):PSET(286,129):PSET(286,130):PSET(286,131):PSET(286,132) 86 PSET(286,133):PSET(286,134):PSET(289,126):PSET(290,126):PSET(291,126):PSET(292,126):PSET(293,126):PSET(288,127):PSET(288,128):PSET(288,129):PSET(288,130):PSET(288,131):PSET(288,132):PSET(288,133):PSET(289,134):PSET(289,134):PSET(290,134):PSET(291,134) 87 PSET(292,134):PSET(293,134):PSET(294,127):PSET(294,129):PSET(294,130):PSET(294,131):PSET(294,132):PSET(294,133):PSET(294,128):PSET(296,126):PSET(296,127):PSET(296,128):PSET(296,129):PSET(296,130):PSET(296,131):PSET(296,132):PSET(296,133):PSET(296,134) 88 PSET(296,134):PSET(297,128):PSET(298,129):PSET(299,130):PSET(300,131):PSET(301,132):PSET(302,126):PSET(302,127):PSET(302,128):PSET(302,129):PSET(302,130):PSET(302,131):PSET(302,132):PSET(302,133):PSET(302,134):PSET(305,126):PSET(306,126):PSET(307,126) 89 PSET(308,126):PSET(309,126):PSET(310,127):PSET(304,127):PSET(304,128):PSET(304,129):PSET(305,130):PSET(306,130):PSET(307,130):PSET(308,130):PSET(309,130):PSET(310,131):PSET(310,132):PSET(310,133):PSET(309,134):PSET(308,134):PSET(307,134):PSET(306,134) 90 PSET(305,134):PSET(304,133):PSET(230,140):PSET(230,141):PSET(230,142):PSET(230,143):PSET(230,144):PSET(230,145):PSET(230,146):PSET(230,147):PSET(230,148):PSET(231,140):PSET(232,140):PSET(233,140):PSET(234,140):PSET(235,140):PSET(236,141):PSET(236,142) 91 PSET(236,143):PSET(235,144):PSET(234,144):PSET(233,144):PSET(232,144):PSET(231,144):PSET(238,140):PSET(238,141):PSET(238,142):PSET(238,143):PSET(238,144):PSET(238,145):PSET(238,146):PSET(238,147):PSET(238,148):PSET(239,140):PSET(240,140):PSET(241,140) 92 PSET(242,140):PSET(243,140):PSET(244,141):PSET(244,142):PSET(244,143):PSET(244,144):PSET(243,144):PSET(242,144):PSET(241,144):PSET(240,144):PSET(239,144):PSET(242,145):PSET(243,146):PSET(243,147):PSET(244,148):PSET(246,140):PSET(247,140):PSET(248,140) 93 PSET(249,140):PSET(250,140):PSET(251,140):PSET(252,140):PSET(246,141):PSET(246,142):PSET(246,143):PSET(246,144):PSET(246,145):PSET(246,146):PSET(246,147):PSET(246,148):PSET(247,148):PSET(248,148):PSET(249,148):PSET(250,148):PSET(251,148):PSET(252,148) 94 PSET(245,144):PSET(246,144):PSET(247,144):PSET(248,144):PSET(249,144):PSET(250,144):PSET(255,140):PSET(256,140):PSET(257,140):PSET(258,140):PSET(259,140):PSET(260,141):PSET(254,141):PSET(254,142):PSET(254,143):PSET(255,144):PSET(256,144):PSET(257,144) 95 PSET(258,144):PSET(259,144):PSET(260,145):PSET(260,147):PSET(259,148):PSET(258,148):PSET(257,148):PSET(256,148):PSET(255,148):PSET(254,147):PSET(263,140):PSET(264,140):PSET(262,140):PSET(265,140):PSET(266,140):PSET(267,140):PSET(268,140):PSET(262,141) 96 PSET(262,142):PSET(262,143):PSET(262,144):PSET(262,145):PSET(262,146):PSET(262,147):PSET(262,148):PSET(263,148):PSET(265,148):PSET(266,148):PSET(267,148):PSET(268,148):PSET(263,144):PSET(264,144):PSET(265,144):PSET(266,144):PSET(270,140):PSET(270,141) 97 PSET(270,142):PSET(270,143):PSET(270,144):PSET(270,145):PSET(270,146):PSET(270,147):PSET(270,148):PSET(271,142):PSET(272,143):PSET(273,144):PSET(274,145):PSET(275,146):PSET(276,140):PSET(276,142):PSET(276,143):PSET(276,144):PSET(276,145):PSET(276,146) 98 PSET(276,147):PSET(276,148):PSET(276,141):PSET(278,140):PSET(279,140):PSET(280,140):PSET(281,140):PSET(282,140):PSET(283,140):PSET(284,140):PSET(281,141):PSET(281,142):PSET(281,143):PSET(281,144):PSET(281,145):PSET(281,146):PSET(281,147):PSET(281,148) 99 PSET(287,140):PSET(288,140):PSET(289,140):PSET(290,140):PSET(291,140):PSET(292,141):PSET(286,141):PSET(286,142):PSET(286,143):PSET(287,144):PSET(288,144):PSET(289,144):PSET(290,144):PSET(291,144):PSET(292,145):PSET(292,146):PSET(292,147):PSET(291,148) 100 PSET(290,148):PSET(289,148):PSET(288,148):PSET(287,148):PSET(286,147):GOSUB 220 133 LINE (380,270)-(380,274):LINE(381,269)-(384,269):LINE(385,270)-(385,274):LINE(380,275)-(384,275):PSET(382,271):PSET(383,271):PSET(382,272):PSET(382,273):PSET(283,273):LINE(388,270)-(388,274):PSET(390,271):PSET(391,270):PSET(391,272):PSET(392,270) 134 PSET(393,271):PSET(393,272):PSET(392,273):PSET(391,274):PSET(395,271):PSET(395,273):PSET(396,270):PSET(396,272):PSET(396,274):PSET(397,271):PSET(397,273):PSET(399,271):PSET(400,270):PSET(400,272):PSET(401,270):PSET(401,273) 135 PSET(401,272):PSET(401,273):PSET(400,274):PSET(402,271):PSET(402,272):PSET(383,273) 136 GOTO 225 140 FOR DLAY = 1 TO 3000:NEXT DLAY 150 CLS 200 WAVE 0, SIN 201 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3 202 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6 203 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5 204 GOTO 12 210 SOUND B,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND E,2:SOUND 0,1:SOUND CM,4:SOUND 0,3 211 RETURN 215 SOUND E,4:SOUND 0,1:SOUND D,2:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND A,4:SOUND 0,3 216 RETURN 220 SOUND B,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND CM,6:SOUND 0,3 221 RETURN 225 SOUND E,1:SOUND 0,1:SOUND D,3:SOUND 0,1:SOUND FH,1:SOUND 0,1:SOUND A,3:SOUND 0,1:SOUND CM,1:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND G,4:SOUND A,2:SOUND G,4 226 GOTO 250 230 SOUND D,3:SOUND 0,1:SOUND D,1:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND A,6:SOUND 0,3 231 RETURN 233 SOUND D,3:SOUND 0,1:SOUND D,1:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND A,6:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,6:SOUND 0,3 234 RETURN 235 SOUND G,3:SOUND 0,1:SOUND G,1:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,6:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND EM,6:SOUND 0,1:SOUND EM,2:SOUND FM,2:SOUND EM,4:SOUND 0,1 237 RETURN 238 SOUND EM,8:SOUND 0,1:SOUND DM,2:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND G,12 239 IF BOBO < 2 THEN 250 ELSE 240 237 RETURN 240 SOUND EM,16:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND DM,8:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND FH,8:SOUND 0,1:SOUND G,20 241 GOTO 268 250 CLS:BOBO = BOBO + 1:GOSUB 230 251 CIRCLE (110,170),20,,1,4:CIRCLE (85,200),20,,3,1 252 LINE(110,50)-(190,70),,BF:LINE(150,70)-(180,230):GOSUB 233 254 LINE(190,100)-(215,150),,BF:CIRCLE (240,110),40,,4,5.3:LINE(260,100)-(260,160) 256 LINE (310,45)-(350,65),,BF:LINE(310,65)-(310,210):LINE(295,120)-(330,140),,BF:GOSUB 235 258 FOR R=0 TO 15:CIRCLE (435,60),R:NEXT R:LINE(420,60)-(420,197):LINE(380,150)-(447,100) 260 CALL MOVETO (20,270):PRINT"VARIOUS DRILLS FOR 3RD AND 4TH GRADE ENGLISH":GOTO 238 268 FOR D=1 TO 2000:NEXT D 280 CLS:PRINT"" 281 PRINT" WHICH WOULD YOU LIKE TO DO? PRESS THE NUMBER." 282 PRINT"" 283 PRINT,"1. CONFUSING HOMONYMS" 284 PRINT"" 285 PRINT,"2. THIS, THAT, THESE, AND THOSE" 286 PRINT"" 287 PRINT,"3. SHORT FORMS" 288 PRINT"" 289 PRINT,"4. THERE,THEIR,THEY'RE" 290 PRINT"" 291 PRINT,"5. ALL ABOUT LETTERS" 292 PRINT"" 293 PRINT,"6. IS THE WORD A NOUN OR A VERB?" 294 PRINT"" 295 PRINT" TO SEE MORE CHOICES, PRESS THE 'M' KEY" 300 CHC$ = "" 301 CHC$ = INKEY$ 302 IF CHC$ = "1" THEN RUN "COHO" 303 IF CHC$ = "2" THEN RUN "THTH" 304 IF CHC$ = "3" THEN RUN "CONT.S" 305 IF CHC$ = "4" THEN RUN "THERE/ETC" 306 IF CHC$ = "5" THEN RUN "LETTER" 307 IF CHC$ = "6" THEN RUN "N/V" 308 IF CHC$ = "M" THEN 400 309 IF CHC$ = "7" THEN RUN "SENT" 310 IF CHC$ = "8" THEN RUN "SU/PR" 311 IF CHC$ = "F" THEN 280 312 IF CHC$ = "9" THEN RUN "VERBS" 320 GOTO 300 400 CLS:PRINT"" 401 PRINT,"7. IS IT A SENTENCE OR NOT?" 402 PRINT"" 403 PRINT,"8. TELL THE SUBJECT AND PREDICATE" 404 PRINT"" 405 PRINT,"9. CORRECT USAGE OF SOME VERBS" 406 PRINT"" 430 PRINT" TO GO BACK TO THE FIRST LIST, PRESS THE 'F' KEY" 431 GOTO 300 \ No newline at end of file diff --git a/SUB/SUB.TXT b/SUB/SUB.TXT new file mode 100644 index 0000000..1cd6cbd --- /dev/null +++ b/SUB/SUB.TXT @@ -0,0 +1 @@ +10 CLS 20 SCORE = 0:ITEM=0:TRY=0:COR=0 25 WAVE 0, SIN 30 DIM ANS(1000):DIM A$(10):DIM B$(10) \ No newline at end of file diff --git a/VOC3/VOC3.TXT b/VOC3/VOC3.TXT new file mode 100644 index 0000000..0f12bd3 --- /dev/null +++ b/VOC3/VOC3.TXT @@ -0,0 +1 @@ +10 CLS 20 DIM SCR(5000):DIM SCN(5000) 23 DIM WF%(256) FOR I= 0 TO 127 WF%(I)=127 WF%(255-I)=-128 NEXT I 25 WAVE 0, WF% 30 SCORE = 0:NUM = 0 31 CALL MOVETO(20,70):PRINT"PLEASE BE PATIENT WHILE I LOAD THE STUFF." 200 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3 202 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6 203 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5 210 SOUND C,10:SOUND 0,1:SOUND C,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND G,6:SOUND 0,2:SOUND C,5:SOUND 0,1:SOUND C,5:SOUND 0,3 213 SOUND A,8:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND B,6:SOUND 0,1:SOUND CM,4:SOUND 0,2:SOUND C,5:SOUND 0,1:SOUND C,5:SOUND 0,3 215 SOUND F,10:SOUND 0,2:SOUND G,6:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND E,8:SOUND 0,2 220 SOUND F,6:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND D,6:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND D,8:SOUND 0,2:SOUND E,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND C,6:SOUND 0,1:SOUND BB,4:SOUND 0,1:SOUND C,10 221 GOTO 300 230 SOUND F,10:SOUND 0,2:SOUND G,6:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND E,8:SOUND 0,2 235 SOUND F,6:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND D,6:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND D,8:SOUND 0,2:SOUND E,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND C,6:SOUND 0,1:SOUND BB,4:SOUND 0,1:SOUND C,10 238 RETURN 250 SOUND G,10:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND C,5:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND CM,10 251 RETURN 270 SOUND CM,5:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND F,5:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND AH,3:SOUND 0,1:SOUND AH,3 271 RETURN 300 CLS:LINE(25,25)-(460,50),,BF:LINE(30,30)-(455,45),30,BF:LINE(300,30)-(320,45),,BF 305 CALL MOVETO (325,42):PRINT "SCORE" 310 X=100:Y=110:N=1:GOSUB 330 312 X=100:Y=225:N=2:GOSUB 330 315 X=250:Y=162:N=0:GOSUB 330 317 X=400:Y=110:N=3:GOSUB 330 319 X=400:Y=225:N=4:GOSUB 330 322 GET (10,10)-(480,280),SCR 325 CLS 327 GOTO 350 330 FOR R=45 TO 50:CIRCLE(X,Y),R:NEXT R 333 CALL MOVETO (X-4,Y+35):PRINT N 335 RETURN 350 PRINT"":PRINT"":PRINT" IF YOU NAME DOES NOT REGISTER, CLICK ON THE CURSOR." 351 PRINT"":INPUT" Please type in your name and press the ENTER key."; NOMEN$ 352 IF NOMEN$="" THEN BEEP:CLS:GOTO 350 353 GOTO 500 400 CLS:PRINT"":PRINT"":GOSUB 230 401 PRINT" You now have three choices:" 403 PRINT"" 404 PRINT,"1. QUIT" 405 PRINT,"2. START OVER" 406 PRINT,"3. CONTINUE" 407 PRINT"":PRINT" Press the number key of your choice." 410 W$ = "" 411 W$ = INKEY$ 413 IF W$ = "1" THEN 950 414 IF W$ = "2" THEN RESTORE: SCORE=0:NUM=0:GOTO 500 415 IF W$ = "3" THEN 500 420 GOTO 410 425 CLS:PRINT"":PRINT"" 430 PRINT" That is all the material there is. At this time then, you may:" 435 PRINT"" 436 PRINT,"1. QUIT" 437 PRINT,"2. START OVER" 438 PRINT"":PRINT" Press the number key of your choice." 440 GOTO 410 500 CLS:READ L$,E1$,E2$,E3$,E4$,A 505 BOOP = 0 510 IF L$ = "CHOICE" THEN GOTO 400 511 IF L$ = "END" THEN GOTO 425 520 PUT (10,10),SCR 522 NUM = NUM +1 525 CALL MOVETO (35,42):PRINT NOMEN$ 527 CALL MOVETO (370,42):PRINT SCORE 528 CALL MOVETO(200,250):PRINT"TO QUIT, PRESS 9" 530 CALL MOVETO (210,160):PRINT L$ 533 CALL MOVETO (60,108):PRINT E1$ 535 CALL MOVETO (60,223):PRINT E2$ 537 CALL MOVETO (360,108):PRINT E3$ 539 CALL MOVETO (360,223):PRINT E4$ 540 SCORE = SCORE +5 545 GET (10,10)-(480,300),SCN 550 A$ = "" 551 A$ = INKEY$ 552 IF A$ ="9" THEN 950 555 IF A$ = "1" OR A$ = "2" OR A$ = "3" OR A$ = "4" THEN 560 556 GOTO 550 560 IF VAL(A$) = A THEN BOOP =BOOP +1:GOTO 600 562 SCORE = SCORE -2:SOUND CM,5:BOOP = -5 563 CALL MOVETO (20,290):PRINT "THAT IS NOT CORRECT, TRY AGAIN" 564 FOR DLAY = 1 TO 1000:NEXT DLAY:CLS:PUT (10,10), SCN 567 GOTO 550 600 CLS:GOSUB 250 605 PRINT"":PRINT"" 606 PRINT" That is correct ! 607 IF BOOP = 1 THEN 610 ELSE 615 610 PRINT" Very good." 610 CIRCLE (245,150),100 612 CIRCLE (225,100),10:CIRCLE (265,100),10 613 LINE(230,175)-(235,180):LINE-(240,182):LINE-(245,183):LINE-(250,182):LINE-(255,180):LINE-(260,175) 615 FOR DLAY = 1 TO 1000:NEXT DLAY 618 GOTO 500 950 CLS:GOSUB 270 951 PRINT"":PRINT"" 955 PRINT" "NOMEN$" did "NUM" items " 956 PRINT"" 957 PRINT" and attained a score of " SCORE 958 PRINT"":PERC = INT((SCORE/(NUM * 5))* 100) 959 PRINT " which is "PERC" %." 960 PRINT"":PRINT"" 965 PRINT" You may go get the teacher to see this score and you might get" 966 PRINT" some points. When you have finished, press the RETURN key." 968 PRINT" Please close the disc and return it to the files." 970 INPUT V 980 END 1000 DATA PUER,GIRL,BOY,TEACHER,STUDENT,2,PUELLA,GIRL,BOY,LADY,MAN,1 1001 DATA POCULUM,PLATE,FORK,CUP,KNIFE,3,STELLA,GIRL,STAR,BOOK,CUP,2 1002 DATA LIBER,STAR,CUP,BOOK,PENCIL,3,DUO,BATMAN,ROBIN,TWO,BOOK,3 1004 DATA ARBOR,STAR,TREE,ONE,GREEN,2,VIRIDIS,GREEN,PENCIL,TREE,CUP,1 1005 DATA RUBRUM,GREEN,RED,CUP,TREE,2,TRIA,CUPS,TREES,BOYS,THREE,4 1006 DATA SUNT,IS,ARE,WAS,HERE,2,FLAVA,YELLOW,FOUR,CUPS,FLAVOR,1 1007 DATA NON,NONE,NO,NOT,NEVER,3,HAEC,THIS,HERE,IS,A,1 1008 DATA MANUS,MAN,KEY,HAND,FINGER,3,TANGIT,TANGY,DANCES,TAN,TOUCHES,4 1009 DATA OCULUM,HEAD,HAND,EYE,TOUCHES,3,CUM,COME,WITH,HAND,EYE,2 1010 DATA HABET,HAS,HAND,BOOK,HABIT,1,VIDET,TELEVISION,SEES,WIDE,WIDEST,2 1011 DATA GRAPHEM,PAPER,PENCIL,LUNCH,BOOK,2,QUAE,WHAT,WHO,WHEN,WHY,1 1012 DATA QUINQUE,WHEN,AND,WHO,FIVE,4,SEX,SAKES,SIX,SICK,SOX,2 1013 DATA UNUS,ONE,UNITED,NIGHT,ONLY,1,CHOICE,O,O,O,O,0,POCULA,POKE,EYES,CUPS,STICK,3 1014 DATA DAT,SEES,HAS,WANTS,GIVES,4,NUNC,NO,NOT,NEVER,NOW,4 1015 DATA COCHLEAR,KNIFE,FORK,SPOON,EAR,3,CULTER,CULTURE,CUTTER,KNIFE,CLUTTER,3 1016 DATA PUERUM,BOYS,BOY'S,BOYS',BOY,4,MENSA,MIND,MESA,MESS,TABLE,4 1017 DATA CATILLUS,CAT,TILE,CASTLE,PLATE,4,FURCA,FUR,FOUR,FORK,HELP,3 1018 DATA EDIT,READS,WRITES,EATS,PAPER,3,JUXTA,NEXT TO,JUST,CLOSE,USED TO,1 1019 DATA PREPARATA,PREPARED,WRONG,TABLE,DISHES,1,QUATTUOR,WHO,WHAT,FOUR,FOR,3 1020 DATA CATILLI,CATERPILLAR,CATS,PLATES,CUPS,3,EST,IS,ARE,WAS,WERE,1 1021 DATA PUERO,BOY,BOYS,BOY'S,BOYS',1,MATER,MATTER,MATERIAL,MOTHER,MOTOR,3 1022 DATA APPELLATUR,IS CALLED,IS SEEN,HOLDS,IS OLD,1,FAMILIA,FAMILIAR,FAMILY,FAMOUS,HUNGRY,2 1023 DATA FILIUS,FEEL,FEELS,SON,CHILD,3,PATER,NOISE,PATTER,FATHER,HEAD,3 1024 DATA CONSIDET,SITS,CONSIDERS,SEES,HOLDS,1,LEGIT,SEES,LETS GO,LEGAL,READS,4 1025 DATA CAERULEA,RULER,SKY,BOOK,BLUE,4,BRACAE,BRACE,BRACES,BRITCHES,SHOES,3,CHOICE,O,O,O,O,0 1026 DATA SCRINIO,DESK,SCREEN,MOVIES,SCHOOL,1,SCHOLA,SCHOOL,COLA,STUDENT,CHOIR,1 1027 DATA VESTITUM,VEST,DRESS,SKIRT,WEST,2,CAPILLUS,PLATE,CUP,HAIR,DRESS,3 1028 DATA NIGER,KNEE,NEAR,CUT,BLACK,4,CULINA,KNIFE,CUTS,KITCHEN,COOL,3 \ No newline at end of file diff --git a/VOC4/VOC4.TXT b/VOC4/VOC4.TXT new file mode 100644 index 0000000..f477064 --- /dev/null +++ b/VOC4/VOC4.TXT @@ -0,0 +1 @@ +10 CLS 20 DIM SCR(5000):DIM SCN(5000) 23 DIM WF%(256) FOR I= 0 TO 127 WF%(I)=127 WF%(255-I)=-128 NEXT I 25 WAVE 0, WF% 30 SCORE = 0:NUM = 0:ITEM=0 31 PRINT"":PRINT"":PRINT" PLEASE LISTEN PATIENTLY TO THE TUNE" 32 PRINT" I LIKE TO WALK WITH RICKY" 33 PRINT" WHILE I LOAD THE PROGRAM." 200 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3 202 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6 203 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5 210 SOUND A,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND F,6:SOUND 0,4:SOUND A,4:SOUND 0,1:SOUND CM,8:SOUND 0,1 211 SOUND AH,4:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND G,16:SOUND 0,5:SOUND G,4:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND AH,8:SOUND 0,1:SOUND G,4:SOUND 0,1 213 SOUND A,4:SOUND 0,1:SOUND CM,12:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND F,16 221 GOTO 300 230 SOUND F,10:SOUND 0,2:SOUND G,6:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND E,8:SOUND 0,2 235 SOUND F,6:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND D,6:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND D,8:SOUND 0,2:SOUND E,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND C,6:SOUND 0,1:SOUND BB,4:SOUND 0,1:SOUND C,10 238 RETURN 250 SOUND G,10:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND C,5:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND CM,10 251 RETURN 270 SOUND CM,5:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND F,5:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND AH,3:SOUND 0,1:SOUND AH,3:SOUND 0,4 271 SOUND AH,5:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,5:SOUND 0,1:SOUND A,3:SOUND 0,1:SOUND A,3 272 RETURN 300 CLS:LINE(25,25)-(460,50),,BF:LINE(30,30)-(455,45),30,BF:LINE(300,30)-(320,45),,BF 305 CALL MOVETO (325,42):PRINT "SCORE" 310 X=100:Y=110:N=1:GOSUB 330 312 X=100:Y=225:N=2:GOSUB 330 315 X=250:Y=162:N=0:GOSUB 330 317 X=400:Y=110:N=3:GOSUB 330 319 X=400:Y=225:N=4:GOSUB 330 322 GET (10,10)-(480,280),SCR 325 CLS 327 GOTO 350 330 LINE(X-50,Y-50)-(X+50,Y+50),,BF 333 CALL MOVETO (X-4,Y+35):PRINT N 335 RETURN 350 PRINT"":PRINT"":PRINT" IF YOUR NAME DOES NOT REGISTER, CLICK ON THE CURSOR." 351 PRINT"":INPUT" Please type in your name and press the ENTER key."; NOMEN$ 352 IF NOMEN$="" THEN BEEP:CLS:GOTO 350 353 GOTO 500 400 CLS:PRINT"":PRINT"":GOSUB 230 401 PRINT" You now have three choices:" 403 PRINT"" 404 PRINT,"1. QUIT" 405 PRINT,"2. START OVER" 406 PRINT,"3. CONTINUE" 407 PRINT"":PRINT" Press the number key of your choice." 410 W$ = "" 411 W$ = INKEY$ 413 IF W$ = "1" THEN 950 414 IF W$ = "2" THEN RESTORE:SCORE=0:NUM=0: GOTO 500 415 IF W$ = "3" THEN 500 420 GOTO 410 425 CLS:PRINT"":PRINT"" 430 PRINT" That is all the material there is. At this time then, you may:" 435 PRINT"" 436 PRINT,"1. QUIT" 437 PRINT,"2. START OVER" 438 PRINT"":PRINT" Press the number key of your choice." 440 GOTO 410 500 CLS:READ L$,E1$,E2$,E3$,E4$,ANS 505 BOOP = 0 510 IF L$ = "CHOICE" THEN GOTO 400 511 IF L$ = "END" THEN GOTO 425 520 PUT (10,10),SCR 522 NUM = NUM +1 525 CALL MOVETO (35,42):PRINT NOMEN$" ITEMS: "NUM 527 CALL MOVETO (370,42):PRINT SCORE 528 CALL MOVETO(200,250):PRINT"TO QUIT, PRESS 9" 530 CALL MOVETO (210,160):PRINT L$ 533 CALL MOVETO (60,108):PRINT E1$ 535 CALL MOVETO (60,223):PRINT E2$ 537 CALL MOVETO (360,108):PRINT E3$ 539 CALL MOVETO (360,223):PRINT E4$ 540 SCORE = SCORE +5 545 GET (10,10)-(480,300),SCN 550 A$ = "" 551 A$ = INKEY$ 552 IF A$="9" THEN 950 555 IF A$ = "1" OR A$ = "2" OR A$ = "3" OR A$ = "4" THEN 560 556 GOTO 550 560 IF VAL(A$) = ANS THEN BOOP =BOOP +1:GOTO 600 562 SCORE = SCORE -2:SOUND CM,5:BOOP = -5 563 CALL MOVETO (20,290):PRINT "THAT IS NOT CORRECT, TRY AGAIN" 564 FOR DLAY = 1 TO 1000:NEXT DLAY:CLS:PUT (10,10), SCN 567 GOTO 550 600 CLS:GOSUB 250 605 PRINT"":PRINT"" 606 PRINT" That is correct ! 607 IF BOOP = 1 THEN 610 ELSE 615 610 PRINT" Very good." 611 LINE(250,100)-(350,200):LINE-(150,135):LINE-(350,135):LINE-(150,200):LINE-(250,100) 615 FOR DLAY = 1 TO 1000:NEXT DLAY 618 GOTO 500 950 CLS:GOSUB 270 951 PRINT"":PRINT"" 955 PRINT" "NOMEN$" did "NUM" items " 956 PRINT"" 957 PRINT" and attained a score of " SCORE 958 PRINT"":PERC = INT((SCORE/(NUM * 5))* 100) 959 PRINT " which is "PERC" %." 960 PRINT"":PRINT"" 965 PRINT" You may go get the teacher to see this score and you might get" 966 PRINT" some points. When you have finished, press the RETURN key." 968 PRINT" Please close the disc and return it to the files." 970 INPUT V 980 END 1000 DATA INSULA,CITY,COUNTRY,ISLAND,ITALY,3,URBS,CITY,ISLAND,SICILY,HUT,1 1001 DATA JUXTA,ISLAND,NEXT TO,NEXT,CITY,2,COLIT,FARMER,CITY,GRAIN,TAKES CARE OF,4 1002 DATA HABET,HOE,HUT,HAS,HELPS,3,AGER,FARMER,HOE,FIELD,GRAIN,3 1004 DATA VIR,FARMER,HOE,MAN,IS,3,INDICAT,BIRDS,FIELD,BUT,POINTS TO,4 1005 DATA SED,SAID,BIRD,BUT,PROPHET,3,AGRICOLA,GRAIN,HOE,FARMER,AUGUR,3 1006 DATA CONDUNT,ARE SITTING,ARE STARTING,FIGHT,CHOOSE,2,ERIT,WILL BE,KING,START,POINT TO,1 1007 DATA QUIS,WHAT,WHEN,WHERE,WHO,4,REX,DOG,KING,PROPHET,HUT,2 1008 DATA FRATER,CART,HORSE,BROTHER,KING,3,PUGNANT,FIGHT,KILL,CHOOSE,START,1 1009 DATA LABORANT,WORK,FIGHT,CHOOSE,KILL,1,QUIA,WHO,BECAUSE,WHY,BEGIN,2 1010 DATA ROMANORUM,ROMAN,ROMANS',ROMAN'S,ROMEN,2,EXTRA,MORE,STILL,YET,OUTSIDE OF,4 1011 DATA COLUIT,TOOK CARE OF,LOST,FOUND,FIELDS,1,OLIM,ONCE,WAS,THERE,LOST,1 1012 DATA REGEM,KING,KING'S,DEAD,GONE,1,HI,HELLO,THESE,THAT,HIM,2 1013 DATA NUNC,NO,NEW,NOW,NOT,3,CHOICE,O,O,O,O,0,CONSULTAT,CONSUL,CONSULT,RULE,DECIDE,2 1014 DATA AMANT,LOVE,LIVE,FIND,DISCUSS,1,ADJUVANT,HELP,SEEK,FIND,START,1 1015 DATA BENE,WELL,BEEN,WAS,BEANS,1,OMNES,MEN,SOLDIERS,ALL,ARE,3 1016 DATA SUNT,ARE,SEEK,DECIDE,DISCUSS,1,LEGES,SOLDIERS,VOTERS,LAWS,PEOPLE,3 1017 DATA NUMQUAM,NO ONE,NOT,NEVER,NEITHER,3,OCCIDUNT,ACCIDENT,HURT,KILL,HAPPEN,3 1018 DATA PRO,FOR,PLAYER,SOLDIER,BECAUSE,1,MILITES,SOLDIER,SOLDIERS,ARMY,BATTLE,2 1019 DATA AGROS,SAILORS,BOATS,FIELDS,FIND,3,MULTI,MANY,SOLDIER,ARMY,BATTLE,1 1020 DATA EVOCANT,CALL UP,CALL TO,VOTE ON,DECIDE,1,DESIDERAT,DECIDE,WANT,CHOOSE,START,2 1021 DATA RESPONDUNT,ANSWER,SEND BACK,COME UP,RETURN,1,ESSE,DISCUSS,VOTE ON,TO BE,CHOOSE,3 1022 DATA LOQUANTUR,PUT,PLACE,DECIDE,TALK,4,SEDET,SAY,STAY,SIT,SAT,3 1023 DATA RESPONDEBUNT,WILL GO,WANTED,REPLIED,WILL ANSWER,4,SELLA,SELL,BUY,CHAIR,SELLER,3 1024 DATA VICTOR,MAN,COURAGE,WINNER,SOLDIER,3,DE,DAY,ABOUT,AWAY,DO,2 1025 DATA BELLUM,WAR,BELL,RING,BATTLE,1,CHARTA,MAP,TABLE,PLAN,DRAW,1,CHOICE,O,O,O,O,0 1026 DATA MENSA,MAP,MEN,TABLE,PLANS,3,BONUS,PAY,GOOD,BONE,PLANS,2 1027 DATA ETIAM,AND THEN,ALSO,VIRTUE,WHEN,2,VIRTUS,MEN,UP,REAL,VIRTUE,4 1028 DATA CUM,WHEN,COME,SAY,IS,1,ESSET,BE,SIT,ALSO,SAY,1 1029 DATA DICIT,DECIDE,THROW,SAY,PLAN,3,GERIT,RIDE,HORSE,WALK,FIGHT,1 1030 DATA EQUUS,HORSE,EQUAL,ADD UP,DECIDE,1,AMBULAT,HELP,WALK,CARRY,FIGHT,2 1031 DATA PUGNANT,FIGHT,RIDE,BATTLE,FLAG,1,PARS,PART,PAIR,PAIRS,GET READY,1 1032 DATA SIGNUM,STANDARD,NAME,LEGION,ARMY,1,DIXIT,DECIDED,SAID,SENT,CARRIED,2 1033 DATA RUS,RED,FARM,RUSH,TEACH,2,EXTRA,OUTSIDE OF,NEXT TO,MORE,AGAIN,1 1034 DATA TUGURIUM,HUT,HOE,TEACHER,STOOL,1,STAT,QUICKLY,PART,STANDS,HOE,3 1035 DATA DUX,HANDS,FISTS,LEADER,DICE,3,CONTRA,TROOPS,SUPPLIES,MONEY,AGAINST,4 1036 DATA ITERUM,JOURNEY,ROUTE,SUPPLIES,AGAIN,4,SEMPER,CRY,WIMPER,ALWAYS,PROOF,3 1037 DATA DUXIT,SAID,LED,LEAD,AGAIN,2,MAGNUS,MANY,BIG,BETTER,TROOPS,2 1038 DATA COPIAS,COPY,COPIES,TROOPS,SUPPLIES,4,CHOICE,O,O,O,O,0,OBTINUIT,GOT,KEPT,OBSTINATE,ROCK,1 1039 DATA GESSIT,JELLED,PUT ON,RODE,GUESSED,3,PROELIO,FINALLY,PRIZE,BATTLE,TROOPS,3 1040 DATA POSTREMO,PERHAPS,AGAINST,ALMOST,FINALLY,4,TRES,TRACE,THREE,TRY,THINGS,2 1041 DATA AD,TO,ON,PUT,GO,1,PORTANT,HEAVY,SERIOUS,CARRY,PORT,3 1042 DATA PONENT,PUT,FIGHT,OTHER,DOCK,1,ARMA,PICK UP, WEAPONS,CARRY,BOAT,2 1043 DATA CIBUM,SWORD,FOOD,SUPPLIES,CLOTHING,2,VESTITA,VESTMENTS,CLOTHES,MONEY,CRATES,2 1044 DATA REQUIRUNT,LOOK FOR,NEED,LOSE,SEND BACK,2,ERUNT,WERE,WILL BE,MISTAKEN,WENT,2 1045 DATA VENIT,BLOOD, BLEED,COMES,SEES,3,GUBERNATOR,PEANUT,FIREMAN,POLICEMAN,GOVERNOR,4 1046 DATA DAT,GIVES,THAT,DOT,POINTS,1,TERTIA,POINTS TO,DARES,THIRD,ROUTS,3 1047 DATA BARBARUS,BEARD,BARBARIAN,BARBER,WAGON,2,VINCERE,CONQUER,SEE,COME,FIND,1 1048 DATA GLORIA,LIGHT,GIRL,FIND,FAME,4,TRANS,CARRY,ACROSS,WENT,RIDE,2 1049 DATA VIDEMUS,WE SEE,COMING,ARRIVAL,CONQUER,1,EQUITATUS,HORSES,CAVALRY,DECIDE,MEETING,2 1050 DATA EXERCITATI,EXERCISES,TRAINED,EXCITED,KILLED,2,FORTITER,FORTY,BRAVELY,STRENGTH,FIND,2,CHOICE,O,O,O,O,0 1051 DATA POSSUNT,THEY CAN,SLEEP,DEAD,THEY ASK,1,NOVOS,NINE,NEW,NOW,PRIVATE,2 1052 DATA SAPIENS,WISE,HUMBLE,FOOLISH,LOSING,1,CIRCA,AROUND,CAMP,FISH,QUICKLY,1 1053 DATA CELERITER,CAMP,QUICKLY,RUN,CAPTURED,2,CAPTUS,CAPTURED,CAPTIVE,CAMP,HAT,1 1054 DATA PAX,PACE,FOOT,FACE,PEACE,4,AMO,I LOVE,WEAPONS,FRIEND,FIND,1 1055 DATA DEUS,DAY,YOUR,TWO,GOD,4,TE,THREE,YOU,TOO,SAY,2 1056 DATA AMAMUS,WE LOVE,THEY LOVE,YOU LOVE,SHE LOVES,1,NOS,NOT,US,NINE,HIM,2 1057 DATA VOS,VOICE,CRY,SHOUT,YOU,4,VIDET,COMES,CONQUERS,SEES,KILLS,3 1058 DATA LAUDANT,PRAISE,PRAYS,LOUD,SHOUTS,1,MALUM,MAN,EVIL,HAMMER,SHIELD,2 1059 DATA POTISSIMUM,POTS,POWERFUL,ESPECIALLY,DAILY,3,PAUCI,PEACE,PIECE,FEW,SMALL,3 1060 DATA HUIUS,WHOSE,OF THESE,THEIR,HIS,2,SENEX,SENATOR,OLD MAN,TEACHER,FARMER,2 1061 DATA PUER,POOR,BOY,STUDENT,HUT,2,MILES,MILES,MILE,SOLDIER,ARMY,3 1062 DATA VENERUNT,CAME,SAW,CONQUERED,LED,1,HABUIT,HAD,GOT,ABOUT,SAID,1 1063 DATA HISTORIA,STORE,STORY,LAUGHTER,CRAZY,2,CHOICE,O,O,O,O,0,DUXIT,LED,LOST,SAID,FOUND,1 1064 DATA MORIEBANTUR,DIED,WENT AWAY, KILLED,DISCUSSED,1,AQUAM,BLUE,WATER,RIVER,SEA,2 1065 DATA RORAVIT,RAINED,ROARED,CHASED,CHOSE,1,CAELO,SKY,BLUE,JELLO,YELLOW,1 1066 DATA POSSUNT,COULD,DIED,CHASED,FORMED,1,FIEBAT,FLAT,RAN AWAY,CAME DOWN,BECAME,4 1067 DATA GRANDO,HAIL,BIG,RIVER,SAINT,1,FUGIT,RAN AWAY,SHOUTED,KILLED,CAME DOWN,1 1068 DATA AGRICOLAS,FARMER,FARMERS,FARMER'S,FARMERS',2,NAUTA,NOTHING,SAILOR,BOAT,CARRY,2 1069 DATA PECUNIA,MONEY,STRANGE,PIGS,BEAK,1,PUELLA,GIRL,GIRLS,GIRL'S,GIRLS',1 1070 DATA TURBA,FAN,CROWD,NOISE,MOTOR,2,AUDIT,HEAR,CHECK,FIND,LOOK AT,1 1071 DATA PANES,PAINS,PANS,HANDS,BREAD,4,SEPTEM,NOSE,MONTH,SEVEN,SPEAR,3 1072 DATA DATE,GIVE,DAY,FIG,TIME,1,EDIT,ATE,CHECKED,WROTE,STABBED,1 1073 DATA SATIS,ENOUGH,YOU SIT,SMART,GAVE,1,TUNC,THEM,THEN,THERE,THESE,2 1074 DATA PROXIMUS,NEIGHBOR,STAND IN,SOLDIER,ALMOST,1,LATRONES,TOILETS,ROBBERS,GARDENERS,VINEYARDS,2 1075 DATA FERE,CARRY,FARE,BOAT,ALMOST,4,SACERDOS,BALL,KICK,PLAY,PRIEST,4,CHOICE,O,O,O,O,0 1076 DATA PREHENDIT,TOOK,CHASE,FIND,LOOK FOR,1,DEDIT,DIED,DECIDE,GAVE,START,3 1077 DATA ADJUVANDUM,HELP,YOUNGSTER,SPEAR,SHIELD,1,QUIS,WHO,WHAT,WHEN,WHERE,1 1078 DATA SIMILITER,SIMPLE,SIMILAR,LIKEWISE,20 INCHES,3,SANCTUS,SAINT,SENT,GRACE,FAVOR,1 1079 DATA VIXIT,FIXED,CHOSE,LIVED,CONQUERED,3,HAC,THIS,HIGH,WHICH,PLACE,1 1080 DATA EPISCOPUS,BISHOP,BINOCULARS,GLASS,HORSEMAN,1,BESTIA,GOOD,BEST,BEAST,BET,3 1081 DATA NUNC,NONCE,NOW,NEVER,ONCE,2,APPARUIT,DIVIDED OFF,APPEARED,SEEMED,PREPARED,2 1082 DATA CRUX,CROSS,IMPORTANT,AN 'X',SIGNATURE,1,VINCES,WILL CONQUER,WEAK,SAW,ARRIVED,1 1083 DATA PONTIS,GOVERNOR,BRIDGE,SADDLE,BOOT,2,POST,PLACE,STATION,AFTER,FOR,3 1084 DATA VERBI,ACTIONS,SPEAK,LOUDER,WORDS,4,IMPERATOR,COMMAND,EMPEROR,EMPIRE,SENTENCE,2 1999 DATA END,O,O,O,O,0 \ No newline at end of file diff --git a/VOC5/VOC5.TXT b/VOC5/VOC5.TXT new file mode 100644 index 0000000..97fc679 --- /dev/null +++ b/VOC5/VOC5.TXT @@ -0,0 +1 @@ +10 CLS 20 DIM SCR(5000):DIM SCN(5000) 23 DIM WF%(256) FOR I= 0 TO 127 WF%(I)=127 WF%(255-I)=-128 NEXT I 25 WAVE 0, WF% 30 SCORE = 0:NUM = 0 31 PRINT"":PRINT"":PRINT" PLEASE LISTEN TO THE TUNE" 32 PRINT" AND THE BAND PLAYED ON" 33 PRINT" WHILE I LOAD THE PROGRAM." 200 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3 202 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6 203 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5 210 SOUND GH,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND GH,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND G,4:SOUND 0,1 \ No newline at end of file diff --git a/VOC6/VOC6.TXT b/VOC6/VOC6.TXT new file mode 100644 index 0000000..3e79527 --- /dev/null +++ b/VOC6/VOC6.TXT @@ -0,0 +1 @@ +10 CLS 20 DIM SCR(5000):DIM SCN(5000) 30 SCORE = 0:NUM = 0 31 PRINT"":PRINT"" 32 PRINT" WHICH DO YOU WANT TO DO?" 33 PRINT" 1. CHOICE OF ENGLISH FOR A LATIN WORD, OR" 35 PRINT" 2. CHOICE OF LATIN FOR AN ENGLISH WORD." 37 PRINT"":PRINT" PRESS THE NUMBER FOR YOUR CHOICE." 39 CHC$="" 40 CHC$=INKEY$ 41 IF CHC$="1" THEN CLS:GOTO 198 42 IF CHC$="2" THEN RUN "VOC6E" 45 GOTO 39 198 PRINT"":PRINT"":PRINT" THE TUNE IS 'LILI MARLENE'" 200 WAVE 0, SIN 201 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3 202 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6 203 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5 210 SOUND E,6:SOUND 0,1:SOUND E,2:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND F,2:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND E,8:SOUND 0,1:SOUND F,6:SOUND 0,1:SOUND F,2:SOUND 0,1:SOUND F,6:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND B,16:SOUND 0,1 211 GOTO 300 212 SOUND D,6:SOUND 0,1:SOUND D,2:SOUND 0,1:SOUND D,6:SOUND 0,1:SOUND E,2:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND F,6:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND B,6:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND F,4:SOUND 0,1 213 RETURN 214 SOUND E,12:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND B,6:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND B,8:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND B,12:SOUND 0,1:SOUND A,4:SOUND 0,1 215 RETURN 216 SOUND G,8:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND A,12:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND E,8:SOUND 0,1:SOUND G,12:SOUND 0,1 217 RETURN 218 SOUND E,4:SOUND 0,1:SOUND G,12:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND F,8:SOUND 0,1 219 RETURN 220 SOUND DM,8:SOUND 0,1:SOUND CM,16:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND E,8:SOUND 0,1:SOUND G,12:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND BB,8:SOUND 0,1:SOUND C,12 221 RETURN 230 SOUND G,8:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND G,2.6:SOUND 0,1:SOUND F,2.6:SOUND 0,1:SOUND G,2.6:SOUND 0,1:SOUND GH,8:SOUND 0,1:SOUND GH,8:SOUND 0,8 231 SOUND F,6:SOUND 0,1:SOUND F,2:SOUND 0,1:SOUND AH,12:SOUND 0,1:SOUND GH,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND AH,8:SOUND 0,8 232 SOUND G,8:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND G,2.6:SOUND 0,1:SOUND F,2.6:SOUND 0,1:SOUND G,2.6:SOUND 0,1:SOUND GH,8:SOUND 0,1:SOUND GH,8:SOUND 0,8 233 SOUND AHB,4:SOUND 0,1:SOUND AHB,4:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND DH,16 238 RETURN 250 SOUND B,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND B,4:SOUND 0,1 251 SOUND B,6:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,4:SOUND 0,1 252 SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,6:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND G,4:SOUND 0,1 253 SOUND A,4:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1 254 SOUND A,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1 255 SOUND A,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,6:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND G,12 252 RETURN 270 SOUND CM,5:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND F,5:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND AH,3:SOUND 0,1:SOUND AH,3 271 RETURN 300 LINE(25,25)-(460,50),,BF:LINE(30,30)-(455,45),30,BF:LINE(300,30)-(320,45),,BF 305 CALL MOVETO (325,42):PRINT "SCORE" 310 X=100:Y=110:N=1:GOSUB 212:GOSUB 330 312 X=100:Y=225:N=2:GOSUB 214:GOSUB 330 315 X=250:Y=162:N=0:GOSUB 216:GOSUB 330 317 X=400:Y=110:N=3:GOSUB 218:GOSUB 330 319 X=400:Y=225:N=4:GOSUB 220:GOSUB 330 322 GET (10,10)-(480,280),SCR 325 CLS 327 GOTO 349 330 LINE(X-50,Y-50)-(X+50,Y+50),,BF:LINE(X-47,Y-47)-(X+47,Y+47),30,BF 331 FOR R=0 TO 46:CIRCLE(X,Y),R:NEXT R 333 CALL MOVETO (X-4,Y+35):PRINT N 335 RETURN 349 PRINT"":PRINT"":PRINT" IF YOUR NAME DOESN'T REGISTER,CLICK ON THE CURSOR AND TRY AGAIN." 350 PRINT"":INPUT" Please type in your name and press the ENTER key."; NOMEN$ 325 IF NOMEN$="" THEN BEEP:CLS:GOTO 349 353 CALL MOVETO(30,150):PRINT"YOU MAY ENTER ANY NUMBER FROM 1 THROUGH 5." CALL MOVETO(30,170):PRINT"THE BIGGER THE NUMBER, THE LATER IN THE BOOK" CALL MOVETO(30,190):PRINT"WORDS COME FROM. SO YOU MAY GO OVER LATER WORDS" CALL MOVETO(30,210):PRINT"BY CHOOSING THE HIGHER NUMBER." 355 A$="" A$=INKEY$ IF A$="1" THEN 361 IF A$="2" THEN 362 IF A$="3" THEN 363 IF A$="4" THEN 364 IF A$="5" THEN 365 GOTO 355 361 RESTORE 1000:GOTO 500 362 RESTORE 1012:GOTO 500 363 RESTORE 1024:GOTO 500 364 RESTORE 1036:GOTO 500 365 RESTORE 1048:GOTO 500 400 CLS:PRINT"":PRINT"":GOSUB 230 401 PRINT" You now have three choices:" 403 PRINT"" 404 PRINT,"1. QUIT" 405 PRINT,"2. START OVER" 406 PRINT,"3. CONTINUE" 407 PRINT"":PRINT" Press the number key of your choice." 410 W$ = "" 411 W$ = INKEY$ 413 IF W$ = "1" THEN 950 414 IF W$ = "2" THEN CLS: NUM=0:ITEM=0:GOTO 353 415 IF W$ = "3" THEN 500 420 GOTO 410 425 CLS:PRINT"":PRINT"":GOSUB 250 430 PRINT" That is all the material there is. At this time then, you may:" 435 PRINT"" 436 PRINT,"1. QUIT" 437 PRINT,"2. START OVER" 438 PRINT"":PRINT" Press the number key of your choice." 440 GOTO 410 500 CLS:READ L$,E1$,E2$,E3$,E4$,ANS 505 BOOP = 0 510 IF L$ = "CHOICE" THEN GOTO 400 511 IF L$ = "END" THEN GOTO 425 520 PUT (10,10),SCR 522 NUM = NUM +1 525 CALL MOVETO (35,42):PRINT NOMEN$ 527 CALL MOVETO (370,42):PRINT SCORE 528 CALL MOVETO(200,250):PRINT"TO QUIT PRESS 9" 530 CALL MOVETO (210,160):PRINT L$ 533 CALL MOVETO (60,108):PRINT E1$ 535 CALL MOVETO (60,223):PRINT E2$ 537 CALL MOVETO (360,108):PRINT E3$ 539 CALL MOVETO (360,223):PRINT E4$ 540 SCORE = SCORE +5 545 GET (10,10)-(480,300),SCN 550 A$ = "" 551 A$ = INKEY$ 552 IF A$="9" THEN 950 555 IF A$ = "1" OR A$ = "2" OR A$ = "3" OR A$ = "4" THEN 560 556 GOTO 550 560 IF VAL(A$) = ANS THEN BOOP =BOOP +1:GOTO 600 562 SCORE = SCORE -2:SOUND CM,5:BOOP = -5 563 CALL MOVETO (20,290):PRINT "THAT IS NOT CORRECT, TRY AGAIN" 564 FOR DLAY = 1 TO 1000:NEXT DLAY:CLS:PUT (10,10), SCN 567 GOTO 550 600 CLS:GOSUB 270 605 PRINT"":PRINT"" 606 PRINT" That is correct ! 607 IF BOOP = 1 THEN 610 ELSE 615 610 PRINT" Very good." 611 PRINT"":PRINT"":PRINT"":PRINT" CONGRATULATIONS ! ! !" 612 PRINT"":PRINT"":PRINT" YAY ! ! WOW ! ! ETC. ! ! " 615 FOR DLAY = 1 TO 1000:NEXT DLAY 618 GOTO 500 950 CLS 951 PRINT"":PRINT"" 955 PRINT" "NOMEN$" did "NUM" items " 956 PRINT"" 957 PRINT" and attained a score of " SCORE 958 PRINT"":PERC = INT((SCORE/(NUM * 5))* 100) 959 PRINT " which is "PERC" %." 960 PRINT"":PRINT"":GOSUB 250 965 PRINT" You may go get the teacher to see this score and you might get" 966 PRINT" some points. When you have finished, press the RETURN key." 968 PRINT" Please close the disc and return it to the files." 970 INPUT V 980 END 1000 DATA TERRA,PATIO,YARD,PORCH,LAND,4,PORTA,CARRIER,CARRY,PORT,GATE,4,NAUTA,KNOT,NAVIGATOR,SAILOR,CHEESE,3,VICTORIA,NUN,FAME,VICTORY,STATUE,3,SILVA,SILVER,FOREST,HORSE,BULLET,2,GLORIA,WOMAN,FAME,PRAYER,MORNING,2 1001 DATA INSULA,FIBER GLASS,ISLAND,WIRE,ALONE,2,PENINSULA,PENINSULA,ISLAND,CAPE,INK PEN,1,REGINA,QUEEN,GIRL,KINGDOM,ROYAL POWER,1,PATRIA,FATHER,COUNTRY,NOBLEMAN,COMMONER,2,CHOICE,O,O,O,O,0 1002 DATA VIA,BY WAY OF,ROAD,BRIDGE,AGAINST,2,TURBA,HORN,NOISE,FAN,CROWD,4,PROTELUM,TEAM,SPEAR,PRIZE,BATTLE,1,CHORUS,CHOIR,VERSE,POEM,MUSIC,1,ORCHESTRA,ORCHESTRA,FRONT SEATS,MAIN FLOOR,FROM ORCH,1 1003 DATA TRIUMPHUS,WINNER,PARADE,THREE BREATHS,TUBA,2,SYNODUS,ASSEMBLY,PARAGRAPH,CHURCH,SAME SOUND,1,SENATUS,OLD MAN,COUNCIL,SENATE,LEADER,3,FAMILIA,FAMILY,FAMILIAR,FAMOUS,FIVE THOUSAND,1 1004 DATA EXERCITUS,EXERCISE,LESSON,EXERT,ARMY,4,CHOICE,O,O,O,O,0,AD,SHOW,GO,TO,IN,3,LEGIO,LEGION,I READ,LAWS,LEGENDARY,1 1005 DATA BELLUM,BELL,BELLS,RING,WAR,4,PERICULUM,REWARD,TEAM,DANGER,AREA AROUND,3,PRAEMIUM,TEAM,PRIZE,FIRST PLACE,CHIEF,2,SIGNUM,SIGNAL,NAME,SINGLE,SWAN,1,SERVUS,SERVER,SERVANT,SERF,SLAVE,4 1006 DATA FILIUS,FEELINGS,FILE,SON,BROTHER,3,AMICUS,FRIEND,SCARF,SPORTSMAN,WAX,1,AD,TOWARD,STRANGE,BY,PLUS,1,CHOICE,O,O,O,O,0 1007 DATA POPULUS,PEOPLE,POPULAR,FATHER,CROWD,1,PROVINCIA,BUMPKIN,RURAL,COUNTRYSIDE,PROVINCE,4,SERVA,DISH,SPOON,SLAVE,BRING,3,AMICA,FRIEND,CART,TIGER,HORSE,1,FILIA,FOLDER,DAUGHTER,SISTER,PANCAKE,2,VIR,TURN AWAY,MAN,GIRL,HEART,2 1008 DATA MEUS,I,ME,MY,FOR ME,3,TUUS,TWO,TOO,TO,YOUR,4,MAGNUS,MAGNET,LAMB,LAMP,BIG,4,DIES,GOD,ABOUT,DAY,PERISHES,3,CHOICE,O,O,O,O,0 1009 DATA RES,KING,DOG,THING,RACE,3,SPES,SPACE,SPICE,SPY,HOPE,4,FIDES,CAT,HAPPY,FAITH,DOG,3,PATRONUS,NOBLEMAN,RICH PERSON,FATHER,PATRON,4,DEUS,DAY,DUES,CONCERNING,GOD,4,LOCUS,PLACE,GRASSHOPPER,FAT FREE,PLANT,1 1010 DATA MURUS,EYE DROPS,WALL,PICTURE,DITCH,2,ANGELUS,ANGEL,PRAYER,ANGLE,ENGLAND,1,MEDICUS,DOCTOR,MEDICAL,MEDICINE,MIDDLE,1,NATURA,NATURAL,NATURE,BORN,ESSENCE,2,CHOICE,O,O,O,O,0 1011 DATA AGRICOLA,SODA POP,SAILOR,FARMER,MINISTER,3,SPIRITUS,SPIRIT,SPIRAL,SPRITE,LIVELY,1,ADVENTUS,SEASON,FALL,WINDY,ARRIVAL,4,METUS,PATH,OPENING,METALLIC,FEAR,4,MANUS,MAN,LABOR,DUNG,HAND,4,PUER,POOR,BOY,BOYS,PURE,2 1012 DATA PUELLAM,GIRL,GIRLS,GIRL'S,GIRLS',1,BONUS,CANDY,BIG,GOOD,PAY,3,PARVUS,POOR,LITTLE,PAIR,ROAD,2,AD,WEIRD,WIRED,UNUSUAL,TO,4,CHOICE,O,O,O,O,0 1013 DATA ANTE,AUNT,BEFORE,AFTER,DURING,2,IN,INTO,OUT,NOT,BETWEEN,1,INTER,AMONG,INTO,OUT OF,ONTO,1,PER,PAIR,ONE EACH,DIVIDE,THROUGH,4,POST,PLACE,STATION,BEHIND,LATER,3,TRANS,GO,CROSS,ACROSS,WIDE,3 1014 DATA A OR AB,BY,TO,IN,THROUGH,1,CUM,WITH,COME,LORD,BE,1,DE,DAY,GODS,ABOUT,DISCUSS,3,E OR EX,USED TO BE,OUT OF,INTO,GO,2,CHOICE,O,O,O,O,0 1015 DATA IN +ABL.,IN,INTO,TO,THROUGH,1,PRO,SPORTSMAN,GOLFER,FOR,AGAINST,3,SINE,FOR,WITH,WITHOUT,DURING,3,MIHI,I,ME,MY,FOR ME,4,TU,YOU,YOUR,YOURS,TWO,1,IS,HE,IT,IS,ARE,1,QUIS?,WHO?,WHAT?,WHY?,WHICH?,1 1016 DATA QUI,WHO,WHEN,WHY,ONE,1,SE,SELF,THUS,YES,HIMSELF,4,SANCTUS,HEALTHY,HAPPY,HOLY,LUCKY,3,CHOICE,O,O,O,O,0 1017 DATA LONGUS,FINALLY,FAR AWAY,WISH FOR, LONG,4,MALUS,HAMMER,APPLE,MAN,EVIL,4,RUBRUS,RED,RUBBER,ROBBER,FARMER,1,ALBUS,ROBE,HONEST,WHITE,CLEAR,3,BENIGNUS,FUNNY,CLEAR,KIND,BIG,3,LAETUS,WIDE,HAPPY,LATE,SLOW,2,ALTUS,SINGER,WIDE,DEEP,OLD,3 1018 DATA FORTUNATUS,LUCKY,RICH,HAPPY,CHARLIE,1,LATUS,WIDE,MUSCLE,BACK,LATE,1,UNUS,TOGETHER,CLEAR,ONE,NOT,3,CHOICE,O,O,O,O,0 1019 DATA DUO,BATMAN,FIGHT,OWED,TWO,4,TRES,CURL,HAIR,THREE,TREE,3,QUINQUE,WHOEVER,WHENEVER,FOUR,FIVE,4,NOVEM,NEW,UNUSUAL,NINE,NONE,3,HIC HAEC HOC,THIS,THAT,THEM,HERE,1,VESTER,DRESS,DRESSINGROOM,FRONT HALL,YOUR,4 1020 DATA NOSTER,NIGHT,NIGHTLY,COFFEE,OUR,4,PATER,PATTER,COUNTRY,FATHER,FATHERLAND,3,MATER,MATTER,WIFE,BED,MOTHER,4,FRATER,SHIP,TRAIN,TRUCK,BROTHER,4,CHOICE,O,O,O,O,0 1021 DATA SOROR,HURT,CUT,SEED THROWER,SISTER,4,HOMO,LIKE,MILK,HUMAN,BEAN,3,VIRTUS,TRUTH,MANLINESS,STRENGTH,COURAGE,2,VOX,NIGHT,WOODS,LEADER,VOICE,4,COLLIS,DOG,HILL,BRIDGE,NECK,2,MONS,GROANS,BRIDGE,MOUNTAIN,LEADER,3,PARS,PAIR,PART,SCORE,SPARE,2 1022 DATA URBS,COUNTRY,COUNTRYSIDE,CITY,FARM,3,BREVIS,SHORTS,SHORT,PRAYERS,PAPERS,2,COMMUNIS,COMMON,PLAIN,USUAL,PEDESTRIAN,1,CHOICE,O,O,O,O,0 1023 DATA DIFFICILIS,DIFFUSE,HARD,DIFFICULTIES,EASY,2,FACILIS,DONE,MADE,EASY,FACTS,3,GRAVIS,IMPORTANT,SPECIAL,HARD,DEEP,1,OMNIS,HUMAN,POWERFUL,ALL,SCIENTIFIC,3,CORPUS,BODY,SOLDIER,HEAD,GROUP,1,FLUMEN,AVIATOR,NAVIGATOR,LAKE,RIVER,4 1024 DATA ITER,AGAIN,ROUTE,GOES,ROAD,2,NOMEN,DIAL,NO ONE,NUMBER,NAME,4,CAPUT,DEAD,HEAD,LEAD,READ,2,TEMPUS,TEMPLE,TIME,SPEED,TIDE,2,CHOICE,O,O,O,O,0 1025 DATA AETERNUS,ETERNAL,BIRD,AGE,CAGE,1,OMNIPOTENS,ALMIGHTY,UBIQUITOUS,READY,NOMINAL,1,CAELUM,STOMACH,SKY,BLUE,SPOON,2,ALIENUS,STRANGE,ANGLED OVER,FOOD,READY,1,PENSUM,PENCIL,FEATHER,FEATHERED,TASK,4,ORATIO,SPEAKER,SPEECH,BEG,SING,2 1026 DATA MUNUS,GIFT,DUTY,HAND,EARTH,2,AMICITIA,SCARF,CHEATING,JUDGE,FRIENDSHIP,4,AQUA,BLUE,STONE,LAKE,WATER,4,FRIGIDUS,UNBENDABLE,CLOSED,COLD,FLOWING,3,CHOICE,O,O,O,O,0 1027 DATA AUXILIUM,LADIES,HELP,TROOPS,CAVALRY,2,CIVITAS,STATE,CITIZEN,SWAN,HEARTH,1,CUSTOS,JAIL,GUARD,PUDDING,LAST STAND,2,DOMINUS,LORD,SUNDAY,GAME,PIZZA,1,FORTIS,FORT,BRAVE,FORTY,LOUD,2,LIBER,FREE,LIVER,BOOK,WOMAN,3 1028 DATA LAUDAT,PRAISES,PRAYS,SHOUTS,FINDS,1,ORAT,TALKS,SHOUTS,CALLS,PRAYS,4,PARAT,DIVIDES,PREPARES,WALKS,MARCHES,2,VOCAT,CALLS,VOTES,PRAYS,PRAISES,1,CHOICE,O,O,O,O,0 1029 DATA CALIDUS,SHOE,WHITE,HONEST,WARM,4,DAT,THAT,DOT,SPOT,GIVES,4,HABET,HOLD,HABIT,TRY,REPEAT,1,MANET,MAN,STATION,MOUNT,STAY,4,VIDET,COMES,SEES,CONQUERS,WIDEN,2,AGIT,GROW,CARE FOR,DO,FARM,3,MITTIT,HAND,HELP,SEND,REJOICE,3 1030 DATA AUDIT,GO OVER,CHECK,TAX,HEAR,4,CREDIT,OKAY,SPEND,BELIEVE,LEFEEV,3,ACCIPIT,HAPPEN,HOLD,RECEIVE,SEIZE,3,CHOICE,O,O,O,O,0 1031 DATA ADORAT,PRAYS TO,LISTENS TO,GOES TO,FINDS,1,COGNOSCIT,FINDS,FITS,KNOWS,NAMES,3,VENIT,COMES,GOES,SEES,CONQUERS,1,CONVENIT,ASSEMBLES,WORKS,AGREES,DECIDES,1,DEMONSTRAT,SHOWS,TAKES DOWN,SELLS,SCARES,1,DOCET,SAILS,SHOWS,TEACHES,LEADS,3 1032 DATA IT,GOES,SEES,IS,WAS,1,ASCENDIT,GOES UP, COMES UP,TAKES UPON,DECIDES,1,VALET,HELPS,SERVES,IS WELL,PRICES,3,CADET,BEGINS,CATCHES,FALLS,FINDS,3,CHOICE,O,O,O,O,0 1033 DATA HABITAT,HOUSE,DWELLS,HAS,HOLDS,2,FLET,FLEES,CHASES AWAY,FLATTENS,CRIES,4,JACET,PUTS ON,TAKES OFF,LIES DOWN,THROWS,3,ESTIS,YOU ARE,HE IS,BE,WILL BE,1,CRESCIT,GROWS,CRASHES,FLAVORS,TASTES,1,FRAGRANT,BURNS,SMELLS,OBVIOUS,SINS,2 1034 DATA SONIT,RECEIVE,TAKE,SOUND,SEEM,3,FIET,CRY,DISOWN,CURSE,BECOME,4,PERMANET,ENDURE,CURL,MAKE PRETTY,SPREAD OUT,1,APPARET,SEEM,DIVIDE UP,PREPARE,APPEAR,4,CHOICE,O,O,O,O,0 1035 DATA SAPIT,KNOWS,UNDERSTANDS,TASTES,GROWS,3,DULCIS,DULL,WEARS OUT,DOUBLE UP,SWEET,4,CLARUS,LOUD,COVER UP,CURLY,BURNED,1,DOMI,SING,AT HOME,RULE,BE FIRST,2,FLOS,BRUSH,CLEAN,STRING,FLOWER,4,NARRAT,TELL,COME CLOSE,CLOSE,BLOW NOSE,1 1036 DATA ADMINISTRAT,SAY MASS,TAKE CARE OF,GO INTO,CONQUER,2,FACIT,DECIDE,MAKE,GET,TIGHTEN,2,SUPERAT,WIN,EAT,BE THERE,STRONG RAT,1,FABULA,LEG BONE,FANTASTIC,STORY,CHATTER,3,CHOICE,O,O,O,O,0 1037 DATA INCOLIT,DWELL IN,FARM ON,SURROUND,CUT OFF,1,RELINQUIT,LEAVE BEHIND,MELT,CHANGE,HEAVE TO,1,CASTRA,LEADER,CASTLE,PLAY,FORT,4,AUXILIA,GENERATOR,REINFORCEMENTS,EXTRA,LISTEN TO,2,COPIAE,TROOPS,ENOUGH,RATIONS,FOOD,1,EQUITES,MONEY,HORSEMEN,EVEN,FLAT,2 \ No newline at end of file diff --git a/VOC7/VOC7.TXT b/VOC7/VOC7.TXT new file mode 100644 index 0000000..7e5f691 --- /dev/null +++ b/VOC7/VOC7.TXT @@ -0,0 +1 @@ +10 CLS 20 DIM SCR(5000):DIM SCN(5000) 30 SCORE = 0:NUM = 0:CYC=0:SECTION=1 190 GOTO 300 200 WAVE 0, SIN 201 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3 202 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6 203 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5 210 SOUND G,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND AH,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND AH,8:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,18:SOUND 0,1 211 RETURN 212 SOUND D,4:SOUND 0,1:SOUND F,18:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND AH,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND AH,8:SOUND 0,1:SOUND CM,4:SOUND 0,1 213 RETURN 214 SOUND DM,12:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND DM,12:SOUND 0,1:SOUND AH,2:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND DM,8:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND CM,8:SOUND 0,1 215 RETURN 216 SOUND CM,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND AH,8:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND A,4:SOUND 0,1 217 RETURN 218 SOUND AH,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND DM,10:SOUND 0,1:SOUND CM,10:SOUND 0,1:SOUND AH,10:SOUND 0,1:SOUND A,10:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND G,18 221 RETURN 230 SOUND GH,4:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND GH,2:SOUND 0,1:SOUND AH,6:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND AH,6:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND GH,8:SOUND 0,1:SOUND F,10 231 SOUND 0,4:SOUND F,4:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND AH,6:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND GH,4:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND GH,2:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND DH,18:SOUND 0,4 232 SOUND GH,4:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND GH,2:SOUND 0,1:SOUND AH,6:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND AH,6:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND GH,8:SOUND 0,1 233 SOUND F,10:SOUND 0,4:SOUND F,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND DH,8:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND GH,4:SOUND 0,1:SOUND AH,2:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND DH,2:SOUND 0,1:SOUND GH,12 238 RETURN 250 SOUND G,2:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND EM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND CM,8:SOUND 0,1 251 SOUND A,4:SOUND 0,1:SOUND DM,10:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND DM,10:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND EM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1 252 SOUND A,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND E,2:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND D,8:SOUND 0,1 253 SOUND E,4:SOUND 0,1:SOUND C,6:SOUND 0,1:SOUND CM,1:SOUND 0,1:SOUND CM,2:SOUND 0,3:SOUND E,4:SOUND 0,1:SOUND D,6:SOUND 0,1:SOUND B,1:SOUND 0,1:SOUND B,2:SOUND 0,3:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1 254 SOUND E,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND EM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND C,6:SOUND 0,1:SOUND CM,1:SOUND 0,1:SOUND CM,2:SOUND 0,2 255 SOUND E,4:SOUND 0,1:SOUND D,6:SOUND 0,1:SOUND B,1:SOUND 0,1:SOUND B,2:SOUND 0,3:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND EM,16:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND DM,3:SOUND 0,1:SOUND CM,6 259 RETURN 270 IF CYC = 1 THEN 274 271 SOUND CM,5:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND F,5:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND AH,3:SOUND 0,1:SOUND AH,3 272 CYC=1 273 RETURN 274 SOUND AH,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,3:SOUND 0,1:SOUND A,3:SOUND 0,1:SOUND A,6 275 CYC = 0 276 RETURN 300 LINE(25,25)-(460,50),,BF:LINE(30,30)-(455,45),30,BF:LINE(300,30)-(320,45),,BF 305 CALL MOVETO (325,42):PRINT "SCORE" 310 X=100:Y=110:N=1:GOSUB 200:GOSUB 330 312 X=100:Y=225:N=2:GOSUB 212:GOSUB 330 315 X=250:Y=162:N=0:GOSUB 214:GOSUB 330 317 X=400:Y=110:N=3:GOSUB 216:GOSUB 330 319 X=400:Y=225:N=4:GOSUB 218:GOSUB 330 322 GET (10,10)-(480,280),SCR 325 CLS 327 GOTO 350 330 LINE(X-50,Y-50)-(X+50,Y+50),,BF 331 FOR R=0 TO 46:CIRCLE(X,Y),R,30:NEXT R 333 CALL MOVETO (X-4,Y+35):PRINT N 335 RETURN 350 PRINT"":PRINT"":PRINT" IF YOUR NAME DOES NOT REGISTER, CLICK ON THE CURSOR." 351 PRINT"":INPUT" Please type in your name and press the ENTER key."; NOMEN$ 352 IF NOMEN$="" THEN BEEP:CLS:GOTO 350 PRINT"":PRINT PRINT"WHICH SET WOULD YOU LIKE TO DO?" INPUT"ANY NUMBER FROM 1 THROUGH 10"; SET 353 GOTO 450 400 CLS:PRINT"":PRINT"":GOSUB 230 401 PRINT" You now have three choices:" 403 PRINT"" 404 PRINT,"1. QUIT" 405 PRINT,"2. START OVER" 406 PRINT,"3. CONTINUE" 407 PRINT"":PRINT" Press the number key of your choice." 410 W$ = "" 411 W$ = INKEY$ 413 IF W$ = "1" THEN 950 414 IF W$ = "2" THEN RESTORE: NUM=0:ITEM=0:GOTO 500 415 IF W$ = "3" THEN SECTION=SECTION+1:GOTO 500 420 GOTO 410 425 CLS:PRINT"":PRINT"":GOSUB 250 430 PRINT" That is all the material there is. At this time then, you may:" 435 PRINT"" 436 PRINT,"1. QUIT" 437 PRINT,"2. START OVER" 438 PRINT"":PRINT" Press the number key of your choice." 440 GOTO 410 450 ON SET GOTO 451,452,453,454,455,456,457,458,459,460 451 RESTORE 1000: GOTO 500 452 RESTORE 1006: GOTO 500 453 RESTORE 1011: GOTO 500 454 RESTORE 1016: GOTO 500 455 RESTORE 1021: GOTO 500 456 RESTORE 1026: GOTO 500 457 RESTORE 1031: GOTO 500 458 RESTORE 1036: GOTO 500 459 RESTORE 1041: GOTO 500 460 RESTORE 1046: GOTO 500 500 CLS:READ L$,E1$,E2$,E3$,E4$,ANS 505 BOOP = 0 510 IF L$ = "CHOICE" THEN GOTO 400 511 IF L$ = "END" THEN GOTO 425 520 PUT (10,10),SCR 522 NUM = NUM +1 525 CALL MOVETO (35,42):PRINT NOMEN$" SECTION "SECTION 527 CALL MOVETO (370,42):PRINT SCORE 528 CALL MOVETO (200,250):PRINT"TO QUIT, PRESS 9" 530 CALL MOVETO (210,160):PRINT L$ 533 CALL MOVETO (60,108):PRINT E1$ 535 CALL MOVETO (60,223):PRINT E2$ 537 CALL MOVETO (360,108):PRINT E3$ 539 CALL MOVETO (360,223):PRINT E4$ 540 SCORE = SCORE +5 545 GET (10,10)-(480,300),SCN 550 A$ = "" 551 A$ = INKEY$ 552 IF A$ = "9" THEN 950 555 IF A$ = "1" OR A$ = "2" OR A$ = "3" OR A$ = "4" THEN 560 556 GOTO 550 560 IF VAL(A$) = ANS THEN BOOP =BOOP +1:GOTO 600 562 SCORE = SCORE -2:SOUND CM,5:BOOP = -5 563 CALL MOVETO (20,290):PRINT "THAT IS NOT CORRECT, TRY AGAIN" 564 FOR DLAY = 1 TO 1000:NEXT DLAY:CLS:PUT (10,10), SCN 567 GOTO 550 600 CLS:GOSUB 270 605 PRINT"":PRINT"" 606 PRINT" That is correct ! 607 IF BOOP = 1 THEN 610 ELSE 615 610 PRINT" Very good." 611 PRINT"":PRINT"":PRINT"":PRINT" CONGRATULATIONS ! ! !" 612 PRINT"":PRINT"":PRINT" YAY ! ! WOW ! ! ETC. ! ! " 615 FOR DLAY = 1 TO 1000:NEXT DLAY 618 GOTO 500 950 CLS 951 PRINT"":PRINT"" 955 PRINT" "NOMEN$" did "NUM" items " 956 PRINT"" 957 PRINT" and attained a score of " SCORE 958 PRINT"":PERC = INT((SCORE/(NUM * 5))* 100) 959 PRINT " which is "PERC" %." 960 PRINT"":PRINT"":GOSUB 250 965 PRINT" You may go get the teacher to see this score and you might get" 966 PRINT" some points. When you have finished, press the RETURN key." 968 PRINT" Please close the disc and return it to the files." 970 INPUT V 980 END 1000 DATA TERRA,TRY,GIRL,SAILOR,LAND,4,PORTA,PORT,CARRY,GATE,WALL,3,NAUTA,NOT,SAILOR,SOLDIER,FOREST,2,SILVA,SYLVIA,TREE,FOREST,SILLY,3,GLORIA,GLORIA,FAME,PORTALS,MASS,2 1002 DATA ORAT,HE PRAYS,HE PRAISE,THEY PRAY,MOUTH,1,VIDENT,HE SEES,HE SEIZE,THEY SEE,WIDE,3,NON,NEVER,NONE,NINE,NOT,4,LAUDAT,HE SHOUTS,THEY SHOUT,HE PRAISES,LOUD,3,PROVINCIA,STATE,PROVINCE,PROVINCIAL,PROVENAL,2 \ No newline at end of file