10 REM COPYRIGHT 1990 COMPUTE PUBLICATIONS, INTL - ALL RIGHTS RESERVED
100 CO$="[151][155][149][129][154][150]"
110 POKE53280,0:POKE53281,0:PRINT""
120 GOSUB10000
1000 PRINT"[147]"SPC(14)"[156][176][192][192][192][192][192][192][192][192][192][192][174]"
1010 FORX=0TO6:PRINTSPC(14)"[221]          [221]":NEXT
1020 PRINTSPC(14)"[173][192][192][192][192][192][192][192][192][192][192][189]"
1030 PRINT""SPC(15)"[155]";
1040 FORX=0TO2:PRINT"[176][178][174][157][157][221][157][177]";:NEXT
1050 PRINT"[145][145][145][145][145][157][157][157][157]IMES[157][157]ABLE[157][157]UTOR"
1060 PRINTTAB(13)"[158][195]OPYRIGHT 1990"
1061 PRINTTAB(7)"[195]OMPUTE [208]UBLICATIONS, [201]NTL"
1062 PRINTTAB(11)"[193]LL [210]IGHTS [210]ESERVED"
1100 PRINTTAB(14)"[195]HOOSE [207]NE:"
1110 P$="[198]1-[197]NTIRE [211]ET":GOSUB40000:P$="[198]3-[211]INGLE [211]ET":GOSUB40000
1120 P$="[198]5-[209]UIT":GOSUB40000
1150 GETX$:IFX$<"[133]"ORX$>"[135]"THEN1150
1160 GOSUB16000
1170 IFX$="[135]"THEN6000
1180 IFX$="[133]"THEN2000
1190 GOTO3000
2000 GOSUB5000
2010 FORX=0TO1:N(X)=INT(RND(1)*10):NEXT:GOSUB4000
2020 IFETHENE=0:GOTO1000
2030 GOTO2010
3000 PRINT"[147]":P$="[211]INGLE [211]ET":GOSUB40000ADY.
3010 GOSUB30000:PRINT"[215]HICH [211]ET? (0-9) ";
3020 GETX$:T=VAL(X$):IFX$<>"0"ANDT=0THEN3020
3030 PRINT"[147]"CHR$(142):GOSUB30000:PRINT"THE "N$(T)"[146]SET!"
3040 FORX=0TO800:NEXT:GOSUB5000
3050 N(0)=T:FORX=0TO9:D(X)=0:NEXT:R=0
3060 X=INT(RND(1)*10):IFD(X)THEN3060
3070 N(1)=X:GOSUB4000:IFETHENE=0:GOTO1000
3080 IFW=0THENR=R+1:D(N(1))=1:IFR=10THEN3100
3090 GOTO3060
3100 PRINT"[147]":P$="YOU'VE COMPLETED THE"+STR$(T)+" SET!":GOSUB40000
3110 GOSUB30000:PRINT"PRACTICE"T"SET AGAIN? (Y/N)"
3120 GETX$:IFX$<>"Y"ANDX$<>"N"THEN3120
3130 IFX$="N"THEN1000
3140 GOSUB5000:GOTO3050
4000 PRINT"";
4010 FORX=0TO6:PRINT"                                      ";:NEXT
4020 PRINT"";
4030 GOSUB30000:PRINTN$(N(0));
4040 GOSUB30000:PRINT"[145][145][145][145][146]"M$;
4050 GOSUB30000:PRINT"[145][145][145][145][145][146]"N$(N(1));
4060 GOSUB30000:PRINT"[145][145][145][145][146]"E$"[145][145][145][145][146]";:A$=""
4070 GETX$:IFX$=""THEN4070
4080 IFX$="_"THENE=1:RETURN
4090 IFX$="0"ORVAL(X$)>0THENIFLEN(A$)<2THEN4130
4100 IFX$=CHR$(20)ANDLEN(A$)THEN4140
4110 IFX$=CHR$(13)ANDLEN(A$)THEN4160
4120 GOTO4070
4130 GOSUB30000:PRINTN$(VAL(X$))"[145][145][145][145][145][145][146]";:A$=A$+X$:GOTO4070
4140 A$=LEFT$(A$,LEN(A$)-1):PRINT"[157][157][157][157][157][157][145]";
4150 FORX=0TO6:PRINT"     [157][157][157][157][157]";:NEXT:PRINT"[145][145][145][145][145][145][146]";:C=C-1:GOTO4070
4160 A=N(0)*N(1):PRINT"":IFVAL(A$)=ATHEN4190
4170 W=1:P$="SORRY!":GOSUB40000:PRINT"[155]        THE CORRECT ANSWER IS"A"[155][157]. "
4180 GOSUB15000:FORX=0TO2500:NEXT:GOTO4200
4190 W=0:P$="CORRECT!":GOSUB40000:GOSUB16000
4200 FORX=0TO500:NEXT:PRINT""
4210 FORX=0TO4:PRINT"                                 ":NEXT:RETURN
4999 PRINT:RETURN
5000 PRINT"[147]"CHR$(142)"[155][175][175][175][175][175][175][175][175][175][175][175][175]":PRINT"[152] [_] EXITS. "
5010 PRINT"[151][183][183][183][183][183][183][183][183][183][183][183][183]"
5020 PRINT"[213]";:FORX=0TO37:PRINT"[192]";:NEXT
5030 PRINT"[201]";:FORX=0TO6:PRINT"[157][221]";:NEXT
5040 PRINT"[157][203]";:FORX=0TO38:PRINT"[157][157][192]";:NEXT
5050 PRINT"[157][202]";:FORX=0TO6:PRINT"[157][145][221]";:NEXT:RETURN
6000 PRINT"[147]":P$="[209]UIT":GOSUB40000
6010 PRINT"[158][193]RE [217]OU [211]URE? ([217]/[206])"
6020 GETX$:IFX$<>"Y"ANDX$<>"N"THEN6020
6030 IFX$="N"THEN1000
6040 PRINT"[147][158]	"CHR$(142);:END
10000 N$(0)="[169][175][175][175][223][157][157][157][157][157]  [157][157][157][157][157]  [157][157][157][157][157]  [157][157][157][157][157]  [157][157][157][157][157]  "
10005 N$(0)=N$(0)+"[157][157][157][157][157][146][223][183][183][183][146][169]"
10010 N$(1)="[169] [157][157][157][169][146][169] [157][157][157][146][169] [157] [157] [157] [157][157][157][183][183] [183][183]"
10020 N$(2)="[169][175][175][175][223][157][157][157][157][157]  [157][157][169][146][169][157][157][157][169][146][169][157][157][157][169][146][169][157][157][157][169][146][169][157][157] [183][183][183][183]"
10030 N$(3)="[169][175][175][175][223][157][157][157][157][157]  [157][157][169][146][169][157][157][157]  [157][146][223][223][157][157][157][157][157]  [157][157][157][157][157][146][223][183][183][183][146][169]"
10040 N$(4)="[169] [157][157][157][169][146][169] [157][157][157][157][169][146][169] [157][157][157][157][157][169] [183][183] [157] [157] [157] "
10050 N$(5)=" [175][175][175][175][157][157][157][157][157] [157] [157][175][175][175][175][223][157] [157][157][157][157][157]  [157][157][157][157][157][146][223][183][183][183][146][169]"
10060 N$(6)="[169][175][175][175][223][157][157][157][157][157]  [157][157][157][157][157] [157] [175][175][175][223][157][157][157][157][157]  [157][157][157][157][157]  [157][157][157][157][157]"
10065 N$(6)=N$(6)+"[146][223][183][183][183][146][169]"
10070 N$(7)="[175][175][175][175] [157] [157] [157][157][169][146][169][157][157][157][169][146][169][157][157][157][169][146][169][157][157][157][169][146][169]"
10080 N$(8)="[169][175][175][175][223][157][157][157][157][157]  [157][157][157][157][157][146][223][185][185][185][169][157][157][157][157][157][169][146][184][184][184][223][157][157][157][157][157]  [157][157][157][157][157]  "
10085 N$(8)=N$(8)+"[157][157][157][157][157]  [157][157][157][157][157][146][223][183][183][183][146][169]"
10090 N$(9)="[169][175][175][175][223][157][157][157][157][157]  [157][157][157][157][157]  [157][157][157][157][157][146][223][183][183][183] [157] [157] [157] "
10100 M$="[223] [223][169] [146][169][157][157][157][157][157][223]  [146][169][157][157][157][157][169]  [223][157][157][157][157][157][169] [146][169][223] [223]"
10110 E$="     [157][157][157][157][157]     "
10120 S=54272:FORX=0TO24:POKES+X,0:NEXT
10130 POKES+24,15:POKES+5,17:POKES+12,17:POKES+6,234:POKES+13,234
10140 POKES+1,16:POKES+8,24:RETURN
15000 POKES+4,17:FORX=16TO4STEP-1:POKES+1,X:FORY=0TO30:NEXT:NEXT
15010 POKES+4,16:RETURN
16000 POKES+11,17:POKES+11,16:RETURN
30000 C=C+1:IFC=10THENC=1
30010 C$=RIGHT$(LEFT$(CO$,C),1):PRINTC$;:RETURN
40000 P$=" "+P$+" ":Z=LEN(P$)
40010 X=20-(Z/2)
40020 PRINTSPC(X);:GOSUB30000:PRINT"[172]";:FORY=1TOZ-1:PRINT"[162]";:NEXT:PRINT"[187][157][190][145]"
40030 PRINTSPC(X);:GOSUB30000:PRINT""P$:RETURN