home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8910a.d64 / e-basic-entpacke (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.