home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 68 / 068.d81 / bytes (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  136 lines
  1. 10 poke53281,0:poke53280,0:print"[147]"
  2. 20 :
  3. 30 :rem * default parameters/variables
  4. 40 :
  5. 50 dr=8:dr$=str$(dr)
  6. 60 od=1:od$=str$(od)
  7. 70 it=1:it$=str$(it)
  8. 80 en=52:en$="52"
  9. 90 of=53:of$="53"
  10. 100 :
  11. 110 :rem   ***   main menu   ***
  12. 120 :
  13. 130 print"[147][129]    [212]he [150][209]&[196][129] [215]ay [214]s[129] the [150][204][207][193][196][211][212][193][210][129] [215]ay"
  14. 140 print"[159]    [194][193][211][201][195] 2.0 has some commands that"
  15. 150 print" make it very easy to do certain"
  16. 160 print" things in a program, such as ask for"
  17. 170 print" parameters and display them.  [201]f you"
  18. 180 print" are writing a program that only you"
  19. 190 print" will be using, the [209]&[196] way is best."
  20. 200 print" [200]owever, if you are writing for other"
  21. 210 print" users, you should consider using the"
  22. 220 print" friendly [204][207][193][196][211][212][193][210] method."
  23. 230 print"    [212]hese two examples show two ways of"
  24. 240 print" asking for a drive number, output"
  25. 250 print" device, italics status, and the escape"
  26. 260 print" code for italics on and off on your"
  27. 270 print" printer.
  28. 280 [153]"          cont((NULL)cont)uick and str$irty way
  29. 290 print"          ([204][154])[207][193][196][211][212][193][210] way
  30. 300 [153]"          ((NULL)cont)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  31. 310 [161]a$:[139]a$[179][177]"q"[175]a$[179][177]"l"[175]a$[179][177]"r"[167]310
  32. 320 [139]a$[178]"r"[167]1280
  33. 330 [139]a$[178]"q"[167]390
  34. 340 [139]fl[167]750
  35. 350 fl[178]1:[137]570
  36. 360 :
  37. 370 :[143]    *** the q&d way ***
  38. 380 :
  39. 390 [153]"loadfor        (NULL)he def(NULL)(NULL)right$len(NULL)for and defstr$right$(NULL)(NULL)(NULL) for(NULL)ay"
  40. 400 [151]214,22:[153]:[153]"  open(NULL)ress (NULL)(NULL)(NULL)(NULL)open legal and reasonable keys"
  41. 410 [153]"openstr$rive number (8 - 11) "dr"cmdcmdcmdcmd";:[133]dr
  42. 420 [153]"open(NULL)utput to (1) (NULL)creen (2) (NULL)rinter "od"cmdcmdcmdcmd";:[133]od
  43. 430 [153]"openright$talics (1) valnabled (2) str$isabled "it"cmdcmdcmdcmd";:[133]it
  44. 440 [153]"openright$talics valscape code (NULL)(NULL) "en"cmdcmdcmdcmdcmd";:[133]en
  45. 450 [153]"openright$talics valscape code (NULL)ascasc "of"cmdcmdcmdcmdcmd";:[133]of
  46. 460 [153]"    open(NULL)ress (NULL)(NULL)atnlenvalopen to see the code."
  47. 470 [153]"    (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)open to return to the menu"
  48. 480 [161]a$:[139]a$[179][177]" "[175]a$[179][177][199](13)[167]480
  49. 490 [139]a$[178][199](13)[167]130
  50. 500 [153]"load"
  51. 510 [151]214,16:[153]:[153]"stopgoto470open"
  52. 520 [151]631,13:[151]198,1
  53. 530 [155]410[171]450
  54. 540 :
  55. 550 :[143]   *** the loadstar way ***
  56. 560 :
  57. 570 [153]"load"
  58. 580 b$(0)[178]"ortantantantantantantantantantantantantantantantantantantantantantantan^"
  59. 590 b$(1)[178]"(NULL)                       (NULL)"
  60. 600 b$(2)[178]"-tantantantantantantantantantantantantantantantantantantantantantantan<"
  61. 610 b$(3)[178]"/tantantantantantantantantantantantantantantantantantantantantantantanexp"
  62. 620 d$(0)[178]"     str$rive number      "
  63. 630 d$(1)[178]"   (NULL)utput to           "
  64. 640 d$(2)[178]"   right$talics             "
  65. 650 d$(3)[178]" (NULL)rinter lenode (NULL)(NULL) =     "
  66. 660 d$(4)[178]"(NULL)rinter lenode (NULL)ascasc =     "
  67. 670 d$(5)[178]"    (NULL)eturn to (NULL)enu     "
  68. 680 e(0)[178]27:e$(0)[178]"8"
  69. 690 e(1)[178]22:e$(1)[178]"(NULL)creen"
  70. 700 e(2)[178]20:e$(2)[178]"valnabled"
  71. 710 e(3)[178]28:e$(3)[178]en$
  72. 720 e(4)[178]28:e$(4)[178]of$
  73. 730 e(5)[178]9:e$(5)[178]"sys"[170]d$(5)
  74. 740 n[178]8
  75. 750 [153]"loadfor            (NULL)he def(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)for (NULL)ay"
  76. 760 [153]"clr":[153][163]n)b$(0)
  77. 770 [129]i[178]0[164]4
  78. 780 [153][163]n)b$(1)
  79. 790 [153][163]n)b$(2)
  80. 800 [130]
  81. 810 [153][163]n)b$(1)
  82. 820 [153][163]n)b$(3)
  83. 830 [151]214,3:[153]
  84. 840 [129]i[178]0[164]5
  85. 850 [153]"open":[153][163]n[170]1)d$(i)
  86. 860 [153]"on"[163]e(i))e$(i)
  87. 870 [130]
  88. 880 [151]214,20:[153]:[153]"open       (NULL)se len(NULL)(NULL)(NULL) (NULL)(NULL)/str$(NULL)(NULL)(NULL) openand (NULL)val(NULL)(NULL)(NULL)(NULL)"
  89. 890 y[178]0
  90. 900 [151]214,(2[172]y)[170]4:[153]
  91. 910 [153][163]e(y))"sys"e$(y)"on"
  92. 920 [161]a$:[139]a$[179][177]"on"[175]a$[179][177]""[175]a$[179][177][199](13)[167]920
  93. 930 [139]a$[178][199](13)[167]970
  94. 940 [139]a$[178]"on"[167][153]""[163]e(y))e$(y):y[178]y[171]1:[139]y[179]0[167]y[178]5
  95. 950 [139]a$[178]""[167][153]""[163]e(y))e$(y):y[178]y[170]1:[139]y[177]5[167]y[178]0
  96. 960 [137]900
  97. 970 [153][163]e(y));:[145]y[170]1[137]980,1000,1040,1080,1100,1120
  98. 980 l9%[178]2:[153]"  cmdcmd";:[141]1160:[139]q9[179]8[176]q9[177]11[167]830
  99. 990 dr$[178]q9$:e$(0)[178]dr$:[137]830
  100. 1000 od[178]3[171]od
  101. 1010 [139]od[178]1[167]e$(1)[178]"(NULL)creen "
  102. 1020 [139]od[178]2[167]e$(1)[178]"(NULL)rinter"
  103. 1030 [137]900
  104. 1040 it[178]3[171]it
  105. 1050 [139]it[178]1[167]e$(2)[178]"valnabled "
  106. 1060 [139]it[178]2[167]e$(2)[178]"str$isabled"
  107. 1070 [137]900
  108. 1080 l9%[178]3:[153]"   cmdcmdcmd";:[141]1160
  109. 1085 [139]q9[179]1[176]q9[177]255[167][153][163]e(y))"on    cmdcmdcmdcmd";:[137]900
  110. 1090 en$[178]q9$:e$(3)[178]en$:[137]900
  111. 1100 l9%[178]3:[153]"   cmdcmdcmd";:[141]1160
  112. 1105 [139]q9[179]1[176]q9[177]255[167][153][163]e(y))"on    cmdcmdcmdcmd";:[137]900
  113. 1110 of$[178]q9$:e$(4)[178]of$:[137]900
  114. 1120 [137]130
  115. 1130 :
  116. 1140 :[143]   *** our get routine ***
  117. 1150 :
  118. 1160 q9$[178]"":u9[178]53280:[151]198,0
  119. 1170 [161]a$
  120. 1180 [151]646,[187](1)[172]15[170]1:[153]"tocmd";:[139]a$[178]""[167]1170
  121. 1190 [139]a$[178][199](13)[167][153]" ":q9[178][197](q9$):[142]
  122. 1200 [139](a$[178][199](20)[175][195](q9$))[167]q9$[178][200](q9$,[195](q9$)[171]1):[137]1240
  123. 1210 [139][195](q9$)[177][178]l9%[167]t9%[178][194](u9):[151]u9,1:[151]u9,t9%:[137]1170
  124. 1220 [139]a$[179]" "[176](a$[177][199](127)[175]a$[179][199](160))[176]a$[178][199](34)[167]1170
  125. 1230 q9$[178]q9$[170]a$
  126. 1240 [153]""a$;:[137]1170
  127. 1250 :
  128. 1260 :[143]   *** quit to loadstar ***
  129. 1270 :
  130. 1280 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  131. 1290 [139]er[179][177]63[167][153]"load":[128]
  132. 1300 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  133. 1310 [153]"run"
  134. 1320 [151]631,13:[151]632,13:[151]198,2:[128]
  135. 10000 [159]15,8,15,"s0:bytes":[160]15:[148]"0:bytes",8:[128]
  136.