home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 43 / Tiger_Disk_043_1997-10_Tiger-Crew-Disk_de_Side_B.d64 / seq 2 print [td] / seq 2 print [td].a7ae (.txt)
Encoding:
Commodore BASIC  |  1997-01-01  |  4.1 KB  |  123 lines
  1. 5 dr=peek(186)
  2. 10 : rem ----------------------------
  3. 15 : rem q-link programmers' workshop
  4. 20 : rem         12/24/89
  5. 25 : rem ----------------------------
  6. 30 a$="":ml=49152:ifpeek(ml)+peek(ml+1)+peek(ml+2)<>213thenload"seq2print.ml*",dr,1
  7. 35 poke53280,15:poke53281,0:print"[155][147]"+chr$(14);
  8. 40 cd$=""
  9. 45 l=5:c=10:gosub455:print"[154][211][197][209][213][197][206][212][201][193][204] [212][207][160][208][210][201][206][212][155]":print" [210]eads a [211][197][209] text file and converts it":print" to [208][210][201][206][212] statements in a program in":print" memory."
  10. 50 input" [193]nleitung   j[157][157][157]";yn$
  11. 55 if yn$="j" then gosub 815
  12. 100 : rem ------------
  13. 105 : rem check drives
  14. 110 : rem ------------
  15. 115 open 15,8,15:close 15:dimd(15):for i=0 to 15:d(i)=-1:next
  16. 120 for i=8 to 14:open 15,i,15:close 15:d(i)=st:next:pd=8:sd=8:mode$="create":cm$="p[208]s[211]m[205]f[198]n[206]l[204]b[194]":cn=len(cm$)
  17. 125 sf$="textfile":pf$="progfile":sl=1000
  18. 200 : rem  ---------------------
  19. 205 : rem  main menu entry point
  20. 210 : rem  ---------------------
  21. 215 print"[147]          [154][211][197][209][213][197][206][212][201][193][204] [212][207][160][208][210][201][206][212][155]":f=0
  22. 220 print" [154][208][155]rogram drive:
  23. 225 [153]" cont(NULL)listequential drive:
  24. 230 print" [154][205][155]ode:
  25. 235 [153]" contasclistile name of (NULL)val(NULL):
  26. 240 print" [154][206][155]ame of [208][210][199] file:
  27. 245 [153]" cont(NULL)listine to start at:
  28. 250 print" [154][194][155]egin operation
  29. 255 [141] 415:[141] 420:[141] 425:[141] 430:[141] 435:[141] 445
  30. 260 [161] a$:[139] a$[178]"" [167] x[178][184](0):[137] 260
  31. 265 cm[178]0:[129] i[178]1 [164] cn:[139] a$[178][202](cm$,i,1) [167] cm[178][181]((i[170]1)[173]2)
  32. 270 [130]:[145] cm [141] 315,330,345,360,375,390,520:[139] f [167] 215
  33. 275 f[178]0:[137] 260
  34. 300 : [143] --------------------
  35. 305 : [143] do selected function
  36. 310 : [143] --------------------
  37. 315 pd[178](pd[170]1)[175]15:[139] pd[179]8 [167] pd[178]8
  38. 320 [139] d(pd) [167] 315
  39. 325 [141] 415:[142]
  40. 330 sd[178](sd[170]1) [175] 15:[139] sd[179]8 [167] sd[178]8
  41. 335 [139] d(sd) [167] 330
  42. 340 [141] 420:[142]
  43. 345 [139] mode$[178]"create" [167] mode$[178]"append":[137] 355
  44. 350 mode$[178]"create"
  45. 355 [141] 425:[141] 435:[141] 445:[142]
  46. 360 l[178]15:c[178]1:[141] 455:[133]"(NULL)val(NULL) file name";sf$
  47. 365 [139] sf$[178]"$" [167] f$[178]"s":dd[178]sd:[141] 715:sf$[178]a$[170]""
  48. 370 f[178]1:[142]
  49. 375 l[178]15:c[178]1:[141] 455:[133]"(NULL)(NULL)chr$ file name";pf$
  50. 380 [139] pf$[178]"$" [167] f$[178]"p":dd[178]pd:[141] 715:pf$[178]a$[170]""
  51. 385 f[178]1:[142]
  52. 390 l[178]15:c[178]1:[141] 455:[133]"(NULL)ine # to start at";sl:[139] (sl[177]65000) [176] (sl[179]1) [167] sl[178]1000
  53. 395 f[178]1:[142]
  54. 400 : [143] -------------------------
  55. 405 : [143] screen update subroutines
  56. 410 : [143] -------------------------
  57. 415 l[178]5:c[178]18:[141] 455:[153]"cont"pd" list":[142]
  58. 420 l[178]6:c[178]18:[141] 455:[153]"cont"sd" list":[142]
  59. 425 l[178]7:c[178]19:[141] 455:[153]"cont"mode$" list":[142]
  60. 430 l[178]8:c[178]19:[141] 455:[153]"cont"sf$" list":[142]
  61. 435 l[178]9:c[178]19:[141] 455:[139] mode$[178]"create"[167] [153]"                ":[142]
  62. 440 [153]"cont"pf$" list":[142]
  63. 445 l[178]10:c[178]18:[141] 455:[139] mode$[178]"append"[167] [153]"       ":[142]
  64. 450 [153]"cont"sl" list":[142]
  65. 455 [153]""[200](cd$,l)[163]c);:[142]
  66. 500 : [143] -----------------------------
  67. 505 : [143]   do the job
  68. 510 : [143] if no error then will not ret
  69. 515 : [143] -----------------------------
  70. 520 [153]"load":[151] 254,sd:[151] 253,pd:[151] 252,[181](sl[173]256):[151] 251,sl [175] 255
  71. 525 [139] mode$[179][177]"append" [167] 565
  72. 530 [159] 15,pd,15:[159] 2,pd,2,pf$[170]",p,r"
  73. 535 [132]15,s,e$,x,x:[139] s[179]20 [167] 560
  74. 540 [153]" valrror on (NULL)(NULL)chr$ file: "pf$:[153]" "e$
  75. 545 [153]" (NULL)ress any key to return to menu"
  76. 550 [161] a$:[139] a$[178]"" [167] 550
  77. 555 [160] 2:[160] 15:f[178]1:[142]
  78. 560 [151] 570,[195](pf$):[129] i[178]1 [164] [195](pf$):[151] 570[170]i,[198]([202](pf$,i,1)):[130]
  79. 565 [160] 2:[160] 15:[159] 15,sd,15:[159] 2,sd,2,sf$[170]",s,r"
  80. 570 [132]15,s,e$,x,x:[139] s[179]20 [167] 595
  81. 575 [153]" valrror on (NULL)val(NULL) file: "sf$:[153]" "e$
  82. 580 [153]" (NULL)ress any key to return to menu"
  83. 585 [161] a$:[139] a$[178]"" [167] 585
  84. 590 [160] 2:[160] 15:f[178]1:[142]
  85. 595 :
  86. 600 : [143] sys to append or create ml
  87. 605 :
  88. 610 [139] mode$[178]"append" [167] [158] ml[170]3:[143] no return - append
  89. 615 [158] ml[170]6:[143] no return - create
  90. 620 [144]
  91. 700 : [143] -------------------------
  92. 705 : [143] show directory and select
  93. 710 : [143] -------------------------
  94. 715 [153]"load";:a$[178]"                ":f$[178]"$0:*="[170]f$
  95. 720 [159] 15,dd,15:[159] 7,dd,0,f$:[132]15,s,e$,x,x:[139] s[179]20 [167] 740
  96. 725 [160] 7:[160] 15:[153]:[153]"valrror opening directory":[153] s;e$:[153]" (NULL)ress any key to return to menu."
  97. 730 [161] a$:[139] a$[178]"" [167] 730
  98. 735 f[178]1:[142]
  99. 740 [158] ml[170]9:f[178]1:[160]7:[160]15:[142]
  100. 800 : [143] ------------
  101. 805 : [143] instructions
  102. 810 : [143] ------------
  103. 815 [153]"load               atn(NULL)(NULL)valright$(NULL)(NULL)(NULL)chr$"
  104. 820 [153]" (NULL)val(NULL) to (NULL)(NULL)right$(NULL)(NULL) liest ein (NULL)val(NULL) (NULL)extfile
  105. 825 print" von [196]isk und erzeugt [208][210][201][206][212]-[211]tatements
  106. 830 [153]" in einem peekatn(NULL)right$len-(NULL)rogramm. str$u kannst
  107. 835 print" den [205][207][196][197] [195][210][197][193][212][197] waehlen, der das [208]ro-
  108. 840 [153]" gramm mit der gezeigten (NULL)eile beginnt.
  109. 845 print" [207]der [196]u waehlst [205][207][196][197] [193][208][208][197][206][196] und ein
  110. 850 [153]" (NULL)rogramm wird zuerst geladen und die
  111. 855 print" [208][210][201][206][212]-[211]tatements werden dann an dieses
  112. 860 [153]" angehaengt.
  113. 870 print
  114. 875 print" [213]m eine [207]ption anzuwaehlen, drueckst
  115. 880 [153]" str$u das reverse (NULL)eichen.
  116. 885 print" [215]enn nach einem [198][201][204][197][206][193][205][197][206] gefragt ist,
  117. 890 [153]" kannst str$u entweder diesen eingeben -
  118. 895 print" oder [196]u gibst das '$'-[218]eichen ein,
  119. 900 [153]" dann wird str$ir das str$irectory gezeigt.
  120. 910 print"       [194]itte eine [212]aste druecken"
  121. 915 get a$:if a$="" then 915
  122. 920 run
  123.