Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56671 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.2 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.1"\C5
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
\FD\C1\F7\C9
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
\n1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
\n1101 LET P(K)=X-1
\n1102 LET W$(K)="DOG"
\n1110 RETURN
\n1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
\n1301 LET P(K)=X-4
\n1302 LET W$(K)="ELEPHANT"
\n1310 RETURN
\n1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
\n1501 LET P(K)=X-2
\n1502 LET W$(K)="FISH"
\n1510 RETURN
\n1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
\n1710 IF L(K)=1 THEN RETURN
\n1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
\n1721 LET P(K)=X-2
\n1722 LET W$(K)="GIRL"
\n1730 RETURN
\n1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
\n1901 FOR F=1 TO 2
\n1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
\n1903 LET E=USR 16514
\n1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
\n1905 LET E=USR 16514
\n1906 NEXT F
\n1907 LET P(K)=X-1
\n1908 LET W$(K)="HAT"
\n1910 RETURN
\n2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
\n2101 LET P(K)=X-3
\n2102 LET W$(K)="INDIAN"
\n2110 RETURN
\n2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
\n2301 LET P(K)=X-1
\n2302 LET W$(K)="JET"
\n2310 RETURN
\n2500 LET P(K)=X-2
\n2522 LET W$(K)="KING"
\n2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
\n2530 RETURN
\n2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
\n2701 LET P(K)=X-4
\n2702 LET W$(K)="LETTERS"
\n2710 RETURN
\n2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
\n2910 IF L(K)=22 THEN RETURN
\n2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
\n2921 LET P(K)=X-1
\n2922 LET W$(K)="MAN"
\n2930 RETURN
\n3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
\n3101 LET P(K)=X-3
\n3102 LET W$(K)="NUMBERS"
\n3110 RETURN
\n3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
\n3301 LET P(K)=X-3
\n3302 LET W$(K)="OCTOPUS"
\n3310 RETURN
\n3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
\n3501 LET P(K)=X-1
\n3502 LET W$(K)="PIPE"
\n3510 RETURN
\n3700 GOSUB 2500
\n3710 FOR Y=38 TO 29 STEP -1
\n3720 PLOT 2*X-4,Y
\n3730 PLOT 2*X+4,Y
\n3740 NEXT Y
\n3751 LET P(K)=X-2
\n3752 LET W$(K)="QUEEN"
\n3760 RETURN
\n3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
\n3901 LET P(K)=X-3
\n3902 LET W$(K)="ROCKET"
\n3910 RETURN
\n4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
\n4101 FOR F=1 TO 2
\n4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
\n4103 LET E=USR 16514
\n4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
\n4105 LET E=USR 16514
\n4106 NEXT F
\n4107 LET P(K)=X-2
\n4108 LET W$(K)="SMILE"
\n4110 RETURN
\n4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
\n4301 LET P(K)=X-2
\n4302 LET W$(K)="TREE"
\n4310 RETURN
\n4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
\n4501 LET P(K)=X-1
\n4502 LET W$(K)="UP"
\n4510 RETURN
\n4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
\n4701 LET P(K)=X-4
\n4702 LET W$(K)="VALENTINE"
\n4710 RETURN
\n4900 GOSUB 2900
\n4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
\n4911 LET P(K)=X-2
\n4912 LET W$(K)="WOMAN"
\n4920 RETURN
\n5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
\n5101 LET P(K)=X-4
\n5102 LET W$(K)="XYLOPHONE"
\n5110 RETURN
\n5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
\n5301 LET P(K)=X-1
\n5302 LET W$(K)="YELL"
\n5310 RETURN
\n5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
\n5501 LET P(K)=X-3
\n5502 LET W$(K)="ZIGZAG"
\n5510 RETURN
1 REM itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56671 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.2 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.1"\C5
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
\FD\C1\F7\C9
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
Skip to content
Computer Tutor
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Content
Image Gallery
Source Code
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E
2 SAVE "AB%C"
12 PRINT AT 8,11;"ALPHATUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,6;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(3)
30 FOR K=1 TO 3
40 LET L(K)=INT (RND*26)
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 30
80 LET C=INT (RND*3)+1
90 LET A$=CHR$ (L(C)+38)
100 FOR K=1 TO 3
110 LET X=10*K-5
120 GOSUB 200*L(K)+500
121 PRINT AT 10,P(K);"% ";W$(K,2 TO )
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
160 INPUT R
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
500 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-3;"\: \ . \ :";AT 5,X-3;"\: \':\' \ '\''\':";AT 6,X-3;"\:.\..\..\..\..\.:";AT 7,X-3;"\' \' "
501 LET P(K)=X-4
502 LET W$(K)="AMBULANCE"
510 RETURN
700 GOSUB 1700
710 PRINT AT 4,X;"\ :";AT 5,X;"\.'\. ";AT 6,X-1;"\.' \ '\. ";AT 7,X-2;"\.' \ '\. "
711 LET P(K)=X-1
712 LET W$(K)="BOY"
720 RETURN
900 PRINT AT 5,X-3;"\ :% % % ";AT 6,X-3;"\ :% % % % % ";AT 7,X-2;"\' \ '"
901 LET P(K)=X-1
902 LET W$(K)="CAR"
910 RETURN
1100 PRINT AT 1,X-4;"\ . \:.\. ";AT 2,X-3;"\'. % \. ";AT 3,X-2;"% % % ";AT 4,X-2;"\:'\''\':";AT 5,X-2;"\: \ :"
1101 LET P(K)=X-1
1102 LET W$(K)="DOG"
1110 RETURN
1300 PRINT AT 1,X-4;"\ .% % % \..";AT 2,X-4;"% % % % \.:";AT 3,X-4;"\':% % \:'\ '\..\' ";AT 4,X-4;"\ : \: "
1301 LET P(K)=X-4
1302 LET W$(K)="ELEPHANT"
1310 RETURN
1500 PRINT AT 1,X-4;"\ . \ .\..";AT 2,X-4;"\ :\:.\.:% % \':\. ";AT 3,X-4;"\ :% % % % % \. ";AT 4,X-4;"\ :\' \ '\':\:'\' "
1501 LET P(K)=X-2
1502 LET W$(K)="FISH"
1510 RETURN
1700 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,X-1;"\ .\':\'.";AT 3,X-1;"\' \ : \' "
1710 IF L(K)=1 THEN RETURN
1720 PRINT AT 4,X;"\.:\. ";AT 5,X-1;"\.:% % \. ";AT 6,X-2;"\ '\:'\''\''\:'";AT 7,X-1;"\: \: "
1721 LET P(K)=X-2
1722 LET W$(K)="GIRL"
1730 RETURN
1900 PRINT AT 1,X-2;">\ .\..\..\. <";AT 2,X-1;"\.:% % \:.";AT 3,X-1;"\ :..\: ";AT 4,X-1;"\ : \: ";AT 5,X-1;"\ :\ '\' \: ";AT 6,X;"\''\''"
1901 FOR F=1 TO 2
1902 PRINT AT 1,X-1;" ";AT 2,X-1;"\ .\..\..\. "
1903 LET E=USR 16514
1904 PRINT AT 1,X-1;"\ .\..\..\. ";AT 2,X-1;"\.:% % \:."
1905 LET E=USR 16514
1906 NEXT F
1907 LET P(K)=X-1
1908 LET W$(K)="HAT"
1910 RETURN
2100 PRINT AT 1,X-1;"\ :";AT 2,X-1;"\ :";AT 3,X-2;"\ .\''\''\''\. ";AT 4,X-2;"\ :\~~\~~\~~\: ";AT 5,X-2;"\ :\ ' \' \: ";AT 6,X-2;"\ :\ .\..\. \: ";AT 7,X-2;"\ '\..\..\..\' "
2101 LET P(K)=X-3
2102 LET W$(K)="INDIAN"
2110 RETURN
2300 PRINT AT 1,X-3;"---\:.";AT 2,X-3;"\':\..\..\.:\:.\..";AT 3,X-3;"\ :\..\..\..\..\..% >";AT 4,X-3;"---\ .\:'";AT 5,X-3;"---\:'"
2301 LET P(K)=X-1
2302 LET W$(K)="JET"
2310 RETURN
2500 LET P(K)=X-2
2522 LET W$(K)="KING"
2523 PRINT AT 1,X-2;"\. \. \. \. \. ";AT 2,X-2;"\':\''\''\':\' ";AT 3,X-2;"\ :\ '\ '\ :";AT 4,X-2;"\ : \' \ :";AT 5,X-2;"\ :\ '\''\ :";AT 6,X-1;"\':% \' "
2530 RETURN
2700 PRINT AT 2,X-3;"A B C D";AT 3,X-2;"E F G"
2701 LET P(K)=X-4
2702 LET W$(K)="LETTERS"
2710 RETURN
2900 PRINT AT 1,X;"% \: ";AT 2,X;"\':\' ";AT 3,X-1;"% % % \: ";AT 4,X-1;"\: % \: \: ";AT 5,X-1;"\' % \: \' "
2910 IF L(K)=22 THEN RETURN
2920 PRINT AT 6,X-1;"\ :% % ";AT 7,X-1;"\ :\: % ";AT 8,X-1;"\ :\: % "
2921 LET P(K)=X-1
2922 LET W$(K)="MAN"
2930 RETURN
3100 PRINT AT 3,X-3;"1 2 3 4";AT 4,X-2;"5 6 7"
3101 LET P(K)=X-3
3102 LET W$(K)="NUMBERS"
3110 RETURN
3300 PRINT AT 1,X-4;"\. ";AT 2,X-4;"\ '\'. \.:\. \..\. ";AT 3,X-2;"\':% % \''";AT 4,X-4;"\ .\.'\':% % \.. \.'";AT 5,X-4;"\' \ .\.'\.'\.'\. \''";AT 6,X-4;"\ .\' \ .\' \'.\ '\'.";AT 7,X-4;"\' \ .\' \ '\. "
3301 LET P(K)=X-3
3302 LET W$(K)="OCTOPUS"
3310 RETURN
3500 PRINT AT 5,X-2;"\..\..\..\..% ";AT 4,X+2;"*";AT 3,X+2;"*"
3501 LET P(K)=X-1
3502 LET W$(K)="PIPE"
3510 RETURN
3700 GOSUB 2500
3710 FOR Y=38 TO 29 STEP -1
3720 PLOT 2*X-4,Y
3730 PLOT 2*X+4,Y
3740 NEXT Y
3751 LET P(K)=X-2
3752 LET W$(K)="QUEEN"
3760 RETURN
3900 PRINT AT 1,X;"A";AT 2,X;"% ";AT 3,X;"% ";AT 4,X;"% ";AT 5,X;"% ";AT 6,X-1;"\..% \..";AT 7,X-1;"\' *\ '";AT 8,X;"*"
3901 LET P(K)=X-3
3902 LET W$(K)="ROCKET"
3910 RETURN
4100 PRINT AT 1,X-1;"\..\..\..";AT 2,X-2;"\ :\ . \. \: ";AT 3,X-2;"\ : \: ";AT 4,X-3;">\ :\ . \. \: <";AT 5,X-2;"\ : \'' \: ";AT 6,X-1;"\''\''\''"
4101 FOR F=1 TO 2
4102 PRINT AT 4,X-1;" ";AT 5,X-1;"\ '\''\' "
4103 LET E=USR 16514
4104 PRINT AT 4,X-1;"\ . \. ";AT 5,X-1;" \'' "
4105 LET E=USR 16514
4106 NEXT F
4107 LET P(K)=X-2
4108 LET W$(K)="SMILE"
4110 RETURN
4300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-2;"\ .% % % \. ";AT 3,X-2;"% % % % % ";AT 4,X-2;"\ '% % % \' ";AT 5,X-1;"\ '% \' ";AT 6,X;"% ";AT 7,X-1;"\ .% \. "
4301 LET P(K)=X-2
4302 LET W$(K)="TREE"
4310 RETURN
4500 PRINT AT 1,X;"\.:\. ";AT 2,X-1;"\.'\ :\ '\. ";AT 3,X;"\ :";AT 4,X;"\ :"
4501 LET P(K)=X-1
4502 LET W$(K)="UP"
4510 RETURN
4700 PRINT AT 2,X-2;"\ .\. \..";AT 3,X-2;"% % \. \.:% \: ";AT 4,X-2;"\':% % % % \' ";AT 5,X-1;"\':% % \' ";AT 6,X;"\':\' "
4701 LET P(K)=X-4
4702 LET W$(K)="VALENTINE"
4710 RETURN
4900 GOSUB 2900
4910 PRINT AT 6,X-1;"\.:% % \. ";AT 7,X-2;"\.:% % % % \. ";AT 8,X-1;"\ :\: % "
4911 LET P(K)=X-2
4912 LET W$(K)="WOMAN"
4920 RETURN
5100 PRINT AT 1,X-3;"\: \: \: \: \: \: \: ";AT 2,X-3;"\: \: \: \: \: \' ";AT 3,X-3;"\: \: \: \' \. ";AT 4,X-3;"\: \' \. /";AT 5,X-1;"/"
5101 LET P(K)=X-4
5102 LET W$(K)="XYLOPHONE"
5110 RETURN
5300 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% % \':";AT 3,X-1;"% % % \. <";AT 4,X-1;"% % \''<";AT 5,X-1;"% % \.. <";AT 6,X-1;"\ :% "
5301 LET P(K)=X-1
5302 LET W$(K)="YELL"
5310 RETURN
5500 PRINT AT 3,X-2;"\.'\. \.'";AT 4,X-3;"\ ' \ '\. \.'\.'";AT 5,X;"\ '"
5501 LET P(K)=X-3
5502 LET W$(K)="ZIGZAG"
5510 RETURN
1 REM \06\01\C5\06\64\00\10\FD\C1\10\F7\C9\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E\2E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
1000 LET W$(K)="F% VE"
1001 LET P(K)=X-2
1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
1003 RETURN
1030 LET W$(K)="K% TE"
1031 LET P(K)=X-2
1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
1033 RETURN
1060 LET W$(K)="N% NE"
1061 LET P(K)=X-2
1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
1064 RETURN
1100 LET W$(K)="B% AT"
1101 LET P(K)=X-2
1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
1103 RETURN
1130 LET W$(K)="THR% W"
1131 LET P(K)=X-2
1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
1133 RETURN
1160 LET W$(K)="N% SE"
1161 LET P(K)=X-2
1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
1163 FOR G=1 TO 3
1164 PRINT AT 2,1+X;"\: "
1165 LET U=USR 16514
1166 PRINT AT 2,X+1;"\:."
1167 LET U=USR 16514
1168 NEXT G
1169 RETURN
1200 LET W$(K)="% NITED"
1201 LET P(K)=X-3
1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
1203 PRINT AT 11,P(K);"STATES"
1204 RETURN
1230 LET W$(K)="F% EL"
1231 LET P(K)=X-2
1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
1233 RETURN
1260 LET W$(K)="T% BE"
1261 LET P(K)=X-2
1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
1263 RETURN
1500 LET W$(K)="FL% G"
1501 LET P(K)=X-2
1503 LET B=X-4
1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
1505 RETURN
1530 LET W$(K)="% DD"
1531 LET P(K)=X-1
1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
1533 RETURN
1560 LET W$(K)="P% N"
1561 LET P(K)=X-1
1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
1563 RETURN
1600 LET W$(K)="T% N"
1601 LET P(K)=X-1
1602 LET B=X-2
1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
1604 RETURN
1630 LET W$(K)="DR% SS"
1631 LET P(K)=X-2
1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
1633 RETURN
1660 LET W$(K)="L% G"
1661 LET P(K)=X-1
1662 LET B=X-1
1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
1664 RETURN
1700 LET W$(K)="S% X"
1701 LET P(K)=X-1
1702 LET B=X-1
1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
1704 RETURN
1730 LET W$(K)="SH% P"
1731 LET P(K)=X-2
1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
1733 RETURN
1760 LET W$(K)="WR% ST"
1761 LET P(K)=X-2
1762 LET B=X-1
1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
1764 LET B=X-2
1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
1766 RETURN
1800 LET W$(K)="P% T"
1801 LET P(K)=X-1
1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
1803 RETURN
1830 LET W$(K)="CL% CK"
1831 LET P(K)=X-3
1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
1833 RETURN
1860 LET W$(K)="ST% P"
1861 LET P(K)=X-2
1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
1863 RETURN
1900 LET W$(K)="G% N"
1901 LET P(K)=X-1
1902 LET B=X-4
1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
1904 RETURN
1930 LET W$(K)="DR% M"
1931 LET P(K)=X-2
1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
1933 RETURN
1960 LET W$(K)="B% S"
1961 LET P(K)=X-1
1962 LET B=X-3
1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
1964 RETURN
People
E
2 SAVE "VOWE%L"
12 PRINT AT 8,11;"VOWELTUTOR";AT 10,2;"COPYRIGHT 1982 LOU GOLDSTEIN";AT 12,7;"% %F%R%O%M% %S%O%F%T%S%Y%N%C% %I%N%C% "
13 PRINT AT 20,5;"PRESS ""ENTER"" TO START"
14 PAUSE 33000
15 RAND
16 LET V$="AEIOU"
17 CLS
18 DIM P(3)
19 DIM W$(3,10)
20 DIM L(5)
23 PRINT AT 6,0;"WHICH VOWELS DO YOU WANT TO USE?1=LONG",,"2=SHORT",,"3=BOTH",,"4=EXIT PROGRAM"
24 INPUT O
25 LET LS=O
26 CLS
27 IF O=4 THEN STOP
30 IF O=3 THEN LET LS=INT (RND*2)+1
31 FOR K=1 TO 3
32 FAST
40 LET L(K)=INT (RND*5)+1
50 NEXT K
60 IF L(1)=L(2) OR L(1)=L(3) OR L(2)=L(3) THEN GOTO 31
80 LET C=INT (RND*3)+1
90 LET A$=V$(L(C))
99 SLOW
100 FOR K=1 TO 3
105 LET Z=INT (RND*3)
110 LET X=10*K-5
120 GOSUB 700*LS+100*L(K)+30*Z
121 PRINT AT 10,P(K);W$(K)
130 PRINT AT 15,X;K
140 NEXT K
150 PRINT AT 19,14;"\:'\''\':";AT 20,14;"\: ";A$;"\ :";AT 21,14;"\:.\..\.:"
151 FOR J=1 TO 10
152 IF W$(C,J)="% " THEN GOTO 155
153 NEXT J
155 LET W$(C,J)=A$
156 INPUT R
157 IF R=9 THEN CLS
160 IF R=9 THEN GOTO 23
170 IF R<>C THEN PRINT AT 16,10*C-9;"% % % % % % % % % "
180 IF R=C THEN PRINT AT 16,10*C-9;"*********"
185 PRINT AT 13,P(C);W$(C)
190 PAUSE 250
195 CLS
200 GOTO 30
800 LET W$(K)="TR% IN"
801 LET P(K)=X-2
802 PRINT AT 2,X-1;"*";AT 3,X;"*";AT 4,X;"\ :\..\. ";AT 5,X-4;"\ :% \.:% \.:% % >";AT 6,X-4;"\ '\ '\ '\ '\ ' \ '"
803 RETURN
830 LET W$(K)="C% NE"
831 LET P(K)=X-1
832 PRINT AT 1,X+1;"\' ";AT 0,X-1;"\ .\''\. "
833 FOR Y=41 TO 30 STEP -1
834 PLOT 2*X-1,Y
835 NEXT Y
836 RETURN
860 LET W$(K)="D% YS"
861 LET P(K)=X-2
862 PRINT AT 2,X-1;"FRI.";AT 4,X-1;"SAT.";AT 6,X-1;"SUN."
863 RETURN
900 LET W$(K)="K% Y"
901 LET P(K)=X-1
902 PRINT AT 3,X-3;"% % ";AT 4,X-3;"% % \:'\''\':% % \' ";AT 5,X-3;"% % \ '\ :\ '"
903 RETURN
930 LET W$(K)="THR% E"
931 LET P(K)=X-2
932 PRINT AT 3,X-1;"\''\''\: ";AT 4,X+1;"\: ";AT 5,X-1;"\ '\''\: ";AT 6,X+1;"\: ";AT 7,X-1;"\''\''\' "
933 RETURN
960 LET W$(K)="KN% E"
961 LET P(K)=X-2
962 PRINT AT 0,X+1;"% \: ";AT 1,X+1;"\':\' ";AT 2,X+1;"\: ";AT 3,X;"\ :\ '\..\. ";AT 4,X;"\: ";AT 5,X-1;"\ :\ '\. ";AT 6,X-1;"\ : \ '\. <";AT 7,X-2;"\ .\' \: ";AT 8,X-2;"\'. \''"
968 RETURN
\n1000 LET W$(K)="F% VE"
\n1001 LET P(K)=X-2
\n1002 PRINT AT 2,X-1;"\:'\''\' ";AT 3,X-1;"\:.\. ";AT 4,X;"\ '\. ";AT 5,X-1;"\. \ .\' ";AT 6,X-1;"\ '\' "
\n1003 RETURN
\n1030 LET W$(K)="K% TE"
\n1031 LET P(K)=X-2
\n1032 PRINT AT 0,X;"\.:\. ";AT 1,X-1;"\ .\':\'.";AT 2,X-1;"\.:\.:\.:\. ";AT 3,X-1;"\ :\ :\ :";AT 4,X;"% \: ";AT 5,X;"\ :";AT 6,X+1;"\'.";AT 7,X+1;"\.'";AT 8,X+1;"\ '"
\n1033 RETURN
\n1060 LET W$(K)="N% NE"
\n1061 LET P(K)=X-2
\n1063 PRINT AT 2,X-1;"\:'\''\: ";AT 3,X-1;"\: \: ";AT 4,X-1;"\''\''\: ";AT 5,X-1;"\. \: ";AT 6,X-1;"\''\''\' "
\n1064 RETURN
\n1100 LET W$(K)="B% AT"
\n1101 LET P(K)=X-2
\n1102 PRINT AT 1,X-2;"\..\..\..\..\. ";AT 2,X-2;"\ '\. \ '\. ";AT 3,X-1;"\.' \.'";AT 4,X-2;"\ '\''\':\''\''";AT 5,X-4;"\..\..\..\..\.:\..\..\..>";AT 6,X-4;"\':% % % % % \:'";AT 7,X-3;"\''\''\''\''\''"
\n1103 RETURN
\n1130 LET W$(K)="THR% W"
\n1131 LET P(K)=X-2
\n1132 PRINT AT 2,X+2;">";AT 3,X-2;"\ :% >\ '";AT 4,X-2;"\ '\:' \.'";AT 5,X-3;"\ .\''\:'\''";AT 6,X-3;"\' \: ";AT 7,X-2;"\.'\ '\. ";AT 8,X-3;"\ ' \ '"
\n1133 RETURN
\n1160 LET W$(K)="N% SE"
\n1161 LET P(K)=X-2
\n1162 PRINT AT 1,X-1;"\ .% \. ";AT 2,X-1;"% \:.\:.";AT 3,X-1;"% % \' ";AT 4,X-1;"\':\:'\' "
\n1163 FOR G=1 TO 3
\n1164 PRINT AT 2,1+X;"\: "
\n1165 LET U=USR 16514
\n1166 PRINT AT 2,X+1;"\:."
\n1167 LET U=USR 16514
\n1168 NEXT G
\n1169 RETURN
\n1200 LET W$(K)="% NITED"
\n1201 LET P(K)=X-3
\n1202 PRINT AT 1,X-3;"\..\..\..\..\..\. \.:";AT 2,X-4;"\ .% % % % % % \.:% ";AT 3,X-4;"\ :AMERICA\: ";AT 4,X-4;"\ '% % % % % % % \: ";AT 5,X-3;"\''\''% % % % % \: ";AT 6,X;"\':\:' \: ";AT 7,X+1;"\' "
\n1203 PRINT AT 11,P(K);"STATES"
\n1204 RETURN
\n1230 LET W$(K)="F% EL"
\n1231 LET P(K)=X-2
\n1232 PRINT AT 1,X-4;"\##\##\##";AT 2,X-4;"\##%G\##";AT 3,X-4;"\##%A\##";AT 4,X-4;"\##%S\##\'. \:'\''\':";AT 5,X-4;"\##\##\##\ '\..\:.\..\.:";AT 6,X-4;"\##\##\## % % % ";AT 7,X-4;"\##\##\## \: \ :"
\n1233 RETURN
\n1260 LET W$(K)="T% BE"
\n1261 LET P(K)=X-2
\n1262 PRINT AT 2,X-4;"\ .\..\..\..\..\..\..\..\. ";AT 3,X-4;"\ :\##TOOTH\##\:.";AT 4,X-4;"\ :\##PASTE\##\:'";AT 5,X-4;"\ '\''\''\''\''\''\''\''\' "
\n1263 RETURN
\n1500 LET W$(K)="FL% G"
\n1501 LET P(K)=X-2
\n1503 LET B=X-4
\n1504 PRINT AT 0,B;"\ .\..\..\..\..\..\..\..";AT 1,B;"\ :***\:'\''\''\':";AT 2,B;"\ :***\:'\''\''\':";AT 3,B;"\ :\''\''\''\''\''\''\':";AT 4,B;"\ :\''\''\''\''\''\''\':";AT 5,B;"\ :\''\''\''\''\''\''\''";AT 6,B;"\ :"
\n1505 RETURN
\n1530 LET W$(K)="% DD"
\n1531 LET P(K)=X-1
\n1532 PRINT AT 1,X-2;"3+2=\##";AT 3,X;"75";AT 4,X-1;"+23";AT 5,X-1;"\''\''\''"
\n1533 RETURN
\n1560 LET W$(K)="P% N"
\n1561 LET P(K)=X-1
\n1562 PRINT AT 3,X-3;"\..\..\..\..";AT 4,X-4;"\ :\' \ '\:.\..\..\..";AT 5,X-4;"\ :\:.\..\..\.:\: ";AT 6,X-4;"\ '% % % % \' "
\n1563 RETURN
\n1600 LET W$(K)="T% N"
\n1601 LET P(K)=X-1
\n1602 LET B=X-2
\n1603 PRINT AT 2,B;"\ : \:'\''\':";AT 3,B;"\ : \: \ :";AT 4,B;"\ : \: \ :";AT 5,B;"\ : \:.\..\.:"
\n1604 RETURN
\n1630 LET W$(K)="DR% SS"
\n1631 LET P(K)=X-2
\n1632 PRINT AT 1,X-2;"\.:\:.\.:\:.";AT 2,X-3;"\ '\:'% % \':\' ";AT 3,X-2;"\ .% % \. ";AT 4,X-3;"\ .% % % % \. ";AT 5,X-4;"\ .% % % % % % \. "
\n1633 RETURN
\n1660 LET W$(K)="L% G"
\n1661 LET P(K)=X-1
\n1662 LET B=X-1
\n1663 PRINT AT 0,X;"% \: ";AT 1,X;"\':\' ";AT 2,B;"% % % \: ";AT 3,B;"\: % \: \: ";AT 4,B;"\' % \: \' ";AT 5,B;"\ :% % ";AT 6,B;"\ :\: \##<";AT 7,B;"\ :\: \##<"
\n1664 RETURN
\n1700 LET W$(K)="S% X"
\n1701 LET P(K)=X-1
\n1702 LET B=X-1
\n1703 PRINT AT 1,X;"\..";AT 2,B;"\.' \' ";AT 3,B;"\: ";AT 4,B;"\:.\''\'.";AT 5,B;"\: \ :";AT 6,B;"\ '\..\' "
\n1704 RETURN
\n1730 LET W$(K)="SH% P"
\n1731 LET P(K)=X-2
\n1732 PRINT AT 3,X-3;"\..\:.\:.\. ";AT 4,X-5;"\ .\..% \:'% \:'% \:'% \:'";AT 5,X-4;"\':\:.% \:.% \:.% \:'";AT 6,X-5;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
\n1733 RETURN
\n1760 LET W$(K)="WR% ST"
\n1761 LET P(K)=X-2
\n1762 LET B=X-1
\n1763 PRINT AT 0,B;"\..\..\..";AT 1,B;"\:'% \':";AT 2,B;"% \''% ";AT 3,B;"\''% \''"
\n1764 LET B=X-2
\n1765 PRINT AT 4,B;"% % % % % ";AT 5,B;"% \ :% \: % ";AT 6,B-1;">\##\ :% \: \##<";AT 7,B;"W W"
\n1766 RETURN
\n1800 LET W$(K)="P% T"
\n1801 LET P(K)=X-1
\n1802 PRINT AT 1,X-2;"\..";AT 2,X-4;"\ .\'' \''\. ";AT 3,X-4;"\:. \.:\..\..\..";AT 4,X-4;"% % \..% % ";AT 5,X-4;"\':% % % \:'";AT 6,X-3;"\ '\''\' "
\n1803 RETURN
\n1830 LET W$(K)="CL% CK"
\n1831 LET P(K)=X-3
\n1832 PRINT AT 1,X;"\..\. ";AT 2,X-2;"\ .\''\ .\ '\'.";AT 3,X-2;"\: \ : \: ";AT 4,X-3;"\ : \ :\..\. \ :";AT 5,X-3;"\ '\. \.'";AT 6,X-2;"\'. \ .\' ";AT 7,X-1;"\''\..\.'\' "
\n1833 RETURN
\n1860 LET W$(K)="ST% P"
\n1861 LET P(K)=X-2
\n1862 PRINT AT 0,X-2;"\ .% % \. ";AT 1,X-3;"\ .% % % % \. ";AT 2,X-3;"% ST P% ";AT 3,X-3;"% % % % % % ";AT 4,X-3;"\ '% % % % \' ";AT 5,X-2;"\ '% % \' ";AT 6,X-1;"\ :\: ";AT 7,X-1;"\ :\: "
\n1863 RETURN
\n1900 LET W$(K)="G% N"
\n1901 LET P(K)=X-1
\n1902 LET B=X-4
\n1903 PRINT AT 2,B;"\ :% % % % % -->";AT 3,B;"\ :\: \: \:'\''";AT 4,B;"\ :\:.\..\: ";AT 5,B;"\ :\: "
\n1904 RETURN
\n1930 LET W$(K)="DR% M"
\n1931 LET P(K)=X-2
\n1932 PRINT AT 0,X+2;"/";AT 1,X-1;"\.. \ ' /";AT 2,X-3;"\ .\'' \''\. \ '";AT 3,X-3;"\:. \.:";AT 4,X-3;"% % \..% % ";AT 5,X-3;"\':% % % \:'";AT 6,X-2;"\ '\''\' "
\n1933 RETURN
\n1960 LET W$(K)="B% S"
\n1961 LET P(K)=X-1
\n1962 LET B=X-3
\n1963 PRINT AT 2,B;"% \''\:'\':\''% % ";AT 3,B;"% \..\:.\.:\..% \ :% ";AT 4,B;"% % % % % % \.:% ";AT 5,B+1;"\' \ '"
\n1964 RETURN
