Computer Tutor

Softsync, Inc.
Products: Computer Tutors: Alpha/Vowel Tutors
Developer(s): Lou Goldstein
Date: 1982
Type: Cassette
Platform(s): TS 1000
Includes Alpha Tutor and Vowel Tutor.
Related Products

Computer Tutors: Alpha/Vowel Tutors
Two programs on one cassette which visually help children learn the alphabet and the use of long and short vowels while also introducing them to the world of computers. With the help of graphic displays, students learn to match letters to the correct words. Alpha Tutor (ages 4-8) and Vowel Tutor (ages 5-9). 16K.
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
Computer Tutor

Related Products

Gallery

Source Code

Tags

People
