home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / abc.sort (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  10.5 KB  |  335 lines
  1. 10 REM *ABC SORT V2.8 IDEA BY R.G.GORE*
  2. 20 REM*   RT. 1  BOX 315 / MEXIA TX   *
  3. 30 REM*  WRITTEN BY R.W. KOBER 8/1/85 *
  4. 40 PRINT"[147]":POKE53280,0:POKE53281,0
  5. 50 CLR:OPEN15,8,15
  6. 60 DIMAA$(1000):GOSUB1370:IFSFTHEN1020:REM SF=SET FLAG FOR MENU
  7. 70 :
  8. 80 :REM   *********************
  9. 90 :REM   * CREATE A NEW LIST *
  10. 100 REM   *********************
  11. 110 :
  12. 120 K=K+1:IFK$="Y"ORZATHENK=I-AD
  13. 130 IFK>NTHEN190
  14. 140 R$ = ""
  15. 150 PRINTK;:INPUT" [191][157][157][157]";R$:IFR$="[191]"ORR$=""THENPRINT"[145][145]":GOTO150
  16. 160 IFR$="\"THEN1020
  17. 170 IFR$="END"THENFORP=KTON:AA$(P)="":NEXT:K=N+1:GOTO190
  18. 180 AA$(K)=R$:K=K+1:GOTO130
  19. 190 K=K-1:IFK>0THEN220
  20. 200 PRINT"[158]         ** NO INPUT TO SORT ** [146][159]"
  21. 210 FORT=1TO1000:NEXT:GOTO1020
  22. 220 PRINT" [";K;"] [129]ITEMS HAVE NOW BEEN SORTED.":I=K+1
  23. 230 :
  24. 240 REM **************************
  25. 250 REM * SYS TO ML SORT ROUTINE *
  26. 260 REM **************************
  27. 270 SYS49152,N,AA$(1):REM N=NUMBER TO SORT - AA$(1)=NUMBER TO START SORT WITH
  28. 280 :
  29. 290 PRINT"[150]    PRINT TO S[146][159]CREEN OR P[146][159]RINTER?"
  30. 300 GETS$:IFS$=""THEN300
  31. 310 IFS$="\"THEN1020
  32. 320 IFS$="P"THEN580
  33. 330 :
  34. 340 REM   *******************
  35. 350 REM   * PRINT TO SCREEN *
  36. 360 REM   *******************
  37. 370 :
  38. 380 PRINT"[147]"TAB(20-LEN(L$)/2)L$:REM CENTERS LIST TITLE & 390 UNDERLINES IT
  39. 390 PRINTTAB(19-LEN(L$)/2);:FORLI=1TOLEN(L$)+2:PRINT"[184]";:NEXT:PRINT
  40. 400 FORJ=1TOK
  41. 410 PRINTTAB(4)J;TAB(7);AA$(J):CL=PEEK(214):QQ=0:REM 214 CONTAINS CURRENT LINE#
  42. 420 :
  43. 430 REM **************************
  44. 440 REM * STOP LISTING AT BOTTOM *
  45. 450 REM **************************
  46. 460 :
  47. 470 IFCL>20THENPRINT"    [158] ANY KEY TO CONTINUE - \ = MENU [159]":QQ=1
  48. 480 IFQQTHENWAIT198,1:GETKK$:IFKK$="\"THEN1020
  49. 490 IFQQTHENPRINT"[147]"TAB(20-LEN(L$)/2)L$
  50. 500 IFQQTHENPRINTTAB(19-LEN(L$)/2);:FORLI=1TOLEN(L$)+2:PRINT"[184]";:NEXT:PRINT
  51. 510 POKE198,0:NEXT:PRINTTAB(11)"[158] ANY KEY FOR MENU [159]":WAIT198,1
  52. 520 POKE198,0:GOTO1020:REM 198 CONTAINS THE # OF CHARACTERS IN KEYBOARD BUFFER
  53. 530 :
  54. 540 REM    *******************
  55. 550 REM    * PRINTER ROUTINE *
  56. 560 REM    *******************
  57. 570 :
  58. 580 GOSUB900:IFGMTHEN1000:REM GM=FLAG FOR GET MENU
  59. 590 REM *****************************
  60. 600 REM * LINES 590 TO 640 ARE FOR  *
  61. 610 REM * PRINTERS OTHER THAN THE   *
  62. 620 REM * COMMODORE 1525 OR MPS 801 *
  63. 630 REM *****************************
  64. 640 REM
  65. 650 PRINT#4,TAB(40-LEN(L$)/2);L$
  66. 660 PRINT#4:PRINT#4
  67. 670 PRINT#4:LI=4
  68. 680 FORJ=1TOK
  69. 690 PRINT#4,TAB(10);J;AA$(J)
  70. 700 PP=0:IFPEEK(653)=1THENPRINTTAB(5)"      [158] PRINTING PAUSED [146]        [145]":PP=1
  71. 710 IFPEEK(197)=48THENJ=K:PRINTTAB(5)"       PRINTING ABORTED [146]      ":GOTO740
  72. 720 IFPPTHENGOSUB950:GOTO700
  73. 730 IFLI=>60THENFORIL=1TO8:PRINT#4:NEXT:LI=0
  74. 740 LI=LI+1:NEXT
  75. 750 PRINT"           ADVANCE PAGE (Y/N) [146]"
  76. 760 GETA$:IFA$="Y"THEN790
  77. 770 IFA$="N"THEN1000
  78. 780 GOTO760
  79. 790 FORAP=1TO65-LI:PRINT#4:NEXT:GOTO1000
  80. 800 REM **************************
  81. 810 REM * LINES 800 TO 840 DITTO *
  82. 820 REM * LINES 590 TO 640 ABOVE *
  83. 830 REM **************************
  84. 840 REM
  85. 850 :
  86. 860 REM    *********************
  87. 870 REM    * CHECK FOR PRINTER *
  88. 880 REM    *********************
  89. 890 :
  90. 900 GM=0:PRINT"[147]":CLOSE4:OPEN4,4
  91. 910 PRINT#4:IFST AND128THEN960
  92. 920 PRINT"[147][158]"TAB(242)"SET PRINTER HEAD TO TOP OF PAGE, AND"
  93. 930 PRINTTAB(44)" PRESS COMMODORE KEY WHEM READY ":WAIT653,2
  94. 940 PRINT"[147][154]       DATA TO PRINTER - STAND-BY"
  95. 950 PRINT"      SHIFT TO PAUSE -- \ TO ABORT [145]":RETURN
  96. 960 PRINTTAB(248)"THE PRINTER IS NOT ON!"
  97. 970 PRINTTAB(240)TAB(249)"[151]\ TO ABORT PRINTING"
  98. 980 IFPEEK(197)=48THENGM=1:RETURN
  99. 990 GOTO910
  100. 1000 CLOSE4
  101. 1010 :
  102. 1020 PRINT"[147]              ********"
  103. 1030 PRINT   "              * MENU *"
  104. 1040 PRINT   "              ********"
  105. 1050 :
  106. 1060 PRINTTAB(48)"[158]W[146][159]ORK WITH ANOTHER LIST":KK=K:K=0
  107. 1070 PRINTTAB(48)"[158]P[146][159]RINT SAME LIST AGAIN":AZ=0
  108. 1080 PRINTTAB(48)"[158]L[146][159]OAD AN EXISTING LIST":POKE2,0
  109. 1090 PRINTTAB(48)"[158]V[146][159]IEW FILE DIRECTORY"
  110. 1100 PRINTTAB(48)"[158]S[146][159]AVE LIST TO DISK"
  111. 1110 PRINTTAB(48)"[158]R[146][159]E-SORT LIST "
  112. 1120 PRINTTAB(48)"[158]A[146][159]DD TO LIST "
  113. 1130 PRINTTAB(48)"[158]E[146][159]DIT LIST"
  114. 1140 PRINTTAB(48)"[158]Q[146][159]UIT"
  115. 1150 PRINTTAB(43)"[150] ENTER '\' AT ANY PROMPT FOR MENU [159]"
  116. 1160 GETA$:IFA$=""THEN1160
  117. 1170 IFA$="3"THENK=1
  118. 1180 IFKTHENIFA$="4"THENSYS595:GOTO1310
  119. 1190 IFA$<>"3"ANDA$<>"4"THENK=0
  120. 1200 IFA$="W"THEN2780
  121. 1210 IFA$="P"THENK=I-1:GOTO290
  122. 1220 IFA$="L"THENPOKE2,1:GOTO2780
  123. 1230 IFA$="S"THEN1670
  124. 1240 IFA$="E"THEN2380
  125. 1250 IFA$="R"THENK=I:GOTO190
  126. 1260 IFA$="A"THENAZ=1:GOTO1990
  127. 1270 IFA$="V"THENSYS49600:GOTO1020
  128. 1280 IFA$<>"Q"THEN1160
  129. 1290 PRINTTAB(52)"[158] ARE YOU SURE? [159]":WAIT198,1:GETO$:IFO$="Y"THENCLOSE15
  130. 1300 IFO$="Y"THEN63000
  131. 1310 GOTO1020
  132. 1320 :
  133. 1330 REM    ***************
  134. 1340 REM    * WORK SCREEN *
  135. 1350 REM    ***************
  136. 1360 :
  137. 1370 GOSUB2090:IFMETHEN1610
  138. 1380 PRINT"[147]"TAB(254)"[158] ABC SORT "
  139. 1390 IFPEEK(2)THENK$="Y":GOTO1510
  140. 1400 PRINTTAB(45)"[150]USE AN EXISTING LIST (Y/N) ?":SF=0:IFCSTHENRETURN
  141. 1410 PRINTTAB(240)TAB(242)"[151]'\' FOR THE MENU - 'L' FOR DIRECTORY[150]"
  142. 1420 PRINT""TAB(120):CS=0
  143. 1430 WAIT198,1:CS=1:PRINT"[147]":GOSUB1380:GETK$:IFK$="Y"THEN1510
  144. 1440 IFK$="L"THENSYS49600:CS=0:GOTO1380
  145. 1450 IFK$=CHR$(13)THENPRINT"[145][145][145]":GOTO1400
  146. 1460 IFK$="\"THEN1610
  147. 1470 IFK$<>"N"THENPOKE198,0:GOTO1430
  148. 1480 PRINT"    - ALPHABETIZES BY FIRST ENTRY -":FLAG=1
  149. 1490 INPUT"     MAXIMUM NUMBER TO ENTER [159] [191][157][157][157]";N$:N=VAL(N$):IFN$="\"THEN1610
  150. 1500 IFN=<0ORN>1000THENPRINT"[145][145][145][145]":GOTO1490
  151. 1510 Z$="THE NEW":IFK$="Y"THENZ$="EXISTING":FLAG=0
  152. 1520 TA$="":IFK$="Y"THENTA$=""
  153. 1530 PRINTTA$"[150]     ENTER NAME OF "Z$" LIST   [159]":INPUT"          [191][157][157][157]";L$
  154. 1540 IFLEN(L$)>15THENPRINTTAB(43)"[158]NAME LENGTH LIMIT = 15 CHARACTERS[145][145]":GOTO1530
  155. 1550 IFL$="[191]"ORL$=""THENPRINT"[145][145][145][145]":GOTO1530
  156. 1560 IFL$="\"THEN1610
  157. 1570 IFK$="Y"THENPRINTTAB(40)"PLEASE WAIT..... THE LIST IS LOADING..":GOTO1890
  158. 1580 PRINT" ENTER 'END' TO COMPLETE THE LIST IF     LESS THAN"N"ARE ENTERED.
  159. 1590 [153]"DEF":[142]
  160. 1600 [153]"DEF"
  161. 1610 SF[178]1:[142]
  162. 1620 :
  163. 1630 [143]     ****************
  164. 1640 [143]     * SAVE ROUTINE *
  165. 1650 [143]     ****************
  166. 1660 :
  167. 1670 [153][163]42)"CLRUSE THE SAME NAME "[199](34)L$[199](34)"CLR (Y/N)?":O[178]0
  168. 1680 [161]O$:[139]O$[178]""[167]1680
  169. 1690 [139]O$[178]"\"[167]1020
  170. 1700 [139]O$[178]"Y"[167][153]"SYS WARNING!! WAITDEF THIS EXISTING FILE WILL BE ":O[178]34
  171. 1710 [139]O[167][153]" REPLACED!  OKAY TO CONTINUE?? (Y/N)CLR"
  172. 1720 [139]O[167][146]198,1:[161]KK$:[139]KK$[179][177]"Y"[167]1020
  173. 1730 [139]O[167]1780
  174. 1740 [139]O$[179][177]"N"[167]1680
  175. 1750 [133]"FOR  ENTER NEW NAME  SINCMDCMDCMD";L$:[139]L$[178]"SIN"[176]L$[178]""[167][153]"ONONONON":[137]1750
  176. 1760 [139]L$[178]"\"[167]1020
  177. 1770 [139][195](L$)[177]15[167][153][163]42)"SYSNAME TOO LONG...15 CHARACTER LIMIT":[137]1750
  178. 1780 [153]"  OKAY...SAVING "L$
  179. 1790 [152]15,"S0:"[170]"["[170]L$
  180. 1800 [160]1:[159]1,8,1,"["[170]L$[170]",U,W"
  181. 1810 [141]2660:[139]ER[167]1020
  182. 1820 [129]I[178]1[164]N:[152]1,AA$(I):[130]
  183. 1830 [160]1:[137]1020
  184. 1840 :
  185. 1850 [143]    ****************
  186. 1860 [143]    * LOAD ROUTINE *
  187. 1870 [143]    ****************
  188. 1880 :
  189. 1890 [160]2:[159]2,8,2,"["[170]L$[170]",U,R":I[178]1
  190. 1900 [141]2660:[139]ER[167]1020
  191. 1910 [132]2,AA$(I):I[178]I[170]1:[139]ST[167]1930
  192. 1920 [137]1910
  193. 1930 [160]2
  194. 1940 :
  195. 1950 [143]  **************************
  196. 1960 [143]  * ADD MORE NAMES TO LIST *
  197. 1970 [143]  **************************
  198. 1980 :
  199. 1990 [139]I[178]0[167]I[178]K[170]1
  200. 2000 [153]"SYS    NUMBER OF NAMES IN FILE ="I[171]1:AD$[178]"":[139]AZ[167]ZA[178]1
  201. 2010 [133]"CONTADDITIONAL NUMBER TO ADD TO LIST   0CMDCMDCMD";AD$:[139]AD$[178]"\"[167]1020
  202. 2020 [153]:AD[178][197](AD$):N[178]I[170]AD[171]1:I[178]N[170]1:[139]AZ[167]120
  203. 2030 [142]
  204. 2040 :
  205. 2050 [143]  ****************************
  206. 2060 [143]  * CHECK MEMORY FOR ML DATA *
  207. 2070 [143]  ****************************
  208. 2080 :
  209. 2090 [139][194](49161)[178]165[175][194](49162)[178]20[167]ME[178]0:[142]
  210. 2100 :
  211. 2110 [143]     ****************
  212. 2120 [143]     * TITLE SCREEN *
  213. 2130 [143]     ****************
  214. 2140 :
  215. 2150 [153]"LOAD"[163]250)"PRINT                    "
  216. 2160 [153][163]10)"PRINT DEF                  PRINT "
  217. 2170 [153][163]10)"PRINT DEF SYS A B C  S O R T DEF PRINT "
  218. 2180 [153][163]10)"PRINT DEF       V2.8       PRINT "
  219. 2190 [153][163]10)"                    "
  220. 2200 [153][163]99)"FORBY"
  221. 2210 [153][163]55)"CLRR. G. GORE"
  222. 2220 [153][163]59)"AND"
  223. 2230 [153][163]55)"R. W. KOBER"
  224. 2240 :
  225. 2250 [143]  ***************************
  226. 2260 [143]  * ML DATA LOADING ROUTINE *
  227. 2270 [143]  ***************************
  228. 2280 :
  229. 2290 [129]D[178]49152[164]49492:[135]Y:[151]D,Y:[130]
  230. 2300 [151]595,76:[151]596,177:[151]597,194
  231. 2310 [129]D[178]49600[164]49901:[135]Y:[151]D,Y:[130]
  232. 2320 ME[178]1:[142]
  233. 2330 :
  234. 2340 [143]    ****************
  235. 2350 [143]    * EDIT ROUTINE *
  236. 2360 [143]    ****************
  237. 2370 :
  238. 2380 [133]"CLR  ENTER NUMBER TO EDIT (\=MENU)  SINCMDCMDCMD";EN$:EN[178][197](EN$)
  239. 2390 [139]EN$[178]"SIN"[176]EN$[178]""[167][153]"ONONONON":[137]2380
  240. 2400 [139]FLAG[167]I[178]KK[170]1
  241. 2410 [139]EN$[178]"\"[167]2600
  242. 2420 [139]EN[177]I[171]1[167][153][163]52)"SYSNUMBER TOO LARGEDEFON":[137]2380
  243. 2430 [139]EN[179]1[167]2380
  244. 2440 [153]"PRINT  NUMBER"EN"IS "AA$(EN)
  245. 2450 [153]"FOR  EDIT THIS NAME (Y/N)?"
  246. 2460 [161]O$:[139]O$[178]"N"[167]2380
  247. 2470 [139]O$[179][177]"Y"[167]2460
  248. 2480 [153]"CONT  ENTER THE CORRECT NAME (*=DELETE NAME)"
  249. 2490 [133]"DEF    SINCMDCMDCMD";NN$:[139]NN$[178]"\"[167]2600
  250. 2500 [139]NN$[178]"SIN"[176]NN$[178]""[167][153]"ONONONONON":[137]2480
  251. 2510 [139]NN$[178]"*"[167][153]"      DELETE NAME COMPLETLY (Y/N)? DEF":[137]2530
  252. 2520 [153]"VERIFY  CHANGE "AA$(EN)" TO "NN$" (Y/N)?ON"
  253. 2530 [161]O$:[139]O$[178]"N"[167]2480
  254. 2540 [139]O$[179][177]"Y"[167]2530
  255. 2550 [139]NN$[179][177]"*"[167]AA$(EN)[178]NN$
  256. 2560 [139]NN$[178]"*"[167]AA$(EN)[178]""
  257. 2570 [153]"  OPENCHANGE ANOTHER (Y/N)?ON"
  258. 2580 [161]O$:[139]O$[178]"Y"[167]2380
  259. 2590 [139]O$[179][177]"N"[167]2580
  260. 2600 [137]1020
  261. 2610 :
  262. 2620 [143]  **************************
  263. 2630 [143]  * ERROR CHECKING ROUTINE *
  264. 2640 [143]  **************************
  265. 2650 :
  266. 2660 [132]15,ER,ER$,TR,BL
  267. 2670 [139]ER[178]0[167][142]
  268. 2680 [153]"":[129]I[178]1[164]19:[153]"*TAN";:[130]
  269. 2690 [153][163]128)"DISK ERROR ENCOUNTERED!!PRINT"
  270. 2700 [153][163]100[171]([195](ER$)[173]2))ER$
  271. 2710 [153][163]83)"SYS PRESS COMMODORE KEY TO CONTINUE OPEN"
  272. 2720 [146]653,2:[142]
  273. 2730 :
  274. 2740 [143]  ***********************
  275. 2750 [143]  * NEW LISTING WARNING *
  276. 2760 [143]  ***********************
  277. 2770 :
  278. 2780 [153]"LOAD"[163]253)"SYS WARNING!! OPEN"
  279. 2790 [153][163]82)"FORTHE LIST NOW IN MEMORY WILL BE LOST "
  280. 2800 [153][163]45)"IF ANOTHER LIST IS SELECTED."
  281. 2810 [153][163]91)"PRINTCONTINUE? (Y/N)"
  282. 2820 [151]198,0:[146]198,1:[161]KK$:[139]KK$[178]"Y"[167]50
  283. 2830 [137]1020
  284. 2840 :
  285. 2850 [143]  ***********************
  286. 2860 [143]  * LIGHTNING SORT DATA *
  287. 2870 [143]  ***********************
  288. 2880 :
  289. 2881 [131]32,253,174,32,158,173,32,247,183,165,20,133,253,165,21,133,254
  290. 2882 [131]32,253,174,32,158,173,162,1,165,71,157,85,193,157,125,193,165
  291. 2883 [131]72,157,105,193,157,145,193,165,253,208,2,198,254,198,253,160,3
  292. 2884 [131]24,189,125,193,101,253,157,125,193,189,145,193,101,254,157,145,193
  293. 2885 [131]136,208,236,189,85,193,133,80,189,105,193,133,81,189,125,193,133
  294. 2886 [131]82,189,145,193,133,83,32,21,193,144,4,202,208,228,96,165,82
  295. 2887 [131]133,78,165,83,133,79,160,2,177,78,153,250,0,136,16,248,48
  296. 2888 [131]11,24,165,80,105,3,133,80,144,2,230,81,160,2,177,80,153
  297. 2889 [131]247,0,136,16,248,32,32,193,144,230,56,165,82,233,3,133,82
  298. 2890 [131]176,2,198,83,32,21,193,176,31,160,2,177,82,153,247,0,136
  299. 2891 [131]16,248,32,32,193,176,225,160,2,177,80,145,82,185,247,0,145
  300. 2892 [131]80,136,16,244,48,183,160,2,177,80,145,78,185,250,0,145,80
  301. 2893 [131]136,16,244,24,189,85,193,125,125,193,133,82,189,105,193,125,145
  302. 2894 [131]193,133,83,102,83,102,82,32,21,193,176,22,189,85,193,157,86
  303. 2895 [131]193,189,105,193,157,106,193,32,53,193,232,32,69,193,76,71,192
  304. 2896 [131]189,125,193,157,126,193,189,145,193,157,146,193,32,69,193,232,32
  305. 2897 [131]53,193,76,71,192,165,81,197,83,208,4,165,80,197,82,96,160
  306. 2898 [131]255,200,196,247,176,11,196,250,176,6,177,248,209,251,240,241,96
  307. 2899 [131]196,250,96,24,165,80,105,3,157,85,193,165,81,105,0,157,105
  308. 2900 [131]193,96,56,165,80,233,3,157,125,193,165,81,233,0,157,145,193,96
  309. 2901 :
  310. 2902 [143]   ***********************
  311. 2903 [143]   * LIST DIRECTORY DATA *
  312. 2904 [143]   ***********************
  313. 2905 :
  314. 2906 [131]173,33,208,72,173,32,208,72,173,134,2,72,32,204,255,32,68
  315. 2907 [131]229,169,9,141,33,208,169,11,141,32,208,169,7,141,134,2,24
  316. 2908 [131]162,1,160,11,32,240,255,160,0,185,120,194,240,6,32,210,255
  317. 2909 [131]200,208,245,169,1,162,8,160,0,32,186,255,169,1,162,118,160
  318. 2910 [131]194,32,189,255,32,192,255,162,1,32,198,255,160,31,32,207,255
  319. 2911 [131]136,208,250,160,13,169,32,32,210,255,136,208,250,32,207,255,72
  320. 2912 [131]165,144,201,64,240,24,104,201,91,208,241,32,207,255,201,34,240
  321. 2913 [131]5,32,210,255,208,244,169,13,32,210,255,208,212,104,169,1,32
  322. 2914 [131]195,255,32,204,255,160,0,185,140,194,240,6,32,210,255,200,208
  323. 2915 [131]245,169,0,133,198,165,198,240,252,104,141,134,2,104,141,32,208
  324. 2916 [131]104,141,33,208,169,0,133,198,32,68,229,96,36,0,18,32,70
  325. 2917 [131]73,76,69,32,68,73,82,69,67,84,79,82,89,32,13,13,0
  326. 2918 [131]13,32,32,32,32,32,32,32,32,32,1,1,32,18,32,39,92
  327. 2919 [131]39,32,75,69,89,32,70,79,82,32,77,69,78,85,32,13,0,13,0,255
  328. 2920 [131]32,68,229,24,162,11,160,9,32,240,255,160,0,185,215,194,240
  329. 2921 [131]6,32,210,255,200,208,245,160,252,162,0,32,179,238,232,208,250
  330. 2922 [131]200,208,245,96,82,46,87,46,32,75,79,66,69,82,32,87,82
  331. 2923 [131]79,84,69,32,84,72,73,83,13,0,52
  332. 63000 [143]   RE-CONNECT TO LS
  333. 63010 [151]51200,75 : [143]  ROUTINES NADA
  334. 63020 [147]"PAYLOAD CONNECT",8
  335.