home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 47 / 047.d81 / st.main (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  17KB  |  493 lines
  1. 0 print"[147]"chr$(142):gosub63000:poke53248+21,.:goto100
  2. 1 poke781,r%:poke782,c%:poke783,peek(783)and254:sys65520:return
  3. 2 poke783,peek(783)or1:sys65520:r%=peek(781):c%=peek(782):return
  4. 3 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";:return
  5. 4 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:return
  6. 5 open15,a%,15:close15:b=abs(st):return
  7. 6 r%=22:c%=1:gosub1:print"[196]evice [206]ot [208]resent! [159][195]heck & [212]ry [193]gain!
  8. 7 [158]so,1,15,65,5,10,1,1,10,10:[142]
  9. 8 [159]15,dv%,15:[132]15,er%,er$,tr%,se%:[160]15:[142]
  10. 9 [141]74:r%[178]22:c%[178]1:[141]1:[153]"valrror: def"er%[163]10)er$[163]32)tr%se%:[142]
  11. 10 mw[178]mw[170]1:fr(mw)[178]fr:fc(mw)[178]fc:tr(mw)[178]tr:tc(mw)[178]tc:ad(mw)[178]ad
  12. 12 ::[158] wi,fr,fc,tr,tc,ad,fu,bc,.
  13. 14 ad[178]ad[170]((tr[171]fr[170]1)[172](tc[171]fc[170]1)[172]2):[142]
  14. 15 [139]mw[178].[167][142]
  15. 17 ::[158] wi,fr(mw),fc(mw),tr(mw),tc(mw),ad(mw),8,.,.
  16. 19 ad[178]ad[171]((tr(mw)[171]fr(mw)[170]1)[172](tc(mw)[171]fc(mw)[170]1)[172]2):mw[178]mw[171]1:[142]
  17. 20 ::[158] wi,fr(mw),fc(mw),tr(mw),tc(mw),ad(mw),4,bc,.
  18. 21 bc[178]bc[170]1:[139]bc[177]14[167]bc[178].
  19. 22 [142]
  20. 25 hi[178][181](nu[173]256):lo[178][181](nu[171]hi[172]256):[142]
  21. 30 fr[178].:fc[178].:tr[178]6:tc[178]39:bc[178]8:fu[178]7:[141]10
  22. 32 [153]"  str$isk valrror:def"er""er$
  23. 33 [153]"(NULL)rack/(NULL)ector: def"tr"/"se
  24. 34 [153]"         cont(NULL)ress: openasc3 - cont(NULL)ry atngain"
  25. 35 [153]"                openasc5 - contatnbort"
  26. 36 [161]a$:[139]a$[178]"dim"[167]ok[178][171]1:[142]
  27. 38 [139]a$[178]"read"[167]ok[178].:[142]
  28. 39 [137]36
  29. 40 sp[178]sp[170]is:[139](sp[178]196)[167]is[178][171]is:[142]
  30. 41 [151]po,sp:[151]vi[170]21,1:[139](sp[178]192)[167]43
  31. 42 [142]
  32. 43 [151]vi[170]21,.:[151]vi[170]39,1:[151]vi,.:sx[178][181]([187](1)[172]265)[170]40:sy[178][181]([187](1)[172]20)[170]47
  33. 44 [139]sx[177]255[167]sx[178]sx[171]256:[151]vi[170]16,1:[137]46
  34. 45 [139]sx[179]256[167][151]vi[170]16,.
  35. 46 is[178][171]is:[151]vi,sx:[151]vi[170]1,sy:c[178][181]([187](0)[172]80):[142]
  36. 47 [161]#8,a$:ct%[178]ct%[170]1:[139](nt%[178].)[175](ns%[178]255)[175](ct%[177]250)[167]en%[178][171]1:[142]
  37. 48 [139]ct%[179]256[167][142]
  38. 49 [152]15,"ua:8 0 18"[196](ns%):ct%[178].:[152]15,"b-p:8 0":[142]
  39. 50 [153]"to";:a$[178]"":[151]198,.:[129]a[178]1[164]nc[170]1
  40. 52 [161]b$:[139]b$[178]""[167]52
  41. 54 [139]b$[178][199](13)[167]68
  42. 56 [139](b$[178][199](20))[175](a[177]1)[167]a[178]a[171]1:[153]"cmdcmd  cmdcmdto";:a$[178][200](a$,a[171]1):[137]52
  43. 58 [139](a[178]nc[170]1)[176](b$[178][199](34))[167]52
  44. 59 [139](b$[177][178]"0")[175](b$[179][178]"9")[167]66
  45. 60 [139]nc%[167]52
  46. 61 [139](b$[177][178]":")[175](b$[179][178]"_")[167]66
  47. 62 [139](b$[177][178]"atn")[175](b$[179][178]"(NULL)")[167]66
  48. 63 [139](b$[177][178]" ")[175](b$[179][178]"/")[167]66
  49. 64 [137]52
  50. 66 [153]"cmd"b$"to";:a$[178]a$[170]b$:[130]
  51. 68 [153]"cmd ":[142]
  52. 72 r%[178]18:c%[178]1:[141]1:[153]"                                      ":[141]1:[142]
  53. 74 r%[178]22:c%[178]1:[141]1:[153]"                                      ":[141]1:[142]
  54. 75 [153]"listortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  55. 76 [153]"list(NULL)      close<tantan (NULL)umber of blocks tantan>       list(NULL)";
  56. 77 [153]"list(NULL)   cont5   10   15   20   25   30   35    list(NULL)";
  57. 79 [153]"list-===(NULL)====(NULL)====(NULL)====(NULL)====(NULL)====(NULL)====(NULL)====<print";:[142]
  58. 80 r%[178]16:c%[178]12:[141]1:[153]"open "bd$(bd%)
  59. 81 c%[178]35:[141]1:[153]dv%"cmd "
  60. 82 r%[178]17:c%[178]10:[141]1:[153]dp$([194](te[170]3))
  61. 83 c%[178]34:[141]1:[153]"    cmdcmdcmdcmd"[194](51224)
  62. 84 [141]98:r%[178]18:c%[178]32:[141]1:[153]"sys"35840[171]bp:[151]198,.:[142]
  63. 85 a%[178]4:[141]5:[139]st[178].[167][153]" cmd";:[159]4,4,7:[158]sd:[152]4:[160]4
  64. 86 [142]
  65. 90 ::[158]so,1,5,65,10,40,8,10,11,10
  66. 91 [142]
  67. 92 ::[158]so,1,15,65,10,10,8,10,8,10
  68. 93 ::[158]so,2,15,65,10,10,8,10,8,10
  69. 94 [142]
  70. 95 [129]z[178]50[164]100[169]5:y[178][194](53280):[151]53280,2
  71. 96 ::[158]so,7,15,33,z,z,.,.,10,10
  72. 97 [151]53280,y:[130]:[151]54276,.:[151]54283,.:[151]54290,.:[142]
  73. 98 bp[178][194](63)[170][194](64)[172]256:[142]
  74. 99 [129]a[178]1[164]100:[130]:[151]198,.:[142]
  75. 100 [151]56576,([194](56576)[175]252)[176]1
  76. 110 [151]53265,27:[151]53270,200:[151]53272,59:[151]648,140
  77. 130 [151]53280,.:[151]53281,.:[151]650,128:bd%[178]1:[151]787,.:[151]2,.
  78. 330 [139]bd%[178].[167][159]5,2,3,[199](.)[170][199](.)[170][199](61)[170][199](1):bd%[178]1:[137]350
  79. 340 [159]5,2,3,[199](6)[170][199](0):bd%[178].
  80. 350 [151]51,.:[151]52,80:[151]55,.:[151]56,80
  81. 354 [141]61000
  82. 355 [139][194](sc)[179][177]112[167][141]60000
  83. 360 c[178]0:[141]80:[151]198,.
  84. 370 [158]uc:[161]a$:[139](a$[179][177]"")[167]b[178][198](a$)[171]132:[139]b[177].[175]b[179]9[167]a[178]64:[137]380
  85. 371 a[178][194](203):[139](a[178]28)[176](a[178]41)[176](a[178]18)[176](a[178]39)[167]380
  86. 373 c[178]c[171]1:[139](c[179]1)[167][141]40
  87. 376 [137]370
  88. 380 [151]vi[170]21,.:sh[178]192:[139]a[179][177]64[167]400
  89. 385 [141]98
  90. 390 [145]b[137]1000,3000,5000,7000,2000,4000,6000,8000
  91. 400 b[178].:[151]198,.
  92. 410 [139]a[178]39[167]dv%[178]dv%[170]1:[139]dv%[177]11[167]dv%[178]8
  93. 415 [151](op[170]3),dv%
  94. 420 [139]a[178]18[167][151]te[170]3,[194](te[170]3)[170]1:[139][194](te[170]3)[178]2[167][151]te[170]3,.
  95. 430 [139]a[179][177]28[167]448
  96. 432 [139]bd%[178].[167][160]5:bd%[178].:[137]330
  97. 434 [160]5:bd%[178]1:[137]340
  98. 448 [139]a[179][177]41[167]600
  99. 450 fr[178]15:fc[178].:tr[178]19:tc[178]39:fu[178]7:bc[178]1:[141]10
  100. 460 r%[178]16:c%[178]5:[141]1:[153]"forlenurrent (NULL)(NULL)(NULL)(NULL)val(NULL) peeklock (NULL)ize:sys"[194](51224)
  101. 470 [153]"cont(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)cont alone to make no changes."
  102. 480 [153]"contvalnter new block size:   cmdcmdcmd";:nc[178]3:nc%[178]1:[141]50:nc%[178].
  103. 490 [139]a$[178]""[167][141]15:[137]600
  104. 500 a%[178][197](a$):[139]a%[179]40[176]a%[177]255[167][153]"on";:[137]480
  105. 510 [151]51224,[197](a$):[141]15
  106. 600 [141]80:[137]370
  107. 999 [144]
  108. 1000 [151]53280,ct(1):[151]53281,ct(2):[151]646,ct(3)
  109. 1005 [153]"load        ortan<(NULL)val(NULL)(NULL)right$(NULL)atn(NULL)  len(NULL)(NULL)(NULL)atn(NULL)str$(NULL)-tan^"
  110. 1010 [153]"ortantantantantantantan>tantantantantantantantantantantan=tantantantantantantantantantan>tantantantantantantan^";
  111. 1020 [153]"(NULL)asc1 - (NULL)ain (NULL)enu     (NULL)asc2 - (NULL)rint (NULL)creen (NULL)";
  112. 1030 [153]"(NULL)asc3 - (NULL)pen peekuffer   (NULL)asc4 - lenlear peekuffer (NULL)";
  113. 1040 [153]"(NULL)asc5 - lenlose peekuffer  (NULL)asc6 - (NULL)ransfer peekasc(NULL) (NULL)";
  114. 1050 [153]"(NULL)asc7 - (NULL)oad/(NULL)ave peekasc(NULL) (NULL)asc8 - (NULL)rint peekuffer (NULL)";
  115. 1060 [153]"/tantantantantantantantantantantantantantantantantantantan>tantantantantantantantantantantantantantantantantantanexp";
  116. 1070 [129]a[178]217[164]242:[151]a,[194](a)[176]128:[130]
  117. 1080 [159]3,3:[159]1,.:[158]te:[160]3:[160]1
  118. 1091 [139][194](2)[178]133[167]1110
  119. 1092 [139][194](2)[178]137[167][141]85
  120. 1093 [139][194](2)[178]134[167][141]13000
  121. 1094 [139][194](2)[178]138[167][141]14000
  122. 1095 [139][194](2)[178]135[167][141]15000
  123. 1096 [139][194](2)[178]139[167][141]16000
  124. 1097 [139][194](2)[178]136[167][141]17000
  125. 1098 [139][194](2)[178]140[167][141]18000
  126. 1099 [139][194](2)[178]255[167][141]19000
  127. 1100 [151]198,.:[137]1080
  128. 1110 ct(1)[178][194](53280):ct(2)[178][194](53281):ct(3)[178][194](646)
  129. 1130 [151]53280,.:[151]53281,.:[137]355
  130. 2000 fr[178]15:fc[178].:tr[178]19:tc[178]39:fu[178]7:bc[178]1:[141]10
  131. 2010 r%[178]16:c%[178]12:[141]1:[153]"systantan (NULL)et lenlock tantan"
  132. 2020 [153]"(NULL)ress def(NULL)val(NULL)(NULL)(NULL)(NULL) alone to zero.":[153]
  133. 2030 [153]"oncontvalnter the hour:  cmdcmd";:nc[178]2:nc%[178]1:[141]50:nc%[178].:th[178][197](a$)
  134. 2037 th[178].:[139][195](a$)[177]1[167]th[178]16
  135. 2038 h[178][197]([201](a$,1)):th[178]th[170]h:[151]56331,th
  136. 2040 [153]"oncontvalnter the minute:  cmdcmd";:nc%[178]1:[141]50:nc%[178].:tm[178][197](a$)
  137.