home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9209.d64 / sys-stempel (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.