home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #3 / Floppy_Magazine_86-3_1986_Megasystems_Oy_fi.d64 / floppy editor (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  137 lines
  1. 1 rem"pekka heino 18.2.1986/tampere
  2.  
  3. 4 [151]52,143:[151]56,143:[156]
  4. 5 [141] 5000:t[178]18:s[178]0:t1[178]18:s1[178]0
  5. 10 [153]"load(NULL)ress any key to start editing":[151]808,254
  6. 15 [151]198,0:[146]198,1:[151]631,82:[159] 1,8,15,"i":[160]1
  7. 20 [151]53265,11:[153]"load"[163]12);"+frefrefrefrefrefrefrefrefrefrefrefrefrefrefresgn"
  8. 25 [153]"       +usrusrusrusrusr ascloppy editor usrusrusrusrusrsgn"
  9. 30 [153]"       + <len> - (NULL)ekka left$eino  1986 sgn"
  10. 35 [153]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr";
  11. 40 [153]""[163]16)"sinnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitsin";
  12. 50 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  13. 60 [153]"on (NULL) = quit           - = previuos block"
  14. 65 [153]" (NULL) = read           + = next block"
  15. 70 [153]" (NULL) = write          (NULL) =  in file"
  16. 75 [153]" (NULL) = text mode      mid$ = jump link"
  17. 80 [153]"<ret> = exit text   (NULL) = last block"
  18. 90 [153]"asc2= change to set 1"
  19. 100 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  20. 105 [153]"peekyte   ?"
  21. 110 [153]"(NULL)rack  ?"
  22. 120 [153]"(NULL)ector ?":l[178]64:x[178]1184
  23. 130 [151]53281,15:[151]53280,6:[151]nv[170]1,11:[158]nv:[151]53265,27:[151]646,11
  24. 140 [153]"":[137]150
  25. 145 [151]y,[194](y)[170]128[172]k
  26. 150 k[178][171]1:[161]a$:y[178]x:[139][194](x)[177]127[167]k[178]1
  27. 155 [151]x,[194](x)[171]128[172]k:[139]a$[179][177]""[167]n[178]0
  28. 160 [139]a$[178]""[175]x[179]1400[167]x[178]x[170]40:[137]145
  29. 165 [139]a$[178]""[175]x[179]1439[167]x[178]x[170]1:[137]145
  30. 170 [139]a$[178]"cmd"[175]x[177]1184[167]x[178]x[171]1:[137]145
  31. 180 [139]a$[178]"on"[175]x[177]1223[167]x[178]x[171]40:[137]145
  32. 182 [151]x,[194](x)[170]128[172]k
  33. 185 [139]a$[178]"r"[167]250
  34. 190 [139]a$[178]"w"[167]300
  35. 195 [139]a$[178]"+"[167]350
  36. 200 [139]a$[178]"-"[167]400
  37. 205 [139]a$[178]"n"[167]430
  38. 207 [139]a$[178]"t"[167]450
  39. 210 [139]a$[178]"input"[167][151]53280,([194](53280)[170]1)[175]255
  40. 215 [139]a$[178]"dim"[167][151]53281,([194](53281)[170]1)[175]255
  41. 220 [139]a$[178]"read"[167][151]nv[170]1,([194](nv[170]1)[170]1)[175]255:[158]nv:[151]646,([194](646)[170]1)[175]255
  42. 225 [139]a$[178]"restore"[167]130
  43. 227 [139]a$[178]"goto"[167][141]610
  44. 230 [139]a$[178]"j"[167]440
  45. 235 [139]a$[178]"@"[167]570
  46. 240 [139]a$[178]"q"[167][159]1,8,15,"i":[160]1:[151]808,237:[151]833,0:[158]833
  47. 242 [139]a$[178]"l"[167]t[178]t3:s[178]s3:[137]375
  48. 245 [139]a$[178]""[175]n[178]0[167]550
  49. 249 [137]150
  50. 250 [141]4500:[139]t[179]1[176]t[177]35[167]150
  51. 252 [153]"                                       "
  52. 255 t3[178]t1:s3[178]s1:t1[178]t:s1[178]s:p[178][194](36915)
  53. 256 [151]36915,6:[159] 1,8,15:[159]2,8,2,"#"
  54. 257 [152]1,"u1:";2;0;t;s:[158]br
  55. 260 [132]1,a,b$,c,d:[160]1:[160]2:[139]a[179]20[167][151]36915,p:[137]150
  56. 265 [153]"";a;b$;c;d:[151]36915,p
  57. 270 [129]n[178]1[164]70:[151]53280,255[171][194](53280):[130]:[137]250
  58. 300 [141]4500:[139]t[179]1[176]t[177]35[167]150
  59. 302 [153]"                                       "
  60. 303 p[178][194](36915):[151]36915,6
  61. 305 [159] 1,8,15:[159]2,8,2,"#":[158]bw
  62. 307 [152]1,"u2:";2;0;t;s
  63. 310 [132]1,a,b$:[160]1:[160]2:[139]a[179]20[167][151]36915,p:[137]150
  64. 315 [153]"";a;b$;c;d:[151]36915,p
  65. 320 [129]n[178]1[164]70:[151]53280,255[171][194](53280):[130]:[137]300
  66. 350 s[178]s[170]1
  67. 352 [139]t[179]18[175]s[178]21[167]t[178]t[170]1:s[178]0
  68. 355 [139]t[177]17[175]t[179]25[175]s[178]19[167]t[178]t[170]1:s[178]0
  69. 357 [139]t[177]24[175]t[179]31[175]s[178]18[167]t[178]t[170]1:s[178]0
  70. 360 [139]t[177]30[175]s[178]17[167]s[178]0:t[178]t[170]1
  71. 370 [139]t[178]36[167]t[178]1
  72. 375 [153]"(NULL)rack  ?";t"cmd "
  73. 377 [153]"(NULL)ector ?";s"cmd "
  74. 380 [137]255
  75. 400 s[178]s[171]1
  76. 405 [139]s[178][171]1[175]t[179]19[167]t[178]t[171]1:s[178]20
  77. 410 [139]s[178][171]1[175]t[177]18[175]t[179]26[167]t[178]t[171]1:s[178]18
  78. 412 [139]s[178][171]1[175]t[177]25[175]t[179]32[167]t[178]t[171]1:s[178]17
  79. 415 [139]s[178][171]1[175]t[177]31[167]t[178]t[171]1:s[178]16
  80. 420 [139]t[178]0[167]t[178]35:s[178]16
  81. 425 [137]375
  82. 430 t[178][194](1184):s[178][194](1185):[137]375
  83. 440 t[178][194](x):s[178][194](x[170]1):[137]375
  84. 450 [153]"(NULL)ode":[151]1929,l[170]1
  85. 480 k[178][171]1:[161]a$:l1[178]l:[139][194](x)[177]127[167]k[178]1
  86. 482 [151]x,[194](x)[171]128[172]k:[151]x,[194](x)[170]128[172]k:[139]a$[178]""[167]480
  87. 485 [139]a$[178][199](13)[167]600
  88. 487 [139]a$[178]"input"[167]l[178]0:[151]1929,l[170]1
  89. 490 [139]a$[178]"dim"[167]l[178]64:[151]1929,l[170]1
  90. 491 [139]a$[178]"goto"[167][141]610
  91. 492 [139]a$[178]"read"[167]l[178]128:[151]1929,l[170]1
  92. 493 [139]a$[178]"let"[167]l[178]192:[151]1929,l[170]1
  93. 496 [139]a$[178]""[175]x[179]1400[167]x[178]x[170]40
  94. 497 [139]a$[178]""[175]x[179]1439[167]x[178]x[170]1
  95. 498 [139]a$[178]"cmd"[175]x[177]1184[167]x[178]x[171]1
  96. 499 [139]a$[178]"on"[175]x[177]1223[167]x[178]x[171]40
  97. 500 a[178][198](a$):[139]a[179]32[176]a[177]95[175]a[179]161[176]a[177]191[167]480
  98. 505 [139]a[177]160[167]a[178]a[171]64:[137]509
  99. 506 [139]a[177]63[175]a[179]161[167]a[178]a[171]64:[137]510
  100. 507 [139]a$[178]" "[167]510
  101. 509 l1[178][171]128[172](l[177]127)
  102. 510 [151]x,a[170]l1:x[178]x[170]1:[139]x[178]1440[167]x[178]x[171]1
  103. 515 [137]480
  104. 550 [153]""[201]("  "[170][196]([194](x)),4);
  105. 555 [153]"      peekyte#"x[171]1184;"cmd  "
  106. 560 n[178]1:[137]150
  107. 570 [153]""
  108. 575 [133]"peekyte        cmdcmdcmdcmdcmd";b$:b[178][197]([200](b$,4))
  109. 580 [151]x,b:[137]150
  110. 600 [153]"       ":[137]150
  111. 610 [151]36915,1[170]2[172]([194](36915)[178]6)[170]5
  112. 620 [151]1723,50[170]([194](36915)[178]6):[142]
  113. 4500 [153]""
  114. 4510 [153]"(NULL)rack    ";[201]([196](t),2);:[133]"cmdcmdcmdcmd";t$:t[178][197](t$)
  115. 4515 [153]"                  "
  116. 4520 [153]"on(NULL)ector   ";[201]([196](s),2);:[133]"cmdcmdcmdcmd";s$:s[178][197](s$)
  117. 4540 [142]
  118. 5000 s[178]828:br[178]s:bw[178]s[170]25:nv[178]br[170]48
  119. 5001 [129]n[178]s[164]s[170]86:[135]a:[151]n,a:[130]
  120. 5008 [131]162,2,32,198,255,160,0,32,228,255,153,160,4,200,192,0
  121. 5010 [131]208,245,32,204,255,96,0,0,0,162,2,32,201,255,160,1
  122. 5011 [131]185,160,4,32,210,255,200,192,1,208,245,32,204,255,96,0
  123. 5012 [131]169,0,160,0,153,0,216,153,250,216,153,244,217,153,238,218
  124. 5013 [131]200,192,250,208,239,96,0
  125. 5014 [131]185,160,4,32,210,255,200,192,1,208,245,32,204,255,96,0
  126. 5015 p[178]36864:mrk[178]p
  127. 5016 [135]a:[139]a[177][171]1[167][151]p,a:p[178]p[170]1:[137]5016
  128. 5017 [151]36915,6:[151]36952,6:[143] merkkigeneraattorit
  129. 5018 [151]36957,81:[151]36930,139:[143] raidat
  130. 5019 [158]mrk:[142]
  131. 5020 [131]120,169,129,141,26,208,169,32,141,20,3,169,144,141,21,3
  132. 5021 [131]169,127,141,13,220,173,17,208,41,127,141,17,208,88,96,234
  133. 5022 [131]173,25,208,41,1,208,3,76,49,234,141,25,208,173,24,208
  134. 5023 [131]41,14,201,4,240,28,173,24,208,41,240,13,51,144,141,24
  135. 5024 [131]208,169,58,141,18,208,173,17,208,41,127,141,17,208,76,49
  136. 5025 [131]234,0,173,24,208,41,240,9,6,141,24,208,169,128,141,18
  137. 5026 [131]208,173,17,208,41,127,141,17,208,76,49,234,0,0,0,-1
  138.