home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / c128 / c142.d64 / csx.bas (.txt) < prev    next >
Commodore BASIC  |  1995-08-09  |  4KB  |  113 lines
  1. 1000 POKE 53280,0:POKE 53281,0:GOTO 1060
  2. 1010 "CSX.BAS":^"CSX.BAS":END
  3. 1020 CLOSE2:CLOSE3:CLOSE14:CLOSE15:END
  4. 1060 CPU=64:IP=12:IF PEEK(122)=PEEK(122) THEN IP=10:CPU=128:(null)0
  5. 1070 IF PEEK(IP*4096)=76 AND PEEK(IP*4096+24)=76 THEN X=1
  6. 1080 ON X GOTO 1100:X=1:IF CPU=64 THEN LOAD"CSX64.ML",8,1
  7. 1090 (null)"CSX128.ML",B0,P(IP*4096)
  8. 1100 IF CPU=64 THEN MEM=55:POKE MEM,0:POKE MEM+1,4*16:CLR:CPU=64:IP=12
  9. 1110 IF CPU=128 AND (PEEK(215) AND 128) THEN (null)%
  10. 1120 :
  11. 1130 IA=IP*4096:REM "[201]NITIALIZE ARCHIVE
  12. 1140 GH[178]IA[170]3   :[143] "CHR$ET NEXT HEADER
  13. 1150 IE=GH+3   :REM "[201]NITIALIZE THIS ENTRY
  14. 1160 DA[178]IE[170]3   :[143] "(null)OOP TO UNATN(null)LEN THIS ENTRY
  15. 1170 GN=DA+3   :REM "UN[193][210][195] JUST ONE BYTE
  16. 1180 BO[178]GN[170]3   :[143] "PEEKUFFERED LENLEFT$(null)(null)(null)(null)
  17. 1190 CV=BO+3   :REM "[195]ONVERT [211]TANDARD [193][211][195][201][201] TO [195][194][205] [193][211][195][201][201]
  18. 1200 GE[178]CV[170]3   :[143] "ASCILL INPUT BUFFER
  19. 1210 PU=GE+3   :REM "[198]LUSH OUTPUT BUFFER
  20. 1220 I0[178]PU[170]3   :[143] "(null)OINTER TO START OF INPUT BUFFER
  21. 1230 I1=I0+2   :REM "[208]OINTER TO END OF INPUT BUFFER
  22. 1240 O0[178]I1[170]2   :[143] "(null)OINTER TO START OF OUTPUT BUFFER
  23. 1250 O1=O0+2   :REM "[208]OINTER TO END OF OUTPUT BUFFER
  24. 1260 LC[178]O1[170]2   :[143] "RIGHT$NPUT BUFFER POINTER WHERE VAL(null)ASC OCCURED
  25. 1270 E=LC+2    :REM "[197]RROR RETURN CODE
  26. 1280 :
  27. 1290 ME[178]E[170]2    :[143] "LENOMPRESION METHOD
  28. 1300 FL=ME+1   :REM "[193][211][195][201][201][218] FILENAME
  29. 1310 SL[178]FL[170]13  :[143] "(null)QUEEZED LENGTH
  30. 1320 DT=SL+4   :REM "[196]ATE
  31. 1330 TM[178]DT[170]2   :[143] "(null)IME
  32. 1340 C0=TM+2   :REM "[195][210][195]
  33. 1350 LN[178]C0[170]2   :[143] "(null)N(null)QUEEZED (ORIGINAL) LENGTH
  34. 1360 :
  35. 1370 C1=LN+4   :REM "[195]ALCULATED (NEW) [195][210][195]
  36. 1380 MO[178]C1[170]2   :[143] "(null)ODE. X,E,P OR V
  37. 1390 AS=MO+1   :REM "[198]LAG. 0=DON'T CONVERT TO [195][194][205] [193][211][195][201][201]
  38. 1400 AL[178]AS[170]1   :[143] "(null)OURCE LOGICAL FILE NUMBER
  39. 1410 OL=AL+1   :REM "[196]ESTINATION LOGICAL FILE NUMBER
  40. 1420 :
  41. 1430 C$[178]",":[134] M$(9):[143] M$(PEEK(ME)) RETURNS COMPRESSION METHOD
  42. 1440 M$(0)[178]"VAL(null)ASC     ":M$(1)[178]"(null)TORED  ":M$(2)[178]"(null)(null)ORED  ":M$(3)[178]"(null)ACKED  "
  43. 1450 M$(4)[178]"(null)QUEEZED":M$(5)[178]"LENRUNCHED":M$(6)[178]M$(5):M$(7)[178]M$(5):M$(8)[178]M$(5)
  44. 1460 M$(9)[178]"(null)QUASHED"
  45. 1470 [153]:[153]:[153] [199](14);[199](147);
  46. 1480 [153] "ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  47. 1490 [153] "(null)    OPEN(null)(null)-STR$(null)(null) ATNRCHIVE STR$ISSOLVER       (null)"
  48. 1500 [153] "-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
  49. 1510 [153] "(null)      SYS(null)(null).-DONE FILES ARE           (null)"
  50. 1520 [153] "(null)        OPEN  ALL RIGHT                (null)"
  51. 1530 [153] "(null)      SYSIN SPITE OF AN ERROR         (null)"
  52. 1540 [153] "(null)      SYSAT THE END OF THE            (null)"
  53. 1550 [153] "(null)      SYSDISSOLVE-PROCEDURE.          (null)"
  54. 1560 [153] "-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
  55. 1570 [153] "(null)   OPEN(null)(null) TO COPY, SYSBUT NOT TO SELL.    (null)"
  56. 1580 [153] "/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  57. 1590 [153]
  58. 1600 [133] "OPENVALNTER NAME OF ARCHIVE ";AR$:[139] AR$[178]"" [167] 1600
  59. 1610 [139] [201](AR$,4)[179][177]".ARC" [167] AR$[178]AR$[170]".ARC"
  60. 1620 [133] "                OPENSTR$RIVE   0CMDCMDCMD";DR$
  61. 1630 [139] DR$[179][177]"0" [175] DR$[179][177]"1" [167] 1620
  62. 1640 [133] "                 OPEN(null)NIT   8CMDCMDCMD";DV
  63. 1650 [139] DV[179]8 [176] DV [177]14 [167] 1640
  64. 1660 [159] 15,DV,15:[159] 2,DV,2,(DR$[170]":"[170]AR$[170]",R")
  65. 1670 [132]15,E$,M$,T$,S$:[139] [197](E$) [167] [153] E$C$M$C$T$C$S$:[137]1020
  66. 1680 :
  67. 1690 [133] "SYS(null)OPEN)RINT, SYS(null)OPEN)ERIFY, OR SYSVALOPEN)XTRACT   ECMDCMDCMD";X$
  68. 1700 X$[178][199]([198](X$) [175] 127)
  69. 1710 [139] X$[178]"P" [176] X$[178]"V" [176] X$[178]"X" [176] X$[178]"E" [167] [153]:[137] 1730
  70. 1720 [137] 1690
  71. 1730 [139] X$[179][177]"X" [175] X$[179][177]"E" [167] 1780
  72. 1740 [139] X$[178]"X" [167] X$[178]"E"
  73. 1750 [133] "OPEN(null)UTPUT DRIVE    0CMDCMDCMD";DR$:[139] DR$[179][177]"0" [175] DR$[179][177]"1" [167] 1750
  74. 1760 [133] "OPEN(null)UTPUT UNIT     8CMDCMDCMD";DV:[139] DV[179]8 [176] DV[177]14 [167] 1760
  75. 1770 [159] 14,DV,15
  76. 1780 [151] MO, [198](X$):[151] AL,2:[151] OL,3
  77. 1790 [139] X$[179][177]"V" [167] [153]"ATNNSWER OPENY TO DISSOLVE OR OPENN TO BYPASS":[153]
  78. 1800 :
  79. 1810 [158](IA)
  80. 1820 [158](GH):[139] [194](ME)[178]0 [167] [153] "ATNLL DONE. VALND OF ARCHIVE.":[137]1020
  81. 1830 [139] [194](E)[179][177]0 [167] [153] "STR$ISK ERROR OR FILE CORRUPT":[137]1020
  82. 1840 M[178][194](ME):[139] M[177]9 [167] [153] "(null)NKNOWN COMPRESSION METHOD":[137]1020
  83. 1850 F$[178]"":F[178]0
  84. 1860 C[178][194](FL[170]F):[139] (C [175] F[179]12) [167] F$[178]F$[170][199](C):F[178]F[170]1:[137] 1860
  85. 1870 L[178][194](LN)[170]256[172]([194](LN[170]1)[170]256[172]([194](LN[170]2)[170]256[172][194](LN[170]3)))
  86. 1880 A$[178][201](F$,4):Z$[178]"N"
  87. 1890 [139] A$[178]".TXT" [176] A$[178]".DOC" [176] A$[178]".PAS" [176] [201](F$,2)[178]".C" [167] Z$[178]"Y"
  88. 1900 :
  89. 1910 [153] [199](34)F$[199](34)[163]15)L" BYTES. ";
  90. 1920 Y$[178]"":YY$[178]X$:[139] X$[178]"V" [167] 1990
  91. 1930 [133] "OPEN(Y/N)   YCMDCMDCMD";Y$
  92. 1940 [139] Y$[179][177]"Y" [175] Y$[179][177]"(null)" [167] Y$[178]"N":[151] MO,[198]("V"):X$[178]"V":[137]1990
  93. 1950 [153]:[153] "OPENLENONVERT FROM ATN(null)LENRIGHT$RIGHT$CLOSETO LENPEEK(null) ATN(null)LENRIGHT$RIGHT$   ";Z$;"CMDCMDCMD";:[133] Z$
  94. 1960 [139] Z$[179][177]"Y" [175] Z$[179][177]"N" [167] 1950
  95. 1970 [151] AS,1:[139] Z$[179][177]"Y" [167] [151] AS,0
  96. 1980 [139] X$[178]"P" [167] [153]:[153] ""
  97. 1990 [139] X$[179][177]"E" [167] [159] 3,3:[137] 2040
  98. 2000 [133]"OPENASCILE TYPE (SYSP OPENOR SYSSOPEN)  SCMDCMDCMD";FT$:[139]FT$[179][177]"P"[175]FT$[179][177]"S" [167]2000
  99. 2010 F$[178]DR$[170]":"[170]F$[170]","[170]FT$[170]",W"
  100. 2020 [159] 3,DV,3,F$:[132]14,E$,M$,T$,S$
  101. 2030 [139] [197](E$) [167] [153] E$C$M$C$T$C$S$:[137] 1020
  102. 2040 [158](IE):[139] [194](E)[179][177]0 [167] [153]"STR$ISK ERROR OR ARCHIVE CORRUPT":[137]1020
  103. 2050 [158](DA):[160]3:[139] X$[178]"E" [167] [132]14,E$,M$,T$,S$
  104. 2060 [139] X$[178]"P" [167] [153]:[153]
  105. 2070 [139] [194](E)[178]1 [167] [153]"CLR LEN(null)LEN ERROR!   ";
  106. 2080 [139] [194](E)[178]0 [167] [153]"CLR (null)(null).   ";
  107. 2090 [139] [194](E)[178]3 [167] [153]"CLR (null)(null)(null)/(null)(null)(null)(null) PRESSED   ";
  108. 2100 [139] X$[178]"E"[167] [153] E$C$M$C$T$C$S$;
  109. 2110 [139] Y$[178]"N" [167] X$[178]YY$:[151] MO,[198](X$)
  110. 2120 [153]
  111. 2130 [137] 1820
  112. 2199 [128]:
  113.