Re: TIB: once again....


[Prev][Next][Index][Thread]

Re: TIB: once again....




> BlAsTo1414
> 
> P.S.  I have an 86


Blasto, here's a bit of code that I developed that works very well. It's
long, and it only prints text to the screen(chars included, and with the
Asm ASCII finder, that means a lot of chars):

:ClDrw
:RcPic Grid
:10(-storeto-)xMax
:ú10(-storeto-)xMin
:5.5(-storeto-)yMax
:ú5.5(-storeto-)yMin
:GridOff
:AxesOff
:Horizú5.5
:Horiz 5.5
:Vert 10
:Vert ú10
:"@"(-storeto-)QQ
:"     "(-storeto-)ZZ
:61(-storeto-)X
:25(-storeto-)Y
:DispG
:Text(Y,X,QQ
:RcPic Grid
:Lbl LOOP
:getKy(-storeto-)A
:If A==26 and Xø121
:Then
:Text(Y,X,ZZ
:X+6(-storeto-)X
:Text(Y,X,QQ
:RcPic Grid
:Goto LOOP
:Else
:If A==24 and Xø1
:Then
:Text(Y,X,ZZ
:X-6(-storeto-)X
:Text(Y,X,QQ
:RcPic Grid
:Goto LOOP
:Else
:If A==34 and Yø55
:Then
:Text(Y,X,ZZ
:Y+6(-storeto-)Y
:Text(Y,X,QQ
:RcPic Grid
:Goto LOOP
:Else
:If A==25 and Yø1
:Then
:Text(Y,X,ZZ
:Y-6(-storeto-)Y
:Text(Y,X,QQ
:RcPic Grid
:Goto LOOP
:Else
:If A==22
:Then
:ClDrw
:ClLCD
:Stop
:Else
:Goto LOOP


References: