home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 Janurary / 64er_Magazin_89-01_1989_Markt__Technik_de_Side_B.d64 / zeichensatz-edi (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 1 data120,165,1,72,41,251,133,1,169,208,160,0,133,252,132,251,169,32,133,254,132
  2. 2 data253,162,16,177,251,145,253,200,208,249,230,252,230,254,202,208,242,104,133
  3. 3 data1,88,96:forx=0to42:reada:poke49152+x,a:nextx:sys49152:poke53272,27
  4. 4 print"[147][153]   [218]eichensatz-[197]ditor by [211]tephan [203]och   ":forx=0to9:poke1199+x,160
  5. 5 poke1559+x,160:poke1199+40*x,160:poke1208+40*x,160:nextx:forx=0to7:fory=0to31
  6. 6 poke1708+x*40+y,x*32+y:nexty:nextx:f=10240:p=1240:z=peek(p):c=7:a$="n":goto 9
  7. 7 forx=0to40:geta$:onlen(a$)goto8:nextx:z=peek(p):pokep,(zor128)-(zand128):goto7
  8. 8 z=peek(p)and127:ifc=7anda$="[157]"orc=0anda$=""ord=0anda$="[145]"ord=7anda$=""then 7
  9. 9 ifa$=""ora$="[145]"thenpokep,z:a=(asc(a$)-17)/64-1:p=p+a*-40:d=d-a:goto7
  10. 10 if a$=""ora$="[157]" then pokep,z:a=(asc(a$)-29)/64-1:p=p-a:c=c+a:goto7
  11. 11 if a$=" "thenpokep,(peek(p)or10)-(peek(p)and10):k=peek(f+d):l=(2^c)
  12. 12 if a$=" "then pokef+d,(korl)-(kandl):goto7
  13. 13 ifa$="l"thengosub20:close1:sys57812n$,8,1:poke780,0:sys65493:a$="n":goto17
  14. 14 if a$<>"s" then 16
  15. 15 gosub20:print#1,chr$(0);"(";:forx=10240to12288:print#1,chr$(peek(x));:next
  16. 16 ifa$="[147]"thenforx=0to7:fory=0to7:poke1240+x*40+y,32:nexty:pokef+x,0:nextx
  17. 17 if a$<>"n"thenclose1:goto7
  18. 18 input"[194]ildschirmcode des [218]eichens     [157][157][157]";r:f=10240+r*8:forx=0to7:fory=0to7
  19. 19 poke1247-y+x*40,(peek(f+x)and2^y)/2^y*10+32:nexty:nextx:goto7
  20. 20 input"     [206]ame               [157][157][157][157][157][157][157][157][157][157][157][157][157]";n$:open1,8,2,n$+",p,w":return
  21.