8-Bit Software Online Conversion

Joystick 2 - Listing

1 REM O'SCOPE 2REM LOL Simmonds 1989 10 ON ERROR GOTO120 11 MODE7 12 PRINT"" 13 PRINT"" 14 PRINT"" 15 PRINT "THIS WILL DISPLAY A TRACE F ROM ADVAL1." 16 PRINT "WAVING YOUR HAND ACROSS THE BACK OF THE" 17 PRINT "COMPUTER WILL MAKE THE TRAC E BIGGER." 18 PRINT"PRESS THE SPACE BAR TO CONTI NUE OR HIT" 19 PRINT"THE ESCAPE KEY TO END." 20 REPEAT UNTIL GET=32 30MODE0:VDU23;8202;0;0;0; 40CLS 50FORZ%=1TO1200STEP3 60B=ADVAL1:A%=B/64 70IFZ%=1PLOT4,Z%,A% 80PLOT5,Z%,A% 90NEXT 100GOTO40 120 MODE7 121 PRINT"" 122 PRINT"" 123 PRINT"" 124 PRINT"IF YOU ENJOYED THIS GAME, YO U MAY LIKE" 125 PRINT"TO TRY THIS; TYPE L.,100 AND THEN CHANGE"; 126 PRINT"TO MODE2 IN LINE 30. TO GIV E COLOURS," 127 PRINT"ADD THE LINE 65 GCOL 0,RND(Z %) -RUN THIS"; 128 PRINT"AND SEE WHAT HAPPENS! YOU C AN ALSO TRY "; 129 PRINT"PLAYING WITH THE VALUE OF B /96 eg. B/64" 130 END