home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol163 / directio.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  972 b   |  41 lines
  1.  
  2.     REM JUNK.BAS * PGM TO DEMONSTRATE DIRECT CONSOLE I/O
  3.     REM          * 1110
  4.     REM 03 02 83 * J.BUTLER
  5.  
  6.     DIM S(25)
  7.  
  8.     FOR X=1 TO 25:READ S(X):POKE 09FFFH+1,S(X):NEXT X
  9.         COUNT=20:X9=0
  10.  
  11. 10     POKE 0A000H,0
  12.     CALL 0A001H
  13.     M=PEEK(0A000H) AND 127
  14.         IF M=0 THEN 10
  15.     IF M=8 AND LEN(M$)<1 THEN 10
  16.     IF M=27 THEN M$="B":GOTO 20
  17.         IF M=13 THEN 20
  18.         IF M=8 AND LEN(M$)>0 THEN M$=LEFT$(M$,LEN(M$)-1):X9=X9-1: \
  19.            PRINT CHR$(8);" ";CHR$(8);
  20.         IF M<32 OR M>122 THEN 10
  21.     REM IF M=3 THEN 20
  22.         IF X9>COUNT THEN PRINT CHR$(7);:GOTO 20
  23.         X9=X9+1:PRINT CHR$(M);
  24.         M$=M$+CHR$(M):GOTO 10
  25.  
  26. 20    PRINT:PRINT:PRINT M$
  27.         PRINT "STOP":STOP
  28.  
  29.     REM DIRECT CONSOLE I/O 
  30.         DATA 3,229,213,197,245,30,255,14,6,205,5,0,183,202,5,160,50,0
  31.         DATA 160,241,193,209,225,201,0
  32.  
  33.     S$="DATA "
  34.     FOR X=0A000H TO 0A018H
  35.     M=PEEK(X):S$=S$+STR$(M)+","
  36.     NEXT X
  37.     S$=LEFT$(S$,LEN(S$)-1):PRINT S$:PRINT
  38.     CREATE "JUNK.FIL" AS 1
  39.     PRINT USING "&";#1;S$
  40.     CLOSE 1
  41.