AATyper.bashttp://space.com/syCcCk$Cc`TEXTSmBaH@Y@Y5lnch1.0AATyper.basH  6YETFX5P	M劥EjESEH$$$$@$dHJSMaingw0w*wwz9
5Lu'AATYPER.bas
'Phone = Space, Date = BS, ToDo = Exit.

LINE 0,30,320,30:LINE 0,70,320,70: LINE 0,120,320,120:LINE 0,170,320,170: LINE 0,220,320,220:LINE 0,270,320,270:LINE 0,318.10,320,318.10

:LINE 0,30,0,320:LINE 10,30,10,320: LINE 52,30,52,320:LINE 104,30,104,320: LINE 156,30,156,320:LINE 208,30,208,320 :LINE 260,30,260,320: LINE 318.10,30,318.10,320

AT 26,34:? CAT(87);"A":AT 76,34:? "B":AT 126,34:?"C":AT 180,34:? "D":AT 232,34:? "E":AT 284,34:? "F"
AT 26, 86:? "G":AT 76, 86:? "H":AT 126, 86:? "I":AT 180, 86:? "J":AT 232, 86:? "K":AT 284, 86:? "L"
AT 26, 138:? "M":AT 76, 138:? "N":AT 126, 138:? "O":AT 180, 138:? "P":AT 232, 138:? "Q":AT 284, 138:? "R"
AT 26, 184:? "S":AT 76, 184:? "T":AT 126, 184:? "U":AT 180, 184:? "V":AT 232, 184:? "W":AT 284, 184:? "X"
AT 232, 230:? "3":AT 284, 230:? "4"
AT 26, 230:? "Y":AT 76, 230:? "Z":AT 126, 230:? "1":AT 180, 230:? "2":AT 26, 282:? CAT(81);"5":AT 76,282:? "6":AT 126,282:? "7":AT 180,282:? "8":AT 232, 282:? "9":AT 284,282:? "0"
AT 0,0

OPEN "MEMO:Typer" FOR OUTPUT AS #1
PEN ON
1 FOR x = 0 TO 280 STEP 20
3 AT x,0: ? CAT(87); "|   "
4 REPEAT
k=INKEY
UNTIL PEN(3)=1 OR LEN(k)=2
IF ASC(RIGHT(k,1))=4
z = " "
ELIF ASC(RIGHT(k,1))=3
RECT 2,30,8,318 FILLED
DELAY 150
RECT 2,32,8,316 COLOR 30 FILLED
x=x-10: z="      "
AT x,0: ? z
SEEK #1, -1
IF x < 0
x = 280
FI
DELAY 150
GOTO 3
ELIF ASC(RIGHT(k,1))=5
GOTO 2
'ELIF ASC(RIGHT(k,1))=4
'z = ":"

ELIF PEN(1)<50 AND PEN(2)<68 THEN
z = "A"
ELIF PEN(1)>54 AND PEN(1)<102 AND PEN(2)<68
z = "B"
ELIF PEN(1)>106 AND PEN(1)<154 AND PEN(2)<68
z = "C"
ELIF PEN(1)>158 AND PEN(1)<206 AND PEN(2)<68
z = "D"
ELIF PEN(1)>210 AND PEN(1)<258 AND PEN(2)<68
z = "E"
ELIF PEN(1)>262 AND PEN(2)<68
z = "F"
ELIF PEN(1)<50 AND PEN(2)>72 AND PEN(2)<118
z = "G"
ELIF PEN(1)>54 AND PEN(1)<102 AND PEN(2)>72 AND PEN(2)<118
z = "H"
ELIF PEN(1)>106 AND PEN(1)<154 AND PEN(2)>72 AND PEN(2)<118
z = "I"
ELIF PEN(1)>158 AND PEN(1)<206 AND PEN(2)>72 AND PEN(2)<118
z = "J"
ELIF PEN(1)>210 AND PEN(1)<258 AND PEN(2)>72 AND PEN(2)<118
z = "K"
ELIF PEN(1)>262 AND PEN(2)>72 AND PEN(2)<118
z = "L"
ELIF PEN(1)<50 AND PEN(2)>122 AND PEN(2)<168
z = "M"
ELIF PEN(1)>54 AND PEN(1)<102 AND PEN(2)>122 AND PEN(2)<168
z = "N"
ELIF PEN(1)>106 AND PEN(1)<154 AND PEN(2)>122 AND PEN(2)<168
z = "O"
ELIF PEN(1)>158 AND PEN(1)<206 AND PEN(2)>122 AND PEN(2)<168
z = "P"
ELIF PEN(1)>210 AND PEN(1)<258 AND PEN(2)>122 AND PEN(2)<168
z = "Q"
ELIF PEN(1)>262 AND PEN(2)>122 AND PEN(2)<168
z = "R"
ELIF PEN(1)<50 AND PEN(2)>172 AND PEN(2)<218
z = "S"
ELIF PEN(1)>54 AND PEN(1)<102 AND PEN(2)>172 AND PEN(2)<218
z = "T"
ELIF PEN(1)>106 AND PEN(1)<154 AND PEN(2)>172 AND PEN(2)<218
z = "U"
ELIF PEN(1)>158 AND PEN(1)<206 AND PEN(2)>172 AND PEN(2)<218
z = "V"
ELIF PEN(1)>210 AND PEN(1)<258 AND PEN(2)>172 AND PEN(2)<218
z = "W"
ELIF PEN(1)>262 AND PEN(2)>172 AND PEN(2)<218
z = "X"
ELIF PEN(1)<50 AND PEN(2)>222 AND PEN(2)<268
z = "Y"
ELIF PEN(1)>54 AND PEN(1)<102 AND PEN(2)>222 AND PEN(2)<268
z = "Z"
ELIF PEN(1)>106 AND PEN(1)<154 AND PEN(2)>222 AND PEN(2)<268
z = "1"
ELIF PEN(1)>158 AND PEN(1)<206 AND PEN(2)>222 AND PEN(2)<268
z = "2"
ELIF PEN(1)>210 AND PEN(1)<258 AND PEN(2)>222 AND PEN(2)<268
z = "3"
ELIF PEN(1)>262 AND PEN(2)>222 AND PEN(2)<268
z = "4"
ELIF PEN(1)<50 AND PEN(2)>272
z = "5"
ELIF PEN(1)>54 AND PEN(1)<102 AND PEN(2)>272
z = "6"
ELIF PEN(1)>106 AND PEN(1)<154 AND PEN(2)>272
z = "7"
ELIF PEN(1)>158 AND PEN(1)<206 AND PEN(2)>272
z = "8"
ELIF PEN(1)>210 AND PEN(1)<258 AND PEN(2)>272
z = "9"
ELIF PEN(1)>262 AND PEN(2)>272
z = ""
FI

IF z = 0 THEN
GOTO 4
FI
AT x,0: ? z
w = LCASE(z)
IF z <> 0 THEN
RECT 2,30,8,318 FILLED
FI
ERASE z
? #1; w;
DELAY 150
RECT 2,32,8,316 COLOR 30 FILLED
NEXT
x=0
GOTO 1
2 RECT 2,30,8,318 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
 OPEN "Typer" FOR INPUT AS #2
INPUT #2; v
CLOSE #2
KILL "MEMO:Typer"
"MEMO:Typer"
"

    Source: geocities.com/renwand