home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 88 / 088.d81 / hi-res_ft (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  4.7 KB  |  153 lines
  1. 100 poke55,0:poke56,32:clr:a$="":dv=peek(186):ifdv<8thendv=8
  2. 110 poke53280,0:poke53281,0:v=53248
  3. 115 print"[147]":gosub60000
  4. 120 dimm$(9),dr$(15):fori=1to9:readm$(i):next
  5. 125 fori=1to15:readdr$(i):next
  6. 130 data " [198]ont to [207][195][208]             "
  7. 140 data " [198]ont to [196]oodle          "
  8. 150 data " [198]ont to [210]un [208]aint       "
  9. 160 data " [207][195][208] to [198]ont             "
  10. 170 data " [196]oodle to [198]ont          "
  11. 180 data " [210][213][206] [208]aint to [198]ont       "
  12. 190 data " [196]isk [198]unctions          "
  13. 200 data " [201]nstructions            "
  14. 210 data " [210]eturn to [204]oadstar      [146]"
  15. 215 data01,02,03,04,05,06,07,08,09,10,11,12,13,14,15
  16. 220 sys57812"hf.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  17. 230 sys57812"hf.sp",dv,0:poke780,0:poke781,64:poke782,3:sys65493
  18. 240 sys57812"hfreader 8000",dv,0:poke780,0:poke781,0:poke782,128:sys65493
  19. 250 sys57812"hfi-menu $cc00",dv,0:poke780,0:poke781,0:poke782,204:sys65493
  20. 260 poke32821,dv
  21. 270 d1=dv:dn=8:fori=9to15:open15,i,15:close15
  22. 280 ifst=0thendn=i:i=15
  23. 290 next
  24. 300 :
  25. 320 sp$="              ":er=0
  26. 330 poke2040,13:poke2041,14:pokev+39,4:pokev+40,4
  27. 340 pokev,24:pokev+1,128:pokev+2,32:pokev+3,128:pokev+16,2
  28. 350 pokev+29,3:pokev+23,3:pokev+21,3
  29. 360 printchr$(14)"[147] [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]"
  30. 370 print" [221][153]       [200]i-[210]es/[198]ont [195]onverter       [221]"
  31. 380 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
  32. 390 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]"
  33. 400 print" [221][150]  [213]se [195][213][210][211][207][210] keys/[210][197][212][213][210][206] to select  [129][221]"
  34. 410 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]"
  35. 420 m$=" "
  36. 430 print"[159][211]ource[158]:   [157][157][157]"d1,"[159][196]estination[158]:   [157][157][157]"dn:poke53275,3
  37. 435 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)
  38. 440 getk$:k=val(k$)
  39. 450 sys52227,0:pokev+21,0
  40. 460 onkgosub500,500,500,720,720,720,4000,1260,1020
  41. 470 sys52230,0:pokev+21,3
  42. 480 goto430
  43. 490 :
  44. 500 gosub1120:ifflthenreturn
  45. 510 ifk=1thensys49158:l1=0:l2=40:h1=32:h2=67:s1=8192:s2=28672:xx=112:goto520
  46. 515 sys49161:l1=0:l2=0:h1=92:h2=128:s1=24576:s2=14336:xx=56
  47. 520 sys57812s$,d1,0:poke780,0:poke781,0:poke782,xx:sys65493
  48. 525 dq=d1:gosub1300:ifer>1thenreturn
  49. 527 ifd1=dnthengosub2000
  50. 530 gosub1240:poke214,19:print:print"[195]onverting...[154]"
  51. 540 poke214,21:print:print"   '"s$"' to [154]'"d$"'"
  52. 550 ifk=1thensys49167:goto590
  53. 560 sys49173
  54. 590 gosub1400:ifer>1thenreturn
  55. 600 sys57812d$,dn:poke193,l1:poke194,h1:poke174,l2:poke175,h2:sys62954
  56. 610 return
  57. 620 :
  58. 720 gosub1120:ifflthenreturn
  59. 725 ifk=4thens1=8192:s2=28672:h1=112:h2=120:xx=32:goto730
  60. 727 s1=24576:s2=14336:h1=56:h2=64:xx=92
  61. 730 sys57812s$,d1,0:poke780,0:poke781,0:poke782,xx:sys65493
  62. 735 dq=d1:gosub1300:ifer>1thenreturn
  63. 738 ifd1=dnthengosub2000
  64. 750 gosub1240:poke214,19:print:print"[195]onverting...[154]"
  65. 760 poke214,21:print:print"   '"s$"' to [154]'"d$"'"
  66. 800 ifk=4thensys49164:goto805
  67. 802 sys49170
  68. 805 gosub1400:ifer>1thenreturn
  69. 810 sys57812d$,dn,0:poke193,0:poke194,h1:poke174,0:poke175,h2:sys62954
  70. 820 return
  71. 830 :
  72. 1020 gosub1240:poke214,20:print:printtab(11)"[150][193]re [217]ou [211]ure? [y[150]/n[150]]":poke198,0
  73. 1030 getk$:ifk$=""then1030
  74. 1040 ifk$<>"y"thenreturn
  75. 1050 pokev+21,0:poke56,160:clr
  76. 1060 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  77. 1070 ifer%<>63thenend
  78. 1080 poke646,peek(53281):print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  79. 1090 print"run"
  80. 1100 poke631,13:poke632,13:poke198,2:end
  81. 1110 :
  82. 1120 sys52227,1:gosub1240
  83. 1130 fl=0:poke214,20:print:print" [154][211]ource [198]ilename: ";
  84. 1140 sys49152,16,2:iflen(a$)=0thenfl=1:return
  85. 1150 s$=a$
  86. 1160 ifk=1thend$=left$(s$+sp$,13)+"pic"
  87. 1170 ifk=2thend$="dd"+left$(s$,14)
  88. 1180 ifk=3thend$="rph."+left$(s$,12)
  89. 1190 ifk=4thend$=left$(s$,14)+"-o":s$=left$(s$+sp$,13)+"pic"
  90. 1200 ifk=5thend$=left$(s$,14)+"-d":s$="dd"+s$
  91. 1210 ifk=6thend$=left$(s$,14)+"-r":s$="rph."+s$
  92. 1220 return
  93. 1230 :
  94. 1240 fori=21to23:poke781,i:sys59903:next:return
  95. 1250 :
  96. 1260 open15,d1,15,"r0:hf instr=hf instr":input#15,er,er$,aa,aa:close15
  97. 1262 ifer<>63thenreturn
  98. 1270 sys32768,"hf instr","[200]i-[210]es/[198]ont [195]onverter [201]nstructions"
  99. 1280 return
  100. 1290 :
  101. 1300 open15,dq,15:input#15,er,er$,aa,aa:close15
  102. 1310 ifer=0thenreturn
  103. 1320 poke214,22:print:print"[150][196]rive"dq"- "er$" - [208]ress a key"
  104. 1330 geta$:ifa$=""then1330
  105. 1340 return
  106. 1350 :
  107. 1400 open15,dn,15,"i0":input#15,er,er$,aa,aa:close15
  108. 1410 ifer>1thendq=dn:gosub1320:return
  109. 1420 open15,dn,15,"s0:"+d$:close15:return
  110. 1430 :
  111. 2000 poke214,22:print:print"[158][201]nsert destination disk and press a key":poke198,0
  112. 2010 geta$:ifa$=""then2010
  113. 2020 poke781,23:sys59903
  114. 2030 return
  115. 4000 sys52224+3,5
  116. 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]"
  117. 4005 printtab(11)"[221][159]                          [221]"
  118. 4010 printtab(11)"[221][159] [198]1/[198]2   [211]ource drive: 00 [221]"
  119. 4015 printtab(11)"[221][159] [198]3/[198]4   [196]est.  drive: 00 [221]"
  120. 4020 printtab(11)"[221][159] [211]/[196]     [196]irectory        [221]"
  121. 4022 printtab(11)"[221][159] [210][197][212][213][210][206]  [205]enu             [221]"
  122. 4025 printtab(11)"[221][159]                          [221]"
  123. 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]"
  124. 4035 poke214,4:print:printtab(35)""dr$(d1)
  125. 4040 printtab(35)""dr$(dn)
  126. 4050 getk$:ifk$=""then4050
  127. 4055 ifk$=chr$(13)then4110
  128. 4060 ifk$="s"thenpokev+21,0:sys52224+3,6:print"[147]":sys49155,d1:goto4100
  129. 4065 ifk$="d"thenpokev+21,0:sys52224+3,6:print"[147]":sys49155,dn:goto4100
  130. 4070 ifk$=chr$(133)thend1=d1+1:ifd1>15thend1=8
  131. 4075 ifk$=chr$(137)thend1=d1-1:ifd1<8thend1=15
  132. 4080 ifk$=chr$(134)thendn=dn+1:ifdn>15thendn=8
  133. 4085 ifk$=chr$(138)thendn=dn-1:ifdn<8thendn=15
  134. 4090 goto4035
  135. 4100 poke198,0
  136. 4102 printtab(14)"[154][208]ress a key"
  137. 4105 getk$:ifk$=""then4105
  138. 4107 sys52224+6,6:goto4002
  139. 4110 sys52224+6,5:return
  140. 4115 :
  141. 10000 open15,8,15,"s0:hi-res/ft":close15:save"0:hi-res/ft",8:end
  142. 60000 b9$="                                      "
  143. 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]"
  144. 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]"
  145. 60030 b9$(0)="[200][201]-[210][197][211] [212][207] [198][207][206][212]
  146. 60040 b9$(1)[178]"by peekarbara (NULL)chulak
  147. 60050 b9$(2)="([195]) 1991 by [211]oftdisk, [201]nc."
  148. 60060 b9$(3)="[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #88"
  149. 60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
  150. 60080 b9$(5)="[193]ll [210]ights [210]eserved"
  151. 60090 poke214,16:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
  152. 60099 return
  153.