home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-02_1985_Verlag_Heinz_Weise_de.d64 / scriptor (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  109 lines

  1. 5 ifa=1then200
  2. 7 poke3*256+4*16,160+9:poke3*256+4*16+1,13:poke3*256+4*16+2,6*16
  3. 10 poke56,48:poke55,0:clr:poke53280,0:poke53281,0
  4. 50 bt=12288
  5. 100 print"[147][214][211]:0885 [215].[203]."chr$(14)chr$(8)
  6. 105 printspc(15)" [211][195][210][201][208][212][207][210] [146]":print"  [196]as benutzerfreundliche [212]extsystem
  7. 110 [151]50257,16:[151]650,128
  8. 120 [153]"(NULL)extbreite (max 250)   80cmdcmd";
  9. 122 [141]60000:[139]zz[178]0[167]tb[178]80:[137]125
  10. 123 tb[178][197](ww$)
  11. 125 [139]tb[179]10[176]tb[177]250[167]10
  12. 127 [151]bt[170]1,tb
  13. 130 [153]
  14. 140 [153]"(NULL)eilen pro (NULL)eite (max 72)   40cmdcmd";
  15. 142 [141]60000:ze[178][197](ww$):[139]zz[178]0[167]ze[178]40:[137]146
  16. 145 [139]ze[179]2[176]ze[177]72[167]10
  17. 146 [151]967,ze:[129]i[178]0[164]8:[151]bt[170]16[170]i,ze:[130]
  18. 200 [153]"load   (1)  editierenwait eines textes
  19. 220 print"   (2)  laden[146]     eines textes
  20. 230 [153]"   (3)  speichernwait eines textes
  21. 240 print"   (4)  drucken[146]   eines textes
  22. 250 [153]" peekitte waehlen (NULL)ie mit den (NULL)iffern 1-4
  23. 260 getq$:ifq$=""then260
  24. 270 poke970,val(q$):ifval(q$)=0orval(q$)>4then200
  25. 300 poke970,val(q$):on peek(970)goto1000,2000,3000,4000
  26. 400 goto200
  27. 1000 print"[147]
  28. 1010 [158]6144[170]of:[156]:of[178]3
  29. 1100 [137]200
  30. 2000 qq$[178]"loadclose    (NULL)adenwait
  31. 2010 gosub5000:iffl=1then7000
  32. 2020 sys6144+6
  33. 2030 ifga>3andga<>7thengosub6000:iffe<>0thenprint:print:printfe$:goto7000
  34. 2100 of=3:a=1:loadn$,ga,1
  35. 2120 goto1000
  36. 3000 qq$="[147]     [211]peichern[146]
  37. 3010 [141] 5000:[139]fl[178]1[167]7000
  38. 3020 [139]ga[179]4[176]ga[178]7[167]3100
  39. 3025 [141]6000:[139]fe[178]62[167]3100
  40. 3027 [139]fe[179][177]0[167][153]:[153]:[153]fe$:[137]7000
  41. 3030 [153]"file schon vorhanden !!!"
  42. 3040 [153]"soll es ueberschrieben werden ? (j/n)"
  43. 3050 [161]w$:[139]w$[179][177]"j"[175]w$[179][177]"n"[167]3050
  44. 3060 [139]w$[178]"n"[167]200
  45. 3100 [139]ga[178]1[176]ga[178]7[167][158]57812 n$,ga:[137]3110
  46. 3105 [158]57812 "@0:"[170]n$,ga
  47. 3110 [151]193,0:[151]194,48
  48. 3111 [151]174,[194](961):[151]175,[194](962)[170]1
  49. 3113 [158]62954:[137]200
  50. 4000 [153]"load"[166]16)"str$ruckenwait
  51. 4020 print"[218]ahl der [214]orschubzeilen vor jeder
  52. 4030 [153]"(NULL)eite   5cmd";
  53. 4035 [141]60000:vz[178][197](ww$):[139]zz[178]0[167]vz[178]5
  54. 4040 [139] vz[170]ze[177]72[167]4000
  55. 4045 [153]:[153]"str$ruckernummer  4cmd";
  56. 4046 [141]60000:dv[178][197](ww$):[139]zz[178]0[167]dv[178]4
  57. 4047 [139]dv[179]4[176]dv[177]6[167]4000
  58. 4048 [151]144,0:[159]1,dv,1:[160]1:[139]st[178][171]128[167][153]:[153]"str$val(NULL)right$lenvalclose(NULL)(NULL)(NULL)close(NULL)(NULL)val(NULL)val(NULL)(NULL)":[137]7000
  59. 4050 [153]:[153]" atnwait lles str$rucken oder
  60. 4060 print"[211][146] eitenweise
  61. 4070 [161]w$:[139](w$[179][177]"a")[175](w$[179][177]"s")[167]4070
  62. 4080 [139]w$[178]"s"[167]4300
  63. 4100 [151]bt[170]27,0:[129]ws[178]1[164]9:[141]4317:[130]
  64. 4120 [137]200
  65. 4300 [153] " (NULL)elche (NULL)eite   1cmd";
  66. 4305 [141]60000:ws[178][197](ww$):[139]zz[178]0[167]ws[178]1
  67. 4310 [139] ws[179]1 [176] ws[177]9[167] [129]i[178]0[164]zz:[153]"cmd cmd";:[130]:[137]4305
  68. 4314 [151]bt[170]27,0:[141]4317:[137]200
  69. 4317 [159]1,dv,7:[157]1:[139][194](bt[170]27)[178]1[167]4340
  70. 4319 [129]i[178]1[164]vz:[153]:[130]
  71. 4320 [151]bt[170]27,1:[151]960,ws:[158]6144[170]18:[139][194](bt[170]27)[178]1[167]4340
  72. 4330 [129]i[178]1[164]72[171]vz[171][194](967):[152]1:[130]
  73. 4340 [152]1:[160]1:[142]
  74. 5000 [141]62000:fl[178]0
  75. 5010 [151]211,0:[151]214,12:[158]58640:[153]"(NULL)elche valinheit        cmdcmdcmdcmdcmd8cmd";
  76. 5011 [141]60000:ga[178][197](ww$):[139]zz[178]0[167]ga[178]8
  77. 5012 [139]ga[178]1[176]ga[178]7[167]5090
  78. 5013 [139]ga[179]5[176]ga[177]15[167]5010
  79. 5020 [151]144,0:[159]1,ga,0:[160]1:[139]st[178][171]128[167][141]63000:fl[178]1:[142]
  80. 5090 [139]ga[178]7[167][139][194](818)[170]256[172][194](819)[178]62957[167][141]63000:fl[178]1:[142]
  81. 5100 [153][199](13):[142]
  82. 6000 [159]1,ga,15:[159]2,ga,2,"0:"[170]n$[170]",p,r"
  83. 6010 [132]1,fe,fe$,sp,sk:[160]2:[160]1
  84. 6030 [142]
  85. 7000 [153]" return drueckenwait"
  86. 7010 [161]w$:[139]w$[179][177][199](13)[167]7010
  87. 7020 [137]200
  88. 60000 zz[178]0:w$[178]"":ww$[178]"":[151]198,0
  89. 60010 [161]w$:[151]204,0:[139]w$[178]""[167]60010
  90. 60020 as[178][198](w$):[139]as[178]13[167]60100
  91. 60030 [139]as[178]20[175]zz[177]0[167]zz[178]zz[171]1:ww$[178][200](ww$,[195](ww$)[171]1):[153]w$;:[137]60010
  92. 60035 [139]zz[177][178]3[167]60010
  93. 60040 [139]as[179]48[176]as[177]57[167]60010
  94. 60050 ww$[178]ww$[170]w$:zz[178]zz[170]1:[153]w$;:[137]60010
  95. 60100 [151]205,255:[151]207,0:[151]204,1:[139]zz[177]0[167][153]" "
  96. 60110 [142]
  97. 62000 [153]"load"qq$:[151]211,0:[151]214,10:[158]58640:[153]"name des textes: ";
  98. 62005 ww$[178]"":zz[178]0:[151]198,0
  99. 62010 [161]w$:[151]204,0:[139]w$[178]""[167]62010
  100. 62020 as[178][198](w$):[139]as[178]13[167]62100
  101. 62030 [139]as[178]20[175]zz[177]0[167]zz[178]zz[171]1:ww$[178][200](ww$,[195](ww$)[171]1):[153]w$;:[137]62010
  102. 62035 [139]as[179]32[167]62010
  103. 62040 [139]zz[177][178]16[167]62010
  104. 62050 [139]as[177]127[175]as[179]193[167]62010
  105. 62060 ww$[178]ww$[170]w$:zz[178]zz[170]1:[153]w$;:[137]62010
  106. 62100 [139]zz[178]0[167]62000
  107. 62110 [151]205,255:[151]207,0:[151]204,1:[153]" ":n$[178]ww$:[142]
  108. 63000 [153]:[153]:[153]"str$val(NULL)right$lenval (NULL)(NULL)(NULL) (NULL)(NULL)val(NULL)val(NULL)(NULL)":[129]ii[178]0[164]1000:[130]:[142]
  109.