home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 55 / Commodore_Disc_55_19xx_-_de.d64 / cp-comp.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  66 lines
  1. 10 gosub62:printchr$(14)
  2. 11 printchr$(147)spc(9)"[195][208]-[195][207][196][197]/[214]1.1":print""
  3. 12 print"  [197]ditor",,"[195]ompiler"
  4. 13 gosub76
  5. 14 print:print"  1 = [212]ext loeschen","6 = [210]un"
  6. 15 print"  2 = [197]ditieren","7 = [195]ompile"
  7. 16 print"  3 = [196]rucken"
  8. 17 print"  4 = [204]aden"
  9. 18 print"  5 = [211]peichern"
  10. 19 gosub76
  11. 20 print"  ([160][198]3 beendet [197]ditiermodus )"
  12. 21 geta$:ifa$=""then21
  13. 22 onval(a$)gosub46,50,51,52,54,42,29
  14. 23 ifval(a$)then11
  15. 24 poke198,1:poke631,asc(a$):print
  16. 25 fi$="":inputfi$:iffi$="x"thenopen8,8,15,"i0":close8:goto25
  17. 26 i=1:iffi$=""then11
  18. 27 ifi<=len(fi$)thenifmid$(fi$,i,1)<>" "theni=i+1:goto27
  19. 28 fi$=left$(fi$,i-1):gosub57:goto25
  20. 29 rf=0
  21. 30 fa$="":printchr$(147)"[195]ompiling":sys51675:ifpeek(51698)then 50
  22. 31 fa$="run":poke4096,peek(38936):poke4097,peek(38937):ifrfthenreturn
  23. 32 gosub78
  24. 34 print:print"[208]rg-[197]nde:"pe
  25. 35 print"[214]ar-[197]nde:"ve:print:print
  26. 36 print"[211]peichern j/n?"
  27. 37 getz$:ifz$=""then37
  28. 38 ifz$<>"j"thenreturn
  29. 39 print:input"[198]ilename";fa$
  30. 40 sys57812"/"+fa$+".exe",8:poke193,0:poke194,16
  31. 41 a=pe:gosub75:poke174,al:poke175,ah:sys62957:return
  32. 42 rf=1:gosub30
  33. 43 ifpeek(51698)thenreturn
  34. 44 ifpeek(51698)then50
  35. 45 gosub78:sys50387:return
  36. 46 print:print"[215]irklich loeschen j/n ?"
  37. 47 getz$:ifz$=""then47
  38. 48 ifz$="j"thensys52200
  39. 49 return
  40. 50 sys52852:return:rem aendern
  41. 51 open8,4,7:sys53048:return:rem drucken
  42. 52 print:print:fi$="":input"[198]ile laden:";fi$:iffi$=""thenreturn
  43. 53 sys52200:open8,8,8,fi$:sys52175:goto50
  44. 54 print:print:fi$="":input"[198]ile speichern:";fi$:iffi$=""thenreturn
  45. 55 open8,8,15,"s:"+fi$:close8
  46. 56 open8,8,8,fi$+",s,w":sys53048:return:rem speichern
  47. 57 iffi$=fa$then44
  48. 59 sys57812"/"+fi$+".exe",8,1:gosub90
  49. 60 ifst<>64thenreturn
  50. 61 fa$=fi$:poke51698,0:poke50489,peek(781):poke50490,peek(782):goto44
  51. 62 data12000,36863,4096,cpv1.1mc1,cpv1.1mc2,"syscon64",editor.mc
  52. 63 readan,en,pr:a=pr-1:gosub75
  53. 64 ifah=peek(56)andal=peek(55)thenreturn
  54. 65 poke56,ah:poke55,al:clr
  55. 66 readan,en,pr:fori=1to4:readf$:sys57812f$,8,1:gosub90:next
  56. 68 poke51698,1:a=an:gosub75
  57. 70 poke51978,al:poke51979,ah:a=en:gosub75
  58. 72 poke51980,al:poke51981,ah:sys52200
  59. 74 poke65028,255:poke65029,143:run
  60. 75 ah=int(a/256):al=a-256*ah:return
  61. 76 print:print" -------------------------------------":return
  62. 78 pe=256*peek(50490)+peek(50489)
  63. 79 ve=256*peek(4097)+peek(4096)+pe
  64. 80 a=ve:gosub75:poke65026,al:poke65027,ah:return
  65. 90 poke780,0:sys65493:return
  66.