home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh6x / sh62a.d64 / char-edit (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  8KB  |  222 lines
  1. 0 SYS65409:GOTO880
  2. 1 POKE198,2:POKE631,34:POKE632,20:RETURN
  3. 2 SYSCZ:GOTO100
  4. 3 :
  5. 4 REM CHAR-EDITOR  AUTOR: HENNING PETERS, BREMEN
  6. 5 REM BEARBEITET VON N.HEUSLER, ZWENGAUERWEG 18, 8 MUENCHEN 71
  7. 6 REM 64'ER SONDERHEFT 62  MARKT&TECHNIK 1991
  8. 7 :
  9. 20 IN=33024:WV=33988:F1=64:F2=128:F3=192:F4=512:PX=693:PY=694:SYS35384:PR=35788
  10. 25 POKE695,M:ZL=34724:ZR=34750:LB=34776:RB=34829:CZ=35416:DI=35427:POKE754,20
  11. 30 POKE675,.:POKE692,.:PRINT"[147][158]":CL=34185:CB=35315:BU=34235:BD=34265:BR=34369
  12. 35 POKE53281,.:POKE53280,.:RI=33615:POKE785,29:POKE786,132:SYSRI:TT=35616
  13. 40 AT=33079:SH=34935:SU=33203:SD=33232:SR=33258:SL=33282:BL=34882
  14. 45 LE$="                     ":US=34293:OS=35132:UB=35188:OB=35247
  15. 50 POKE693,.:POKE694,.:RV=33306:MM=35350:MP=33350:POKE753,1:FA=56254
  16. 55 TA=33388:DR=33430:FH=33469:FV=33512:SK=33540:RN=33744:PN=33780:MN=33800
  17. 60 CO=33952:WA=34002:IV=34120:EO=34946:RT=34164:SA=33918:LO=33892:ZA=34175
  18. 65 SYSAT,19,.,"                    ":SYSAT,19,1,"  CHARACTER-EDITOR  ":SYSRI
  19. 70 SYSAT,19,2,"  V2.7 @ 8.1990 BY  ":SYSAT,19,3,"  -MARKT/TECHNIK^_  "
  20. 75 SYSAT,19,4,"                    ":SYSAT,19,23,"[159]AKTUELLES ZEICHEN:
  21. 80 [158]AT,18,7,"AKTUELLER CODE  :":[158]AT,18,8,"AKTUELLER SATZ  :   1":[158]ZA
  22. 85 [158]AT,18,9,"OPENZWISCHENSPEICHER: CONT":[158]AT,20,10,[199](34)" # $ % & ' ( ) * +
  23. 90 POKEFA,14:POKEFA+1,14:POKEFA+40,14:POKEFA+41,14
  24. 100 N$=STR$(N):SYSAT,35,7,LEFT$("  ",5-LEN(N$))N$:SYSSK,N:SYSSH,N,.,.
  25. 105 POKE198,.:IFBTHENSYSSH,N+F1,8,.:SYSSH,N+F2,.,8:SYSSH,N+F3,8,8
  26. 110 SYSWV
  27. 115 G=USR(G):ONGGOTO150,150,150,150,160,175,180,195,210,220,230
  28. 120 IFG>11THENONG-11GOTO230,260,270,280,290,300,310,350,365,370,375
  29. 125 IFG>22THENONG-22GOTO380,440,475,480,500,515,560,570,580,585,600,610
  30. 130 IFG>34THENONG-34GOTO620,620,620,620,630,660,775,795,855
  31. 135 GOTO115
  32. 140 :
  33. 145 WAIT203,F1:SYSCZ:GOTO100
  34. 150 SYSWA,(G+1)AND3:IFMTHENIFG=2ORG=4THENSYSWA,(G+1)AND3
  35. 155 FORI=0TO50:NEXT:GOTO115
  36. 160 SYSEO,N:SYSWA,1:IFM=1THENSYSWA,1
  37. 165 IFPEEK(PX)=0THENSYSRT
  38. 170 GOTO100
  39. 175 SYSRT:FORP=0TO40:NEXT:GOTO115
  40. 180 N=(N+1+9*PEEK(653))AND(255-B*F3):GOTO100
  41. 195 N=(N-1-9*PEEK(653))AND(255-B*F3):GOTO100
  42. 210 SYSFV,N:IFB=.GOTO100
  43. 215 SYSFV,N+F1:SYSFV,N+F2:SYSFV,N+F3:SYSTA,N,N+F1:SYSTA,N+F2,N+F3:GOTO100
  44. 220 SYSFH,N:IFB=.GOTO100
  45. 225 SYSFH,N+F1:SYSFH,N+F2:SYSFH,N+F3:SYSTA,N,N+F2:SYSTA,N+F1,N+F3:GOTO100
  46. 230 SYSAT,18,12,"[158]ZWISCHENSPEICHER NR.?":POKE198,.
  47. 235 FORI=.TO.:GETE$:IFE$=""THEN2
  48. 236 I=E$<"0"ORE$>"9":NEXTI
  49. 240 E=VAL(E$):IFB=1ANDE>1THENSYSAT,18,14,"[150]BIG CHAR!":GOTO145
  50. 245 IFG=11THENSYSMP,E,N:IFB=1THENSYSMP,E+2,N+F1:SYSMP,E+4,N+F2:SYSMP,E+6,N+F3
  51. 250 IFG=12THENSYSMM,E,N:IFB=1THENSYSMM,E+2,N+F1:SYSMM,E+4,N+F2:SYSMM,E+6,N+F3
  52. 255 GOTO145
  53. 260 IFB=.THENSYSSU,N:GOTO100
  54. 265 SYSBU,N:SYSBU,N+F1:GOTO100
  55. 270 IFB=.THENSYSSD,N:GOTO100
  56. 275 SYSBD,N:SYSBD,N+F1:GOTO100
  57. 280 FORI=.TOM:IFB=.THENSYSSR,N:NEXTI:GOTO100
  58. 285 SYSBR,N:SYSBR,N+F2:NEXTI:GOTO100
  59. 290 FORI=.TOM:IFB=.THENSYSSL,N:NEXTI:GOTO100
  60. 295 SYSBL,N:SYSBL,N+F2:NEXTI:GOTO100
  61. 300 SYSIV,N:IFB=.GOTO100
  62. 305 SYSIV,N+F1:SYSIV,N+F2:SYSIV,N+F3:GOTO100
  63. 310 SYSAT,17,12,"[158]"N"TAUSCHEN MIT?":T=N
  64. 315 N$=STR$(N):SYSAT,35,7,LEFT$("  ",5-LEN(N$))N$:SYSSK,N:SYSSH,N,.,.
  65. 320 IFB=1THENSYSSH,N+F1,8,.:SYSSH,N+F2,.,8:SYSSH,N+F3,8,8
  66. 325 E=USR(E):IFE=7THENN=(N+1+9*PEEK(653))AND(255-B*F3):GOTO315
  67. 330 IFE=8THENN=(N-1-9*PEEK(653))AND(255-B*F3):GOTO315
  68. 335 IFE<>6GOTO325
  69. 340 SYSTA,T,N:IFB=.GOTO145
  70. 345 SYSTA,T+F1,N+F1:SYSTA,T+F2,N+F2:SYSTA,T+F3,N+F3:GOTO145
  71. 350 SYSDR,N:IFB=.GOTO100
  72. 355 SYSDR,N+F1:SYSDR,N+F2:SYSDR,N+F3
  73. 360 SYSTA,N,N+F2:SYSTA,N,N+F1:SYSTA,N+F1,N+F3:GOTO100
  74. 365 SYSRV,Z:GOTO100
  75. 370 Z=.:SYSAT,37,8,1:POKE675,Z:GOTO100
  76. 375 Z=1:SYSAT,37,8,2:POKE675,Z:GOTO100
  77. 380 POKE198,.:SYSAT,18,12,"[158][211][193][214][197]: FILENAME?":SYSAT,20,13,F$:SYSAT,18,13,;
  78. 385 E$="":GOSUB1:INPUTE$:IFE$=""GOTO145
  79. 390 SYSCZ:SYSAT,18,12,"[158][211][193][214][197] "E$:SYSAT,18,13,"[158]D[146]ISK / T[146]APE?":F$=E$
  80. 395 FORI=.TO-1STEP-1:GETD$:IFD$=""THEN2
  81. 397 I=D$="T"ORD$="D":NEXTI:D=1:IFD$="D"THEND=PEEK(TT-1)
  82. 400 IFD>7THENGOSUB690:IFA$<>"J"GOTO145
  83. 405 SYSRI:SYSAT,18,13,"SATZ 1/2 [3=BEIDE]? ";
  84. 410 FORI=.TO-1STEP-1:GETD$:IFD$=""THEN2
  85. 412 I=D$>"0"ANDD$<"4":NEXT:PRINTD$
  86. 415 POKE33929,128+8*(D$="1"):POKE33925,112-8*(D$="2")
  87. 420 SYS(SA)F$,D:SYSRI
  88. 425 SYSCZ:IFD>7THENSYSAT,17,13,;:SYSTT:GOTO435
  89. 430 IFPEEK(2)THENSYSAT,18,14,"[150]EIN/AUSGABE-FEHLER!
  90. 435 I[178][183](I):[158]ZA:[137]145
  91. 440 [151]198,.:[158]AT,18,12,"SYS(null)(null)ATNSTR$: FILENAME?":[158]AT,18,13,;
  92. 445 E$[178]"":[141]1:[133]E$:[139]E$[178]""[137]145
  93. 450 [158]CZ:[158]AT,18,12,"SYS(null)(null)ATNSTR$ "E$:F$[178]E$
  94. 455 [158]AT,18,13,"SYSAN SATZ";:[141]1:[133]S:[139]S[179]0[176]S[177]2.5[137]450
  95. 460 S[178]2048[172]S[170]26624:[151]33902,S[173]256:[151]33904,S[175]255
  96. 462 [158]AT,18,14,"SYSDWAITISK / TWAITAPE?
  97. 465 FORI=.TO-1STEP-1:GETD$:IFD$=""THEN2
  98. 467 I=D$="T"ORD$="D":NEXTI:D=1:IFD$="D"THEND=PEEK(TT-1)
  99. 470 SYS(LO)E$,D:SYSRI:GOTO425
  100. 475 B=1-B:SYSCB,N:N=PEEK(2):GOTO100
  101. 480 SYSAT,18,12,"[150]ROM KOPIEREN [J/N]?":POKE198,.
  102. 485 FORI=.TO-1STEP-1:GETE$:IFE$=""THEN2
  103. 487 I=E$="J"ORE$="N":NEXTI
  104. 490 IFE$="J"THENPOKE2,Z*8:SYSIN:SYSRI
  105. 495 GOTO145
  106. 500 POKE808,237:PRINT"[154][147]":SYSRN:SYSZA:POKE198,1:POKE631,19:PRINT"    RUN"
  107. 505 POKE53270,(PEEK(53270)AND239)OR(M*16)
  108. 510 POKE53272,(PEEK(53272)AND240)OR(12+2*Z):SYS42115
  109. 515 IFPEEK(653)THENPOKE198,.:GOTO725
  110. 520 SYSAT,17,12,"[158]"N"WOHIN KOPIEREN?":T=N
  111. 525 N$=STR$(N):SYSAT,35,7,LEFT$("  ",5-LEN(N$))N$:SYSSK,N:SYSSH,N,.,.
  112. 530 IFBTHENSYSSH,N+F1,8,.:SYSSH,N+F2,.,8:SYSSH,N+F3,8,8
  113. 535 E=USR(E):IFE=7THENN=(N+1+9*PEEK(653))AND(255-B*F3):GOTO525
  114. 540 IFE=8THENN=(N-1-9*PEEK(653))AND(255-B*F3):GOTO525
  115. 545 IFE<>6GOTO535
  116. 550 SYSCO,T,N:IFB=.GOTO145
  117. 555 SYSCO,T+F1,N+F1:SYSCO,T+F2,N+F2:SYSCO,T+F3,N+F3:GOTO145
  118. 560 IFB=.THENN=(N+F2)AND255
  119. 565 GOTO100
  120. 570 SYSWV:POKEPX,.:POKEPY,.:IFPEEK(653)THENFORI=.TOB*3:SYSCL,I*F1+N:NEXTI
  121. 575 GOTO100
  122. 580 SYSRI:GOTO115
  123. 585 M=1-M:POKE695,M:POKE693,INT(PEEK(693)/2)*2
  124. 590 IFMTHENSYSAT,18,6,"[159]MULTICOLORFARBE :  "PEEK(753):GOTO100
  125. 595 SYSAT,18,6,"                     ":GOTO100
  126. 600 FORI=.TOM:IFB=.THENSYSZL,N:NEXTI:GOTO100
  127. 605 Q=(PEEK(PY)AND8)*16:SYSLB,N+Q:NEXTI:GOTO100
  128. 610 FORI=.TOM:IFB=.THENSYSZR,N:NEXTI:GOTO100
  129. 615 Q=(PEEK(PY)AND8)*16:SYSRB,N+Q:NEXTI:GOTO100
  130. 620 IFMTHENPOKE753,G-35:SYSAT,37,6,""G-35
  131. 625 GOTO115
  132. 630 IFB=.THENSYSUS,N:IFMTHENSYSWA,1:SYSUS,N:SYSWA,3
  133. 635 IFB=.GOTO100
  134. 640 IFPEEK(PX)<8THENSYSUB,N:IFMTHENSYSWA,1:SYSUB,N:SYSWA,3
  135. 645 IFPEEK(PX)<8GOTO100
  136. 650 SYSUB,N+F1:IFMTHENSYSWA,1:SYSUB,N+F1:SYSWA,3
  137. 655 GOTO100
  138. 660 IFB=.THENSYSOS,N:IFMTHENSYSWA,1:SYSOS,N:SYSWA,3
  139. 665 IFB=.GOTO100
  140. 670 IFPEEK(PX)<8THENSYSOB,N:IFMTHENSYSWA,1:SYSOB,N:SYSWA,3
  141. 675 IFPEEK(PX)<8GOTO100
  142. 680 SYSOB,N+F1:IFMTHENSYSWA,1:SYSOB,N+F1:SYSWA,3
  143. 685 GOTO100
  144. 690 OPEN1,D,15:OPEN2,D,2,F$+",P,R":INPUT#1,A,A$,C,E:CLOSE2
  145. 695 IFA=62THENA$="J":CLOSE1:RETURN
  146. 700 IFA=0THENSYSAT,18,13,"L>SCHEN [J/N]? ";:POKE198,.:WAIT198,1:GETA$:PRINTA$
  147. 703 IFA=0ANDA$="J"ANDRIGHT$(F$,1)="*"THENSYSAT,18,14,"[150]BITTE NICHT ABK;RZEN!":GOTO722
  148. 705 IFA=0ANDA$="J"THENPRINT#1,"S:"+F$:INPUT#1,A,A$,C,E
  149. 710 IFA<2THENA$="J":CLOSE1:RETURN
  150. 715 IFATHENSYSCZ:SYSAT,18,13,A"[157],"A$:SYSAT,18,14,C"[157],"E:A=.:Q=USR(Q)
  151. 720 CLOSE1:RETURN
  152. 722 A$="":CLOSE1:Q=USR(Q):RETURN
  153. 725 SYSAT,17,12,"[158]KOPIEREN AB NR.":SYSAT,17,13,"[-1=ENDE]";:GOSUB1:INPUTA:IFA<.GOTO145
  154. 730 IFBTHENA=AAND63
  155. 735 SYSSK,A:SYSAT,32,12,A:SYSAT,17,13,"BIS NR.       [157][157][157][157][157][157][157]";:GOSUB1:INPUTC:IFC<AGOTO735
  156. 740 IFBTHENC=CAND63:IFC<AGOTO735
  157. 745 Q=55936:FORI=ATOC:POKEQ+I,10:NEXTI
  158. 750 SYSCZ:SYSAT,17,12,A"BIS"C"WOHIN":SYSAT,17,13,;:GOSUB1:INPUTW
  159. 755 E=W-A:S=1:IFW>ATHENS=-S:I=A:A=C:C=I
  160. 760 FORN=ATOCSTEPS:SYSCO,N,N+E
  161. 765 IFBTHENSYSCO,N+F1,N+E+F1:SYSCO,N+F2,N+E+F2:SYSCO,N+F3,N+E+F3
  162. 770 NEXTN:N=W:GOTO145
  163. 775 IFPEEK(653)<>1GOTO100
  164. 780 SYSRN:POKE53272,(PEEK(53272)AND240)OR(12+2*Z)
  165. 785 POKE53270,PEEK(53270)AND239:PRINT"":SYSDI:Q=USR(0):CLOSE1
  166. 790 POKE53270,(PEEK(53270)AND239)OR(M*16):SYSRI:PRINT"[147][158]":GOTO65
  167. 795 SYSAT,17,12,"[158]DISK-BEFEHL:":SYSAT,17,13,"?";:POKE198,.
  168. 800 SYS42336:A$="":FORI=512TO600:A=PEEK(I):IFATHENA$=A$+CHR$(A):NEXTI
  169. 805 I=600:NEXTI:SYSAT,17,13," "
  170. 810 IFA$=""THENSYSCZ:SYSAT,17,12,"[158]STATUS:":SYSAT,17,13,;:SYSTT:GOTO840
  171. 815 IFASC(A$)=35GOTO845
  172. 820 SYSAT,17,12,"[150]AUSF;HREN [J/N]?
  173. 825 [161]E$:[139]E$[179][177]"J"[175]E$[179][177]""[175]E$[179][177]"N"[137]825
  174. 830 [139]E$[179][177]"J"[137]145
  175. 835 [158]CZ:[158]AT,17,12,"["A$"DEF]":[158]AT,17,13,;:[158](TT)A$:[158]RI
  176. 840 Q[178][183](0):[158]RI:[137]145
  177. 845 I[178][197]([202](A$,2)):[139]I[179]8[176]I[177]15[137]145
  178. 850 [158]TT#I:[137]145
  179. 855 [158]AT,18,12,"SYS(null)(null)RIGHT$(null)(null)/LENLEFT$ATN(null)":[158]AT,18,13,"BITTE DRUCKER":[158]AT,18,14,"AKTIVIEREN!
  180. 860 Q=USR(Q):OPEN1,4,0:CLOSE1:IFST<>0THEN2
  181. 862 SYSCZ:SYSAT,18,12,"[158][208][210][201][206][212][173][195][200][193][210]":SYSAT,18,13,";BERSCHRIFT
  182. 865 [151]198,.:U$[178]"":[158]AT,18,14,;:[151]198,.:[141]1:[133]U$:[158]RN:[139]U$[178]""[137]875
  183. 870 [159]1,4,7:[152]1,"E-1"[170]U$[170]"F-0":[160]1
  184. 875 [151]252,B:[158]PR:[158]RI:[158]RI:[158]CZ:[137]100
  185. 880 [151]808,251:[151]53280,.:[151]53281,.:[153]"LOAD"[163]11)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  186. 881 D=PEEK(186):IFD<8THEND=8
  187. 885 PRINTTAB(11)"[221][159][195][200][193][210][193][195][212][197][210]-[197][196][201][212][207][210][221]
  188. 890 [153][163]11)"(null)CONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)
  189. 895 PRINTTAB(11)"[221][159]   [214]ERSION 2.7  [221]
  190. 900 [153][163]11)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  191. 905 PRINT"[154]([215]) 8.1990 BY [205]AYLO-[211]OFT([212][205])-[215]ARE
  192. 910 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  193. 915 PRINT"[154]PROGRAMMIERT VON [129][200]ENNING [208]ETERS
  194. 916 [153]"CONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  195. 917 PRINT"[154]BEARBEITET VON [129][206]IKOLAUS [200]EUSLER
  196. 918 [153]"CONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  197. 919 PRINT"[154]FUER [129]64'ER [211]ONDERHEFT #63
  198. 920 [153]"CONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  199. 923 PRINT"[154]([195]) 11.1990, [158][205]ARKT & [212]ECHNIK [193][199]
  200. 924 [153]"CONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  201. 925 PRINTTAB(7)"[197]INEN [193]UGENBLICK, BITTE...
  202. 927 [139][194](33024)[178]120[167]935
  203. 930 [158]57812"CHAR-ASSEMBLER",D,1:[151]780,.:[158]65493
  204. 935 [158]33860:[153]"LOAD":[151]56,96:[156]
  205. 940 U[178]36736:[129]I[178].[164]48:[135]A:[151]U[170]I,A:[130]I:MP[178]33350
  206. 945 U[178]24576:W[178]8:E[178]7:[129]I[178].[164]9:[135]A:[129]P[178].[164]E:[135]B:[151]U[170]A[172]W[170]P,B:[130]P,I
  207. 950 [151]33551,11:[129]I[178].[164]9:[158]MP,I,I[170]48:[130]I:[138]20
  208. 955 :
  209. 960 [131],,,7,2,60,1,40,43,31,29,6,3,38,30,17,42,33,22,18,10,4,5,13,26,28
  210. 965 [131]57,62,20,54,51,49,36,45,50,35,56,59,8,48
  211. 970 [131]53,11,16,41,255,255,255,255,255
  212. 975 [131],60,66,153,161,161,153,66,60
  213. 980 [131]30,246,103,102,102,,,,
  214. 985 [131]31,192,192,192,223,,,,
  215. 990 [131]44,,60,126,126,126,126,60,
  216. 995 [131]28,,,,8,,,,
  217. 1000 [131]27,14,24,24,24,24,24,14,
  218. 1005 [131]29,112,24,24,24,24,24,112,
  219. 1010 [131]60,102,24,60,102,126,102,102,
  220. 1015 [131]62,102,60,102,102,102,102,60,
  221. 1020 [131]59,102,,102,102,102,102,60,
  222.