home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
utl
/
slicer.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
5KB
|
100 lines
0 'CLUB 100 Library, Modem 415-939-1246
1 'SLICER.BA by John J. Gaudreault V1.8 (C) 1987
10 CLS:CLEAR1000:VC=255:MAXFILES=3:A=FRE(0):IFA<1000THENGOSUB90ELSEGOTO11
11 U$=CHR$(27)+"p":I$=CHR$(27)+"q":K$=CHR$(27)+"K":P=2:C=0:T=1:I=3:ONERRORGOTO90
12 PRINT@46,U$;"(C) 1987 JOHN J. GAUDREAULT ";I$;:FORI=0TO1000:NEXTI:PRINT@40,K$;:ONERRORGOTO90
13 OPEN"R:SLICER.DO"FORINPUTAS1
14 M$="S^^^^1.DO"
15 LINEINPUT#1,E$:LINEINPUT#1,D$:LINEINPUT#1,L$:CLOSE#1
16 OPEN"R:SLICER.DO"FOROUTPUTAS1
17 PRINT@6,CHR$(236);U$;"SOURCE is file to slice up!";I$;CHR$(235);:PRINT@88,E$;:PRINT@80,"";:INPUT"SOURCE";E$:PRINT#1,E$
18 PRINT@6,K$;:PRINT@50,CHR$(236);U$;"SIZES are correct?";I$;CHR$(235);:PRINT@136,D$;:PRINT@120,"";:INPUT"SIZE of SOURCE";D$:PRINT#1,D$
19 PRINT@177,L$;:PRINT@160,"";:INPUT"SIZE of RAMDISK";L$:PRINT#1,L$
20 CLOSE#1:D=VAL(D$):L=VAL(L$):REM PRINT#1,E$:PRINT#1,D$:PRINT#1,L$:CLOSE#1:D=VAL(D$):L=VAL(L$)
21 IFLEN(E$)>6THENERROR11ELSEN=L/D:IFN>=1THEN22ELSEGOSUB88
22 FORI!=3TO100
23 IFD>36000THENO=I:G=D/I:IFIMODG>0THENG=INT(G)+1:GOTO25ELSEGOTOPRINTPRINT 110
24 O=2:G=D/2:IFIMODG>0THENG=INT(G)+1
25 IFG>19000THEN26ELSECLS:GOTO27
26 NEXT:CLS
27 PRINT@46,U$;"SLICER";I$;
28 PRINT@59,"Source File ";U$;E$;I$;
29 PRINT@99,"Size,Source ";U$;D$;I$;
30 PRINT@139,"RAMDISK:Free ";U$;L$;I$;
31 PRINT@179,"Target Files ";U$;O;I$;
32 PRINT@219,"Target Size ";U$;G;I$;:LINE(111,7)-(188,47),1,B:GOSUB87
33 PRINT@80,"From...";:PRINT@120,"RAMDISK [";U$;"R";I$;"]";:PRINT@160,"FLOPYDISK[";U$;"F";I$;"]";
34 A$=INKEY$:IFA$=""THEN34
35 IFA$="R"ORA$="r"THENE$="R:"+E$:GOSUB102:GOSUB103:GOSUB68:GOTO44
36 IFA$="F"ORA$="f"THENGOSUB68:PRINT@120,"BANK1[";U$;"0";I$;"]";:PRINT@160,"BANK2[";U$;"1";I$;"]";:GOTO39
37 IFA$=CHR$(13)THENE$="R:"+E$:GOSUB102:GOSUB103:GOSUB68:GOTO44
38 GOTO34
39 A$=INKEY$:IFA$=""THEN39
40 IFA$="1"THENE$="1:"+E$:M$="R:"+M$:Y$="R:":GOSUB105:GOSUB103:GOSUB104:GOSUB68:GOTO55
41 IFA$="0"THENE$="0:"+E$:M$="R:"+M$:Y$="R:":GOSUB105:GOSUB103:GOSUB104:GOSUB68:GOTO55
42 IFA$=CHR$(13)THENE$="0:"+E$:M$="R:"+M$:Y$="R:":GOSUB105:GOSUB103:GOSUB104:GOSUB68:GOTO55
43 GOTO39
44 PRINT@120,"SAVE>[";U$;"R";I$;"]AMDISK";:PRINT@160,"SAVE>[";U$;"F";I$;"]LOPY";
45 A$=INKEY$:IFA$=""THEN45
46 IFA$="R"ORA$="r"THENY$="R:":M$=Y$+M$:GOSUB104:GOSUB68:GOTO55ELSEIFA$=CHR$(13)THENY$="R:":M$=Y$+M$:GOSUB104:GOSUB68:GOTO55ELSE47
47 IFA$="F"ORA$="f"THENGOTO49
48 GOTO45
49 GOSUB68:PRINT@120,"SAVE>BANK1[";U$;"0";I$;"]";:PRINT@160,"SAVE>BANK2[";U$;"1";I$;"]";
50 A$=INKEY$:IFA$=""THEN50
51 IFA$="0"THENM$="0:"+M$:Y$="0:":GOSUB106:GOSUB68:GOTO55
52 IFA$="1"THENM$="1:"+M$:Y$="1:":GOSUB106:GOSUB68:GOTO55
53 IFA$=CHR$(13)THENM$="0:"+M$:Y$="0:":GOSUB106:GOSUB68:GOTO55
54 GOTO50
55 PRINT@300,K$;U$;"ENTER/V/ESC";I$;
56 S$=INKEY$:IFS$=""THEN56
57 IFS$="V"ORS$="v"THENGOSUB83
58 IFS$=CHR$(13)THENPRINT@299,K$;:GOTO61
59 IFS$=CHR$(27)THENCLOSE:GOTO78
60 GOTO56
61 GOSUB76
62 ONERRORGOTO90:OPENE$FORINPUTAS2 'R:EVENTS/SOURCE
63 OPENM$FORAPPENDAS3:PRINT@167,T; 'R:TARGET
64 IFCX!<D-260THENH$=INPUT$(255,2):CX!=(LEN(H$)+CX!)ELSEH$=INPUT$(1,2)
65 PRINT#3,H$;:B=LEN(H$):GOSUB69:IFEOF(2)THENPRINT#3,H$;:KILL"R:SLICER.DO":GOTO78
66 GOTO64
67 END
68 PRINT@80,SPACE$(15);:PRINT@120,SPACE$(15);:PRINT@160,SPACE$(15);:RETURN
69 C=C+B:IFC>GTHENGOTO70ELSE72
70 BEEP:C=0:PRINT@301,K$;U$;" NEXT ";I$;:FORY=1TO200:NEXT
71 PRINT@206,SPACE$(7);:T=T+1:GOSUB73
72 RETURN
73 CLOSE#3:R$=MID$(M$,3,5):T$=MID$(STR$(INT(P)),2,2):M$=Y$+R$+T$:P=P+1
74 GOSUB76:GOTO63
75 RETURN
76 PRINT@301,K$;:PRINT@302,U$;"WORKING";I$;
77 RETURN
78 PRINT@300,K$;U$;"SPACE=MENU";I$;:SOUND2348,25
79 S$=INKEY$:IFS$=""THEN79
80 IFS$=CHR$(32)THEN:CLOSE:CLEAR0:MAXFILES=1:MENU
81 GOTO78
82 RETURN
83 PRINT@272,CHR$(27)+"V";O;:PRINT@312,G;
84 PRINT@192,K$;:INPUTO:PRINT@192,U$;O;I$;:PRINT@232,K$;:INPUTG
85 PRINT@232,U$;G;I$;:PRINT@272,K$;:PRINT@312,K$;:GOSUB87
86 RETURN
87 LINE(191,7)-(239,47),1,B:RETURN
88 CLS:PRINT@92,U$;"Need More RAMDISK";I$;:PRINT@131,"CHECK SLICER.DO 1st"
89 FORI=1TO600:NEXTI:GOTO78:RETURN
90 IFERL=64ANDERR=54THENKILL"R:SLICER.DO":GOTO78ELSECLS:LINE(1,12)-(109,28),1,B:GOSUB91
91 IFERL=12THENPRINT@82,"IS SLICER.DO?";:GOTO78:RETURN
92 IFERL=15THENPRINT@81,"0 in SLICER.DO!";:FORI=1TO700:NEXTI:CLOSE#1:OPEN"R:SLICER.DO"FORAPPENDAS1:CLS:GOTO17:RETURN
93 IFERL=57THENE$=MID$(E$,3,6):PRINT@81,"Where is ";E$;:GOTO78:GOTO78:RETURN
94 IFERR=18THENPRINT@81,"CHECK DISKDRIVE!";:GOTO78:RETURN
95 IFERR=52ANDERL=13THENPRINT@81,"MAKING SLICER.DO!";:FORI=1TO1000:NEXTI:CLS:M$="S^^^^1.DO":OPEN"R:SLICER.DO"FORAPPENDAS1:GOTO17:RETURNELSEIFERR=52ANDERL=62THENE$=MID$(E$,3,6):PRINT@81,"WHERE'S ";E$;"?";:GOTO78:RETURNELSE96
96 IFERL=10THENPRINT@81,"SLICER.BA>WORSPACE";:GOTO78:RETURN
97 IFERL=60THENPRINT@81,"CHECK STORAGE";:GOTO78:RETURN
98 IFERL=58THENPRINT@81,"CHECK DISKDRIVE";:GOTO78:RETURN
99 IFERL=60ANDERR=7THENPRINT@81,"CHECK DISK";:GOTO78:RETURN
100 CLS:PRINT@81,"ERROR ";ERR;"in ";"LINE# ";ERL;:GOTO78
101 RETURN
102 LINE(8,50)-(24,60),1,B:LINE(10,52)-(21,54),1,BF:RETURN 'Left
103 PRINT@246,CHR$(154);:RETURN 'ARROW
104 LINE(47,50)-(63,60),1,B:LINE(49,52)-(60,54),1,BF:RETURN 'Right
105 LINE(14,50)-(23,60),1,B:LINE(16,57)-(21,60),1,BF:LINE(18,54)-(19,55),1,BF:RETURN 'L-Floppy
106 LINE(53,50)-(62,60),1,B:LINE(55,57)-(60,60),1,BF:LINE(57,54)-(58,55),1,BF:RETURN 'R-Floppy