Listing of file='YESNO.BAS;01' on disk='vmedia/chip_128-sector.ccvf'
100 REM 110 REM ROUTINE FOR YES/NO INTERROGATIONS 120 REM 130 REM ASK A YES/NO QUESTION WITH A PRINT STATEMENT 140 REM TERMINATE YOUR PRINT STATEMENT WITH A SEMICOLON ';' 150 REM CALL THE SUBROUTINE 160 REM YOUR Y OR N WILL RETURN IN Q$ 170 REM 180 REM 1000 POKE 33278,0 1010 IF PEEK (33278)= 0GOTO 1010 1020 IF PEEK (33278)= 89THEN PRINT "ES":Q$= "Y":RETURN 1030 IF PEEK (33278)= 78THEN PRINT "O":Q$= "N":RETURN 1040 PLOT 26,32,26:GOTO 1000