Screen Open 1,320,256,64,Lowres : Colour 1,0 : Curs Off : Hide On Do K=1 PROGRAM: X=Rnd(20) : If X=0 Then Goto PROGRAM Z=Rnd(5) : If Z=0 Then Goto PROGRAM Cls For B=0 To 255 For A=0 To 320 Bar A,B To A+X,B+X LOSUJ: K=Rnd(64) If K=0 or K=1 or K=16 or K=32 or K=33 or K=41 or K=48 or K=64 or K=65 Then Goto LOSUJ Ink K,0 If Mouse Key Then Goto PROGRAM A=A+(X+Z) Next A B=B+(X+Z) Next B CLG: If Mouse Key Then Goto PROGRAM Goto CLG Loop
@pong777, post #1
@RAL, post #2
@pong777, post #3
Trzeba rozpakować na PC (ZIP) i wrzucić na CF albo przesłać NULL MODEMEM, dyskietką 720K z PC albo w jakikolwiek inny sposób.
albo w jakikolwiek inny sposób.
@pong777, post #1
@selur, post #8
@RAL, post #10
@Don_Adan, post #14