home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 January / 64er_Magazin_93-01_1993_Markt__Technik_de.d64 / zs-editor (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  907b  |  50 lines
  1. 120 poke56334,0
  2. 130 poke1,peek(1) and 251
  3. 140 for t=0 to 2048
  4. 150 : poke 12288+t,peek(53248+t)
  5. 160 next
  6. 170 poke1,peek(1) or 4
  7. 180 poke56334,1
  8. 210 poke 53280,0:poke 53281,0:poke646,7
  9. 220 print chr$(147)
  10. 260 char=12288
  11. 320 print"[176][195][195][195][195][195][195][195][195][174]"
  12. 330 for t=1 to 8
  13. 340 : print"[221]--------[221]"
  14. 350 next
  15. 360 print"[173][195][195][195][195][195][195][195][195][189]"
  16. 400 poke 53248+24,28
  17. 450 a=a*8
  18. 460 for y=0 to 7
  19. 470 : for x=0 to 7
  20. 480 :  if (peek(char+a+y)and2^(7-x))>0then poke 1105+y*40+x,42:goto500
  21. 490 :  poke 1105+y*40+x,45
  22. 500 : next
  23. 520 next
  24. 530 x=0:y=0
  25. 531 p=1105+y*40+x
  26. 532 pokep,peek(p)+128:pokep,peek(p)-128
  27. 533 poke1324,a/8
  28. 540 geta$
  29. 550 ifa$=""thenify<7theny=y+1:goto531
  30. 560 ifa$="[145]"thenify>0theny=y-1:goto531
  31. 570 ifa$=""thenifx<7thenx=x+1:goto531
  32. 580 ifa$="[157]"thenifx>0thenx=x-1:goto531
  33. 590 ifa$=" "thengosub800
  34. 600 ifa$="+"thenifa<2042thena=a+8:goto460
  35. 610 ifa$="-"thenifa>7thena=a-8:goto460
  36. 620 ifa$="s"thengoto900
  37. 700 goto532
  38. 800 b=2^(7-x)
  39. 805 pz=peek(char+a+y)
  40. 810 if(pzandb)>0thenpoke(char+a+y),pz-b:pokep,45:goto830
  41. 820 poke(char+a+y),pz+b:pokep,42
  42. 830 return
  43. 900 open1,8,2,"zsatz,p,w"
  44. 910 print#1,chr$(01);chr$(08)
  45. 920 fora=12288to14335
  46. 930 :  print#1,chr$(peek(a));
  47. 940 nexta
  48. 950 close1
  49. 960 end
  50.