home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 62 / 64er_Magazin_Sonderheft_62_19xx_Markt__Technik_de_Side_A.d64 / zeichensatzlader (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  561b  |  18 lines
  1. 100 rem zeichensatz-lader  nikolaus heusler, muenchen  27.11.90
  2. 110 print"[147]"
  3. 120 fori=0to255:poke1024+i,i:next
  4. 130 print"                         [145]"
  5. 140 input"name/zeichensatz";a$
  6. 150 print""a$"                          "
  7. 160 ifa$="x"thenend
  8. 170 sys(57812)a$,8,0
  9. 180 poke780,0:poke781,0:poke782,48:rem file relativ nach 12288 (=48*256) laden
  10. 190 sys62622:rem load-routine
  11. 200 ifst and 191thenprint:print"ladefehler ?":goto240
  12. 210 poke657,128:rem shift/commodore ausschalten
  13. 220 poke53272,29:rem zeichensatz bei 12288 einschalten
  14. 230 goto130
  15. 240 open1,8,15:input#1,nr$,na$,tr$,se$:close1
  16. 250 printnr$","na$","tr$","se$
  17. 260 poke198,0:wait198,1:goto110
  18.