home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 88 / 088.d81 / hi-res_ps (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  161 lines
  1. 1 poke55,0:poke56,32:clr
  2. 2 poke53280,0:poke53281,0:a$="":v=53248
  3. 3 print"[147]":gosub60000:dimm$(9):fori=1to9:readm$(i):next
  4. 4 data " [208]rint [211]hop to [207][195][208]       "
  5. 5 data " [208]rint [211]hop to [196]oodle    "
  6. 6 data " [208]rint [211]hop to [210][213][206] [208]aint "
  7. 7 data " [207][195][208] to [208]rint [211]hop       "
  8. 8 data " [196]oodle to [208]rint [211]hop    "
  9. 9 data " [210][213][206] [208]aint to [208]rint [211]hop "
  10. 10 data " [196]isk [198]unctions          "
  11. 12 data " [201]nstructions            "
  12. 13 data " [210]eturn to [204][207][193][196][211][212][193][210]      [146]"
  13. 14 gosub8500
  14. 15 sys57812"hi-res.o",d1,0:poke780,0:poke781,0:poke782,192:sys65493
  15. 16 sys57812"hi-res.sp",d1,0:poke780,0:poke781,64:poke782,3:sys65493
  16. 17 sys57812"reader 8000",d1,0:poke780,0:poke781,0:poke782,128:sys65493
  17. 19 sys57812"i-menu $cc00",d1,0:poke780,0:poke781,0:poke782,204:sys65493
  18. 20 poke32821,d1
  19. 54 sp$="              "
  20. 100 poke2040,13:poke2041,14:pokev+39,4:pokev+40,4
  21. 102 pokev,24:pokev+1,128:pokev+2,32:pokev+3,128:pokev+16,2
  22. 104 pokev+29,3:pokev+23,3:pokev+21,3
  23. 160 printchr$(14)"[147] [159][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][174]"
  24. 161 print" [221][153]    [200]i-[210]es/[208]rint[160][211]hop [195]onverter    [159][221]"
  25. 162 print" [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][192][192][192][189]":poke198,0
  26. 163 poke214,20:print:print" [129][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]"
  27. 164 print" [221][150]  [213]se [195][213][210][211][207][210] keys/[210][197][212][213][210][206] to select  [129][221]"
  28. 165 print" [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][192][192][192][192][189]"
  29. 166 m$=" "
  30. 170 print"[159][211]ource[158]:   [157][157][157]"d1,"[159][196]estination[158]:   [157][157][157]"dn:poke53275,3
  31. 175 sys52224,73,7,8,7,1,3,m$(1),m$(2),m$(3),m$(4),m$(5),m$(6),m$(7),m$(8),m$(9)
  32. 180 getk$:k=val(k$)
  33. 181 sys52227,0:pokev+21,0
  34. 185 onkgosub1000,1000,1000,3000,3000,3000,4000,9000,6000
  35. 190 sys52230,0:pokev+21,3
  36. 200 goto170
  37. 210 :
  38. 1000 gosub7000:ifflthenreturn
  39. 1005 ifk=1thensys49158:l1=0:l2=40:h1=32:h2=67:s1=8192:s2=22528
  40. 1007 ifk=2ork=3thensys49161:l1=0:l2=0:h1=92:h2=128:s1=24576:s2=22528
  41. 1010 sys57812s$,d1,0:poke780,0:poke781,0:poke782,88:sys65493
  42. 1011 dq=d1:gosub9050:ifer>1thenreturn
  43. 1012 ifd1=dnthengosub5000:goto1015
  44. 1013 open15,dn,15,"i0":input#15,er,er$,aa,aa:close15
  45. 1014 ifer>1thendq=dn:gosub9060:return
  46. 1015 gosub8000:poke214,19:print:print"[195]onverting...[154]"
  47. 1016 poke214,21:print:print"   '"s$"' to [154]'"d$"'"
  48. 1020 fori=0to5:poke214,19:print:printtab(13+i)".";:forj=0to7:fork=0to10
  49. 1025 b=s1+k*8+j+i*320
  50. 1030 pokeb,peek(s2):s2=s2+1
  51. 1035 next:next:next:print
  52. 1040 forj=0to3:fork=0to10
  53. 1045 b=s1+k*8+j+1920
  54. 1050 pokeb,peek(s2):s2=s2+1
  55. 1055 next:next
  56. 1065 open15,dn,15,"s0:"+d$:close15
  57. 1075 sys57812d$,dn:poke193,l1:poke194,h1:poke174,l2:poke175,h2:sys62954
  58. 1080 return
  59. 1085 :
  60. 3000 gosub7000:ifflthenreturn
  61. 3002 s1=8192:s2=22528:xx=32:ifk=5ork=6thens1=24576:s2=22528:xx=92
  62. 3003 sys57812s$,d1,0:poke780,0:poke781,0:poke782,xx:sys65493
  63. 3004 dq=d1:gosub9050:ifer>1thenreturn
  64. 3005 ifd1=dnthengosub5000:goto3008
  65. 3006 open15,dn,15,"i0":input#15,er,er$,aa,aa:close15
  66. 3007 ifer>1thendq=dn:gosub9060:return
  67. 3008 gosub8000:poke214,19:print:print"[195]onverting...[154]"
  68. 3009 poke214,21:print:print"   '"s$"' to [154]'"d$"'"
  69. 3010 fori=0to6:poke214,19:print:printtab(13+i)".";:forj=0to7:fork=0to10
  70. 3015 b=s1+k*8+j+i*320
  71. 3020 pokes2,peek(b):s2=s2+1
  72. 3025 next:next:next:print
  73. 3030 fori=23100to23107:pokei,0:next
  74. 3033 open15,dn,15,"s0:"+d$:close15
  75. 3035 sys57812d$,dn:poke193,0:poke194,88:poke174,67:poke175,90:sys62954
  76. 3040 return
  77. 3045 :
  78. 4000 sys52224+3,5
  79. 4002 poke214,2:print:printtab(11)"[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][174]"
  80. 4005 printtab(11)"[221][159]                          [221]"
  81. 4010 printtab(11)"[221][159] [198]1/[198]2   [211]ource drive: 00 [221]"
  82. 4015 printtab(11)"[221][159] [198]3/[198]4   [196]est.  drive: 00 [221]"
  83. 4020 printtab(11)"[221][159] [211]/[196]     [196]irectory        [221]"
  84. 4022 printtab(11)"[221][159] [210][197][212][213][210][206]  [205]enu             [221]"
  85. 4025 printtab(11)"[221][159]                          [221]"
  86. 4030 printtab(11)"[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][189][159]"
  87. 4035 poke214,4:print:printtab(35)""dr$(d1)
  88. 4040 printtab(35)""dr$(dn)
  89. 4050 getk$:ifk$=""then4050
  90. 4055 ifk$=chr$(13)then4110
  91. 4060 ifk$="s"thenpokev+21,0:sys52224+3,6:print"[147]":sys49155,d1:goto4100
  92. 4065 ifk$="d"thenpokev+21,0:sys52224+3,6:print"[147]":sys49155,dn:goto4100
  93. 4070 ifk$=chr$(133)thend1=d1+1:ifd1>15thend1=8
  94. 4075 ifk$=chr$(137)thend1=d1-1:ifd1<8thend1=15
  95. 4080 ifk$=chr$(134)thendn=dn+1:ifdn>15thendn=8
  96. 4085 ifk$=chr$(138)thendn=dn-1:ifdn<8thendn=15
  97. 4090 goto4035
  98. 4100 poke198,0
  99. 4102 printtab(14)"[154][208]ress a key"
  100. 4105 getk$:ifk$=""then4105
  101. 4107 sys52224+6,6:goto4002
  102. 4110 sys52224+6,5:return
  103. 4115 :
  104. 5000 poke214,22:print:print"[158][201]nsert destination disk and press a key":poke198,0
  105. 5010 geta$:ifa$=""then5010
  106. 5020 poke781,23:sys59903
  107. 5030 return
  108. 6000 gosub8000:poke214,20:print:printtab(11)"[150][193]re [217]ou [211]ure? [y[150]/n[150]]":poke198,0
  109. 6005 getk$:ifk$=""then6005
  110. 6010 ifk$<>"y"thenreturn
  111. 6015 pokev+21,0:poke56,160:clr
  112. 6020 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  113. 6025 ifer%<>63thenend
  114. 6030 poke646,peek(53281):print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  115. 6035 print"run"
  116. 6040 poke631,13:poke632,13:poke198,2:end
  117. 6045 :
  118. 7000 sys52227,1:gosub8000
  119. 7002 fl=0:poke214,20:print:print" [154][211]ource [198]ilename: ";
  120. 7005 sys49152,16,2:iflen(a$)=0thenfl=1:return
  121. 7009 s$=a$
  122. 7010 ifk=1thend$=left$(s$+sp$,13)+"pic"
  123. 7011 ifk=2thend$="dd"+left$(s$,14)
  124. 7012 ifk=3thend$="rph."+left$(s$,12)
  125. 7013 ifk=4thend$=left$(s$,14)+"-3":s$=left$(s$+sp$,13)+"pic"
  126. 7014 ifk=5thend$=left$(s$,14)+"-3":s$="dd"+s$
  127. 7015 ifk=6thend$=left$(s$,14)+"-3":s$="rph."+s$
  128. 7016 return
  129. 7020 :
  130. 8000 fori=21to23:poke781,i:sys59903:next:return
  131. 8005 :
  132. 8500 dimdr$(15):fori=0to15:readdr$(i):next
  133. 8505 data 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15
  134. 8510 d1=peek(186):ifd1<8thend1=8
  135. 8515 dn=8:fori=8to15:open15,i,15:close15
  136. 8520 ifst=0andi<>d1thendn=i:i=15
  137. 8525 next:return
  138. 8530 :
  139. 9000 open15,d1,15,"r0:hi-res instr=hi-res instr":input#15,er,er$,aa,aa:close15
  140. 9005 ifer<>63thenreturn
  141. 9010 sys32768,"hi-res instr","[200]i-[210]es/[208][211] [195]onverter [201]nstructions"
  142. 9020 return
  143. 9025 :
  144. 9050 open15,dq,15:input#15,er,er$,aa,aa:close15
  145. 9055 ifer=0thenreturn
  146. 9060 poke214,22:print:print"[150][196]rive"dq" - "er$" - [208]ress a key"
  147. 9065 geta$:ifa$=""then9065
  148. 9070 return
  149. 10000 open15,8,15,"s0:hi-res/ps":close15:save"0:hi-res/ps",8:end
  150. 60000 b9$="                                      "
  151. 60010 poke214,14:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  152. 60020 fori=0to7:printb9$:next:print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  153. 60030 b9$(0)="[200][201]-[210][197][211] [212][207] [208][210][201][206][212] [211][200][207][208]
  154. 60040 b9$(1)[178]"by peekarbara (NULL)chulak
  155. 60050 b9$(2)="([195]) 1991 by [211]oftdisk, [201]nc."
  156. 60060 b9$(3)="[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #88"
  157. 60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
  158. 60080 b9$(5)="[193]l