chapterC/CHCPRG2.LST:

10 REM PUSH "START" CONSOL KEY TO
20 REM ADD THE SYNC MARK ONTO THE TAPE
30 REM 
40 REM 
50 IO=53760:CONSOLE=53279:CASS=54018
100 FOR I=0 TO 8
110 READ J:POKE IO+I,J
120 NEXT I
125 REM THE FOR LOOP SETS THE AUDIO FREQUENCY & CHANNEL
130 DATA 5,160,7,160,5,160,7,160,0
140 REM 
150 REM I/O IS SETUP; NOW START THE CASSETTE
160 POKE CASS,52
200 POKE CONSOLE,8
210 IF PEEK(CONSOLE)=7 THEN 230:REM CONSOLE=7 MEANS WRITE MARK,
220 POKE IO+15,11:GOTO 200:REM CONSOLER KEYS NOT PRESSED
230 POKE IO+15,128+11:GOTO 200:REM IF CONSOLE=7 WRITE "SPACE"

Back to previous page