5 REM  **** FRACTIONS TO DECIMALS ****
10 POKE 53280,0:POKE 53281,0:PRINT"[147]";
12 POKE 45,PEEK(174):POKE 46,PEEK(175):CLR
15 GN$="[198]RACTIONS TO [196]ECIMALS"
17 GOSUB 5000
20 FOR Z=54272 TO 54296:POKE Z,.:NEXT:FORD=1TO6:READRE$(D):NEXT
25 DATA "[199]REAT!","[198]ANTASTIC!","[211]UPER!","[217]OU'VE GOT IT!"
26 DATA "[217]ES! [217]ES! [217]ES!","[212]HAT'S [199]REAT!"
28 FORX=0TO7:READA:POKE30936+X,A:POKE31056+X,PEEK(29320+X):NEXT
30 DATA 0,128,192,224,240,224,192,128
40 GET A$:IFA$<>" " THEN 40
95 GOTO 2000
100 REM *** ZIPPY TITLES ***
105 REM LN=LINE# TO PLACE TEXT
110 POKE646,11:LC=(23-LN)/3
115 TB=(40-LEN(TX$))/2
120 FORD=23TOLNSTEP-1:PRINT"";
125 FORD1=1TOD:PRINT"";:NEXT
130 IFD/6=INT(D/6)THEN GOSUB165
135 PRINTTAB(TB)TX$
140 NEXT
145 FORD=23TOLN+1STEP-1:PRINT"";
150 FORD1=1TOD:PRINT"";:NEXT
155 PRINTTAB(11)"                          "
160 NEXT:RETURN
165 IFPEEK(646)=15THENPOKE646,1
170 IFPEEK(646)=12THENPOKE646,15
175 IFPEEK(646)=11THENPOKE646,12
180 RETURN
200 REM ***        CLEAR          ***
210 FOR ER=LNTO23:POKE 781,ER:SYS 59903:NEXT:RETURN
300 REM
305 REM ***     REWARD SOUND      ***
310 REM
320 POKE 53280,2:POKE 53281,2
325 S=54272:POKES+24,7:POKES+1,110:POKES+5,9:POKES+6,10:POKES+4,17:POKES+4,16
330 FOR D=1 TO 25:NEXT
332 POKE 53280,5:POKE 53281,5
335 S=54279:POKES+24,7:POKES+1,110:POKES+5,9:POKES+6,10:POKES+4,17:POKES+4,16
340 FOR D=1 TO 25:NEXT
342 POKE 53280,6:POKE 53281,6
345 S=54286:POKES+24,7:POKES+1,110:POKES+5,9:POKES+6,10:POKES+4,17:POKES+4,16
350 FOR D=1 TO 25:NEXT
352 POKE 53280,0:POKE 53281,0
355 SC=SC+1
365 RETURN
400 REM
405 REM *** GET NUMERIC INPUT ***
410 J$="":PRINT"[164]";
415 GET A$:IF A$="" THEN 415
420 IF A$=CHR$(13) THEN PRINT"[157] ":J=VAL(J$):MX=0:RETURN
425 IF A$=CHR$(20) AND J$="" THEN 415
430 IF A$=CHR$(20) THEN J$=LEFT$(J$,LEN(J$)-1):PRINT"[157][157]  [157][157][164]";:GOTO 415
433 IF A$="[140]" THEN 470
435 IF A$<" " OR A$>"[218]" THEN 415
440 IF A$>"Z" AND A$<"[193]" THEN 415
445 IF A$=CHR$(34) THEN 415
450 IF LEN(J$)=MX THEN 415
455 PRINT"[157] [157]"A$"[164]";
460 J$=J$+A$:GOTO 415
470 GOSUB 480:LN=1:TX$="[197]XIT TO [213]P[212]IME"
475 GOSUB 100:GOSUB 800:GOTO 4062
480 REM *** PRINT SCREEN HEADER ***
481 PRINT"[147]":POKE53287,2:POKE53288,12:POKE53248,38:POKE53249,56:POKE 53250,38
482 POKE 53251,56
485 FORX=0TO1:POKE53277,PEEK(53277)OR(2^X):POKE 53271,PEEK(53271)OR(2^X)
490 POKE 53269,PEEK(53269)OR(2^X):NEXT
495 PRINT"":RETURN
499 FORX=0TO2:POKE53269,PEEK(53269)AND(255-2^X):NEXT:RETURN
500 REM ** SHORT WRONG SOUND **
505 WN$="028":S=54272:POKES+6,96:POKES+24,15
510 FORQ=1TO6 STEP3
515 POKES+1,VAL(MID$(WN$,Q,2)):POKES+4,33
520 FORJW=1TOT*VAL(MID$(WN$,Q+2,1)):NEXT:FORR=1TO100:NEXT
525 POKES+4,0:NEXT:RETURN
600 REM
605 REM *** GENERAL PURPOSE DELAY ***
610 REM
615 FOR QD=1 TO 600:NEXT
620 RETURN
800 REM *** TITLE BARS ***
805 PRINT"";:
810 PRINT"[159][192][157][157][156][183][183][145][145]";
815 FORX=1TO23:PRINT"[154][175][157][159][192][157][156][183][145][145]";:NEXT
820 PRINT"[154][175][175][157][157][159][192]":RETURN
850 PRINT"[154]";:GOTO 855
855 PRINT"";
860 PRINT"[172][192][192][192][192][192][187]"
865 FORJW=1TO3:PRINT"[221][221]":NEXT
870 PRINT"[173][192][192][192][192][192][189]"
871 IFSF=1ANDOP=4THENSF=0:GOTO874
872 IFOP=4THENRETURN
874 PRINT"[156][172][192][192][192][192][192][192][192][192][192][192][187]"
876 FORJW=1TO3:PRINT"[221][221]":NEXT
878 PRINT"[173][192][192][192][192][192][192][192][192][192][192][189]"
880 RETURN
900 REM *** CONTINUE OR EXIT ***
902 PRINT"";:FORD=1TO24:PRINT"";:NEXT
905 PRINT"[154][169][208]RESS [210][197][212][213][210][206] TO [195]ONTINUE OR _ TO [197]XIT[146][169][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][145][145][145]"
925 S=54272:POKES+24,7:POKES+1,110:POKES+5,9:POKES+6,10:POKES+4,17:POKES+4,16
930 GETRC$:IFRC$=""THEN930
940 IFRC$="_"THENCP=CP+1:GOTO 4000
950 IFRC$<>CHR$(13)THEN930
960 RETURN
980 PRINT"";:FORJG=1TOY:PRINT"";:NEXTJG:PRINTTAB(X);TX$;:RETURN
990 X=(40-LEN(TX$))/2:GOTO980
1000 REM *** OPTION 2 INPUT ***
1005 NU$=STR$(NU)
1010 J$="":IFOP=3THENJ$="."
1011 FORDD=2TOLEN(NU$):MU=0
1014 TX$="":GOSUB980
1016 GETA$:PRINT"*[157] [157][159]*[157] [157][156]*[157] [157]*[157] [157]*[157] [157][158]*[157] [157][150]*[157] [157][153]*[157] [157][154]*[157] [157]";:IFA$=""THEN1016
1017 PRINT"[146]"
1018 IFOP>2THENJ$=J$+A$:GOTO1050
1020 IFA$=MID$(NU$,DD,1)THEN1045
1035 GOSUB500:MU=MU+1:IFMU<>3THEN1014
1045 TX$=MID$(NU$,DD,1):GOSUB980:X=X+1:NEXT:RETURN
1050 IFOP>2ANDA$=CHR$(20)THENX=X-1:TX$=" ":GOSUB980:DD=DD-2
1051 IFOP>2ANDA$=CHR$(20)THENJ$=LEFT$(J$,LEN(J$)-2):NEXT:RETURN
1055 IFOP>2THENTX$=A$:GOSUB980:X=X+1:NEXT:RETURN
1100 REM *** WRONG SOUND ***
1105 WN$="042034":S=54272:POKES+6,96:POKES+24,15
1110 FORQ=1TO6 STEP3
1115 POKES+1,VAL(MID$(WN$,Q,2)):POKES+4,33
1120 FORJW=1TOT*VAL(MID$(WN$,Q+2,1)):NEXT:FORR=1TO300:NEXT
1125 POKES+4,0:NEXT:RETURN
2000 REM
2005 REM ***   MAIN PROGRAM   ***
2010 REM
2015 GOSUB480:LN=1:TX$="[198]RACTIONS TO [196]ECIMALS"
2016 PRINT"";:GOSUB 100:GOSUB800
2017 TX$="[151] [208]UBLISHED BY [211]OFTDISK [208]UBLISHING, [201]NC.":X=0:Y=24:GOSUB 980
2020 X=0:Y=10
2025 TX$="[196]O YOU WANT INSTRUCTIONS? [145][164][164][164][164][164][157][157][157][157][157][165][217]/[206][167][157][157][157][157][157][163][163][163][163][163][145] "
2027 TX$=TX$+"       [157][157][157][157][157][157][157]":GOSUB 980
2030 MX=1:GOSUB400:I$=J$:IFI$="Y"THENGOSUB30000
2035 IFI$<>"N"ANDI$<>"Y"THENPRINT"[145]";:GOTO2025
2038 LN=5:GOSUB200
2040 Y=10:X=0:TX$="[215]HAT IS YOUR NAME? "
2045 GOSUB 980:MX=20:GOSUB 400:NN$=J$:GOSUB200
2050 X=0:Y=10:TX$="[215]HICH OPTION DO YOU WANT:"
2053 GOSUB 980
2055 TX$="   1.  [196]EMONSTRATION.":Y=12:GOSUB980
2060 TX$="   2.  [215]ORK EXAMPLES WITH HELP.":Y=13:GOSUB980
2065 TX$="   3.  [211]TEP-BY-STEP PROBLEMS.":Y=14:GOSUB980
2068 TX$="   4.  [193]NSWERS ONLY.":Y=15:GOSUB980
2070 TX$="[217]OUR CHOICE? [145][164][164][164][164][164][157][157][157][157][157][165]1-4[167][157][157][157][157][157][163][163][163][163][163][145] ":Y=17:GOSUB980:MX=1:GOSUB400
2071 OP=J:IFOP>1THENNP$="[145][164][164][164][164][164][164][157][157][157][157][157][157][165]5-20[167][157][157][157][157][157][157][163][163][163][163][163][163][145] "
2072 IFOP=1THENNP$="[145][164][164][164][164][164][157][157][157][157][157][165]1-5[167][157][157][157][157][157][163][163][163][163][163][145] "
2073 IFOP<>1ANDOP<>2ANDOP<>3ANDOP<>4THEN2070
2074 TX$="[200]OW MANY PROBLEMS? "+NP$:Y=19:GOSUB980:MX=2:GOSUB400:NP=J
2075 IFOP=1THEN2078
2076 IFNP<5ORNP>20THEN2074
2077 GOTO 2079
2078 IFNP<1ORNP>5THEN2074:GOSUB900
2079 FORCP=1TONP:LN=5:GOSUB200:GOSUB850
2082 N=INT(RND(1)*8)+1:D=INT(RND(1)*8)+2:AN=N/D:IFAN>=1THEN2082
2084 AN$=STR$(AN):IFLEN(AN$)>5ANDINT(RND(1)*2)+1=1THEN2082
2086 IFLEN(AN$)>5THENAN=VAL(LEFT$(AN$,5))
2088 TX$="[195]HANGE THIS FRACTION":X=0:Y=8:GOSUB980:TX$="TO A DECIMAL.":Y=9
2090 GOSUB980:TX$=STR$(N):X=30:Y=7:GOSUB980:TX$="[192][192][192]":Y=8:X=30:GOSUB980
2092 TX$=STR$(D):Y=9:X=30:GOSUB980
2094 AN$=STR$(AN):D$=STR$(D):N$=STR$(N)
2096 IFLEN(AN$)=5THEN2098
2097 FORDD=1TO(5-LEN(AN$)):AN$=AN$+"0":NEXT
2098 ONOPGOSUB2100,2200,2200,2400:GOSUB900:NEXTCP:GOTO4000
2100 REM *** DEMONSTRATION ***
2104 GOSUB 600:GOSUB600
2105 TX$="[196]IVIDE THE NUMERATOR":X=0:Y=12:GOSUB980:GOSUB600
2110 TX$=N$+"[157][157][221].":Y=14:X=26:GOSUB980:TX$="[176][192][192][192][192][192][192]":Y=13:GOSUB980:GOSUB600
2120 TX$="BY THE DENOMINATOR.":X=0:Y=13:GOSUB980:GOSUB600
2125 TX$=D$:Y=14:X=24:GOSUB980:GOSUB600
2130 TX$="[193]DD THREE ZEROS AFTER":X=0:Y=15:GOSUB980
2135 TX$="THE DECIMAL POINT.":Y=16:GOSUB980:GOSUB600
2140 FORX=29TO31:Y=14:TX$="0":FORDD=1TO200:NEXT:GOSUB980:NEXT
2145 TX$="[208]LACE THE DECIMAL POINT FOR THE ANSWER.":X=0:Y=18:GOSUB980:GOSUB600
2150 TX$=".":Y=12:X=28:GOSUB980:GOSUB600
2155 TX$="[206]OW DIVIDE.":X=0:Y=20:GOSUB980:GOSUB600
2160 FORDD=3TOLEN(AN$):TX$=MID$(AN$,DD,1):X=26+DD:Y=12:GOSUB980
2165 FORBB=1TO200:NEXT:NEXT
2167 IFSY=1THENSY=0:OP=1
2170 RETURN
2200 REM *** WITH HELP ***
2205 TX$="[196]IVIDE THE NUMERATOR":X=0:Y=12:GOSUB980
2210 TX$="BY THE DENOMINATOR.":X=0:Y=13:GOSUB980
2215 TX$="[221]":Y=14:X=26:GOSUB980:TX$="[176][192][192][192][192][192][192]":Y=13:GOSUB980
2220 TX$="[197]NTER THE NUMERATOR.":X=0:Y=15:GOSUB980:NU=N:Y=14:X=27:GOSUB1000
2222 TX$=".":X=28:Y=14:GOSUB980
2225 TX$="[197]NTER THE DENOMINATOR.":X=0:Y=15:GOSUB980:NU=D:Y=14:X=25:GOSUB1000
2230 TX$="[193]DD THREE ZEROS AFTER  ":X=0:Y=15:GOSUB980
2235 TX$="THE DECIMAL POINT.":Y=16:GOSUB980:GOSUB600
2240 FORX=29TO31:Y=14:TX$="0":FORDD=1TO200:NEXT:GOSUB980:NEXT
2245 TX$="[208]LACE THE DECIMAL POINT FOR THE ANSWER.":X=0:Y=18:GOSUB980:GOSUB600
2250 TX$=".":Y=12:X=28:GOSUB980:GOSUB600
2255 TX$="[206]OW DIVIDE.":X=0:Y=20:GOSUB980
2260 NU$=RIGHT$(AN$,4):X=29:Y=12:GOSUB1010:IFOP=3THEN2300
2270 RETURN
2300 REM *** STEP BY STEP ***
2305 IFVAL(J$)=VAL(AN$)THEN2340
2310 GOSUB 1100:TX$="[212]HE CORRECT ANSWER IS"+AN$+".":Y=20:X=0:GOSUB980
2315 TX$="[211]HALL [201] SHOW YOU THIS ONE? [145][164][164][164][164][164][157][157][157][157][157][165][217]/[206][167][157][157][157][157][157][163][163][163][163][163][145] "
2320 X=0:Y=22:GOSUB980:MX=1:GOSUB400:IFJ$="N"THENRETURN
2325 IFOP=4THENSF=1
2326 LN=5:GOSUB200:GOSUB850
2328 TX$="[195]HANGE THIS FRACTION":X=0:Y=8:GOSUB980:TX$="TO A DECIMAL.":Y=9
2330 GOSUB980:TX$=STR$(N):X=30:Y=7:GOSUB980:TX$="[192][192][192]":Y=8:X=30:GOSUB980
2331 TX$=STR$(D):Y=9:X=30:GOSUB980
2332 GOSUB600:GOTO 2105
2340 TX$=RE$(INT(RND(1)*6)+1):GOSUB300:Y=22:IFOP=4THENY=16
2345 GOSUB990:GOSUB600:RETURN
2400 REM *** ANSWERS ONLY ***
2410 TX$="[197]NTER THE DECIMAL:":X=0:Y=12:GOSUB980:NU$=RIGHT$(AN$,5)
2415 X=19:Y=12:GOSUB1010:GOTO 2300
4000 REM
4005 REM *** PRINT SCORE AND GIVE ***
4010 REM ***  OPTION OF PLAYING   ***
4015 REM ***        AGAIN         ***
4020 REM
4025 CP=CP-1:LN=5:GOSUB200
4030 IFOP<3THEN4062
4035 TX$="[217]OU GOT"+STR$(SC)+" RIGHT OUT OF"+STR$(CP)+" PROBLEMS."
4037 Y=10:X=0:GOSUB980
4038 SC=INT((SC/CP)*100):IFSC>100THENSC=100
4040 TX$="[212]HAT MAKES"+STR$(SC)+" PERCENT.":Y=12:X=0:GOSUB980
4062 TX$="[196]O YOU WANT TO PLAY AGAIN? [165][217]/[206][167][145][157][157][157][157][157][164][164][164][164][164][157][157][157][157][157][163][163][163][163][163][145]":SC=0
4065 X=0:Y=15:GOSUB980:MX=1:GOSUB400
4067 IFJ$="Y"THEN 4100
4070 SC=0:TX$="[196]OES ANYONE ELSE WANT TO PLAY? [165][217]/[206][167][145][157][157][157][157][157][164][164][164][164][164][157][157][157][157][157][163][163][163][163][163][145]"
4075 X=0:Y=17:GOSUB980:MX=1:GOSUB400:IFJ$="Y"THEN 2000
4080 SYS 8*4096+4
4100 GOSUB480:LN=1:TX$="[198]RACTION TO [196]ECIMALS"
4110 GOSUB100:GOSUB800:TX$="[151] [208]UBLISHED BY [214]IKING [212]ECHNOLOGIES, [201]NC."
4120 X=0:Y=24:GOSUB 980:GOTO 2050
5000 PRINT"[142]";:GOSUB 480:LN=1:TX$="VISION SOFTWARE":GOSUB 100
5010 LN=2:TX$="AND UPTIME PRESENTS":GOSUB 100
5020 GOSUB 5200
5030 PRINT"[158]  [161][172][162][146][190][161][172][187][146][187] [190][188][146] [172][172][187][146][187][188][187][172][146][190][188] [146][190][172][172][187][146][187][161][188][161][146][161][172][172][187][146][187]"
5040 PRINT"  [161][188][146][187] [161][188][190][146][190][161][188][190][146][161][161][146][161]   [161][146][161]   [146] [161][146][161][161][146][161][161]  [146][161][188][188][146][162]"
5050 PRINT"  [161][146][161]  [161][172][188][146] [161][146][161][161][146][161][161][146][161][172][187] [161][146][161]   [146] [161][146][161][161][146][161][161][146][161][187][146][161][172][187][161][146][161]"
5060 PRINT"  [188][190]  [188][190][188][190][188][190][188][190] [162][162][146]  [188][190] [188][162][146][190] [162][162][146] [188][190][188][190] [162][162]"
5070 PRINTTAB(17)"[187][146][190] [191][146][191]"
5080 PRINTTAB(17)"[161][146]  [191][191]"
5100 PRINT"    [161][172][188][146] [161][172][162][146][190][172][172][187][146][187][188] [146][190][161][188][146][172] [146] [190][188][146] [161][146][161]  [172][172][187][146][187]"
5110 PRINT"    [161][146][161][161][146][161][161][188][146][187][146] [161][146][161]    [146] [161][172][172] [161][188][190][146][161][161][146][161]  [188][188][146][162]"
5120 PRINT"    [161][146][161][190][146][190][161][146][161]  [161][146][161][172][187]  [146] [161][146][161]  [161][146][161][161][146][161][161][146][161]  [172][187][161][146][161]"
5130 PRINT"    [188][162][146][190] [188][162][162][146][190] [162][162][146] [188][162][146][190][188][190] [162][146][188][190][188][190][188][162][162][146][190] [162][162]"
5140 POKE 198,0
5150 PRINTTAB(7)"[159]PRESS SPACEBAR TO CONTINUE"
5160 PRINT"[151] PUBLISHED BY SOFTDISK PUBLISHING, INC."
5170 RETURN
5200 PRINT"";
5210 PRINT"[159][192][157][157][156][183][183][145][145]";
5220 FORX=1TO23:PRINT"[154][175][157][159][192][157][156][183][145][145]";:NEXT
5230 PRINT"[154][175][175][157][157][159][192]":RETURN
5999 END
30000 REM
30005 REM *** INSTRUCTIONS ***
30010 REM
30015 GOSUB480:LN=1:TX$="[201] N S T R U C T I O N S":GOSUB 100:GOSUB800
30020 PRINT"    [204]EARN TO CONVERT FRACTIONS TO"
30025 PRINT"DECIMAL NUMBERS WITH EASE!  [212]HERE"
30030 PRINT"ARE FOUR WAYS TO USE THIS PROGRAM:"
30038 PRINT"                [207]PTIONS[157][157][157][157][157][157][157][163][163][163][163][163][163][163]"
30040 PRINT"          1.  [196]EMONSTRATION."
30042 PRINT"          2.  [215]ORK EXAMPLES WITH HELP."
30043 PRINT"          3.  [211]TEP-BY-STEP PROBLEMS."
30044 PRINT"          4.  [193]NSWERS ONLY."
30045 GOSUB 33000
30055 PRINT"      [207]PTION 1:  [196]EMONSTRATION."
30056 PRINT"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30060 PRINT"    [201] WILL SHOW YOU, STEP BY STEP,"
30062 PRINT"HOW TO CONVERT A FRACTION INTO A"
30065 PRINT"DECIMAL NUMBER.  [201] WILL EXPLAIN EACH"
30070 PRINT"STEP AS [201] GO."
30080 GOSUB 33000
30090 PRINT"  [207]PTION 2: [215]ORK EXAMPLES WITH HELP."
30091 PRINT"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30095 PRINT"    [201] WILL GIVE YOU A FRACTION, AND"
30100 PRINT"YOU MUST CONVERT IT INTO A DECIMAL"
30105 PRINT"NUMBER.  [215]E WILL WORK THE PROBLEMS"
30110 PRINT"TOGETHER, AND [201] WILL GUIDE YOU":PRINT"THROUGH EACH STEP."
30111 PRINT"   [201]F YOU ENTER A WRONG ANSWER, [201]"
30112 PRINT"WILL CORRECT YOU."
30115 GOSUB 33000
30125 PRINT"       [207]PTION 3: [211]TEP-BY-STEP."
30126 PRINT"       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30130 PRINT"    [207]N OPTION 3, [201] WILL ALLOW YOU "
30135 PRINT"TO WORK THE WHOLE PROBLEM BY YOURSELF"
30140 PRINT"FOR PRACTICE.  [201]F YOUR FINAL ANSWER"
30142 PRINT"IS WRONG, [201] WILL WORK THE PROBLEM WITH"
30145 PRINT"YOU.  [201] WILL KEEP YOUR SCORE ON THIS"
30150 PRINT"OPTION.":GOSUB33000
30151 PRINT"      [207]PTION 4: [193]NSWERS ONLY."
30152 PRINT"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30153 PRINT"   [215]ITH ANSWERS ONLY, YOU MUST FIND"
30154 PRINT"THE ANSWER ALL BY YOURSELF, WITHOUT"
30155 PRINT"MY HELP.  [217]OU MAY NEED PAPER AND"
30156 PRINT"AND A PENCIL ON THIS OPTION."
30157 PRINT"   [196]O YOUR BEST, BECAUSE [201] WILL BE"
30158 PRINT"KEEPING YOUR SCORE!":GOSUB33000
30160 PRINT"          [206]UMBER OF [208]ROBLEMS"
30162 PRINT"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30165 PRINT"    [217]OU WILL DECIDE HOW MANY PROBLEMS"
30170 PRINT"TO DO.  [201]F YOU CHOOSE OPTION 1, YOU"
30175 PRINT"MAY ONLY HAVE 5 PROBLEMS; OTHERWISE,"
30180 PRINT"YOU MAY HAVE FROM 5 TO 20 PROBLEMS."
30185 GOSUB 33000
30187 GOSUB480:LN=1:TX$="[198]RACTIONS TO [196]ECIMALS":GOSUB 100:GOSUB800
30190 TX$="[151] [208]UBLISHED BY [214]IKING [212]ECHNOLOGIES, [201]NC.":X=0:Y=24:GOSUB 980
30200 RETURN
33000 REM *** CONTINUE INSTRUCTIONS ***
33005 TX$="[159][169][208]LEASE [208]RESS [193]NY [203]EY[146][169]":Y=24:GOSUB990
33010 GETWE$:IFWE$=""THEN33010
33015 LN=5:GOSUB200:PRINT"":RETURN