home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 154 / 154.d81 / b.pscon (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  11KB  |  336 lines
  1. 40 poke53281,0:poke53280,0
  2. 50 poke 55,.:poke 56,92:clr:poke788,52
  3. 60 dv=peek(186):if dv<8 then dv=8
  4. 62 print"[147]":gosub60000
  5. 70 lo=0:rem *** if lo then no load ***
  6. 80 gosub 240:gosub 370:gosub 970
  7. 90 systx+21,208:systx+24,20,12,"[159][146]"+str$(dv):systx+24,20,13,"[159][146]"+str$(dd)
  8. 100 systx+48,7,12,27,10,3,7,133
  9. 110 if f%=0 or f%=10 then gosub 900:goto 90
  10. 120 on f% goto 140,150,230,160,170,180,190,200,210,220
  11. 130 goto 100
  12. 140 gosub 1500:goto 90
  13. 150 gosub 1300:goto 90
  14. 160 gosub 1730:goto 90
  15. 170 gosub 2270:goto 90
  16. 180 xx=1:gosub 770:goto 90
  17. 190 xx=2:gosub 770:goto 90
  18. 200 gosub 2640:goto 90
  19. 210 gosub 2830:goto 90
  20. 220 gosub 660:goto 90
  21. 230 gosub 2490:goto 90
  22. 240 rem *** load files ***
  23. 250 if lo then 310
  24. 260 sys 57812"pscon.font/ml",dv,0:poke780,0:poke781,0:poke782,8*16:sys65493
  25. 270 sys 57812"pscon.font",dv,0:poke780,0:poke781,0:poke782,200:sys65493
  26. 280 sys 57812"pscon.spr",dv,0:poke780,0:poke781,0:poke782,196:sys65493
  27. 290 sys9*16^3+54,34816,36864,61440
  28. 300 rem
  29. 310 tx=9*16^3:ml=8*16^3:poke650,128:dd=dv:dc=dv:qt$=chr$(34)
  30. 320 sysml,24576,23552:sysml+24:sysml+30,1
  31. 330 rem
  32. 340 rem
  33. 350 rem
  34. 360 return
  35. 370 rem *** screen(s) ***
  36. 380 poke 53265,peek(53265)and239
  37. 390 poke53280,.:poke 53281,.
  38. 400 systx+15,0,39,0,24,127,7
  39. 410 systx+15,0,39,0,0,98,3
  40. 420 systx+15,0,39,1,1,160,14
  41. 430 systx+15,0,39,2,2,226,6
  42. 440 systx+15,0,39,22,22,98,10
  43. 450 systx+15,0,39,23,23,160,8
  44. 460 systx+15,0,39,24,24,226,2
  45. 470 systx+24,15,1,"[154][208] [211] [195] [207] [206]"
  46. 480 x=11:y=4:systx+15,x-1,x+16,y+1,y+16,255,9
  47. 490 systx+24,x,y,"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  48. 500 [158]tx[170]24,x,y[170]1,"(NULL)defsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsin(NULL)
  49. 510 systx+24,x,y+2,"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  50. 520 [158]tx[170]24,x,y[170]3,"(NULL)waitopen (NULL)(NULL) peekright$(NULL)-(NULL)atn(NULL)     (NULL)
  51. 530 systx+24,x,y+4,"[221][146][159] [204][207][193][196] [196][207][207][196][204][197]!   [221]
  52. 540 [158]tx[170]24,x,y[170]5,"(NULL)waitopen (NULL)atn(NULL)val str$(NULL)(NULL)str$(NULL)val!   (NULL)
  53. 550 systx+24,x,y+6,"[221][146][159] [196][201][210][197][195][212][207][210][217]      [221]
  54. 560 [158]tx[170]24,x,y[170]7,"(NULL)waitopen str$(NULL)right$(NULL)val len(NULL)(NULL)(NULL)atn(NULL)str$(NULL) (NULL)
  55. 570 systx+24,x,y+8,"[221][146][159] [211][207][213][210][195][197]:        [221]
  56. 580 [158]tx[170]24,x,y[170]9,"(NULL)waitopen str$val(NULL)(NULL):          (NULL)
  57. 590 systx+24,x,y+10,"[221][146][159] [201][206][211][212][210][213][195][212][201][207][206][211]   [221]
  58. 600 [158]tx[170]24,x,y[170]11,"(NULL)waitopen len(NULL)valstr$right$(NULL)(NULL)        (NULL)
  59. 610 systx+24,x,y+12,"[221][146][159] [197][206][196] [208][210][207][199][210][193][205]    [221]
  60. 620 [158]tx[170]24,x,y[170]13,"-tantantantantantantantantantantantantantantantan<
  61. 630 systx+24,x,y+14,"[221][150] [195][210][211][210]/[210][197][212][213][210][206]/[198]1 [221]
  62. 640 [158]tx[170]24,x,y[170]15,"/tantantantantantantantantantantantantantantantanexp
  63. 650 systx+18,208:return
  64. 660 rem ***
  65. 670 systx+15,0,39,23,23,160,8
  66. 680 systx+24,7,23,"[129][198]eature not enabled. [211]orry.
  67. 690 tm[178]1000
  68. 700 [143] *** user ended delay ***
  69. 710 [129]j[178]1[164]tm:[161]a$:[139] a$[178]"" [167] [130]:[142]
  70. 720 j[178]tm:[142]
  71. 730 [143] *** print disk error ***
  72. 740 [158]tx[170]15,0,39,23,23,160,8
  73. 750 [158]tx[170]24,20[171][195](e$)[173]2,23,"for"[170]e$
  74. 760 tm[178]1000:[137] 700
  75. 770 [143] *** drive change ***
  76. 780 x[178]31:y[178]0:[158]tx[170]15,x[171]1,x[170]6,y[170]8,y[170]19,255,10
  77. 790 [158]tx[170]15,12,22,11[170]xx,11[170]xx,255,7
  78. 800 [158]tx[170]24,x,y[170]7,"ortantantantantantan^
  79. 810 for n=8 to 17
  80. 820 systx+24,x,y+n,"[221][146][159]  ":ifn<10 then print" ";
  81. 830 printstr$(n);" [221]":next
  82. 840 systx+24,x,y+n,"[173][192][192][192][192][192][192][189]
  83. 850 [158]tx[170]48,y[170]8,x[170]1,x[170]6,10,3,13,133
  84. 860 [139] f%[178]0 [167] [142]
  85. 870 dx[178]f%[170]7
  86. 880 [139] xx[178]1 [167] dv[178]dx:[142]
  87. 890 dd[178]dx:[142]
  88. 900 [143] *** end program ***
  89. 910 [158]tx[170]15,0,39,23,23,160,8:[151] 198,0
  90. 920 [158]tx[170]24,7,23,"for(NULL)uit!? atnre you sure? ((NULL)/(NULL))
  91. 930 get a$:if a$="" then 930
  92. 940 if a$<>"y" and a$<>"[217]" then return
  93. 950 gosub 1050:poke788,49:sysml+30,0:print"[147]"
  94. 960 goto 40000
  95. 970 rem *** enable font ***
  96. 980 poke 53265,peek(53265)and239
  97. 990 poke 56578,peek(56578)or3
  98. 1000 poke 56576,peek(56576)and252
  99. 1010 poke 53272,peek(53272)and15
  100. 1020 poke 648,192
  101. 1030 poke53272,(peek(53272)and240)or2
  102. 1040 poke 53265,peek(53265)or16:return
  103. 1050 rem *** normal font ***
  104. 1060 poke 53265,peek(53265)and239
  105. 1070 poke 56578,peek(56578)or3
  106. 1080 poke 56576,(peek(56576)and252)or3
  107. 1090 poke 53272,(peek(53272)and15)or16
  108. 1100 poke 648,4
  109. 1110 poke53272,(peek(53272)and240)or6
  110. 1120 poke 53265,peek(53265)or16:return
  111. 1130 rem *** hi-res screen ***
  112. 1140 poke 53265,peek(53265)and239
  113. 1150 poke 56578,peek(56578)or3
  114. 1160 poke 56576,(peek(56576)and252)or2
  115. 1170 poke 53272,(peek(53272)and15)or112
  116. 1180 poke 53265,peek(53265)or32
  117. 1190 poke 53272,peek(53272)or8
  118. 1200 rem make screen presentable
  119. 1210 poke 53265,peek(53265)or16:return
  120. 1220 rem *** text screen ***
  121. 1230 poke 53265,peek(53265)and239
  122. 1240 poke 56578,peek(56578)or3
  123. 1250 poke 56576,peek(56576)and252
  124. 1260 poke 53272,peek(53272)and15
  125. 1270 poke 53265,peek(53265)and223
  126. 1280 poke 53272,peek(53272)and247
  127. 1290 poke 53265,peek(53265)or16:return
  128. 1300 rem *** load doodle ***
  129. 1310 if dd<>dv then 1350
  130. 1320 systx+15,0,39,23,23,160,8
  131. 1330 systx+24,4,23,"[129][208]ut disk into drive"+str$(dv)+", any key.":poke198,0
  132. 1340 get a$:if a$="" then 1340
  133. 1350 close15:open15,dv,15:close15:if st=0 then 1370
  134. 1360 return
  135. 1370 systx,"$0:dd*,s.*",dv,40960,1,1,15,7,4
  136. 1380 if val(e$) then 730
  137. 1390 if f$="" then return
  138. 1400 la=23552:if left$(f$,2)="s." then la=24576
  139. 1410 systx+15,0,39,23,23,160,8
  140. 1420 systx+24,11-len(f$)/2,23,"[129][204]oading"+qt$+f$+qt$+","+str$(dv)+"..."
  141. 1430 systx+42,"r:"+f$+"="+f$,dv
  142. 1440 if val(e$)=63 then 1460
  143. 1450 goto 730
  144. 1460 gosub 1130:systx+30,f$,dv,la
  145. 1470 if val(e$)>19 then gosub 1220:goto 730
  146. 1480 if left$(f$,2)="s." then sysml+6,0,39,0,24,1,6
  147. 1490 poke 198,0:wait197,64,64::get a$:gosub 1220:return
  148. 1500 rem *** to doodle ***
  149. 1510 gosub 1130:poke 198,0
  150. 1520 systx+45,"[133][134][135][136]h[200]q[209]_
  151. 1530 [145] f% [137] 1540,1520,1520,1220,1720,1720,1220,1220,1220
  152. 1540 mk[178]1
  153. 1550 [158]ml[170]3,xg,xg[170]10,yg,yg[170]6
  154. 1560 [129]n[178]1[164]50:[161] a$:[139] a$[178]"" [167] [130]:[137] 1580
  155. 1570 [137] 1600
  156. 1580 [139] mk[178]1 [167] mk[178]2:[137] 1550
  157. 1590 [137] 1540
  158. 1600 [139] mk[178]1 [167] [158]ml[170]3,xg,xg[170]10,yg,yg[170]6
  159. 1610 [139] a$[178]"" [175] xg[179]29 [167] xg[178]xg[170]1:[137] 1540
  160. 1620 [139] a$[178]"cmd" [175] xg[177]0 [167] xg[178]xg[171]1:[137] 1540
  161. 1630 [139] a$[178]"" [175] yg[179]18 [167] yg[178]yg[170]1:[137] 1540
  162. 1640 [139] a$[178]"on" [175] yg[177]0 [167] yg[178]yg[171]1:[137] 1540
  163. 1650 [139] a$[178]"input" [167] 1520
  164. 1660 [139] a$[178]"dim" [167] [141] 1880:[141] 1130:[137] 1540
  165. 1670 [139] a$[178]"read" [167] [141] 2130:[141] 1130:[137] 1540
  166. 1680 [139]a$[178]"let"[176]a$[178]"q"[176]a$[178]"(NULL)"[176]a$[178]"_"[167] 1220
  167. 1690 [139] a$[178]"h" [176] a$[178]"left$" [167] [141] 3010:[137] 1540
  168. 1700 [139] a$[178]"" [167] xg[178]0:yg[178]0:[137] 1540
  169. 1710 [137] 1540
  170. 1720 [141] 3010:[137] 1520
  171. 1730 [143] *** directory ***
  172. 1740 [139] dv[178]dd [167] dr[178]dv:[137] 1810
  173. 1750 [158]tx[170]15,0,39,23,23,160,8
  174. 1760 [158]tx[170]24,7,23,"for((NULL))ource or (str$)estination?":[151] 198,0
  175. 1770 [161] a$:[139] a$[178]"" [167] 1770
  176. 1780 [139] a$[178]"s" [176] a$[178]"(NULL)" [167] dr[178]dv:[137] 1810
  177. 1790 [139] a$[178]"d" [176] a$[178]"str$" [167] dr[178]dd:[137] 1810
  178. 1800 [137] 1770
  179. 1810 [160]15:[159]15,dr,15:[160]15:[139]st[178]0 [167] 1830
  180. 1820 [142]
  181. 1830 [153]"waitopenload";:[158]ml[170]18,"$0:*",dr,5:[158]tx[170]42,"",dr:[139] [197](e$)[178]0 [167] 1850
  182. 1840 [153]"for"[170]e$:tm[178]1000:[137]700
  183. 1850 [151] 198,0
  184. 1860 [161] a$:[139] a$[178]"" [167] 1860
  185. 1870 [142]
  186. 1880 [143] *** bm ==> ps ***
  187. 1890 [141] 1220:[153]"openload*** peekright$(NULL)-(NULL)atn(NULL) to