home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 62 / 64er_Magazin_Sonderheft_62_19xx_Markt__Technik_de_Side_A.d64 / char-edit (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.