One thing that bothers me with the hand-assembled code is
Code: Select all
180 S%?15=&BEF
Moderator: benryves
Code: Select all
180 S%?15=&BEF
Code: Select all
10 DIM S% 19
20 P%=S%
30 plotSScreen=&9340
40 MemClear=&4C30
50 [OPT 2
60 LD HL,plotSScreen+12
70 LD DE,plotSScreen
80 LD BC,756
90 LDIR
100 EX DE,HL
110 LD BC,12
120 RST &28:DEFW MemClear
130 RET:]
140 *GSCALE 1
150 CLG
160 *REFRESH OFF
170 *FX4,1
180 *FX11,8
190 *ESCOFF
200 D%=1
210 A%=32
220 U%=48
230 REPEAT
240 CALL S%:CALL S%
250 RECTANGLE FILL A%+32,0,96-A%,1
260 RECTANGLE FILL 0,0,A%,1
270 IF RND(1)<.5 A%=A%-1 ELSE A%=A%+1
280 IF A%<0 A%=0
290 IF A%>63 A%=63
300 IF POINT(U%,39)=0 EXIT REPEAT
310 RECTANGLE FILL U%,40,0,1
320 K%=INKEY0
330 IF K%<>0 U%=U%+(K%=136)-(K%=137)
340 *REFRESH
350 UNTIL K%=13 OR K%=27
360 *REFRESH
370 WAIT 100
380 *REFRESH ON
390 CLG:CLS
400 *FX4,0
410 *FX11,32
420 *ESCON
Code: Select all
*KEY 3 Hello
Code: Select all
f3pressed=INKEY(-116)