aaTYPER.bas Q ==e7=b8 Z ` TEXTSmBa H@z @z lnch 1.0 aaTYPER.bas H 6YETFX5P M劥126: LINE 0,141,104,1H Tl
:
H ~ P
~ UP U U
R<
S Main : / :6 :6X : / :J 0 0T' 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