10 IFPEEK(52821)<>32ORPEEK(52822)<>243THENLOAD"APPROXIMATOR.ML",8,1
20 DIM G$(60):BK$="[164]"
30 POKE53280,.:POKE53281,.:PRINT"[147]              [193][208][208][210][207][216][201][205][193][212][207][210]"
35 PRINTTAB(9)"[153][212]YPE [211][204][193][211][200] ([158]/[153]) TO QUIT."
40 A$="":B$="":PRINT"[155][197]NTER [211]TRING 1:[159]"BK$;:MO=190:NC=60:GOSUB60500:A$=Z8$
45 IFA$="/"THEN60000
50 PRINT"[155][197]NTER [211]TRING 2:[159]"BK$;:MO=190:NC=60:GOSUB60500:B$=Z8$
55 IFB$="/"THEN60000
60 SYS52821,A$,B$:PRINT "[208]ERCENT CORRECT:[150]"PC%"[144]":GOTO35
100 :
110 :
120 :
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60001 PRINT"[147]";:IFER<>63THENEND
60002 LOAD"HELLO CONNECT",8
60500 FORZ8=1TONC
60502 GETZ8$:IFZ8$=""THEN60502
60503 IFZ8$="[147]"ORZ8$=""ORZ8$="[148]"ORZ8$="[145]"ORZ8$="[157]"ORZ8$=""ORZ8$=""THEN60502
60504 IFZ8$=CHR$(13)ORZ8$=CHR$(141)THENPRINT"[157] ":GOTO60544
60506 IFZ8$=" "ORZ8$="[160]"THEN60540
60508 IFZ8$=CHR$(20)ANDZ8=1THEN60502
60510 IFZ8$=CHR$(20)THENZ8=Z8-1:PRINT"[157][157]  [157][157]";BK$;:GOTO60502
60520 IFZ8$>"/"ANDZ8$<":"AND(MOAND2)THEN60540:NUMBERS
60522 IFZ8$>" "ANDZ8$<"*"AND(MOAND4)THEN60540:SHIFT NUMBERS
60524 IFZ8$>"[192]"ANDZ8$<"[219]"AND(MOAND8)THEN60540:UPPERCASE CHARACTERS
60526 IFZ8$>"@"ANDZ8$<"["AND(MOAND16)THEN60540:LOWERCASE CHARACTERS
60528 IFZ8$>CHR$(160)ANDZ8$<CHR$(192)AND(MOAND32)THEN60540:COMMODORE CHARACTERS
60530 IFZ8$>=CHR$(0)ANDZ8$<""AND(MOAND64)THEN60540:CTRL CHARACTERS
60532 IFZ8$>")"ANDZ8$<"0"AND(MOAND128)THEN60540:MISC CHARACTERS GROUP 1
60534 IFZ8$>"9"ANDZ8$<"A"AND(MOAND128)THEN60540:MISC CHARACTERS GROUP 2
60536 IFZ8$>"Z"ANDZ8$<"[129]"AND(MOAND128)THEN60540:MISC CHARACTERS GROUP 3
60538 GOTO60502
60540 PRINT"[157]";Z8$;:POKE212,.:PRINTBK$;
60542 G$(Z8)=Z8$:NEXT
60544 PRINT"[157][146] "
60546 Z8$="":FORA=1TOZ8-1:Z8$=Z8$+G$(A):NEXT:IFZ8=1THENZ8$=""
60548 RETURN