.TAPTAP003
ClrDraw
ClrDrawr
Full
"prgmTapTI001"->Str1
UnArchieve Str1
If GetCalc(Str1)=0
"RAMprgmTapTapTIprgmFil"->Str2
"esprgmExternalFiles"->Str3
"prgmTrackPack1prgmNonE"->Str4
"execprgmprgmTapTI001"->Str5
"ERR: MissingFile"->Str6
"Press ENTER"->Str7
Output(0,0,Str2
Output(0,1,Str3
Output(0,2,Str4
Output(0,3,Str5
Fix 3
Output(0,4,Str6
Fix 2
Output(2,6,Str7
getKeyr
Goto ZZ
End
GetCalc(Str1)->H
length(H)->Z
getkeyr
28->T
Repeat getKey(15)
If T=Z
Goto ZZ
End
T+1->T
DispGraphr
.001
If {H+T}={H+1} or ({H+T}={H+4}) or ({H+T}={H+7}) or ({H+T}={H+10}) or ({H+T}={H+13}) or ({H+T}={H+16}) or ({H+T}={H+19}) or ({H+T}={H+22}) or ({H+T}={H+25})
Line(16,15,16,21)r
Line(17,14,17,22)r
Line(18,14,18,22)r
Line(19,14,19,22)r
Line(20,15,20,21)r
End
.002
If {H+T}={H+2} or ({H+T}={H+5}) or ({H+T}={H+8}) or ({H+T}={H+11}) or ({H+T}={H+14}) or ({H+T}={H+17}) or ({H+T}={H+20}) or ({H+T}={H+23}) or ({H+T}={H+26})
Line(13,26,13,20)r
End
.010
If {H+T}={H+3} or ({H+T}={H+4}) or ({H+T}={H+5}) or ({H+T}={H+12}) or ({H+T}={H+13}) or ({H+T}={H+14}) or ({H+T}={H+21}) or ({H+T}={H+22}) or ({H+T}={H+23})
Line(16,29,16,35)r
Line(17,28,17,34)r
Line(18,28,18,34)r
Line(19,28,19,34)r
Line(20,29,20,35)r
End
.020
If {H+T}={H+6} or ({H+T}={H+7}) or ({H+T}={H+8}) or ({H+T}={H+15}) or ({H+T}={H+16}) or ({H+T}={H+17}) or ({H+T}={H+24}) or ({H+T}={H+25}) or ({H+T}={H+26})
Line(13,30,13,34)r
End
.100
If {H+T}={H+9} or ({H+T}={H+10}) or ({H+T}={H+11}) or ({H+T}={H+12}) or ({H+T}={H+13}) or ({H+T}={H+14}) or ({H+T}={H+15}) or ({H+T}={H+16}) or ({H+T}={H+17})
Line(16,43,16,49)r
Line(17,42,17,50)r
Line(18,42,18,50)r
Line(19,42,19,50)r
Line(20,43,20,49)r
End
.200
If {H+T}={H+18} or ({H+T}={H+19}) or ({H+T}={H+20}) or ({H+T}={H+21}) or ({H+T}={H+22}) or ({H+T}={H+23}) or ({H+T}={H+24}) or ({H+T}={H+25}) or ({H+T}={H+26})
Line(13,44,13,48)r
End
DispGraphr
DispGraph
Horizontal+r
Horizontal+
End
Lbl ZZ
ClrDraw
ClrDrawr