10 REM DEMONSTRATION OF ATARI TIMING›20 REM FOR TUTORIALS USING VOICE AND›30 REM TIMING LOOPS›40 REM PROGRAM DESIGN, INC.›50 CLOCK=5000:QUESTIONASK=4000:QUESTIONANSWER=3000:REM SUBROUTINE LABELS AND LOCATIONS›60 DIM ANSWER$(10),RESPONSE$(10),LINE$(40)›100 GRAPHICS 2+16:POSITION 0,2:? #6;" BASIC TUTORIAL":? #6;" DEMONSTRATION":? #6›105 ? #6;" with voice"›110 TIME=300:GOSUB CLOCK›200 GRAPHICS 0:? :? ›205 ? "This is a demonstration of the ATARI":? "computer's ability to utilize a"›206 ? "sound-voice track. I will ask four":? "sample questions about ATARI BASCI.":? ›207 ? "Place audio cassette in player and":? "rewind to beginning.":? ›210 ? "Befor starting this demonstration,"›215 ? "make sure that the PLAY button is"›220 ? "pressed down on your cassette player."›230 ? :? :? "PRESS ÒÅÔÕÒÎ TO START.":INPUT RESPONSE$›300 GOSUB QUESTIONASK:TIME=1274:GOSUB CLOCK:GOSUB QUESTIONANSWER›310 GOSUB QUESTIONASK:TIME=681:GOSUB CLOCK:GOSUB QUESTIONANSWER›320 GOSUB QUESTIONASK:TIME=683:GOSUB CLOCK:GOSUB QUESTIONANSWER›330 GOSUB QUESTIONASK:TIME=800:GOSUB CLOCK:GOSUB QUESTIONANSWER›340 GOSUB QUESTIONASK:TIME=653:GOSUB CLOCK:GOSUB QUESTIONANSWER›400 GRAPHICS 1:SETCOLOR 2,0,14:SETCOLOR 4,0,14:POSITION 0,8:? #6;" END OF DEMO ":TIME=392:GOSUB CLOCK›410 POKE 54018,60:REM SHUT OFF CASSETTE›500 GRAPHICS 0:END ›2999 REM ANSWERING SUBROUTINE›3000 POKE 54018,60:REM SHUT OFF CASSETTE›3010 ? :? "YOUR ANSWER IS ";:INPUT RESPONSE$›3020 IF RESPONSE$=ANSWER$ THEN ? CHR$(253):? :? "CORRECT!":GOTO 3100›3040 ? :? "NO, THE ANSWER IS ";ANSWER$›3100 ? :? "PRESS ÒÅÔÕÒÎ TO CONTINUE...";:INPUT RESPONSE$›3110 POKE 54018,52:REM Turn cassette back on›3120 RETURN ›3999 REM Question subroutine›4000 GRAPHICS 0:READ NUMBER,COLOR,LINES,ANSWER$›4010 SETCOLOR 2,COLOR,4:? :? :? "QUESTION #";NUMBER:? :? ›4020 FOR COUNT=1 TO LINES:READ LINE$:? LINE$:NEXT COUNT›4030 RETURN ›4999 REM TIMING LOOP›5000 POKE 19,0:POKE 20,0:REM SETS CLOCK TO 0›5010 IF PEEK(19)*256+PEEK(20)