home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 60 / Tiger_Disk_060_19xx_Tiger-Crew-Disk_de_Side_B.d64 / f-tasten belegen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  670b  |  23 lines
  1. 100 fori=828to914
  2. 110 readx:pokei,x:next
  3. 120 data169,71,160,3,141,143,2,140,144,2,96,164
  4. 130 data203,196,197,240,10,177,245,201,137,176,4,201
  5. 140 data133,176,3,76,72,235,233,133,133,197,10,10
  6. 150 data101,197,10,174,141,2,224,1,240,14,224,2
  7. 160 data240,7,224,4,208,9,24,105,40,24,105,40
  8. 170 data24,105,40,170,160,0,189,0,207,240,9,153
  9. 180 data119,2,232,200,192,10,208,242,132,198,162,255
  10. 190 data76,38,235
  11. 210 sys828
  12. 230 ad=12*4096+15*256
  13. 240 fori=0to15:readx$:forj=1tolen(x$)
  14. 250 a=asc(mid$(x$,j,1)):ifa=95thena=13
  15. 260 ifa=39thena=34
  16. 270 pokead+10*i+j-1,a:next
  17. 280 ifj<>11thenpokead+i*10+j-1,0
  18. 290 next
  19. 300 datalist_,run_,load',"o[208]15,8,15,"
  20. 310 data"o[208]4,4,7_",cmd4_,save',close15_
  21. 320 dataclose4_,peek(,chr$(,"load'$',8"
  22. 330 dataprint#,input#,gosub,return
  23.