;   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››