Compucolor.org – Virtual Media

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