home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 October / 64er_Magazin_89-10_1989_Markt__Technik_de_Side_A.d64 / e-basic-entpacke (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  87 lines
  1. 10 dimf$(1,255):
  2. 11 : print"[147] basic-entpacker":
  3. 12 : open15,8,15,"i0":
  4. 13 : x=34:
  5. 14 : fori=1to255
  6. 20 a$=chr$(i):
  7. 21 : f$(0,i)=a$:
  8. 22 : f$(1,i)=a$:
  9. 23 : next:
  10. 24 : fori=128to203:
  11. 25 : readf$(0,i):
  12. 26 : next
  13. 30 input"programmname: ";p$:
  14. 31 : open1,8,3,p$+",p,r":
  15. 32 : gosub130:
  16. 33 : p$="e-"+p$:
  17. 34 : n$=chr$(0)
  18. 40 open2,8,4,"@0:"+p$+",p,w":
  19. 41 : gosub130:
  20. 42 : fori=1to2:
  21. 43 : gosub150:
  22. 44 : gosub120:
  23. 45 : next
  24. 50 q=0:
  25. 51 : p=1:
  26. 52 : gosub150:
  27. 53 : gosub120:
  28. 54 : b=a:
  29. 55 : gosub150:
  30. 56 : gosub120:
  31. 57 : v$=n$+chr$(b)+chr$(a)
  32. 60 gosub150:
  33. 61 : gosub120:
  34. 62 : b=a:
  35. 63 : gosub150:
  36. 64 : gosub120:
  37. 65 : v$=v$+chr$(b)+chr$(a):
  38. 66 : print256*a+b;
  39. 70 gosub150:
  40. 71 : p=(a-139)*(a-143):
  41. 72 : q=q+1-c:
  42. 73 : q=q-2*int(q/2):
  43. 74 : ifa<>58orq<>0orp=0then100
  44. 80 ln=256*asc(right$(v$,1))+asc(right$(v$,2)):
  45. 81 : ln=ln+1:
  46. 82 : u%=ln/256:
  47. 83 : v%=ln-256*u%
  48. 90 v$=left$(v$,3)+chr$(v%)+chr$(u%):
  49. 91 : print:
  50. 92 : println;" ";:
  51. 93 : a$=":"+v$+": "
  52. 100 printf$(q,a);:
  53. 101 : gosub120:
  54. 102 : ifa<>0then70
  55. 110 print:
  56. 111 : goto50:
  57. 112 : data end,for,next,data
  58. 120 print#2,a$;:
  59. 121 : gosub130:
  60. 122 : return
  61. 130 s=st:
  62. 131 : input#15,en,em$,et,es:
  63. 132 : ifen<2thenreturn
  64. 140 print:
  65. 141 : print"disk error":
  66. 142 : printen,em$;et;es:
  67. 143 : close1:
  68. 144 : close2:
  69. 145 : close15:
  70. 146 : end
  71. 150 get#1,a$:
  72. 151 : gosub130:
  73. 152 : ifs=0thena=asc(a$+n$):
  74. 153 : a$=chr$(a):
  75. 154 : c=abs(sgn(a-x)):
  76. 155 : return
  77. 160 a$=n$+n$:
  78. 161 : gosub120:
  79. 162 : close1:
  80. 163 : close2:
  81. 164 : end:
  82. 165 : data input#,input,dim,read,let,goto,run
  83. 170 data if,restore,gosub,return,rem,stop,on,wait,load,save,verify,def,poke
  84. 180 data print#,print,cont,list,clr,cmd,sys,open,close,get,new,tab(,to,fn,spc(
  85. 190 data then,not,step,+,-,*,/,^,and,or,>,=,<,sgn,int,abs,usr,fre,pos,sqr,rnd
  86. 200 data log,exp,cos,sin,tan,atn,peek,len,str$,val,asc,chr$,left$,right$,mid$,go
  87.