Home | Reviews | GUIpedia | Forum | Fun500
| HorvatM | Spacecat version 1After more than two years of (on and off) development, Spacecat is finally ready enough to have its version 1 released. Due to time constraints I could not implement everything I originally wanted to, but I eventually will. I just hope it doesn't disappoint you. version 1 | 2010-12-25 | 7:17 PM |
| Dick | Re:Spacecat version 1Dick's TUI DEFINT A-Z TYPE dtatype reserved AS STRING * 21 a AS STRING * 1 time AS INTEGER date AS STRING * 2 size AS LONG n AS STRING * 13 END TYPE TYPE filetype n AS STRING * 13 a AS STRING * 1 END TYPE DIM n(19) AS LONG n(0) = &H1EE58955 n(1) = &HB80656C5 n(2) = &H21CD1A00 n(3) = &H4CA5D1F n(5) = &H8BE58955 n(6) = &H4E8B0656 n(7) = &HA768B08 n(8) = &H21CD048B n(9) = &HCA5D0489 n(10) = &H6 n(11) = &H8BE58955 n(12) = &H33CD0C46 n(13) = &H890A768B n(14) = &H8768B1C n(15) = &H4103E9C1 n(16) = &H768B0C89 n(17) = &H3EAC106 n(18) = &H5D148942 n(19) = &H8CA DEF SEG = VARSEG(n(0)) DIM f(500) AS filetype DIM dta AS dtatype CALL absolute(SEG dta, VARPTR(n(0))) d$ = "c:\" 'd$ = "d:\" 1 CLS COLOR 14 VIEW PRINT 1 TO 25 FOR i = 1 TO 23 LOCATE i, 20 PRINT STRING$(10, 25 + (i <= 11)) NEXT CALL absolute(BYVAL 1, mb, mx, my, VARPTR(n(11))) j = 0 ax = &H4E00 e$ = d$ + "*.*" + CHR$(0) CALL absolute(ax, BYVAL 16, BYVAL SADD(e$), VARPTR(n(5))) FOR i = 0 TO UBOUND(f) ax = &H4F00 CALL absolute(ax, 0, 0, VARPTR(n(5))) IF (ax AND &HF) <> 0 THEN EXIT FOR file$ = LEFT$(dta.n, INSTR(dta.n, CHR$(0)) - 1) f(i).n = file$ ' PRINT file$, dta.date f(i).a = dta.a ' SLEEP NEXT n = i ' SYSTEM DO CALL absolute(BYVAL 3, mb, mx, my, VARPTR(n(11))) LOCATE 1, 1 FOR i = 0 + j TO 22 + j IF i < n THEN PRINT CHR$(-((i - j + 1) = my) * 16) + CHR$(92 * -(f(i).a = CHR$(16))) + f(i).n + CHR$(-((i - j + 1) = my) * 17) NEXT LOCATE 25 IF (my + j - 1) < n THEN PRINT d$ + f(my + j - 1).n; IF mb = 1 THEN IF mx < 17 AND f(my + j - 1).a = CHR$(16) AND (my + j - 1) < n THEN DO UNTIL mb = 0 CALL absolute(BYVAL 3, mb, mx, my, VARPTR(n(11))) LOOP d$ = d$ + RTRIM$(f(my + j - 1).n) + "\" GOTO 1 ELSE j = j + (mx > 19 AND mx < 30) * (my > 11) AND ((j + 22) < n) j = j - (mx > 19 AND mx < 30) * (my < 11) AND (j > 0) END IF END IF LOOP UNTIL INP(&H60) = 1 SYSTEM | 2010-12-27 | 5:12 PM |
2021 Brandon Cornell