Listing of file='DOODLR.BAS;01' on disk='vmedia/cm_0-4_paddle_games-sector.ccvf'
100 REM COPYRIGHT (C) 1980 BY COLOR-MOD ENTERPRISES 110 REM ALL RIGHTS RESERVED 120 REM 130 REM DOODLER BY JIM AMOS 140 PLOT 12:GOSUB 310 150 POKE 33283,173:POKE 33284,159:REM SET CALL(X) JUMP 160 POKE 32940,172:POKE 32941,159:CLEAR 1:REM RESET RAM 170 PLOT 27,4:PRINT "LOA GAMER3.PRG":PLOT 27,27:REM LOAD GAMER 180 PLOT 6,2,12,15,27,24:BG= 18:FG= 16:REM INITIALIZE SCREEN 190 P1= CALL (1):P2= CALL (2):REM GET PADDLE VALUES 200 IF P1> 63THEN P1= 63:REM ADJUST FOR X - AXIS 210 IF P2> 31THEN P2= 31:REM ADJUST FOR Y - AXIS 220 PLOT 3,P1,P2,96:REM DISPLAY CURSOR 230 L= INP (1)OR 251:IF L= 251THEN GOSUB 270:REM SWITCH #1 240 R= INP (1)OR 247:IF R= 247THEN GOSUB 290:REM SWITCH #2 250 PLOT 30,BG,29,FG:REM SET COLOR 260 GOTO 190 270 FG= FG+ 1:IF FG> 23THEN FG= 16 280 RETURN 290 BG= BG+ 1:IF BG> 23THEN BG= 16 300 RETURN 310 FOR N= 1TO 200:OUT 6,N:NEXT :RETURN