home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8910a.d64 / basic-entpacker (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 10 DIMF$(1,255):PRINT"[147] BASIC-ENTPACKER":OPEN15,8,15,"I0":X=34:FORI=1TO255
  2. 20 A$=CHR$(I):F$(0,I)=A$:F$(1,I)=A$:NEXT:FORI=128TO203:READF$(0,I):NEXT
  3. 30 INPUT"PROGRAMMNAME: ";P$:OPEN1,8,3,P$+",P,R":GOSUB130:P$="E-"+P$:N$=CHR$(0)
  4. 40 OPEN2,8,4,"@0:"+P$+",P,W":GOSUB130:FORI=1TO2:GOSUB150:GOSUB120:NEXT
  5. 50 Q=0:P=1:GOSUB150:GOSUB120:B=A:GOSUB150:GOSUB120:V$=N$+CHR$(B)+CHR$(A)
  6. 60 GOSUB150:GOSUB120:B=A:GOSUB150:GOSUB120:V$=V$+CHR$(B)+CHR$(A):PRINT256*A+B;
  7. 70 GOSUB150:P=(A-139)*(A-143):Q=Q+1-C:Q=Q-2*INT(Q/2):IFA<>58ORQ<>0ORP=0THEN100
  8. 80 LN=256*ASC(RIGHT$(V$,1))+ASC(RIGHT$(V$,2)):LN=LN+1:U%=LN/256:V%=LN-256*U%
  9. 90 V$=LEFT$(V$,3)+CHR$(V%)+CHR$(U%):PRINT:PRINTLN;" ";:A$=":"+V$+": "
  10. 100 PRINTF$(Q,A);:GOSUB120:IFA<>0THEN70
  11. 110 PRINT:GOTO50:DATA END,FOR,NEXT,DATA
  12. 120 PRINT#2,A$;:GOSUB130:RETURN
  13. 130 S=ST:INPUT#15,EN,EM$,ET,ES:IFEN<2THENRETURN
  14. 140 PRINT:PRINT"DISK ERROR":PRINTEN,EM$;ET;ES:CLOSE1:CLOSE2:CLOSE15:END
  15. 150 GET#1,A$:GOSUB130:IFS=0THENA=ASC(A$+N$):A$=CHR$(A):C=ABS(SGN(A-X)):RETURN
  16. 160 A$=N$+N$:GOSUB120:CLOSE1:CLOSE2:END:DATA INPUT#,INPUT,DIM,READ,LET,GOTO,RUN
  17. 170 DATA IF,RESTORE,GOSUB,RETURN,REM,STOP,ON,WAIT,LOAD,SAVE,VERIFY,DEF,POKE
  18. 180 DATA PRINT#,PRINT,CONT,LIST,CLR,CMD,SYS,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC(
  19. 190 DATA THEN,NOT,STEP,+,-,*,/,^,AND,OR,>,=,<,SGN,INT,ABS,USR,FRE,POS,SQR,RND
  20. 200 DATA LOG,EXP,COS,SIN,TAN,ATN,PEEK,LEN,STR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$,GO
  21.