home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11a.d64 / editor (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  139 lines
  1. 10 IF A=1 THEN 90
  2. 20 A=1:LOAD "MESS C.OBJ",8,1
  3. 90 ART=50513
  4. 95 DIM Z$(100)
  5. 100 POKE 53280,0:POKE53281,0
  6. 110 PRINT CHR$(147);CHR$(14)
  7. 120 PRINT TAB(13)"[205] [197] [211] [211] [193] [199] [197] [211]"
  8. 130 PRINT TAB(13)"==============="
  9. 140 PRINT
  10. 150 PRINT " EIN [208]ROGRAMM VON [210]ALF [215]INKLER ([195])1986"
  11. 160 PRINT
  12. 170 FORA=1TO40:PRINT"-";:NEXT
  13. 180 PRINT
  14. 190 PRINT "[196]IESES  [208]ROGRAMM ERSTELLT EINE  GROSSE"
  15. 200 PRINT "UND FLACKERFREIE  [204]AUFSCHRIFT, DIE MAN"
  16. 210 PRINT "PROBLEMLOS IN EIGENE [208]ROGRAMME EINBAU-"
  17. 220 PRINT "EN KANN."
  18. 230 PRINT
  19. 240 PRINT "[205]ENU :";
  20. 250 PRINT TAB(10)" -1- [197]INGABE DES [212]EXTES"
  21. 260 PRINT TAB(11)"-2- [193]NSEHEN DER [211]CHRIFT"
  22. 270 PRINT TAB(11)"-3- [212]EXT VERBESSERN"
  23. 280 PRINT TAB(11)"-4- [206]EUER [195]HARACTER"
  24. 290 PRINT TAB(11)"-5- [197]RZEUGE [207]BJECTCODE"
  25. 295 PRINT TAB(15)"AUF [196]ISKETTE"
  26. 315 PRINT TAB(11)"-6- [197]XIT [205]ESSAGES"
  27. 320 GET A$:IFA$="" THEN 320
  28. 330 A=VAL(A$):IF A<1 OR A>6 THEN 320
  29. 340 ON A GOSUB 400,1000,1500,1100,1200,1400
  30. 350 GOTO 100
  31. 390 :
  32. 400 REM ---- EINGABE DES TEXTES ----
  33. 410 :
  34. 420 PRINT CHR$(147) : I=0 : Z$(I)=""
  35. 430 PRINT "[193]CHTUNG ! [201]HR [212]EXT DARF HOECHSTENS "
  36. 440 PRINT "ZWEITAUSENDSIEBENHUNDERTSECHSUND-"
  37. 450 PRINT "DREISSIG (2736) [218]EICHEN LANG SEIN !"
  38. 452 PRINT
  39. 455 PRINT "[197]INGABEENDE MIT [210][197][212][213][210][206]"
  40. 460 PRINT
  41. 470 PRINT "[164][157]";
  42. 480 GET X$:IFX$="" THEN 480
  43. 490 X=ASC(X$)
  44. 495 IF X=13 THEN 700
  45. 500 IF X=20 THEN 600
  46. 505 IF X=160 THEN X$=" ":GOTO530
  47. 510 IF X=34 THEN X$="'"
  48. 520 IF X<32 OR X>140 AND X<193 THEN 480
  49. 530 PRINT X$"[164][157]";
  50. 540 Z$(I)=Z$(I)+X$:L=L+1
  51. 550 IF LEN(Z$(I))>32 THEN I=I+1
  52. 560 GOTO 480
  53. 570 :
  54. 600 REM -- DELETE --
  55. 605 :
  56. 610 A=LEN(Z$(I)):L=L-2
  57. 620 IF A=0 AND I=0 THEN GOTO 480
  58. 625 IF A=0 AND I>0 THEN I=I-1:A=33
  59. 630 Z$(I)=LEFT$(Z$(I),A-1)
  60. 640 X$="":PRINT CHR$(20);
  61. 650 GOTO 540
  62. 660 :
  63. 700 REM -- RETURN --
  64. 705 :
  65. 710 PRINT : A=0
  66. 720 PRINT "[205]OMENT BITTE..."
  67. 730 FOR Y=0 TO I
  68. 740 LZ=LEN(Z$(Y))
  69. 750 FOR X=1 TO LZ
  70. 760 C=ASC(MID$(Z$(Y),X,1))
  71. 770 IF C>192 THEN C=C-192:GOTO 800
  72. 800 POKE ART+A,C
  73. 810 A=A+1
  74. 900 NEXT X
  75. 910 NEXT Y
  76. 915 POKE ART+A,255
  77. 920 PRINT
  78. 950 RETURN
  79. 960 :
  80. 1000 REM ---- ANSEHEN DER SCHRIFT ----
  81. 1005 :
  82. 1010 PRINT "":FOR A=1TO13:PRINT:NEXT
  83. 1020 PRINT " [208]RESS ANY KEY TO STOP               "
  84. 1030 FORA=1TO40:PRINT " ";:NEXT
  85. 1040 SYS 50177
  86. 1045 IF FL=1 THEN PRINT "[147]":END
  87. 1050 RETURN
  88. 1060 :
  89. 1100 REM -- AENDERN DES CHARACTERS --
  90. 1105 :
  91. 1110 PRINT
  92. 1120 INPUT "[206]EUER [195]HARACTER :";A
  93. 1125 IF A<0 THEN POKE50441,169:POKE50440,165:GOTO100
  94. 1130 POKE 50441,A:POKE50440,169
  95. 1140 GOTO 100
  96. 1150 :
  97. 1200 REM --- SPEICHERN DER SCHRIFT ---
  98. 1205 :
  99. 1210 PRINT
  100. 1220 INPUT "[206]AME DER [211]CHRIFT ";S$
  101. 1225 IF LEN(S$)<1 THEN 1220
  102. 1230 OPEN 1,8,1,S$
  103. 1240 PRINT#1,CHR$(1);CHR$(196);
  104. 1250 FORX=50177 TO 50514+L
  105. 1260 A=PEEK(X)
  106. 1270 PRINT#1,CHR$(A);
  107. 1280 NEXT X
  108. 1290 CLOSE 1
  109. 1300 RETURN
  110. 1310 :
  111. 1400 REM --- BYE ---
  112. 1405 :
  113. 1410 I=0:Z$(I)="":A=0
  114. 1415 Z$(I)="[194][201][211] [194][193][204][196]...     "
  115. 1420 GOSUB 730
  116. 1430 FL=1:GOTO 1000
  117. 1440 :
  118. 1500 REM --- TEXT VERBESSERN ---
  119. 1505 :
  120. 1510 PRINT CHR$(147);"[194]LAETTERN MIT +/- , [193]ENDERN MIT [198]1"
  121. 1520 PRINT "ZURUECK MIT [198]7 !"
  122. 1550 Y = 0
  123. 1555 FORA=1TO40:PRINT" ";:NEXT:PRINT"[145][145]"
  124. 1560 PRINT Z$(Y)
  125. 1570 GET X$:IFX$="" THEN 1570
  126. 1580 IF X$="+" THEN Y=Y+1:IFY>ITHENY=I
  127. 1590 IF X$="-" THEN Y=Y-1:IFY<0THENY=0
  128. 1600 IF X$="[133]" THEN 1700
  129. 1605 IF X$="[136]" THEN 100
  130. 1610 PRINT "";:GOTO 1555
  131. 1700 PRINT
  132. 1710 PRINT TAB(3)Z$(Y)
  133. 1720 PRINT "[145][145][206]EUER [212]EXT :"
  134. 1722 PRINT "  ";CHR$(34)
  135. 1725 POKE632,ASC(""):POKE198,2
  136. 1730 INPUT "[145]";Z$(Y)
  137. 1740 GOSUB 710
  138. 1750 RETURN
  139.