home *** CD-ROM | disk | FTP | other *** search
/ Flop Magazin 8 / Flop_Magazin_08_1991_United_Electronic_Crazies_cs_Side_B.atr / scale.lst < prev    next >
File List  |  2023-02-26  |  296b  |  1 lines
  1. 28000 KX=(VX-MX)/319:KY=(VY-MY)/191:RETURN ¢28100 PLOT (HX-MX)/KX,(HY-MY)/KY:RETURN ¢28200 DRAWTO (HX-MX)/KX,(HY-MY)/KY:RETURN ¢28300 COLOR 1:HX=SX:HY=MY:GOSUB 28100:HY=VY:GOSUB 28200:HY=SY:HX=MX:GOSUB 28100:HX=VX:GOSUB 28200:RETURN ¢28400 GRAPHICS 24:MX=0:VX=320:MY=0:VY=192:GOSUB 28000:RETURN ¢