Listing of file='JOYBAS.BAS;01' on disk='vmedia/modified_utilities-sector.ccvf'
10 PLOT 12:REM TO RUN JOYSTICK PROGRAM 20 REM * BASIC INTRODUCTION BY K. G. WINDER. CUVIC 30 REM * JOYSTICK PROG BY MYRON T. STEFFY. FORUM VOL2 #3. 32 IF PEEK (36881)+ PEEK (37294)= 400THEN 50 40 PLOT 27,4:PRINT "LOA JOYST.PRG":PLOT 27,27 50 PLOT 14,12:REM JOYBAS 60 PLOT 3,0,6:PRINT TAB( 18)"JOYSTICK DRAWING IN COLOUR" 70 PLOT 14:PRINT TAB( 18)"__________________________" 80 PLOT 15:PRINT :PRINT :PRINT 90 PRINT TAB( 6)"CHOOSE YOUR OWN SPEED FOR DRAWING,- AS FOLLOWS :- " 100 PRINT :PRINT TAB( 6)"1 = SLOW, GETTING FASTER, UP TO 10 = VERY FAST" 110 PRINT :PRINT :PRINT TAB( 14)"ENTER DESIRED SPEED,(1 TO 10) = "; 120 INPUT "";X 130 X= INT (X):IF X< 1OR X> 10THEN 110 140 Z= 11- X:ON ZGOSUB 200,210,220,230,240,250,260,270,280,290 150 POKE 37195,Z:POKE 37197,171:PLOT 27,9 160 END 200 Z= 2:RETURN 210 Z= 3:RETURN 220 Z= 5:RETURN 230 Z= 8:RETURN 240 Z= 14:RETURN 250 Z= 26:RETURN 260 Z= 45:RETURN 270 Z= 80:RETURN 280 Z= 140:RETURN 290 Z= 255:RETURN 310 END