home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 6 / Commodore_Disc_06_19xx_-_de.d64 / user-help.64 (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  5KB  |  166 lines
  1. 10 rem user help=================64
  2. 20 rem (p)  commodore welt       ==
  3. 30 rem (c) by                    ==
  4. 40 rem ch. kroell                ==
  5. 50 rem                           ==
  6. 60 rem version 1.0               ==
  7. 70 rem c64+1541;+mps801/gp 100 vc==
  8. 80 rem ============================
  9. 90 rem
  10. 100 ck$=chr$(17)+chr$(29)+chr$(158)+chr$(18)
  11. 110 for i=0to101:read x:z=z+x:poke 49152+i,x:next
  12. 120 poke53280,0:poke53281,0:printchr$(147)
  13. 130 printchr$(158)+chr$(17)+chr$(29)+chr$(18)+"  user-help v1.0  "+chr$(146)
  14. 140 printchr$(156)+chr$(17)+chr$(17)+chr$(17)+chr$(29)+"(p) commodore welt"
  15. 150 printchr$(17)+chr$(159)+chr$(29)+"(c) christian kroell"
  16. 160 printcd$+chr$(17)+chr$(17)
  17. 170 printchr$(129)+"      ==>"+chr$(18)+"bitte taste druecken"+chr$(146)+"<=="
  18. 180 poke 198,0:wait198,1
  19. 190 rem --menue
  20. 200 poke53280,0:poke53281,0:printchr$(147)+chr$(159)
  21. 210 printchr$(142)chr$(29)+chr$(29)+"user-help v1.0
  22. 220 [153][199](8)[170]ck$[170][199](17)[170]" f1 "[170][199](146)[170][199](156)[170]" directory"
  23. 230 [153]ck$[170]" f2 "[170][199](146)[170][199](156)[170]" directory ausdrucken"
  24. 240 [153]ck$[170]" f3 "[170][199](146)[170][199](156)[170]" formatieren"
  25. 250 [153]ck$[170]" f4 "[170][199](146)[170][199](156)[170]" validieren"
  26. 260 [153]ck$[170]" f5 "[170][199](146)[170][199](156)[170]" prg.-scratch"
  27. 270 [153]ck$[170]" f6 "[170][199](146)[170][199](156)[170]" disk-tip"
  28. 280 [153]ck$[170]" f7 "[170][199](146)[170][199](156)[170]" disk name/id aendern"
  29. 290 [153]ck$[170]" f8 "[170][199](146)[170][199](156)[170]" laufwerk-nummer aendern"
  30. 300 [153]ck$[170]" _len "[170][199](146)[170][199](156)[170]" - ende -"
  31. 310 [153][199](17)[170][199](17)[170][199](29)[170]"bitte waehlen sie !"
  32. 320 [161] a$
  33. 330 [139] a$[178][199](133) [167] 1330
  34. 340 [139] a$[178][199](137) [167] 1380
  35. 350 [139] a$[178][199](134) [167] 1270
  36. 360 [139] a$[178][199](138) [167] 1220
  37. 370 [139] a$[178][199](135) [167] 1170
  38. 380 [139] a$[178][199](139) [167] 910
  39. 390 [139] a$[178]"_" [167] 870
  40. 400 [139] a$[178][199](136) [167] 620
  41. 410 [139] a$[178][199](140) [167] 520
  42. 420 [137] 320
  43. 430 [143] -directory data's
  44. 440 [131]169,1,162,205,160,235,32,189,255,169,8,133,186,169,96,133,185,32,213
  45. 450 [131]243,165,186,32,180,255,165,185,32,150,255,169,0,133,144,160,3,132,251
  46. 460 [131]32,165,255,133,252,164,144,208,52,32,165,255,164,144,208,45,164,251
  47. 470 [131]136,208,233,166,252,32,205,189,169,32,32,210,255,32,165,255,166,144
  48. 480 [131]208,23,170,240,6,32,210,255,24,144,240,169,13,32,210,255,32,225,255
  49. 490 [131]240,4,160,2,208,193,76,66,246
  50. 500 [128]
  51. 510 [143] --laufwerk-nummer aendern
  52. 520 [151]53280,0:[151]53281,0:[153][199](147)[170][199](159)[170][199](29)[170]"user-help v1.0"
  53. 530 [153][199](17)[170]"alte floppy number ";:[133]d0
  54. 540 [139] d0[179]8 [176] d0[177]15 [167] 530
  55. 550 [153][199](17)[170]"neue floppy number ";:[133]dn
  56. 560 [139] d0[179]8 [176] d0[177]15 [167] 550
  57. 570 [159]15,d0,15
  58. 580 [152]15,"m-w"[199](119)[199](0)[199](2)[199](dn[170]32)[199](dn[170]64)
  59. 590 [160]15
  60. 600 [137] 200
  61. 610 [143] -- disk name+id aendern
  62. 620 [153][199](147)[170][199](159):[151]53280,0:[151]53281,0
  63. 630 [153][199](29)[170][199](29)[170]"user-help v1.0"
  64. 631 [153]"neuer disk/name hoechstens 16 zeichen !"
  65. 632 [153]"neue disk-id   hoechstens   5 zeichen !"
  66. 640 [151]828,8
  67. 650 gn%[178][194](828):ur%[178]0
  68. 660 [141] 680
  69. 670 [160]1:[159]1,gn%,15,"i0":[141]830:[160]1:[139][195][178]0[167][142]
  70. 680 [160]1:[160]15:[159]15,gn%,15:nr[178]0:[159]1,gn%,3,"#":[152]15,"u1:3"nr",18,0"
  71. 690 [152]15,"b-p:3,144":d$[178]"":[129]l[178]1[164]16:[161]#1,a$:d$[178]d$[170]a$:[130]
  72. 700 [153][199](147)[170]cd$[170]"alter disk-name: "[170][199](18)d$
  73. 710 na$[178]"disk-name":[153][199](17)[170][199](17)[170]"neuer disk-name";:[133]na$
  74. 720 na$[178][200](na$[170]"                 ",16)
  75. 730 [152]15,"b-p:3,144":[152]1,na$;:[152]15,"u2:3"nr",18,0":[160]1:[160]15
  76. 740 [143]id
  77. 750 dv[178]0:[159]15,gn%,15:[159]1,gn%,3,"#":[152]15,"u1:3"dv",18,0"
  78. 760 [152]15,"b-p:3,162":[161]#1,a$,b$,c$,d$,e$
  79. 770 [153][199](147)[170][199](17)[170][199](17)[170]"alte disk-id: "[170][199](18)a$;b$;c$;
  80. 780 [153]d$;e$:[133]"neue disk-id";i$
  81. 790 [139][195](i$)[177]5[167]780
  82. 791 [139][195](i$)[179]5[167][129]i[178][195](i$)[164]5:i$[178]i$[170][199](32):[130]
  83. 810 [152]15,"b-p:3,162":[152]1,i$;:[152]15,"u2:3";dv;" 18 0"
  84. 811 [160]1:[152]15,"i":[160]15
  85. 820 [141]670:[142]
  86. 830 [160]15:[159]15,gn%,15
  87. 840 [132]15,en,en$,ne,ee:[139]ur%[167][137]200
  88. 850 [160]15:[137] 200
  89. 860 [143] -- ende
  90. 870 [153][199](147)[170][199](159)
  91. 880 [153][199](29)[170][199](29)[170]"mit sys49152 directory ohne programm-   verlust ...
  92. 890 end
  93. 900 rem -- disk-tip
  94. 910 printchr$(147)+chr$(159)+chr$(29)+chr$(29)+"user-help v1.0"
  95. 920 print"  [160][160][160][160]
  96. 930 [153][199](17)[170]" hier sehen sie die thentab(tab(tab(tab(tab(tab(tab(tab(tab(tab(fn
  97. 940 print" ganz normale 5,25' [167]         [164][165]
  98. 950 [153]" zoll diskette;ein- then    (NULL)right$   fn
  99. 960 print" seitig bespielbar. [167]    [202][203]   [163][165]
  100. 970 [153]"                    then          fn
  101. 980 print"    ** taste **     [167]    [213][201]    [165]
  102. 990 [153]"                    then    peekpeek    fn
  103. 1000 print"                    [167]    [202][203]    [165]
  104. 1010 [153]"                    thentotototototototototofn
  105. 1020 print"
  106. 1030 [151]198,0:[146]198,1
  107. 1040 [153][199](19)[170][199](17)[170][199](17)[170][199](17)[170][199](17)[170]"                    thento
  108. 1050 print"                     [167]
  109. 1060 [153]"                    thentab(
  110. 1070 printchr$(145)+chr$(145)+chr$(145)+chr$(145)+chr$(29)+"wenn man aber die "
  111. 1080 printchr$(29)+"disk dort locht,
  112. 1090 [153][199](29)[170]"und  die 2. seite
  113. 1100 printchr$(29)+"formatiert,so kann
  114. 1110 [153][199](29)[170]"man sie beidseitig
  115. 1120 printchr$(29)+"benutzen!      "
  116. 1130 printchr$(17)+chr$(29)+"    ** taste **
  117. 1140 [151]198,0:[146]198,1
  118. 1150 [137] 200
  119. 1160 [143] -- prg.-scratch
  120. 1170 [153][199](147)[170][199](29)[170][199](29)[170]"user-help v1.0"
  121. 1180 [153][199](17)[170][199](17)[170][199](29)[170]"file-name:"[170][199](5);:[133]p$
  122. 1190 [159]1,8,15,"s:"[170]p$:[160]1
  123. 1200 [137] 200
  124. 1210 [143] -- validieren
  125. 1220 [153][199](147)[170][199](29)[170][199](29)[170]"user-help v1.0"
  126. 1230 [153][199](17)[170][199](17)[170][199](29)[170]"bitte etwas geduld"
  127. 1240 [159]1,8,15,"v:":[160]1
  128. 1250 [137] 200
  129. 1260 [143] -- formatieren
  130. 1270 [153][199](147)[170][199](29)[170][199](29)[170]"user-help v1.0"
  131. 1280 [153][199](17)[170][199](17)[170][199](29)[170]"disk-name ";:[133]na$
  132. 1290 [133][199](17)[170][199](29)[170]"disk-id   ";id$
  133. 1300 [159]1,8,15,"n:"[170]na$[170]","[170]id$:[160]1
  134. 1310 [137] 200
  135. 1320 [143] -- directory
  136. 1330 [153][199](147):[158]49152
  137. 1340 [153][199](17)[170][199](29)[170][199](29)[170][199](158)[170]"* bitte taste *"
  138. 1350 [151]198,0:[146]198,1
  139. 1360 [137] 200
  140. 1370 [143] -- directory ausdruck
  141. 1380 [153][199](147):[158]49152
  142. 1390 [153][199](17)[170][199](29)[170][199](29)[170][199](158)[170]"* bitte taste *"
  143. 1400 [151]198,0:[146]198,1
  144. 1410 [153][199](145)[170][199](29)[170][199](29)[170]"* bitte drucker anschalten *"
  145. 1420 [151]198,0:[146]198,1
  146. 1430 [153][199](145)[170]"                                 "
  147. 1440 [159]1,3
  148. 1450 [159]4,4
  149. 1460 [153][199](145)[170]"   "[170][199](19);
  150. 1470 [129]i[178]1[164]25
  151. 1480 [129]j[178]1[164]40
  152. 1490 [161]#1,a$
  153. 1500 b$[178]b$[170]a$
  154. 1510 [130]j
  155. 1520 [152]4,b$
  156. 1530 b$[178]""
  157. 1540 [130]i
  158. 1550 [143] ============================
  159. 1560 [143] =  038911 bytes memory     =
  160. 1570 [143] =  004417 bytes program    =
  161. 1580 [143] =  000000 bytes variables  =
  162. 1590 [143] =  000000 bytes strings    =
  163. 1600 [143] =  000000 bytes arrays     =
  164. 1610 [143] =  034494 bytes free       =
  165. 1620 [143] ============================
  166.