File: KeyDOS

package info (click to toggle)
brandy 1.23.6-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,268 kB
  • sloc: ansic: 39,421; makefile: 91; sh: 1
file content (11 lines) | stat: -rw-r--r-- 282 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
   10 REM > KeyDOS
   20 CLS
   30 OFF
   40 REPEAT
   50   VDU 30
   60   FOR A%=0 TO 255
   70     IF INKEY(&FE00+A%):PRINT" "FNh0(A%,3); ELSE PRINTSPC4;
   80     IF (A% AND 15)=15:PRINT
   90   NEXT
  100 UNTIL FALSE
  110 DEFFNh0(A%,N%)=RIGHT$("0000000"+STR$~A%,N%)