home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 26 / 64er_Magazin_Sonderheft_26_19xx_Markt__Technik_de_Side_B.d64 / steuerzeichen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.