home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk UserVolume 4 #7 / Commodore_Disk_User_Vol.4_7_1991_-.d64 / busidemo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  189 lines
  1. 1 rem"***************************************
  2. 2 [143]"* busibasic desktop      fergal moane *
  3. 3 rem"***************************************
  4. 10 [219]:[247]:[221]:[153][199](8):[208]"i"
  5. 15 [242]14,14,6
  6. 16 [151]39550,09:[143] slow joy command down:poke$902c,$79
  7. 17 [151]51,0:[151]52,144:[151]55,0:[151]56,144:[156]
  8. 20 [243] 0,0:[153]"peek disk peekpeek view peekpeekspecialpeek               "
  9. 21 [139] st[178]64 [167] [137] 70
  10. 30 [244] 1024,40
  11. 40 [243] 22,0:[153]"busibasic desktop       first principles"
  12. 50 [244] 1904,40
  13. 60 .proc clear:.proc dspace
  14. 65 [243] 08,05:[153]"first principles software"
  15. 66 [243] 10,05:[153]"fergal moane"
  16. 67 [243] 12,05:[153]"steven downey"
  17. 68 [243] 14,05:[153]"neil mc kearney"
  18. 70 [134] aa$(7),bb$(6),cc$(4),df$(144)
  19. 80 [129] t[178]0 [164] 7 :[135] aa$(t) :[130]
  20. 90 [129] t[178]0 [164] 6 :[135] bb$(t) :[130]
  21. 100 [129] t[178]0 [164] 4 :[135] cc$(t) :[130]
  22. 101 [239]1:[160]15
  23. 105 [143]****main loop****
  24. 110 [206] 9,1:.proc clear
  25. 120 [205]
  26. 125 [139] [194](252)[179]18[175][194](252)[177]6[175][194](251)[179]26[175][194](251)[177]8[167] [137] 3900
  27. 126 [139] [194](251)[178]37 [167]:[208]"i":.proc dspace:[137] 120
  28. 127 [139] [194](252)[178]22 [167]:.proc err[176]:[137] 120
  29. 130 [139] [194](252)[179][177]0 [167] [137] 120
  30. 140 [139] [194](251)[179]8 [167] [137]1000
  31. 150 [139] [194](251)[177]7 [175] [194](251)[179]15 [167] [137]2000
  32. 160 [139] [194](251)[177]14 [175] [194](251)[179]25 [167] [137]3000
  33. 170 [137]120
  34. 1000 [143] **** menu 1 ****
  35. 1001 [204] rt%,aa$(0),0
  36. 1010 tt$[178]aa$(rt%):.proc title(tt$)
  37. 1020 [145] rt% [137]  1100,1200,1300,1400,1500,1600,110
  38. 1030 [137] 120
  39. 1100 [143] ...init...
  40. 1110 .proc sure
  41. 1111 [243] 09,08:[153]"initialising disk"
  42. 1120 [208]"initialise":[160]15
  43. 1130 .proc dspace:.proc err[176]
  44. 1150 [137]110
  45. 1200 [143]...format...
  46. 1210 [216],06,08,"disk name  ",16,n$
  47. 1220 [216],06,11,"id  ",2,id$
  48. 1230 .proc sure
  49. 1250 [159]15,8,15,"n0:"[170]n$[170]","[170]id$
  50. 1260 [243]06,16:[153]"formating disk. please wait"
  51. 1270 [160]15
  52. 1280 .proc dspace.proc err[176]:[137]110
  53. 1300 [143]...rename...
  54. 1310 [216],06,08,"old file  ",16,o$
  55. 1320 [216],06,10,"new file  ",16,n$
  56. 1330 .proc sure
  57. 1350 [159]15,8,15,"r0:"[170]n$[170]"="[170]o$
  58. 1360 [160]15
  59. 1370 .proc err[176]:[137] 110
  60. 1400 [143]...delete...
  61. 1410 [216],06,08,"filename  ",16,s$
  62. 1420 .proc sure
  63. 1440 [159]15,8,15,"s0:"[170]s$:[160]15
  64. 1450 .proc err[176]:[137] 110
  65. 1500 [143]...validate...
  66. 1510 .proc sure
  67. 1530 [208]"v"
  68. 1540 [243] 16,06:[153]"validating disk"
  69. 1550 [160]15:.proc err[176]:[137] 110
  70. 1600 [143]...copy...
  71. 1610 [216],06,08,"filename  ",16,o$
  72. 1620 [216],06,10,"copy name ",16,n$
  73. 1630 .proc sure
  74. 1650 [159]15,8,15,"c0:"[170]n$[170]"="[170]o$
  75. 1660 [160]15
  76. 1670 .proc err[176]:[137] 110
  77. 2000 [143] **** menu 2 ****
  78. 2001 [204] rt%,bb$(0),1
  79. 2010 tt$[178]bb$(rt%):.proc title(tt$)
  80. 2020 [145] rt% [137]  2100,2200,2500,2300,2400,110
  81. 2030 [137] 110
  82. 2100 [143]...dir...
  83. 2101 .proc sure:.proc clear
  84. 2102 [243] 08,06:[153]"reading directory...":[151]51,0:[151]52,144
  85. 2110 [129]t[178]0[164]144:df$(t)[178]"":[130]:[159]1,8,0,"$0"
  86. 2120 [161]#1,a$
  87. 2121 [139] st[178]64 [167] [137] 2170
  88. 2122 [139]a$[179][177][199](34)[167] 2120
  89. 2130 [161]#1,a$:[139]a$[179][177][199](34)[167]d$[178]d$[170]a$:[137]2130
  90. 2140 df$(c)[178]d$:c[178]c[170]1:d$[178]""
  91. 2150 [139] st[178]64 [167] [137] 2170
  92. 2160 [137] 2120
  93. 2170 [160]1:.proc dspace:.proc display
  94. 2200 [143]...list...
  95. 2210 p[178]1:.proc display:[137]120
  96. 2220 .proc sure
  97. 2230 [243] 09,09:[153]"please wait..."
  98. 2240 [159]4,4:[157]4:[155]
  99. 2250 [152]4:[160]4
  100. 2260 .proc clear:[137]120
  101. 2300 [143]...dump...
  102. 2310 .proc sure
  103. 2320 [159]4,4:[152]4,df$(0):[152]4,"----------------":[152]4
  104. 2330 [129]t[178]1[164]c:[152]4,df$(t):[130]
  105. 2340 [152]4:[160] 4
  106. 2350 .proc clear:[137] 120
  107. 2400 [143]...error...
  108. 2410 .proc err[176]
  109. 2420 [137]110
  110. 2500 [143]...sort...
  111. 2510 .proc sure
  112. 2520 [225] df:.proc clear
  113. 2530 .proc display:[137]120
  114. 3000 [143] **** menu 3 ****
  115. 3001 [204] rt%,cc$(0),2
  116. 3010 tt$[178]cc$(rt%):.proc title(tt$)
  117. 3020 [145] rt% [137]  3100,3200,3300,110
  118. 3030 [137] 120
  119. 3100 [143]...restart...
  120. 3110 [137]10
  121. 3200 [143]...busibasic...
  122. 3210 [151]39550,3:[143] restore joy speed
  123. 3220 [219]:[158] 37888:[128]
  124. 3300 [143]...basic 2...
  125. 3310 .proc sure:[249]:[162]
  126. 3900 [143]...load...
  127. 3901 sl[178][194](252):[139] p[179]10 [167] [137] 2100
  128. 3902 [139] df$((p[171]10)[170](sl[171]7))[178]""[167] [137] 120
  129. 3910 [244]1024[170]([194](252)[172]40)[170]5,28
  130. 3920 [243] 04,05:[153]" load selected file "
  131. 3930 .proc sure
  132. 3940 [219]:[153]"load"[170][199](34)[170]df$((p[171]10)[170](sl[171]7))[170][199](34)[170]",8"
  133. 3950 [153]"run":[151]631,19:[151]632,13:[151]633,13:[151]198,3:[249]:[162]
  134. 50000 [143] **** procedures ****
  135. 50001 .[150]proc title(ww$)
  136. 50010 [243] 04,05:[153]"                   "
  137. 50020 [243] 04,06:[153]ww$
  138. 50030 .[128]proc
  139. 50100 .[150]proc clear
  140. 50110 [207] 04,33,03,20,05,19,14,0
  141. 50120 [243] 04,05:[153]"busibasic desktop"
  142. 50125 [243] 00,28:[153]"free:";[184](0)
  143. 50130 .[128]proc
  144. 50200 .[150]proc err[176]
  145. 50210 [243] 22,0:[153]"                             disk status"
  146. 50220 [244]1904,40:[243] 21,0:[208]
  147. 50230 .[128]proc
  148. 50300 .[150]proc sure
  149. 50310 [207] 06,15,15,18,0,0,14,1
  150. 50320 [207] 21,31,15,18,0,0,14,1
  151. 50330 [243] 17,08:[153]"cancel"
  152. 50340 [243] 17,23:[153]"confirm"
  153. 50350 [205]
  154. 50360 [139] [194](252)[179]15 [176] [194](252)[177]18 [167] [137] 50350
  155. 50370 [139] [194](251)[177]5 [175] [194](251)[179]16 [167] :.proc clear:[137] 120
  156. 50380 [139] [194](251)[177]20 [175] [194] (251)[179]32 [167] [137] 50400
  157. 50390 [137] 50350
  158. 50400 .[128]proc
  159. 50500 .[150]proc dspace
  160. 50510 [207] 36,38,4,19,0,0,14,0
  161. 50520 [159]8,8,15:[152]8,"m-r"[199](250)[199](2)
  162. 50530 [161]#8,x$:x$[178]x$[170][199](0)
  163. 50540 [152]8,"m-r"[199](252)[199](2)
  164. 50550 [161]#8,y$:y$[178]y$[170][199](0)
  165. 50560 dspace[178][198](x$)[170]256[172][198](y$)
  166. 50570 [160]8
  167. 50580 [238] 1781,14,([181](dspace[173]6))
  168. 50590 .[128]proc
  169. 50600 .[150]proc display
  170. 50610 d[178]07:p[178]1:[243]08,06:[153]"                        "
  171. 50615 [243] 04,05:[153]" "df$(0)"    "
  172. 50620 [243] d,09:[153]"                  ":[243] d,09:[153]df$(p)
  173. 50640 d[178]d[170]1:p[178]p[170]1:[139] d[179]17 [167] [137] 50620
  174. 50650 [243] 18,06:[153]"         continuewait         "
  175. 50651 [205]
  176. 50652 [139] [194] (252)[178]18 [175] [194](251)[177]14 [175] [194] (251)[179]24 [167] [137]50660
  177. 50653 [139] [194](252)[179]18[175][194](252)[177]6[175][194](251)[179]26[175][194](251)[177]8[167] [137] 3900
  178. 50658 [137] 50651
  179. 50660 [243] 18,14:[153]"           "
  180. 50661 [139] p[177][178]c [167] [137] 50680
  181. 50670 d[178]07:[137] 50620
  182. 50680 [243]22,0:[153]"end of directory.":[129]t[178]0[164]500:[130]:.proc err[176]:[137]120
  183. 50690 .ednproc
  184. 60000 [143] **** menu data ****
  185. 60001 [131]"peek disk peek","init","format","rename","delete","validate","copy","exit"
  186. 60010 [131]"peek view peek","dir","list","sort","dump","error","exit"
  187. 60020 [131]"peekspecialpeek","restart","busibas","basic 2","exit
  188. 0 
  189.