home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh26b.d64 / steuerzeichen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  793b  |  32 lines
  1. 1 REM STEUERZEICHEN
  2. 9 POKE53280,0:POKE53281,0
  3. 10 DIMAS(3,63)
  4. 20 DATA 60289,60354,60419,60536
  5. 30 FOR I=0 TO 3:READA(I):NEXT
  6. 40 FOR I= 0 TO 3:FOR J=0 TO 63
  7. 50 AS(I,J)=PEEK(A(I)+J)
  8. 60 NEXT J,I
  9. 159 REM TASTATURMATRIX
  10. 160 DATA DEL,RETURN,<CRSR RIGHT>,F7,F1,F3,<CRSR DOWN>
  11. 161 DATA 3,W,A,4,Z,S,E,<SHIFT L>
  12. 162 DATA 5,R,D,6,C,F,T,X
  13. 163 DATA 7,Y,G,8,B,H,U,V
  14. 164 DATA 9,I,J,0,M,K,O,N
  15. 165 DATA +,P,L,-,.,DOPPELPUNKT,@,KOMMA
  16. 166 DATA \,*,;,HOME,<SHIFT R>,=,^,/
  17. 167 DATA 1,_,CTRL,2,SPACE,C=,Q,RUN/STOP
  18. 170 DIM TA$(64):FOR I=0TO63:READTA$(I):NEXTI
  19. 180 DATA-----,SHIFT,C=    ,CTRL ,
  20. 190 FOR I=0 TO 3:READA$(I):NEXT
  21. 200 INPUT "[147][158] ASCII-CODE ";AS%
  22. 210 IFAS% < 0 OR AS% > 255 THEN200
  23. 220 PRINT:PRINT:FOR I= 0 TO 3:FOR J= 0 TO 63
  24. 230 IFAS%=AS(I,J) THEN PRINT""A$(I),:GOTO 250
  25. 240 GOTO 270
  26. 250 IF LEFT$(TA$(J),2)=LEFT$(A$(I),2)THEN PRINT:GOTO270
  27. 260 PRINT"[159]"TA$(J)
  28. 270 NEXT J,I
  29. 280 PRINT SPC(193) " TASTE "
  30. 290 GET A$:IF A$=""THEN290
  31. 300 GOTO 200
  32.