all text files

1/1.TXT

@@ -0,0 +1 @@
+10 CLS:PRINT"    THIS IS EXERCISE 1"

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

10/10.TXT

@@ -0,0 +1 @@
+10 CLS:PRINT"    THIS IS EXERCISE 10"

14/14.TXT

@@ -0,0 +1 @@
+10 CLS:PRINT"    THIS IS EXERCISE 14"

19/19.TXT

@@ -0,0 +1 @@
+5 DIM SCR(6000):DIM BOX(800)

2/2.TXT

@@ -0,0 +1 @@
+10 CLS:PRINT"    THIS IS EXERCISE 2"

20/20.TXT

@@ -0,0 +1 @@
+3 DIM SCR(5000):DIM BOX(800):DIM SMFC(200):DIM FFC(200):DIM PIECE(800)

23/23.TXT

@@ -0,0 +1 @@
+3 DIM SCR(5000):DIM BOX(800):DIM SMFC(200):DIM FFC(200):DIM PIECE(800)

28/28.TXT

@@ -0,0 +1 @@
+5 CLS:DIM BUT(2000):DIM COR(800)

29/29.TXT

@@ -0,0 +1 @@
+5 CLS:DIM BUT(2000):DIM COR(800)

3/3.TXT

@@ -0,0 +1 @@
+10 CLS:PRINT"    THIS IS EXERCISE 3"

32/32.TXT

@@ -0,0 +1 @@
+5 DIM SCR(6000):DIM COR(500)

33/33.TXT

@@ -0,0 +1 @@
+10 CLS:PRINT"    THIS IS EXERCISE 33"

34/34.TXT

@@ -0,0 +1 @@
+5 DIM SCR(6000):DIM COR(500)

4/4.TXT

@@ -0,0 +1 @@
+5 DIM SCR(8000):DIM BUT(3000)

5/5.TXT

@@ -0,0 +1 @@
+10 CLS:PRINT"    THIS IS EXERCISE 5"

7/7.TXT

@@ -0,0 +1 @@
+5 DIM SCR(8000):DIM BUT(2000)

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"

9/9.TXT

@@ -0,0 +1 @@
+5 DIM SCR(5000):DIM BOX(500)

ACT/ACT.TXT

@@ -0,0 +1 @@
+10 CLS

ALL ABOUT AFRICA/ALL ABOUT AFRICA.TXT

@@ -0,0 +1 @@
+10 

ARITHEORY/TYPES.TXT

@@ -0,0 +1 @@
+3 DIM WF%(256)

ASIA/Asia.TXT

@@ -0,0 +1 @@
+3 DIM MAP(9000):DIM BUT(200):DIM DET(9000)

AUSTRALIA/AUSTRALIA.TXT

@@ -0,0 +1 @@
+10 CLS

COSU/COSU.TXT

@@ -0,0 +1 @@
+5 DIM GP$(75):DIM SP$(75):DIM IP$(75)

DEA/DEA.TXT

@@ -0,0 +1 @@
+10 CLS

DEC/DEC.TXT

@@ -0,0 +1 @@
+10 CLS

DPN/DPN.TXT

@@ -0,0 +1 @@
+10 CLS

HISTORY/HISTORY.TXT

@@ -0,0 +1 @@
+5 DIM BUT(200):DIM SCN(10000)

PAC-NW/PAC-NW.TXT

@@ -0,0 +1 @@
+20 CLS

PARTES/PARTES.TXT

@@ -0,0 +1 @@
+10 CLS

PARTIBUS/PARTIBUS.TXT

@@ -0,0 +1 @@
+10 CLS

STH. AM/STH. AM.TXT

@@ -0,0 +1 @@
+10 CLS

SUB/SUB.TXT

@@ -0,0 +1 @@
+10 CLS

VOC5/VOC5.TXT

@@ -0,0 +1 @@
+10 CLS