home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1998-01_1998_CSW_Side_B.d64 / hyperlink2.rr2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  13KB  |  81 lines
  1. 0 n=1:gosub58:print"[147]":poke53281,0
  2. 1 ifpeek(45)+peek(46)*256<>4591then76
  3. 2 poke45,0:poke46,157:poke47,0:poke48,157:poke49,0:poke50,157
  4. 3 m=4608:nt=0:ns=0:bp=-1:e=-1:t=0:s=0:z$=chr$(0)
  5. 4 printchr$(142)+"filename = ";
  6. 5 cr$=chr$(13):dl$=chr$(20):f$="":fl=0
  7. 6 geti$:ifi$=""then6
  8. 7 i=asc(i$)
  9. 8 ifflandi=13then16
  10. 9 ifflandi=20then13
  11. 10 iffl=16ori<32ori>122then6
  12. 11 ifi=34ori=36ori=42ori=44ori=58ori=59ori=63ori=64ori=96then6
  13. 12 fl=fl+1:f$=f$+i$:goto14
  14. 13 fl=fl-1:f$=left$(f$,fl)
  15. 14 printi$;:goto6
  16. 15 iffl=0then6
  17. 16 printcr$+"device#  = ";
  18. 17 getd$:ifd$<>"1"andd$<>"8"andd$<>"9"then17
  19. 18 printd$;:d=val(d$)
  20. 19 getdd$:ifdd$=cr$andd$<>"1"then25
  21. 20 ifdd$=dl$thenprintdd$;:goto17
  22. 21 ifdd$<"0"ordd$>"5"then19
  23. 22 printdd$;:d=val(d$)*10+val(dd$)
  24. 23 geti$:ifi$=dl$thenprinti$;:goto19
  25. 24 ifi$<>cr$then23
  26. 25 open15,d,15:close15
  27. 26 ifst=-128thenprint"[147]no device, no dice":end
  28. 27 open15,d,15:print#15,"r0:"+f$+"=0:"+f$
  29. 28 gosub75:ifen<>63thenprint"[147]"+em$:goto52
  30. 29 open2,d,2,"#"
  31. 30 nt=255:gosub74:ifen<>66thennt=1:ns=1:goto33
  32. 31 nt=40:gosub74:ifen<>66thenns=3:goto33
  33. 32 nt=18:ns=1
  34. 33 print#15,"u1";2;0;nt;ns:bp=-1
  35. 34 get#2,nt$,ns$:nt=asc(nt$+z$):ns=asc(ns$+z$)
  36. 35 get#2,ft$:ft=asc(ft$+z$)
  37. 36 ifft=129orft=193then41
  38. 37 ifbpthen40
  39. 38 ifnt=0thenprint"[147]illegal filetype":goto52
  40. 39 restore:goto33
  41. 40 readbp:readbp:print#15,"b-p";2;bp:goto35
  42. 41 gosub57:forx=1tolen(f$):get#2,x$
  43. 42 ifx$=mid$(f$,x,1)thennext:goto44
  44. 43 x=len(f$):next:goto40
  45. 44 readbp:print#15,"b-p";2;bp:get#2,lb$,hb$
  46. 45 fl=asc(lb$+z$)+(asc(hb$+z$)*256)
  47. 46 iffl>0andfl<139thene=0:goto48
  48. 47 print"[147]illegal filelength":goto52
  49. 48 n=23:gosub58
  50. 49 print#15,"u1";2;0;t;s
  51. 50 gosub57:c=s:iftthenc=255
  52. 51 forx=2toc:get#2,c$:pokem,asc(c$+z$):m=m+1:next:iftthen49
  53. 52 close2:close15:ifethenend
  54. 53 h=int(m/256):l=m-h*256
  55. 54 poke4348,0:poke4349,18:poke4350,l:poke4351,h:clr
  56. 55 poke45,peek(4350):poke46,peek(4351):poke47,peek(4350)
  57. 56 poke48,peek(4351):poke49,peek(4350):poke50,peek(4351):end
  58. 57 get#2,t$,s$:t=asc(t$+z$):s=asc(s$+z$):return
  59. 58 poke53280,0:poke53281,1
  60. 59 m$="  [208]ress the [193][206][217] key   [208]atience is a virtue. "
  61. 60 print"[147]"+chr$(14);
  62. 61 fory=4to19:poke214,y:print
  63. 62 printtab(8)"                       [146][152][161]":next
  64. 63 poke214,4:print:printtab(31)"[187]"
  65. 64 fory=11to19step4:poke214,y:print
  66. 65 printtab(8)"[152][188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190][157][187]";:next:print"[157] "
  67. 66 poke214,5:print:printtab(9)"-  [210] [193] [205] [211] [208] [197] [197] [196]  -"
  68. 67 poke214,7:print:printtab(10)"-   [210] [197] [193] [196] [197] [210]   -"
  69. 68 poke214,9:print:printtab(11)"-  -  v 2.0  -  -"
  70. 69 poke214,13:print:printtab(10)"([195])1996 [205]yke [195]arter"
  71. 70 poke214,17:print:printtab(9)""+mid$(m$,n,22)+"[144]"
  72. 71 ifn=23thenreturn
  73. 72 geti$:ifi$=""then72
  74. 73 print"";:return
  75. 74 print#15,"u1";2;0;nt;ns
  76. 75 input#15,en,em$:return
  77. 76 forx=251to254:pokex,peek(x+4097):next:print"[147]";:poke53281,0
  78. 77 sys4352:end:d=peek(186):load"",d,1
  79. 78 data 30,34,62,66,94,98,126,130,158,162,190,194,222,226,254,0
  80. 79 poke45,239:poke46,17:run
  81.