home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 86 / 64er_Magazin_Sonderheft_86_19xx_Markt__Technik_de_Side_B.d64 / charset 1.0 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.1 KB  |  50 lines
  1. 10 ifpeek(12905)<>84orpeek(12906)<>71orpeek(12907)<>80thenload"v 1.0 by tgp",8,1
  2. 11 a$="      - ":forx=1to8:readb$:a$(x)=""+b$+"[146][157]":nextx:sys12805:poke53272,21
  3. 12 data"[192]","[196]","[197]","[196]","[192]","[198]","[210]","[198]"
  4. 13 print"[147]    [169] [146][169][169][146][169][169][146][169][169]  [146][169][169]  [146][169][169] [146][169][169] [146][169][169]  [146][169] [169] [146][169]  [169]  [146][169]"
  5. 14 print"   [169][146][169] [169][146][169][169][146][169][169][146][169][169][146][169][169][146][169][169][146][169][169][146][169] [169][146][169]  [169][146][169]   [169][146][169]  [169][146][169][169][146][169]"
  6. 15 print"  [169][146][169] [169]  [146][169][169]  [146][169][169]  [146][169][169] [146][169][169] [146][169] [169][146][169]   [169][146][169]  [169][146][169][169][146][169]"
  7. 16 print" [169][146][169] [169][146][169][169][146][169][169][146][169][169][146][169][169][146][169] [146]  [169][146][169][169][146][169]  [169][146][169]   [169][146][169][169][146][169][169][146][169][169][146][169]"
  8. 17 print"[169] [146][169][169][146][169][169][146][169][169][146][169][169][146][169][169][146][169][169][146][169][169] [146][169][169] [146][169] [169][146][169]   [169][146][169][169][146][169][169]  [146][169]"
  9. 20 print"[156]"a$"ueben":printa$"text zeigen":printa$"text schreiben"
  10. 30 printa$"schreiben fortsetzen":printa$"directory":printa$"zeichensatz laden"
  11. 40 printa$"text abspeichern":printa$"text laden":printa$"ganz abspeichern";
  12. 100 print"";:a=1
  13. 110 poke198,0:forx=1to24:printa$(x/3);:getb$:ifb$=""thennext:goto110
  14. 120 ifb$=""thenifa<9thenprint"-[157]";:a=a+1
  15. 130 ifb$="[145]"thenifa>1thenprint"-[157][145][145]";:a=a-1
  16. 140 ifb$<>chr$(13)then110
  17. 199 ifa<5thensys12805
  18. 200 print"[147]":on a gosub 300,400,500,600,700,800,900,1000,1100:run
  19. 300 sys12641:return
  20. 400 sys12792:return
  21. 500 poke12671,45:poke12672,66:sys12667
  22. 600 sys12792
  23. 605 ifpeek(12671)=0thenpoke12671,255:poke12672,peek(12672)-1:sys12667:return
  24. 610 poke12671,peek(12671)-1:sys12667:return
  25. 700 print"[147]0 ";:open1,8,0,"$":poke781,1:sys65478:geta$,a$,a$,a$:x$=chr$(0)
  26. 710 fori=1to7:geta$,b$,c$,d$:printa$b$c$d$;:next:geta$,a$,a$,b$:print
  27. 711 printasc(a$+x$)+256*asc(b$+x$);:ifst<64goto710
  28. 712 sys65484:close1:poke198,0:wait198,1:return
  29. 800 input"[147]name zei.";a$:a$=left$("zei."+a$+".....",9)
  30. 810 input"nr. 0,1,2 (0 wird ueberschrieben";a:ifa<0ora>2then810
  31. 815 poke12846,0:poke12848,32+a*8+(a=2)*24
  32. 820 forx=1to9:poke1023+x,asc(mid$(a$,x)):nextx:sys12842:return
  33. 900 input"[147]name txt.";a$:a$=left$("txt."+a$+".....",9)
  34. 910 poke193,45:poke194,66:a=peek(12671)+peek(12672)*256:pokea,peek(12671):pokea+1,peek(12672)
  35. 911 a=a+2:poke174,aand255:poke175,a/256
  36. 920 forx=1to9:poke1023+x,asc(mid$(a$,x)):nextx:sys12854:return
  37. 999 goto9999
  38. 1000 input"[147]name txt.";a$:a$=left$("txt."+a$+".....",9)
  39. 1010 poke12846,45:poke12848,66
  40. 1020 forx=1to9:poke1023+x,asc(mid$(a$,x)):nextx:sys12842:a=peek(174)+peek(175)*256
  41. 1030 poke12671,peek(a-2):poke12672,peek(a-1):printa:return
  42. 1100 input"name (zwei buchstaben)";aa$:b$=right$(aa$,1):a$=left$(aa$,1)
  43. 1101 poke12940,asc(a$):poke12941,asc(b$):open1,8,1,aa$+" loader,p,w":
  44. 1102 forx=12909to12945:print#1,chr$(peek(x));:next:close1:
  45. 1110 poke193,00:poke194,24:a=peek(12671)+peek(12672)*256
  46. 1111 a=a+3:poke174,aand255:poke175,a/256:a$=a$+b$+chr$(160)+"crst 1 "
  47. 1130 forx=1to9:poke1023+x,asc(mid$(a$,x)):nextx:sys12854:return
  48. 9999 close1:open1,8,15:input#1,a,a$,b,c:printa,a$,b,c:end
  49. 10000 close1:open1,8,15,"s:charset":save"charset",8
  50.