home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
89xx
/
8910a.d64
/
e-basic-entpacke
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
87 lines
10 DIMF$(1,255):
11 : PRINT"[147] BASIC-ENTPACKER":
12 : OPEN15,8,15,"I0":
13 : X=34:
14 : FORI=1TO255
20 A$=CHR$(I):
21 : F$(0,I)=A$:
22 : F$(1,I)=A$:
23 : NEXT:
24 : FORI=128TO203:
25 : READF$(0,I):
26 : NEXT
30 INPUT"PROGRAMMNAME: ";P$:
31 : OPEN1,8,3,P$+",P,R":
32 : GOSUB130:
33 : P$="E-"+P$:
34 : N$=CHR$(0)
40 OPEN2,8,4,"@0:"+P$+",P,W":
41 : GOSUB130:
42 : FORI=1TO2:
43 : GOSUB150:
44 : GOSUB120:
45 : NEXT
50 Q=0:
51 : P=1:
52 : GOSUB150:
53 : GOSUB120:
54 : B=A:
55 : GOSUB150:
56 : GOSUB120:
57 : V$=N$+CHR$(B)+CHR$(A)
60 GOSUB150:
61 : GOSUB120:
62 : B=A:
63 : GOSUB150:
64 : GOSUB120:
65 : V$=V$+CHR$(B)+CHR$(A):
66 : PRINT256*A+B;
70 GOSUB150:
71 : P=(A-139)*(A-143):
72 : Q=Q+1-C:
73 : Q=Q-2*INT(Q/2):
74 : IFA<>58ORQ<>0ORP=0THEN100
80 LN=256*ASC(RIGHT$(V$,1))+ASC(RIGHT$(V$,2)):
81 : LN=LN+1:
82 : U%=LN/256:
83 : V%=LN-256*U%
90 V$=LEFT$(V$,3)+CHR$(V%)+CHR$(U%):
91 : PRINT:
92 : PRINTLN;" ";:
93 : A$=":"+V$+": "
100 PRINTF$(Q,A);:
101 : GOSUB120:
102 : IFA<>0THEN70
110 PRINT:
111 : GOTO50:
112 : DATA END,FOR,NEXT,DATA
120 PRINT#2,A$;:
121 : GOSUB130:
122 : RETURN
130 S=ST:
131 : INPUT#15,EN,EM$,ET,ES:
132 : IFEN<2THENRETURN
140 PRINT:
141 : PRINT"DISK ERROR":
142 : PRINTEN,EM$;ET;ES:
143 : CLOSE1:
144 : CLOSE2:
145 : CLOSE15:
146 : END
150 GET#1,A$:
151 : GOSUB130:
152 : IFS=0THENA=ASC(A$+N$):
153 : A$=CHR$(A):
154 : C=ABS(SGN(A-X)):
155 : RETURN
160 A$=N$+N$:
161 : GOSUB120:
162 : CLOSE1:
163 : CLOSE2:
164 : END:
165 : DATA INPUT#,INPUT,DIM,READ,LET,GOTO,RUN
170 DATA IF,RESTORE,GOSUB,RETURN,REM,STOP,ON,WAIT,LOAD,SAVE,VERIFY,DEF,POKE
180 DATA PRINT#,PRINT,CONT,LIST,CLR,CMD,SYS,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC(
190 DATA THEN,NOT,STEP,+,-,*,/,^,AND,OR,>,=,<,SGN,INT,ABS,USR,FRE,POS,SQR,RND
200 DATA LOG,EXP,COS,SIN,TAN,ATN,PEEK,LEN,STR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$,GO