aaTYPER.bas Q==e7=b8Z`TEXTSmBaH@z@zlnch1.0aaTYPER.basH 6YETFX5P M劥126: LINE 0,141,104,1HTl : H~P ~UPUU R< SMain:/:6 :6X:/:J00T' AATYPER.bas LINE 0,15,160,15:LINE 0,35,160,35: LINE 0,60,160,60:LINE 0,85,160,85: LINE 0,110,160,110:LINE 0,135,160,135:LINE 0,159,160,159 :LINE 0,15,0,160:LINE 5,15,5,160: LINE 26,15,26,160:LINE 52,15,52,160: LINE 78,15,78,160:LINE 104,15,104,160 :LINE 130,15,130,160: LINE 159,15,159,160 AT 13,17:? CAT(87);"A":AT 38,17:? "B":AT 63,17:?"C":AT 90,17:? "D":AT 116,17:? "E":AT 142,17:? "F" AT 13, 43:? "G":AT 38, 43:? "H":AT 63, 43:? "I":AT 90, 43:? "J":AT 116, 43:? "K":AT 142, 43:? "L" AT 13, 69:? "M":AT 38, 69:? "N":AT 63, 69:? "O":AT 90, 69:? "P":AT 116, 69:? "Q":AT 142, 69:? "R" AT 13, 92:? "S":AT 38, 92:? "T":AT 63, 92:? "U":AT 90, 92:? "V":AT 116, 92:? "W":AT 142, 92:? "X" AT 116, 115:? "3":AT 142, 115:? "4" AT 13, 115:? "Y":AT 38, 115:? "Z":AT 63, 115:? "1":AT 90, 115:? "2":AT 13, 141:? CAT(81);"5":AT 38,141:? "6":AT 63,141:? "7":AT 90,141:? "8":AT 116, 141:? "9":AT 142,141:? "0" AT 0,0 OPEN "MEMO:Typer" FOR OUTPUT AS #1 PEN ON 1 FOR x = 0 TO 140 STEP 10 3 AT x,0: ? CAT(87); "| " 4 REPEAT k=INKEY UNTIL PEN(3)=1 OR LEN(k)=2 IF ASC(RIGHT(k,1))=2 z = " " ELIF ASC(RIGHT(k,1))=1 RECT 1,15,4,159 FILLED DELAY 150 RECT 1,16,4,158 COLOR 15 FILLED x=x-10: z=" " AT x,0: ? z SEEK #1, -1 IF x < 0 x = 140 FI DELAY 300 GOTO 3 ELIF ASC(RIGHT(k,1))=3 GOTO 2 ELIF ASC(RIGHT(k,1))=4 z = ":" ELIF PEN(1)<25 AND PEN(2)<34 THEN z = "A" ELIF PEN(1)>27 AND PEN(1)<51 AND PEN(2)<34 z = "B" ELIF PEN(1)>53 AND PEN(1)<77 AND PEN(2)<34 z = "C" ELIF PEN(1)>79 AND PEN(1)<103 AND PEN(2)<34 z = "D" ELIF PEN(1)>105 AND PEN(1)<129 AND PEN(2)<34 z = "E" ELIF PEN(1)>131 AND PEN(2)<34 z = "F" ELIF PEN(1)<25 AND PEN(2)>36 AND PEN(2)<59 z = "G" ELIF PEN(1)>27 AND PEN(1)<51 AND PEN(2)>36 AND PEN(2)<59 z = "H" ELIF PEN(1)>53 AND PEN(1)<77 AND PEN(2)>36 AND PEN(2)<59 z = "I" ELIF PEN(1)>79 AND PEN(1)<103 AND PEN(2)>36 AND PEN(2)<59 z = "J" ELIF PEN(1)>105 AND PEN(1)<129 AND PEN(2)>36 AND PEN(2)<59 z = "K" ELIF PEN(1)>131 AND PEN(2)>36 AND PEN(2)<59 z = "L" ELIF PEN(1)<25 AND PEN(2)>61 AND PEN(2)<84 z = "M" ELIF PEN(1)>27 AND PEN(1)<51 AND PEN(2)>61 AND PEN(2)<84 z = "N" ELIF PEN(1)>53 AND PEN(1)<77 AND PEN(2)>61 AND PEN(2)<84 z = "O" ELIF PEN(1)>79 AND PEN(1)<103 AND PEN(2)>61 AND PEN(2)<84 z = "P" ELIF PEN(1)>105 AND PEN(1)<129 AND PEN(2)>61 AND PEN(2)<84 z = "Q" ELIF PEN(1)>131 AND PEN(2)>61 AND PEN(2)<84 z = "R" ELIF PEN(1)<25 AND PEN(2)>86 AND PEN(2)<109 z = "S" ELIF PEN(1)>27 AND PEN(1)<51 AND PEN(2)>86 AND PEN(2)<109 z = "T" ELIF PEN(1)>53 AND PEN(1)<77 AND PEN(2)>86 AND PEN(2)<109 z = "U" ELIF PEN(1)>79 AND PEN(1)<103 AND PEN(2)>86 AND PEN(2)<109 z = "V" ELIF PEN(1)>105 AND PEN(1)<129 AND PEN(2)>86 AND PEN(2)<109 z = "W" ELIF PEN(1)>131 AND PEN(2)>86 AND PEN(2)<109 z = "X" ELIF PEN(1)<25 AND PEN(2)>111 AND PEN(2)<134 z = "Y" ELIF PEN(1)>27 AND PEN(1)<51 AND PEN(2)>111 AND PEN(2)<134 z = "Z" ELIF PEN(1)>53 AND PEN(1)<77 AND PEN(2)>111 AND PEN(2)<134 z = "1" ELIF PEN(1)>79 AND PEN(1)<103 AND PEN(2)>111 AND PEN(2)<134 z = "2" ELIF PEN(1)>105 AND PEN(1)<129 AND PEN(2)>111 AND PEN(2)<134 z = "3" ELIF PEN(1)>131 AND PEN(2)>111 AND PEN(2)<134 z = "4" ELIF PEN(1)<25 AND PEN(2)>136 z = "5" ELIF PEN(1)>27 AND PEN(1)<51 AND PEN(2)>136 z = "6" ELIF PEN(1)>53 AND PEN(1)<77 AND PEN(2)>136 z = "7" ELIF PEN(1)>79 AND PEN(1)<103 AND PEN(2)>136 z = "8" ELIF PEN(1)>105 AND PEN(1)<129 AND PEN(2)>136 z = "9" ELIF PEN(1)>131 AND PEN(2)>136 z = "" FI IF z = 0 THEN GOTO 4 FI AT x,0: ? z w = LCASE(z) IF z <> 0 THEN RECT 1,15,4,159 FILLED FI ERASE z ? #1; w; DELAY 300 RECT 1,16,4,158 COLOR 15 FILLED NEXT x=0 GOTO 1 2 RECT 1,15,4,159 FILLED PEN OFF SPLIT DATE, "/", d() ? #1; " <" ;d(1) ;"/"; d(0) CLOSE #1 OPEN "MEMO:Typer" FOR INPUT AS #2 INPUT #2; v CLOSE #2 KILL "MEMO:Typer" OPEN "Typer" FOR APPEND AS #3 ? #3; v CLOSE #3 ATE, "/", d() ? #1; " <" ;d(1) ;"/"; d(0) CLOSE #1 OPEN "MEMO:Typer" FOR INPUT AS #2 INPUT #2; v CLOSE #2 KILL "MEMO:Typer" OPEN "Typer" FOR APPEND AS #3 ? #3; v CLOSE #3 er" OPEN "Typer" FOR APPEND AS #3 ? #3; v CLOSE #3 :Typer" OPEN "Typer" FOR APPEND AS #3 ? #3; v CLOSE #3 PEN "Typer" FOR APPEND AS #3 ? #3; v CLOSE #3