; 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("ááופ«ÕááááááááצáסáכáIJáצáזáááááááááá")¢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¢¢
