home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 76 / 076.d81 / bytes (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  238 lines
  1. 10 poke53281,0:poke53280,0:print"[147][159]"
  2. 15 d=0:f=0:g=0:p=0:r=0:s=0:u=0:v=0
  3. 20 gosub660:rem disk drive check
  4. 45 gosub1145
  5. 50 sys57812"fv.dirtovar.o",8,0:poke780,0:poke781,0:poke782,141:sys65493
  6. 55 sys57812"ss 1990",8,0:poke780,0:poke781,60:poke782,3:sys65493
  7. 60 sys57812"prntallscnchr.o",8,0:poke780,0:poke781,0:poke782,206:sys65493
  8. 65 q$=chr$(34)
  9. 70 tp$="[147][150]    [197] [193] [211] [217]   [198] [207] [206] [212]   [214] [201] [197] [215] [197] [210]"
  10. 75 dim ty$(144),na$(144),le$(144),td$(144),pc%(144)
  11. 80 forz=1to144:td$(z)="":pc%(z)=0:ty$(z)="":na$(z)="":le$(z)="":next
  12. 82 printtp$:print"     [208]lease turn your printer [207][198][198]."
  13. 85 print"[159]  [201]nsert the disk with the font[159] files"
  14. 90 printtab(11)"and press [211][208][193][195][197][154]."
  15. 95 geta$:ifa$<>" "then95
  16. 100 printtp$:print"[159] [211]electing all font [159]files on this disk"
  17. 105 sys36096:i=1:j=1
  18. 110 printtp$
  19. 115 poke214,5:print:au$="[158][215]orking...":printspc(20-len(au$)/2)au$
  20. 120 ifna$(i)=""then135
  21. 125 ifval(le$(i))=9thentd$(j)=na$(i):gosub730:j=j+1
  22. 130 i=i+1:goto120
  23. 135 ifj=1thenpoke214,5:print:au$="[159]          ":printspc(20-len(au$)/2)au$
  24. 140 ifj=1thenprint"[159] [212]here are no font[159] files on this disk."
  25. 145 ifj=1thengosub605:fort=0to3999:next:goto1215
  26. 150 ifj>17thenr=1
  27. 155 ifj<=17thenu=1
  28. 160 printtp$
  29. 165 bv$="  [158][221]                                [158][221]"
  30. 170 bu$="[158]  [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][174]"
  31. 175 printbu$
  32. 180 ifsthenfori=atoj-1:print"  [158][221]"tab(13)"[154]"td$(i)tab(35)"[158][221]":next:goto195
  33. 185 ifuthenfori=1toj-1:print"  [158][221]"tab(13)"[154]"td$(i)tab(35)"[158][221]":next:goto195
  34. 190 ifrthenfori=1to16:print"  [158][221]"tab(13)"[154]"td$(i)tab(35)"[158][221]":next
  35. 195 bd$="  [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][189]"
  36. 200 printbd$
  37. 205 k=1
  38. 210 poke214,19:print:print"[195][210][211][210]-[213][208]/[196][207][215][206][159]-[211]elect font to view"
  39. 215 print"[211][208][193][195][197][159]-[212]oggle    [193][159]-[211]elect all"
  40. 220 print"[210][197][212][213][210][206][159]-[214]iew highlighted font(s)"
  41. 225 print"[196][159]-[196]irectory   [209][159]-[209]uit to [204][207][193][196][211][212][193][210]"
  42. 230 poke214,k+1:print:printtab(10)"[153][192]>[145]":poke198,0
  43. 235 geta$:ifa$=""then235
  44. 240 printtab(10)"  [145]"
  45. 245 ifsthenifa$="[145]"thenk=k-1:ifk<1thenk=j-a:goto260
  46. 250 ifuthenifa$="[145]"thenk=k-1:ifk<1thenk=j-1:goto260
  47. 255 ifrthenifa$="[145]"thenk=k-1:ifk<1thenk=16
  48. 260 ifsthenifa$=""thenk=k+1:ifk>j-athenk=1:goto275
  49. 265 ifuthenifa$=""thenk=k+1:ifk>j-1thenk=1:goto275
  50. 270 ifrthenifa$=""thenk=k+1:ifk>16thenk=1
  51. 275 ifa$<>"d"anda$<>"[196]"then285
  52. 280 sys828,1:goto515
  53. 285 ifa$<>"q"anda$<>"[209]"then295
  54. 290 goto1215
  55. 295 ifa$<>chr$(13)then305
  56. 300 goto350
  57. 305 ifa$<>"a"anda$<>"[193]"then325
  58. 310 ifsthenprint"":fori=atoj-1:printtab(13)""td$(i):pc%(i)=1:next:goto205
  59. 315 ifrthenprint"":fori=1to16:printtab(13)""td$(i):pc%(i)=1:next:goto205
  60. 320 ifuthenprint"":fori=1toj-1:printtab(13)""td$(i):pc%(i)=1:next:goto205
  61. 325 ifa$<>" "then230
  62. 330 ifsthenifpc%(a+k-1)thenpc%(a+k-1)=0:printtab(13)"[154]"td$(a+k-1):goto230
  63. 335 ifsthenpc%(a+k-1)=1:printtab(13)""td$(a+k-1):goto230
  64. 340 ifpc%(k)thenpc%(k)=0:printtab(13)"[154]"td$(k):goto230
  65. 345 pc%(k)=1:printtab(13)""td$(k):goto230
  66. 350 ifsthenfori=atoj:goto365
  67. 355 ifrthenfori=1to16:goto365
  68. 360 ifuthenfori=1toj
  69. 365 ifpc%(i)=0then475
  70. 370 ifsthenpoke214,i-a+2:print:print"[153][204]oading[145]":goto380
  71. 375 poke214,i+1:print:print"[153][204]oading[145]"
  72. 380 sys828,1:fort=1to2000:next
  73. 385 print"[147]"
  74. 390 iffthen415
  75. 395 poke214,0:print:printbu$
  76. 400 forx=1to8:printbv$:next
  77. 405 printbd$
  78. 410 iff=0thensys828,2:f=1:goto420
  79. 415 sys831,2
  80. 420 printspc(20-len(td$(i))/2)td$(i)
  81. 425 ifg=0thengosub635:g=1
  82. 430 poke214,6:print:print"[193]fter viewing font, press [211][208][193][195][197]"
  83. 432 print"to continue, [209] to quit"
  84. 435 fort=1to1000:next
  85. 440 sys57812td$(i),8,0:poke780,0:poke781,0:poke782,56:sys65493
  86. 442 open15,8,15,"i0":close15
  87. 445 poke53272,31:sys52736
  88. 450 geta$:ifa$<>"q"anda$<>"[209]"anda$<>" "then450
  89. 452 ifa$="q"ora$="[209]"then1215
  90. 455 poke53272,22
  91. 460 sys831,1
  92. 465 ifsthenpoke214,i-a+2:print:print"        ":goto475
  93. 470 poke214,i+1:print:print"        "
  94. 475 nexti
  95. 480 ifvthenreturn
  96. 485 ifrthenr=0:s=1
  97. 490 ifsthengosub840
  98. 495 goto1215
  99. 500 :
  100. 505 :   directory
  101. 510 :
  102. 515 print"[147]    [208]lease wait -- reading directory"
  103. 520 print"[159]   [215]hile directory scrolls, [211][208][193][195][197] [159]will"
  104. 525 print"   pause and [209][159] will return to the menu"
  105. 530 fori=1to144:na$(i)="":next
  106. 535 sys36096
  107. 540 fori=1to144
  108. 545 ifna$(i)=""theni=144:goto565
  109. 550 ifpeek(197)=60then550
  110. 555 ifpeek(197)=62thensys831,1:poke198,0:goto230
  111. 560 printtab(6)"[155]"na$(i)tab(26)"[154]"ty$(i)tab(32)"[159]"le$(i)
  112. 565 next
  113. 570 printtab(6)""le$(0)"[154]blocks free"
  114. 575 print"[159]    [208]ress [210][197][212][213][210][206][159] to return to program"
  115. 580 geta$:ifa$<>chr$(13)then580
  116. 585 sys831,1:poke198,0:goto230
  117. 590 :
  118. 595 :buzzer sound
  119. 600 :
  120. 605 forz=54272to54296:pokez,0:next
  121. 610 w=54272:pokew+6,240:pokew,10:pokew+1,40:pokew+4,33
  122. 615 forj=1to10:poke54296,15:fort=1to5:next:poke54296,0:fort=1to5:next:next
  123. 620 pokew+4,128
  124. 625 return
  125. 630 :
  126. 635 forz=54272to54296:pokez,0:next
  127. 640 w=54272:pokew+1,135:pokew+5,9:pokew+6,9:pokew+24,15:pokew+4,17:pokew+4,16
  128. 645 fort=1to800:next:forz=54272to54296:pokez,0:next
  129. 650 return
  130. 655 :
  131. 660 open15,8,15:close15
  132. 665 ifst=0thenreturn
  133. 670 print"[147][212]urn your disk drive on!!
  134. 675 [153]"(NULL)ress any key to try again."
  135. 680 [161]a$:[139]a$[178]""[167]680
  136. 685 [142]
  137. 690 [159]15,8,15:[132]15,er,er$:[160]15
  138. 695 [139]er[178]0[167][142]
  139. 700 [141]605:[153]"loadstr$isk drive error!!!!!"
  140. 705 [153]"(NULL)he error message is:":[153]:[153]er,er$
  141. 710 [153]"(NULL)ress any key to try again."
  142. 715 [161]a$:[139]a$[178]""[167]715
  143. 720 [159]15,8,15,"i0":[160]15
  144. 725 [142]
  145. 730 [139][200](na$(i),4)[178]"font"[176][200](na$(i),3)[178]"fnt"[167][142]
  146. 731 [139][201](na$(i),4)[178]"font"[176][201](na$(i),3)[178]"fnt"[167][142]
  147. 734 [139][200](na$(i),2)[178]"t."[167]td$(j)[178]"":j[178]j[171]1:[142]
  148. 735 [139][201](na$(i),2)[178]"-2"[167]td$(j)[178]"":j[178]j[171]1:[142]
  149. 740 [139][201](na$(i),2)[178]"-3"[167]td$(j)[178]"":j[178]j[171]1:[142]
  150. 743 [142]
  151. 810 [151]53272,22
  152. 840 [129]n[178]1[164]8:[139]j[177][178]17[175]j[179][178](n[170]1)[172]16[167]m[178]n:[137]850
  153. 845 [130]
  154. 850 n[178]8:[130]
  155. 855 [145]m[141]865,880,900,925,955,990,1030,1075
  156. 860 [142]
  157. 865 a[178]17:v[178]1:[141]1125:[141]160
  158. 870 v[178]0:s[178]0
  159. 875 [142]
  160. 880 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
  161. 885 a[178]33:[141]1125:[141]160
  162. 890 v[178]0:s[178]0
  163. 895 [142]
  164. 900 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
  165. 905 a[178]33:j[178]49:[141]1125:[141]160
  166. 910 a[178]49:[141]1125:[141]160
  167. 915 v[178]0:s[178]0
  168. 920 [142]
  169. 925 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
  170. 930 a[178]33:j[178]49:[141]1125:[141]160
  171. 935 a[178]49:j[178]65:[141]1125:[141]160
  172. 940 a[178]65:[141]1125:[141]160
  173. 945 v[178]0:s[178]0
  174. 950 [142]
  175. 955 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
  176. 960 a[178]33:j[178]49:[141]1125:[141]160
  177. 965 a[178]49:j[178]65:[141]1125:[141]160
  178. 970 a[178]65:j[178]81:[141]1125:[141]160
  179. 975 a[178]81:[141]1125:[141]160
  180. 980 v[178]0:s[178]0
  181. 985 [142]
  182. 990 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
  183. 995 a[178]33:j[178]49:[141]1125:[141]160
  184. 1000 a[178]49:j[178]65:[141]1125:[141]160
  185. 1005 a[178]65:j[178]81:[141]1125:[141]160
  186. 1010 a[178]81:j[178]97:[141]1125:[141]160
  187. 1015 a[178]97:[141]1125:[141]160
  188. 1020 v[178]0:s[178]0
  189. 1025 [142]
  190. 1030 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
  191. 1035 a[178]33:j[178]49:[141]1125:[141]160
  192. 1040 a[178]49:j[178]65:[141]1125:[141]160
  193. 1045 a[178]65:j[178]81:[141]1125:[141]160
  194. 1050 a[178]81:j[178]97:[141]1125:[141]160
  195. 1055 a[178]97:j[178]113:[141]1125:[141]160
  196. 1060 a[178]113:[141]1125:[141]160
  197. 1065 v[178]0:s[178]0
  198. 1070 [142]
  199. 1075 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
  200. 1080 a[178]33:j[178]49:[141]