home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 93xx / 9301.d64 / zs-editor (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  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.