BASIC-ENTPACKER

00000000: 01 08 43 08 0A 00 86 46  24 28 31 2C 32 35 35 29  |..C....F$(1,255)|
00000010: 3A 99 22 93 11 20 42 41  53 49 43 2D 45 4E 54 50  |:.".. BASIC-ENTP|
00000020: 41 43 4B 45 52 11 22 3A  9F 31 35 2C 38 2C 31 35  |ACKER.":.15,8,15|
00000030: 2C 22 49 30 22 3A 58 B2  33 34 3A 81 49 B2 31 A4  |,"I0":X.34:.I.1.|
00000040: 32 35 35 00 7D 08 14 00  41 24 B2 C7 28 49 29 3A  |255.}...A$..(I):|
00000050: 46 24 28 30 2C 49 29 B2  41 24 3A 46 24 28 31 2C  |F$(0,I).A$:F$(1,|
00000060: 49 29 B2 41 24 3A 82 3A  81 49 B2 31 32 38 A4 32  |I).A$:.:.I.128.2|
00000070: 30 33 3A 87 46 24 28 30  2C 49 29 3A 82 00 C0 08  |03:.F$(0,I):....|
00000080: 1E 00 85 22 11 50 52 4F  47 52 41 4D 4D 4E 41 4D  |...".PROGRAMMNAM|
00000090: 45 3A 20 22 3B 50 24 3A  9F 31 2C 38 2C 33 2C 50  |E: ";P$:.1,8,3,P|
000000A0: 24 AA 22 2C 50 2C 52 22  3A 8D 31 33 30 3A 50 24  |$.",P,R":.130:P$|
000000B0: B2 22 45 2D 22 AA 50 24  3A 4E 24 B2 C7 28 30 29  |."E-".P$:N$..(0)|
000000C0: 00 F3 08 28 00 9F 32 2C  38 2C 34 2C 22 40 30 3A  |...(..2,8,4,"@0:|
000000D0: 22 AA 50 24 AA 22 2C 50  2C 57 22 3A 8D 31 33 30  |".P$.",P,W":.130|
000000E0: 3A 81 49 B2 31 A4 32 3A  8D 31 35 30 3A 8D 31 32  |:.I.1.2:.150:.12|
000000F0: 30 3A 82 00 27 09 32 00  51 B2 30 3A 50 B2 31 3A  |0:..'.2.Q.0:P.1:|
00000100: 8D 31 35 30 3A 8D 31 32  30 3A 42 B2 41 3A 8D 31  |.150:.120:B.A:.1|
00000110: 35 30 3A 8D 31 32 30 3A  56 24 B2 4E 24 AA C7 28  |50:.120:V$.N$..(|
00000120: 42 29 AA C7 28 41 29 00  5D 09 3C 00 8D 31 35 30  |B)..(A).].<..150|
00000130: 3A 8D 31 32 30 3A 42 B2  41 3A 8D 31 35 30 3A 8D  |:.120:B.A:.150:.|
00000140: 31 32 30 3A 56 24 B2 56  24 AA C7 28 42 29 AA C7  |120:V$.V$..(B)..|
00000150: 28 41 29 3A 99 32 35 36  AC 41 AA 42 3B 00 A1 09  |(A):.256.A.B;...|
00000160: 46 00 8D 31 35 30 3A 50  B2 28 41 AB 31 33 39 29  |F..150:P.(A.139)|
00000170: AC 28 41 AB 31 34 33 29  3A 51 B2 51 AA 31 AB 43  |.(A.143):Q.Q.1.C|
00000180: 3A 51 B2 51 AB 32 AC B5  28 51 AD 32 29 3A 8B 41  |:Q.Q.2..(Q.2):.A|
00000190: B3 B1 35 38 B0 51 B3 B1  30 B0 50 B2 30 A7 31 30  |..58.Q..0.P.0.10|
000001A0: 30 00 E1 09 50 00 4C 4E  B2 32 35 36 AC C6 28 C9  |0...P.LN.256..(.|
000001B0: 28 56 24 2C 31 29 29 AA  C6 28 C9 28 56 24 2C 32  |(V$,1))..(.(V$,2|
000001C0: 29 29 3A 4C 4E B2 4C 4E  AA 31 3A 55 25 B2 4C 4E  |)):LN.LN.1:U%.LN|
000001D0: AD 32 35 36 3A 56 25 B2  4C 4E AB 32 35 36 AC 55  |.256:V%.LN.256.U|
000001E0: 25 00 16 0A 5A 00 56 24  B2 C8 28 56 24 2C 33 29  |%...Z.V$..(V$,3)|
000001F0: AA C7 28 56 25 29 AA C7  28 55 25 29 3A 99 3A 99  |..(V%)..(U%):.:.|
00000200: 4C 4E 3B 22 20 22 3B 3A  41 24 B2 22 3A 22 AA 56  |LN;" ";:A$.":".V|
00000210: 24 AA 22 3A 20 22 00 32  0A 64 00 99 46 24 28 51  |$.": ".2.d..F$(Q|
00000220: 2C 41 29 3B 3A 8D 31 32  30 3A 8B 41 B3 B1 30 A7  |,A);:.120:.A..0.|
00000230: 37 30 00 50 0A 6E 00 99  3A 89 35 30 3A 83 20 45  |70.P.n..:.50:. E|
00000240: 4E 44 2C 46 4F 52 2C 4E  45 58 54 2C 44 41 54 41  |ND,FOR,NEXT,DATA|
00000250: 00 62 0A 78 00 98 32 2C  41 24 3B 3A 8D 31 33 30  |.b.x..2,A$;:.130|
00000260: 3A 8E 00 84 0A 82 00 53  B2 53 54 3A 84 31 35 2C  |:......S.ST:.15,|
00000270: 45 4E 2C 45 4D 24 2C 45  54 2C 45 53 3A 8B 45 4E  |EN,EM$,ET,ES:.EN|
00000280: B3 32 A7 8E 00 B7 0A 8C  00 99 3A 99 22 11 11 11  |.2........:."...|
00000290: 12 44 49 53 4B 20 45 52  52 4F 52 11 22 3A 99 45  |.DISK ERROR.":.E|
000002A0: 4E 2C 45 4D 24 3B 45 54  3B 45 53 3A A0 31 3A A0  |N,EM$;ET;ES:.1:.|
000002B0: 32 3A A0 31 35 3A 80 00  ED 0A 96 00 A1 23 31 2C  |2:.15:.......#1,|
000002C0: 41 24 3A 8D 31 33 30 3A  8B 53 B2 30 A7 41 B2 C6  |A$:.130:.S.0.A..|
000002D0: 28 41 24 AA 4E 24 29 3A  41 24 B2 C7 28 41 29 3A  |(A$.N$):A$..(A):|
000002E0: 43 B2 B6 28 B4 28 41 AB  58 29 29 3A 8E 00 2C 0B  |C..(.(A.X)):..,.|
000002F0: A0 00 41 24 B2 4E 24 AA  4E 24 3A 8D 31 32 30 3A  |..A$.N$.N$:.120:|
00000300: A0 31 3A A0 32 3A 80 3A  83 20 49 4E 50 55 54 23  |.1:.2:.:. INPUT#|
00000310: 2C 49 4E 50 55 54 2C 44  49 4D 2C 52 45 41 44 2C  |,INPUT,DIM,READ,|
00000320: 4C 45 54 2C 47 4F 54 4F  2C 52 55 4E 00 75 0B AA  |LET,GOTO,RUN.u..|
00000330: 00 83 20 49 46 2C 52 45  53 54 4F 52 45 2C 47 4F  |.. IF,RESTORE,GO|
00000340: 53 55 42 2C 52 45 54 55  52 4E 2C 52 45 4D 2C 53  |SUB,RETURN,REM,S|
00000350: 54 4F 50 2C 4F 4E 2C 57  41 49 54 2C 4C 4F 41 44  |TOP,ON,WAIT,LOAD|
00000360: 2C 53 41 56 45 2C 56 45  52 49 46 59 2C 44 45 46  |,SAVE,VERIFY,DEF|
00000370: 2C 50 4F 4B 45 00 C1 0B  B4 00 83 20 50 52 49 4E  |,POKE...... PRIN|
00000380: 54 23 2C 50 52 49 4E 54  2C 43 4F 4E 54 2C 4C 49  |T#,PRINT,CONT,LI|
00000390: 53 54 2C 43 4C 52 2C 43  4D 44 2C 53 59 53 2C 4F  |ST,CLR,CMD,SYS,O|
000003A0: 50 45 4E 2C 43 4C 4F 53  45 2C 47 45 54 2C 4E 45  |PEN,CLOSE,GET,NE|
000003B0: 57 2C 54 41 42 28 2C 54  4F 2C 46 4E 2C 53 50 43  |W,TAB(,TO,FN,SPC|
000003C0: 28 00 0C 0C BE 00 83 20  54 48 45 4E 2C 4E 4F 54  |(...... THEN,NOT|
000003D0: 2C 53 54 45 50 2C 2B 2C  2D 2C 2A 2C 2F 2C 5E 2C  |,STEP,+,-,*,/,^,|
000003E0: 41 4E 44 2C 4F 52 2C 3E  2C 3D 2C 3C 2C 53 47 4E  |AND,OR,>,=,<,SGN|
000003F0: 2C 49 4E 54 2C 41 42 53  2C 55 53 52 2C 46 52 45  |,INT,ABS,USR,FRE|
00000400: 2C 50 4F 53 2C 53 51 52  2C 52 4E 44 00 5A 0C C8  |,POS,SQR,RND.Z..|
00000410: 00 83 20 4C 4F 47 2C 45  58 50 2C 43 4F 53 2C 53  |.. LOG,EXP,COS,S|
00000420: 49 4E 2C 54 41 4E 2C 41  54 4E 2C 50 45 45 4B 2C  |IN,TAN,ATN,PEEK,|
00000430: 4C 45 4E 2C 53 54 52 24  2C 56 41 4C 2C 41 53 43  |LEN,STR$,VAL,ASC|
00000440: 2C 43 48 52 24 2C 4C 45  46 54 24 2C 52 49 47 48  |,CHR$,LEFT$,RIGH|
00000450: 54 24 2C 4D 49 44 24 2C  47 4F 00 00 00           |T$,MID$,GO...   |

..C....F$(1,255):.".. BASIC-ENTPACKER.":
.15,8,15,"I0":X.34:.I.1.255.}...A$.G(I):
F$(0,I).A$:F$(1,I).A$:.:.I.128.203:.F$(0
,I):.......".PROGRAMMNAME: ";P$:.1,8,3,P
$.",P,R":.130:P$."E-".P$:N$.G(0)...(..2,
8,4,"@0:".P$.",P,W":.130:.I.1.2:.150:.12
0:..'.2.Q.0:P.1:.150:.120:B.A:.150:.120:
V$.N$.G(B).G(A).].<..150:.120:B.A:.150:.
120:V$.V$.G(B).G(A):.256.A.B;...F..150:P
.(A.139).(A.143):Q.Q.1.C:Q.Q.2..(Q.2):.A
..58.Q..0.P.0.100...P.LN.256.F(I(V$,1)).
F(I(V$,2)):LN.LN.1:U%.LN.256:V%.LN.256.U
%...Z.V$.H(V$,3).G(V%).G(U%):.:.LN;" ";:
A$.":".V$.": ".2.D..F$(Q,A);:.120:.A..0.
70.P.N..:.50:. END,FOR,NEXT,DATA.B.X..2,
A$;:.130:......S.ST:.15,EN,EM$,ET,ES:.EN
.2........:."....DISK ERROR.":.EN,EM$;ET
;ES: 1: 2: 15:.......#1,A$:.130:.S.0.A.F
(A$.N$):A$.G(A):C..(.(A.X)):..,. .A$.N$.
N$:.120: 1: 2:.:. INPUT#,INPUT,DIM,READ,
LET,GOTO,RUN.U.... IF,RESTORE,GOSUB,RETU
RN,REM,STOP,ON,WAIT,LOAD,SAVE,VERIFY,DEF
,POKE.A.... PRINT#,PRINT,CONT,LIST,CLR,C
MD,SYS,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC
(...... THEN,NOT,STEP,+,-,*,/,^,AND,OR,>
,=,<,SGN,INT,ABS,USR,FRE,POS,SQR,RND.Z.H
.. LOG,EXP,COS,SIN,TAN,ATN,PEEK,LEN,STR$
,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$,GO...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL