Displays information about streams and channels. Poke converts all PRINT statements in a program to LPRINT.
Appears on
Capital Area Timex Sinclair User Groupโs Library Tape.
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20083 to 20120. These tapes were compiled by Tony Willing.
Gallery
Source Code
110 FOR N=23568 TO 23605 STEP 2 120 IF N=23568 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL -3)" 130 IF N=23570 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL -2)" 140 IF N=23572 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL -1)" 150 IF N=23574 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 0)" 160 IF N=23576 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 1)" 170 IF N=23578 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 2)" 180 IF N=23580 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 3)" 190 IF N=23582 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 4)" 200 IF N=23584 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 5)" 210 IF N=23586 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 6)" 220 IF N=23588 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 7)" 230 IF N=23590 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 8)" 240 IF N=23592 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 9)" 250 IF N=23594 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 10)" 260 IF N=23596 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 11)" 270 IF N=23598 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 12)" 280 IF N=23600 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 13)" 290 IF N=23602 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 14)" 300 IF N=23604 THEN PRINT N;TAB 6;PEEK N+PEEK (N+1)*256;TAB 10;"(CHANNEL 15)" 310 NEXT N 315 PRINT #1;AT 0,0;"ANY KEY TO CONTINUE, Z TO COPY": PAUSE 0: IF INKEY$="Z" THEN COPY : CLS 316 CLS 350 PRINT "DEVICE SPEC"''"75=K=KEYBOARD"''"83=S=SCREEN"''"82=R=RAMWRITE"''"80=P=PRINTER" 360 PRINT #1;AT 0,0;"ANY KEY TO CONTINUE, Z TO COPY": PAUSE 0: IF INKEY$="Z" THEN COPY : CLS 361 CLS 401 LET C=PEEK 23631+PEEK 23632*256 405 PRINT "CHANS=PEEK 23631+PEEK 23632*256"''"CHANS=";C;TAB 12;"21 BYTE TABLE" 410 PRINT : FOR N=C TO C+3 STEP 2: PRINT "2 ";N;TAB 8;PEEK N+PEEK (N+1)*256: NEXT N: LET C=C+2: PRINT "1 ";N;TAB 8;PEEK N;TAB 11;CHR$ PEEK N 420 LET C=C+3: PRINT : FOR N=C TO C+3 STEP 2: PRINT "2 ";N;TAB 8;PEEK N+PEEK (N+1)*256: NEXT N: LET C=C+2: PRINT "1 ";N;TAB 8;PEEK N;TAB 11;CHR$ PEEK N 430 LET C=C+3: PRINT : FOR N=C TO C+3 STEP 2: PRINT "2 ";N;TAB 8;PEEK N+PEEK (N+1)*256: NEXT N: LET C=C+2: PRINT "1 ";N;TAB 8;PEEK N;TAB 11;CHR$ PEEK N 440 LET C=C+3: PRINT : FOR N=C TO C+3 STEP 2: PRINT "2 ";N;TAB 8;PEEK N+PEEK (N+1)*256: NEXT N: LET C=C+2: PRINT "1 ";N;TAB 8;PEEK N;TAB 11;CHR$ PEEK N 450 LET C=C+3: PRINT '"1 ";C;TAB 8;PEEK C 460 OVER 1: PRINT AT 2,0;"_________________________" 470 PRINT AT 4,14;"OUTPUT ROUTINE ADR";TAB 14;"INPUT ROUTINE ADDR";TAB 14;"DEVICE SPEC" 480 PRINT 'TAB 14;"OUTPUT ROUTINE ADR";TAB 14;"INPUT ROUTINE ADDR";TAB 14;"DEVICE SPEC" 490 PRINT 'TAB 14;"OUTPUT ROUTINE ADR";TAB 14;"INPUT ROUTINE ADDR";TAB 14;"DEVICE SPEC" 500 PRINT 'TAB 14;"OUTPUT ROUTINE ADR";TAB 14;"INPUT ROUTINE ADDR";TAB 14;"DEVICE SPEC" 510 OVER 0 511 PLOT 0,87: DRAW 255,0: DRAW 0,8: DRAW -255,0: DRAW 0,-7 520 PRINT #1;AT 0,0;"ANY KEY TO CONTINUE, Z TO COPY": PAUSE 0: IF INKEY$="Z" THEN COPY : CLS 521 CLS 530 PRINT "THIS PROGRAM WORKS ON BOTH THE TS2068 AND THE TS2068 WITH THE SPECTRUM ROM."''"THE VARIABLE ADDRESSES ARE THE SAME BUT THE 21 BYTE TABLE IS INDIFFERENT LOCATIONS." 540 PRINT '"BY POKING 26697,80 ON THE 2068 OR POKING 23743,80 ON THE 2068 WITH A SPECTRUM ROM ALL ""PRINT"" STATEMENTS WILL BE LLPRINTED."''"TO RETURN TO NORMAL POKE THE SAME ADDRESS WITH 83." 560 PRINT #1;AT 0,0;"S TO SAVE Z TO COPY"'"ANY KEY TO STOP R TO RUN": PAUSE 0: IF INKEY$="Z" THEN COPY : CLS 561 IF INKEY$="R" THEN RUN 562 IF INKEY$="S" THEN CLEAR : GO TO 9998 9997 STOP 9998 SAVE "STRMSCHANS"