Actions
Bug #264
openFlash compiles, but does not function.
Status:
New
Priority:
Normal
Assignee:
-
Target version:
-
Start date:
02/28/2020
Due date:
% Done:
0%
Estimated time:
2:00 h
Affected version:
Description
Example: The 2nd bar (white) should be flashing (fading white to black)
#manifest: "amiga"
#speed: "safe"
Screen Open 0,320,200,32,Lowres
Flash 2,"(FFF,2)(DDD,2)(BBB,2)(999,2)(777,2)(555,2)(333,2)(111,2)(000,2)(333,2)(555,2)(777,2)(999,2)(BBB,2)(DDD,2)"
Get Fonts : Set Font 6
P=0 : Cls P : Pen 0
For P=1 To 31
Paper P
Ink P
Bar P*10,0 To P*10+9,199
Next P
'
' Label the first 9 bars.
'
For P=0 To 9
S$=Str$(P) : S$=Right$(S$,Len(S$)-1)
Ink 9,P : Text P*10,10,S$
Next P
Files
Actions