home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 September / 64er_Magazin_92-09_1992_Markt__Technik_de.d64 / sys-stempel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  92 lines
  1. 100 rem sys-stempel
  2. 110 rem von n.heusler, zwengauerweg 18, 8000 muenchen 71
  3. 120 poke53280,.:poke53281,.:poke788,52:n$=chr$(.)
  4. 130 goto270
  5. 140 print"[147][154][142]"tab(14)"sys - stempel
  6. 150 [153]"   von n. heusler    vers. 1 (c) 4.92
  7. 160 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  8. 170 [142]
  9. 180 [152]15,"i
  10. 190 input#15,f1,f1$,f2,f3:iff1<2thenok=1:return
  11. 200 print:print"achtung[146]: diskettenfehler nr."f1:print
  12. 210 printf1$" track"f2" sektor"f3
  13. 220 print"a[154]bbruch, w[154]iederholen, i[154]gnorieren?":poke198,.
  14. 230 getdm$:ifdm$="i"thenok=1:return
  15. 240 ifdm$="w"thenok=.:return
  16. 250 ifdm$="a"thenrun
  17. 260 goto230
  18. 270 open15,8,15,"u9
  19. 280 [141]140
  20. 290 [153]"dieses utility aendert die zahlenangabe
  21. 300 print"vor prg-dateien im directory
  22. 310 [153]"programmwahl:"[166]27)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  23. 320 print"   1[154]  -  ladeadresse einige dateien
  24. 330 [153]"   2cont  -  ladeadresse alle   dateien
  25. 340 print"   3[154]  -  blocklaenge einige dateien
  26. 350 [153]"   4cont  -  blocklaenge alle   dateien
  27. 360 print"   5[154]  -  belieb.zahl einige dateien
  28. 370 [153]"   6cont  -  directory zeigen
  29. 380 print"   7[154]  -  programmende
  30. 390 [153]""[163]14);
  31. 400 [151]204,.:[151]198,.
  32. 410 [161]fk$:[139]fk$[179]"1"[176]fk$[177]"7"[167]410
  33. 420 fk[178][197](fk$):[151]205,2:[146]207,1,1:[151]204,1
  34. 430 [139]fk[178]7[167][158]64738
  35. 440 [139]fk[179][177]6[167]510
  36. 450 [153]"loadcont"[163]8)"-directory wird geladen-
  37. 460 gosub180:ifok=.then460
  38. 470 sys57812"$",8,.:poke44,192:poke768,174:poke769,167:sys47003,1
  39. 480 poke782,192:sys65493:sys42291:print"[147]
  40. 490 [155]:[151]44,8:[151]768,139:[151]769,227:[153]
  41. 500 [153]"(weiter mit tastecont)":[151]198,.:[146]198,1:[138]
  42. 510 [153]"loadcontdirectory wird gelesen
  43. 520 gosub180:ifok=.then510
  44. 530 open8,8,8,"#
  45. 540 [152]15,"u1:8 0 18 0":[141]190:[139]ok[178].[167]540
  46. 550 [161]#8,tr$,se$:tr[178][198](tr$[170]n$):se[178][198](se$[170]n$)
  47. 560 [152]15,"b-p 8 144
  48. 570 get#8,dr$:ifdr$<>"[160]"thendn$=dn$+dr$:goto570
  49. 580 print"name der diskette: "dn$:print
  50. 590 ifse<30then620
  51. 600 close8:print"bearbeitung dieser diskette abgeschlos- sen. (taste[154])
  52. 610 [151]198,.:[146]198,1:[138]
  53. 620 [152]15,"u1:8 0"tr;se:[141]190:[139]ok[178].[167]620
  54. 630 ot[178]tr:os[178]se:[161]#8,tr$,se$:tr[178][198](tr$[170]n$):se[178][198](se$[170]n$)
  55. 640 [129]d[178].[164]7
  56. 650 [152]15,"b-p 8"32[172]d[170]2
  57. 660 [161]#8,a$:a[178][198](a$[170]n$)
  58. 670 [139]a[179]128[176](a[175]7)[179][177]2[167]1000
  59. 680 [161]#8,tr$,se$:t1[178][198](tr$[170]n$):s1[178][198](se$[170]n$):fe$[178]""
  60. 690 [161]#8,a$:[139]a$[179][177]"close"[175][195](fe$)[179]16[167]fe$[178]fe$[170]a$:[137]690
  61. 700 [152]15,"b-p 8"32[172]d[170]30
  62. 710 [161]#8,l$,h$
  63. 720 bo[178]256[172][198](h$[170]n$)[170][198](l$[170]n$)
  64. 730 [153][201]("    "[170][196](bo),5)" "[199](34)fe$[199](34);
  65. 740 [153][163]25)"prg ";
  66. 750 [139]fk[178]2[176]fk[178]4[167]790
  67. 760 [153]"jconta/nconteincmdcmdcmdcmdcmdcmdcmd";:[151]198,.
  68. 770 [161]wa$:[139]wa$[178]"n"[167][153]"bleibt  ":[137]1000
  69. 780 [139]wa$[179][177]"j"[167]770
  70. 790 [153]"->      cmdcmdcmdcmdcmdcmd";
  71. 800 [139]fk[179]3[167][141]830:[137]930
  72. 810 [139]fk[178]5[167][141]900:[137]930
  73. 820 [141]850:[137]930
  74. 830 [152]15,"u1:8 0"t1;s1:[141]190:[139]ok[178].[167]830
  75. 840 [161]#8,a$,a$,l$,h$:nw[178]256[172][198](h$[170]n$)[170][198](l$[170]n$):[142]
  76. 850 nw[178]1:t2[178]t1:s2[178]s1
  77. 860 [152]15,"u1:8 0"t2;s2:[141]190:[139]ok[178].[167]860
  78. 870 [161]#8,tr$,se$:t2[178][198](tr$[170]n$):s2[178][198](se$[170]n$)
  79. 880 [139]t2[167]nw[178]nw[170]1:[137]860
  80. 890 [142]
  81. 900 [141]830:[153]:[153]""nw:ri[178][194](214)[171]1
  82. 910 [133]"onzahleneingabe";nw:[139]nw[179]0[176]nw[177]65535[167][153]"onononon":[137]900
  83. 920 [151]781,ri:[158]59903:[153]"contononon"[163]31);:[142]
  84. 930 [152]15,"u1:8 0"ot;os:[141]190:[139]ok[178].[167]930
  85. 940 [139]bo[178]nw[167][153]"cmdcmdbleibt!":[137]1000
  86. 950 [153][201]("    "[170][196](nw),6)
  87. 960 [152]15,"b-p 8"32[172]d[170]30
  88. 970 h[178][181](nw[173]256):l[178]nw[171]256[172]h
  89. 980 [152]8,[199](l)[199](h);
  90. 990 [152]15,"u2:8 0"ot;os:[141]190:[139]ok[178].[167]990
  91. 1000 [130]d:[137]590
  92.