; SPLASH 2›; Paul Chabot ›;›MODULE›BYTE c1=709,c2=710,bor=712,cur=752› ,key=764,trow=656,tcol=657,y,s›CARD x››PROC Setup()›Graphics(8):c2=0:c1=14:cur=1:color=1›bor=16*Rand(16)+2:x=120:y=60:s=7›PrintE("  ÇÒ®¸        Ó Ð Ì Á Ó È          ")›PrintE("CENTER 120 , 60 STEP 7 ")›PrintE(" [joystick] [S] ")›RETURN››PROC Splash()›CARD i›bor=16*Rand(16)+2›FOR i=0 TO 319 STEP s DO› Plot(x,y):DrawTo(i,0) › Plot(x,y):DrawTo(i,159)›OD›FOR i=0 TO 159 STEP s DO› Plot(x,y):DrawTo(319,i)› Plot(x,y):DrawTo(0,i)›OD›RETURN››PROC IncStep()›s==+1:bor=16*Rand(16)+2›IF s>16 THEN s=1 FI›trow=1:tcol=25:PrintB(s):Print(" ")›RETURN››PROC Joystick()›BYTE st›trow=3:tcol=2›Print("[trigger] - SPLASH ")›DO trow=1:tcol=9:st=Stick(0)› PrintC(x):Print(" , "):PrintB(y):Print(" ")› WHILE Stick(0)=15 DO› IF Strig(0)=0 THEN RETURN FI› IF key<255 THEN key=255:IncStep() FI› OD st=Stick(0)› IF st=7 AND x<319 THEN x==+1› ELSEIF st=11 AND x>0 THEN x==-1› ELSEIF st=13 AND y<159 THEN y==+1› ELSEIF st=14 AND y>0 THEN y==-1› FI›OD›RETURN››PROC Main()›DO key=255:Setup()› DO Joystick():Splash()› trow=3:tcol=2› Print("[A]-Another [C]-Clear")› WHILE key=255 DO OD› IF key=18 THEN EXIT FI› key=255› OD›OD›RETURN››