home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 162 / 162.d81 / exp2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  312 lines
  1. 10 poke55,0:poke56,44:clr
  2. 12 sys36924,32768,34816,12288
  3. 13 poke53280,15:poke53281,15:poke53272,28
  4. 14 print"[147]"
  5. 16 poke648,44:print"[152][147]":poke648,4
  6. 22 ir=5*4096:tb=9*4096:p=256:cv=84*256
  7. 23 ra=20749:ba=20751:pokeba,28
  8. 24 w1$=" -expanded to packed font- "
  9. 26 w2$=" -packed to expanded font- "
  10. 30 gosub5060
  11. 32 w$=" 1997 [202] & [198] [208]ublishing ":r=16
  12. 34 gosub4200:gosub4300
  13. 35 systb+60,26624,28672,14336
  14. 36 sysir
  15. 38 ifpeek(ra)<>129then38
  16. 39 pokeba,190
  17. 40 w$="font expander":r=1:gosub4000
  18. 42 w$="by":r=4:gosub4000
  19. 44 w$="ken robinson":r=7:gosub4000
  20. 46 gosub4300:gosub4300:gosub4300
  21. 47 pokeba,28
  22. 48 sysir+3
  23. 50 ifpeek(788)<>49then50
  24. 52 systb+21,72
  25. 54 systb+15,4,35,12,21,160,0
  26. 56 systb+18,91
  27. 58 :
  28. 60 systb+21,91
  29. 61 w$="[204][207][193][196][160][198][207][206][212] [205][197][206][213]":r=13:gosub4200
  30. 62 w$="[204]oad from disk":r=15:gosub4200
  31. 64 w$="[213]pper/[199]rfx [210][207][205]":r=16:gosub4200
  32. 66 w$="[204]ower/[213]pper [210][207][205]":r=17:gosub4200
  33. 67 w$="[198]rom [213]ltra[198]ont+":r=18:gosub4200
  34. 68 w$="[196]irectory/[196]os":r=19:gosub4200
  35. 69 w$="[209]uit":r=20:gosub4200
  36. 70 systb+48,15,12,28,6,128,128+06,0
  37. 72 systb+21,72:onf%goto76,88,90,96,74
  38. 73 gosub9000:goto60
  39. 74 gosub4800:goto60
  40. 76 gosub4400:ifd=0then60
  41. 77 systb+21,72:w$=" * [204]oading [196]irectory * ":r=17:gosub4200
  42. 78 systb,"$:*=p",d,14*4096,10,4,12,0,2
  43. 80 ifval(e$)<>0thenw$=" "+e$+" ":gosub4500:goto60
  44. 81 iff%=0thenw$=" * [206][207][160][208][210][199] [198][201][204][197][211][160][207][206][160][196][201][211][203]! * ":gosub4500:goto60
  45. 82 iff$=""then60
  46. 83 systb+21,72:sysir+15,14336,16383,0
  47. 84 w$=" [204]oading "+chr$(34)+f$+chr$(34)+" ":r=17:gosub4200
  48. 85 sys57812f$,d,0:poke780,0:poke781,0:poke782,56:sys65493
  49. 86 goto100
  50. 88 bk=208:goto92
  51. 90 bk=216
  52. 92 poke56334,0:poke1,51:systb+60,bk*p,bk*p+2048,14336
  53. 94 poke1,55:poke56334,1:goto100
  54. 96 gosub7500:ife%goto60
  55. 98 systb+60,28672,30720,14336
  56. 100 :
  57. 102 gosub5365
  58. 104 sysir
  59. 106 ifpeek(ra)<>129then106
  60. 108 pokeba,190
  61. 110 gosub4600
  62. 112 w$="[198][207][206][212][160][211][201][218][197][160][205][197][206][213]":r=13:gosub4200
  63. 114 w$="[196]ouble [215]idth":r=15:gosub4200
  64. 116 w$="[196]ouble [200]eight":r=16:gosub4200
  65. 118 w$="[209]uadruple":r=17:gosub4200
  66. 119 w$="[204]oad font":r=18:gosub4200
  67. 120 w$="[211]ave font":r=19:gosub4200
  68. 121 w$="[209]uit":r=20:gosub4200
  69. 122 systb+48,15,13,27,6,128,134,0
  70. 123 iff%=6thengosub9000:goto100
  71. 124 iff%=5then7000
  72. 125 iff%=4then47
  73. 126 md=f%
  74. 128 gosub4600
  75. 130 w$="[195][207][206][214][197][210][211][201][207][206][160][205][197][206][213]":r=13:gosub4200
  76. 132 w$="[211]tandard to [197]xpanded":r=15:gosub4200
  77. 134 w$="[197]xpanded to [208]acked":r=16:gosub4200
  78. 136 w$="[208]acked to [197]xpanded":r=17:gosub4200
  79. 138 w$="[195]ancel":r=18:gosub4200
  80. 140 systb+48,15,9,30,4,128,134,0
  81. 142 iff%=4then110
  82. 143 pc=f%:gosub4700
  83. 144 systb+60,56*p,16384,64*p
  84. 146 a1=56*p:a2=64*p
  85. 160 onmdgoto1000,2000,3000
  86. 170 end
  87. 1000 :
  88. 1090 onpcgoto1140,1330,1460
  89. 1140 gosub8000
  90. 1150 w$=" -converting to [216][215] font- ":r=14:gosub4200
  91. 1160 syscv,ml
  92. 1230 w$=" -done!- ":gosub4505
  93. 1240 goto7000
  94. 1330 w$=w1$:r=14:gosub4200
  95. 1340 syscv+3
  96. 1400 goto1230
  97. 1460 w$=w2$:r=14:gosub4200
  98. 1470 syscv+6
  99. 1530 goto1230
  100. 2000 :
  101. 2090 onpcgoto2150,2360,2490
  102. 2150 w$=" -converting to [216][200] font- ":r=14:gosub4200
  103. 2160 syscv+9,ml
  104. 2260 goto1230
  105. 2360 w$=w1$:r=14:gosub4200
  106. 2370 syscv+12
  107. 2430 goto1230
  108. 2490 w$=w2$:r=14:gosub4200
  109. 2500 syscv+15
  110. 2560 goto1230
  111. 3000 :
  112. 3090 onpcgoto3095,3480,3630
  113. 3095 gosub8000
  114. 3100 gosub4600
  115. 3110 w$="[205][207][214][197][160][213][208][208][197][210][160][212][207][160][204][207][215][197][210][160][195][193][211][197]?":r=13:gosub4200
  116. 3120 w$="no":r=15:gosub4200
  117. 3130 w$="yes":r=16:gosub4200
  118. 3140 systb+48,15,18,22,2,128,134,0
  119. 3150 mu=f%:gosub4700
  120. 3180 ifmu=1then3230
  121. 3190 systb+60,64*p,17408,140*p
  122. 3200 systb+60,16904,17112,16392
  123. 3230 w$=" -converting to [209][213][193][196][160]font- ":r=14:gosub4200
  124. 3240 syscv+18,ml
  125. 3380 goto1230
  126. 3480 w$=w1$:r=14:gosub4200
  127. 3490 syscv+21
  128. 3570 goto1230
  129. 3630 w$=w2$:r=14:gosub4200
  130. 3640 syscv+24
  131. 3720 goto1230
  132. 4000 :
  133. 4005 poke648,44
  134. 4008 print"[144]";:ifr=0then4020
  135. 4010 poke214,r-1:print
  136. 4020 l=0:forx=1tolen(w$)
  137. 4030 if(asc(mid$(w$,x,1))and96)<>0thenl=l+1
  138. 4040 next:ifl>19thenreturn
  139. 4050 ta=20-l:printtab(ta);
  140. 4060 forx=1tolen(w$)
  141. 4070 a=asc(mid$(w$,x,1))
  142. 4080 if(aand96)=0thenprintchr$(a);:goto4110
  143. 4090 printchr$(a)chr$(a+128);
  144. 4100 print"[157][157]";chr$(a)chr$(a+128);"[146][145]";
  145. 4110 next:print:print
  146. 4120 poke648,4:return
  147. 4200 :
  148. 4205 print"[144]";
  149. 4210 systb+27,r,w$
  150. 4220 print"[146]"
  151. 4230 return
  152. 4300 :
  153. 4305 t=ti+60
  154. 4310 ift>tithen4310
  155. 4320 return
  156. 4400 :
  157. 4405 systb+21,72
  158. 4410 systb+15,11,27,12,21,160,0
  159. 4415 w$="[196][201][211][203][160][196][197][214] #":r=13:gosub4200
  160. 4420 forr=15to18:w$=str$(r-7):gosub4200:next
  161. 4422 w$="[195]ancel":r=19:gosub4200
  162. 4425 systb+48,15,16,23,5,128,134,0
  163. 4430 d=0:iff%=5thenreturn
  164. 4435 d=f%+7:open2,d,2:close2
  165. 4440 ifst=0thenreturn
  166. 4445 w$=" * [196][197][214][201][195][197][160][206][207][212][160][208][210][197][211][197][206][212] * "
  167. 4450 gosub4500
  168. 4455 d=0:return
  169. 4500 :
  170. 4501 gosub4700
  171. 4505 r=16:gosub4200
  172. 4510 w$=" [208]ress [211][208][193][195][197][160]to continue ":r=19:gosub4200
  173. 4515 gosub5340:return
  174. 4600 systb+60,23696,24296,1424
  175. 4610 systb+60,24720,25320,55696:return
  176. 4700 systb+60,18832,19432,1424
  177. 4710 systb+60,19856,20456,55696:return
  178. 4800 systb+21,91
  179. 4802 w$="[196][201][211][203][160][198][213][206][195][212][201][207][206][211]":r=13:gosub4200
  180. 4804 w$="[196]irectory":r=15:gosub4200
  181. 4806 w$="[196]os [195]ommand":r=16:gosub4200
  182. 4808 w$="[195]ancel":r=17:gosub4200
  183. 4810 systb+48,15,14,26,3,128,128+2,0
  184. 4812 ds=f%:ifds=3thenreturn
  185. 4814 gosub4400:ifd=0thenreturn
  186. 4816 ifds=1thensysir+21,d:return
  187. 4818 systb+15,4,35,15,19,32,15
  188. 4820 print"[144]":systb+27,16,"[208]ress [210][197][212][213][210][206] for error message"
  189. 4822 systb+24,5,17,"@"
  190. 4824 systb+66,11,0,29
  191. 4826 systb+42,w$,d:close15
  192. 4828 systb+27,18,e$
  193. 4830 gosub5340:return
  194. 5050 :
  195. 5060 poke214,9:print
  196. 5070 print"[151] [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][174]"
  197. 5080 forx=1to12
  198. 5090 print" [221][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][161]"
  199. 5100 next
  200. 5110 print" [173][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][189]"
  201. 5120 systb+18,72:return
  202. 5330 :
  203. 5340 poke198,0
  204. 5350 geta$:ifa$<>" "then5350
  205. 5360 return
  206. 5365 :
  207. 5370 poke648,44:a$=chr$(34)+chr$(34)+chr$(20)
  208. 5380 print"[144]";
  209. 5390 print"[152]                                            [144]@abcdefghijk";
  210. 5400 print"lmnopqrstuvwxyz[\]^_[152]        [144] !"a$"#$%&'()*+,-./012345678";
  211. 5410 print"9:;<=>?[152]        [144][192][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218][219][220][221][255][223][152]        [144][160]";
  212. 5420 print"[161][162][163][164][165][166][167][168][169][170][171][172][173][174][175][176][177][178][179][180][181][182][183][184][185][186][187][188][189][190][191][152]        [144]@abcdefghijklmno";
  213. 5430 print"pqrstuvwxyz[\]^_[146][152]        [144] !"a$"#$%&'()*+";
  214. 5440 poke648,45 :print:print:print"";
  215. 5450 print"[144],-./0123456789:;<=>?[146][152]        [144][192][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217]";
  216. 5460 print"[144][218][219][220][221][255][223][146][152]        [144][160][161][162][163][164][165][166][167][168][169][170][171][172][173][174][175][176][177][178][179][180][181][182][183][184][185][186][187][188][189][190][191][146][152]       ";
  217. 5470 print"                                     ";
  218. 5480 poke648,4:print"[151]"
  219. 5490 return
  220. 7000 pokeba,28:sysir+3
  221. 7002 ifpeek(788)<>49then7002
  222. 7005 gosub4600
  223. 7010 w$="[211][193][214][197][160][198][207][206][212] [205][197][206][213]":r=13:gosub4200
  224. 7012 w$="[211]ave to disk":r=15:gosub4200
  225. 7014 w$="[211]ave to [213]ltra[19