home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1989 July & August / rerun-1989-07-08.d64 / runshell.hex (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  32KB  |  485 lines
  1. 0 rem this list 1 creates (and should not be called) run shell
  2. 5 open 8,8,8,"run shell,p,w"
  3. 6 ct=0:print"[147]"
  4. 10 read a$:if a$="-1" then close8:print:print"all done!":end
  5. 12 print"reading line "+str$(ct):ct=ct+1
  6. 15 if len(a$)<62 then 55
  7. 20 b$=mid$(a$,1,20)+mid$(a$,22,20)+mid$(a$,43,20)
  8. 25 for i=1 to 30
  9. 30 c$=mid$(b$,(i*2)-1,2):h$=left$(c$,1):l$=right$(c$,1)
  10. 35 h=val(h$):if h$>"9" then h=asc(h$)-55
  11. 40 l=val(l$):if l$>"9" then l=asc(l$)-55
  12. 45 by=h*16+l:print#8,chr$(by);
  13. 50 next:goto 10
  14. 55 if len(a$)<21 then b$=a$:goto 70
  15. 60 if len(a$)<42 then b$=left$(a$,20)+right$(a$,(len(a$)-21)):goto 70
  16. 65 b$=left$(a$,20)+mid$(a$,22,20)+right$(a$,len(a$)-42)
  17. 70 for i=1 to len(b$)/2
  18. 75 c$=mid$(b$,(i*2)-1,2):h$=left$(c$,1):l$=right$(c$,1)
  19. 80 h=val(h$):if h$>"9" then h=asc(h$)-55
  20. 85 l=val(l$):if l$>"9" then l=asc(l$)-55
  21. 90 by=h*16+l:print#8,chr$(by);
  22. 95 next:goto 10
  23. 100 rem run's c64 & c128 dos shell
  24. 101 data 00134c43134ca0130000*00000000000000000000*00000000000000000000
  25. 102 data 00000000000000000000*00000000000000000000*00000000000000000023
  26. 103 data 3124303a5a2d5c3d55a2*088e4e388e4f388e5238*8e5338a2008e50388e51
  27. 104 data 388eac38ad00a0f02120*e416a9008d3b3820a516*20f916a900852ba95085
  28. 105 data 2ca9008d00502042a64c*a01320e416a9018d3b38*208f1620f916a900852d
  29. 106 data a950852ea9008d005020*d951782081ff5820d332*20e7ffa9b78d3c03ad3b
  30. 107 data 38d008a9808d8a024cca*13a5d7302b20f91620c4*7720e416a9d5859ea938
  31. 108 data 859fa9008d3238a9288d*3438a90f8d21d0a90e8d*20d020102b4c0e1420f9
  32. 109 data 1620b37720e416a9c185*9ea938859fa9018d3238*a9508d3438a90fa21a20
  33. 110 data 7716ad32388d3338a900*8d60388d4d388d63388d*54388d68388d6b388d67
  34. 111 data 388d6c388d6e388d6f38*8d70388d75388d78388d*81388dae388dba388d85
  35. 112 data 38aa9d004ae8d0fa202c*16ad7638f014201a2b20*0b2bae3238bd893fa8a2
  36. 113 data 07a91f20111aadac38d0*034ce514ad04df48ad05*df48ad06df4820112d20
  37. 114 data 5a28a9008dac38688d06*df688d05df688d04df4c*e514ad3b38d022a5cbc9
  38. 115 data 04f0faa90085c6a99320*d2ffa9068d21d0201a2b*a90e8d860220a5164ccd
  39. 116 data 16a9ad8d3c0320f91678*2056e02009e12000c058*207a41200340a20f206b
  40. 117 data ff8d00ff6c000a20e1ff*d010ad7638f00b200f20*a9008d763820062e20cc
  41. 118 data ff20e4fff0e3c985f094*c920f0062078154ce514*ad3e38d00620312d4ca0
  42. 119 data 13c909d00620471a4ca0*13c903d00620302b4ca0*13c904d0062018364ca0
  43. 120 data 13c902d006204b364ca0*13c901d00620f4364ca0*13c907d00620372f4ca0
  44. 121 data 13c905d0062015264ca0*13c906d00620a73f4ca0*13c908d006209a174ca0
  45. 122 data 134ce514a003d97b39f0*048810f86098d00ead3e*38f01d8d3f38ce3e384c
  46. 123 data 0416c901d011ad3e38c9*09f0d68d3f38ee3e384c*041660c902d02dad3438
  47. 124 data c950f013ad3e38c905b0*ba8d3f381869058d3e38*4c0416ad3e38c907b0da
  48. 125 data 8d3f381869038d3e384c*0416ad3438c950f013ad*3e38c90590c08d3f3838
  49. 126 data e9058d3e384c0416ad3e*38c90390ad8d3f3838e9*038d3e3820102b20152b
  50. 127 data ad3f38201a16201a2bad*3e38201a16608d3c380a*a8b19eaac8b19ea82009
  51. 128 data 364cf019a9e9859ba938*859c208c3520102b2015*2b20c919ad3438c950f0
  52. 129 data 0ca901a200a00120111a*4c6516a901a200a00120*111aa902a200a0292011
  53. 130 data 1a201a2b20102ba9008d*3e388d3f38201a16608e*00d62c00d610fb8d01d6
  54. 131 data 608e00d62c00d610fbad*01d660a98585faa93985*fba90f85fca9faa00fa2
  55. 132 data 012065ff6078a9b28d14*03a9168d15035860ad8d*02c901f011a5cbc904d0
  56. 133 data 0b78208aff686868584c*a0134c31ea20f9166c02*a0ad3438c950f009a200
  57. 134 data a001a90220111a60ad3b*38f009a90e8d01d58d01*ff60a50129fe850160ad
  58. 135 data 3b38f00ca20f206bff8d*01d58d01ff60a5010901*85016020e1ffd00fad33
  59. 136 data 388d323868686868ee54*38386020e4fff0e7c920*d0021860ae4a38f016c9
  60. 137 data 11f00cc991d0d4ad3e38*f0cf4c6e17ad72384c5b*17ae4b38f0c1c99df015
  61. 138 data c91dd0b9ad4c38cd3e38*f0b1201a2eee3e384c11*17ad3e38f0a3ee4d3820
  62. 139 data 1a2ece3e384c111720e1*ffd002386020e4ff1860*ae3b38bd6f398d280360
  63. 140 data ae3b38bd71398d280360*a2018e6b388e67388eba*38ca8e54388aa2059dbb
  64. 141 data 38ca10fa202733b005a9*008d3e38ae3e38bd4e38*8d5238bd5038c903d003
  65. 142 data 4cb81820f02d20d31620*5d1aad5438f0034cb818*20b232ae3e3820be1820
  66. 143 data 8533ad5438f0034cce32*a20120c6ffa000ad7b38*c953d00ba9008dbb388d
  67. 144 data bc384c191820cfff8dbb*3820cfff8dbc3820cfff*20b7ffd00beebd38d0f3
  68. 145 data eebe384c191820ccff20*853320ce32ad5438f003*4cb81818adbb386dbd38
  69. 146 data 8dbf38adbc386dbe388d*c038201a2b20062eae32*38bd8f3fa8a207a93320
  70. 147 data 111aadbb388d5538adbc*388d563820983220af18*a9348d3d3820171aadbf
  71. 148 data 388d5538adc0388d5638*20983220af18a9358d3d*3820171aadbd388d5538
  72. 149 data adbe388d563820983220*7a1790fb4cb818a92020*d2ff20d2ff60a9008dba
  73. 150 data 3860a0018c6e388e6d38*201c208a48c8b1928d7b*38e8e8e8e88e061368aa
  74. 151 data a92c9d0a13e8ad7b389d*0a13e8a92c9d0a13e8a9*529d0a13201724208533
  75. 152 data 60ad3b38f0034c8619a9*b885fa85fca90585fba9*d985fd209f19a20da005
  76. 153 data b1fa48b1fc4820b41968*91fc6891fa209f19c8c0*28d0e9209f19cad0e1a2
  77. 154 data 18a0002009364cffe9ad*3b38f0034c9019a9288d*3538a9c085fa85fca907
  78. 155 data 85fba9db85fd20b419a2*0da005b1fa48b1fc4820*9f196891fc6891fa20b4
  79. 156 data 19c8c028d0e920b419ca*d0e1a20ba0002009364c*ffe9a20ca0002009364c
  80. 157 data dcc3a20ba00020093620*3dcaa20b4c85cb18a5fa*692885fa85fca5fb6900
  81. 158 data 85fb1869d485fd6038a5*fae92885fa85fca5fbe9*0085fb1869d485fd60a9
  82. 159 data 008d3c388d3738ac3738*b19eaac8b19ec88c3738*a820093620f019ee3c38
  83. 160 data ad3c38c90a90e260a000*b19bcd3c38f004c84cf2*19c8b19bf00720d2ffc8
  84. 161 data 4cfe1960e6a7d002e6a8*608d3d38200936a9ab85*a7a93985a84c251a2009
  85. 162 data 36a000b1a7cd3d38f00d*200a1ab1a7d0f9200a1a*4c251ac8b1a7f00620d2
  86. 163 data ff4c3b1a60202733b005*a9008d3e38ae3e38bd4e*388d523820062e200834
  87. 164 data ad5438f00160ad6f38d0*12ae6638bd5038c902d0*08adba38d00320321fad
  88. 165 data 6f38f00c20d316201a2b*20f02d20152b20f33420*9c1cad5438d021ad5d38
  89. 166 data f01c20e31da90b8d6138*a2008e6238e88e3e38ad*7838d00320fa1e20bb1a
  90. 167 data 60ad7838f0016020eaff*20e1ffd00fadba38f004*ee5438606868ee543860
  91. 168 data 20e4ff8d3d38f0dbc920*d037ad6738d008ad6f38*d0034c641bad3e388d6d
  92. 169 data 3820691fb01cad6f38d0*09a2008e6738e88e6c38*ad7038f00920f42e20a7
  93. 170 data 37200b2f4cbb1aad6b38*f044ad6838f03fad3d38*c987d023ae3e38bd004a
  94. 171 data f030a9009d004aa9008d*6c38ce683820791fad6f*38d003ee67384cbb1aad
  95. 172 data 3d38c988d00ead6c38f0*034cd31fad6f38f00160*ad3d38c911f00ac991d0
  96. 173 data 034c061c4cbb1aad3e38*cd5d38b0f5ad6138c918*9010ad3238f005ad6238
  97. 174 data f00620cb1b4c721b201e*1fad6138c919b010ee3e*38ad3238f005ad6238f0
  98. 175 data 03ee6138ad3238f00aad*6238d005a9284cbf1ba9*008d623820fa1e4cbb1a
  99. 176 data 4cbb1aee6038201e1f20*f91820102ba9188d4138*a0078c4238ad3e388d5f
  100. 177 data 3820fb1da9008d6038ad*3238f008ad623849288d*6238ee3e3820fa1e604c
  101. 178 data bb1aad3e38c901f0f6ad*6138c90bd00dad3238f0*05ad6238d0034c4c1c20
  102. 179 data 1e1fad3238f012ad6238*d005a9284c3d1ca9008d*62384c431ca9008d6238
  103. 180 data ce613820fa1ece3e384c*bb1a201e1fee6038203d*19ad3238f003ce3e38ce
  104. 181 data 3e38ce3e3820102ba90b*8d4138a0078c4238ad3e*388d5f3820fb1da9008d
  105. 182 data 6038ad3238f008ad6238*49288d6238ad3238f003*ee3e3820fa1eee3e384c
  106. 183 data bb1aae6638bd5038c903*d032ad8c388d5d38a900*8d8d38a9628d8e38ad04
  107. 184 data df48ad05df48ad06df48*20112d207928688d06df*688d05df688d04dfeeac
  108. 185 data 386020861720b232a902*8d0613a9248d0a13a930*8d0b13a9008d5738a920
  109. 186 data 85fea94d85ff20d93220*9017208533ad5438f004*20d3326020d332a2008e
  110. 187 data 5d38e88e5c38a03cb1fe*d00160a90085928d8d38*a94d85938d8e3838ad58
  111. 188 data 38e9208d5838ad5938e9*008d5938205235a000ad*5c389192c88c5a382060
  112. 189 data 35a000b1fe9192c8b1fe*9192c88c5a38b1fec8c9*22d0f9b1fec922f0138c
  113. 190 data 5b38ac5a389192c88c5a*38ac5b38c84c651dc88c*5b38ac5a38a9ff9192ee
  114. 191 data 5a38ac5b38b1fec920d0*04c84c8f1da203b1fe8c*5b38ac5a389192ee5a38
  115. 192 data ee5b38ac5b38cad0eaac*5a38a9009192ee5a3820*523520603538ad5838e5
  116. 193 data fe8d4038ad5938e5ff0d*4038f00b9009ee5c38ee*5d384c411dee5d3860a9
  117. 194 data 0a8d4138a9008d5f3820*102b201a2bee4138a007*8c4238ae4138ee5f3820
  118. 195 data 0936ad5f3820471ead5f*38cd5d38b034ad3238f0*23ad6038d007ad5f38c9
  119. 196 data 1cb023ad4238c92f9008*ad6038d0174cf31da02f*8c42384cfb1dad6038d0
  120. 197 data 07ad5f38c90ed0ad608d*0613ad8d388592ad8e38*8593a000b192cd0613f0
  121. 198 data 20c8c8c8b192f004c84c*601ec88c3d3818a5926d*3d388592a59369008593
  122. 199 data 4c541ead6e38f004c8c8*c860c8b1928d5538c8b1*928d5638c88c5a382098
  123. 200 data 32ae0613bd004af00320*152b18ad423869058d42*38a8ae4138200936ac5a
  124. 201 data 38a200b192c9fff00820*d2ffc8e84cb91ee010b0*09a92020d2ffe84cc71e
  125. 202 data 201a2bc88c5a3