home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sauce 'n' Code 3
/
sauce-n-code-03.adf
/
Source_Code
/
Jiffy_Disk.asc
< prev
next >
Wrap
Text File
|
1996-01-21
|
16KB
|
480 lines
' Jiffy Disk v1.5
' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
' cODED bY ßudda/NFA
' StARtEd : Back in the old dayz
' FiNiSHed: In the cruel past
' ** CAUTION! Some extensions used in here...
Set Buffer 12
Break Off
Request Off
Amos Lock
Wb To Front
Load "Jiffy_Disk.abk"
Dim A$(16),B$(16),C$(16),D$(16),E$(16),F$(16),G$(16)
Dim S1(16),S2(16),S3(16),S4(16),S5(16),S6(16),S7(16)
Dim BL1$(16),BL2$(16),BL3$(16),BL4$(16),BL5$(16),BL6$(16),BL7$(16)
Dim IT1$(16),IT2$(16),IT3$(16),IT4$(16),IT5$(16),IT6$(16),IT7$(16)
Dim UL1$(16),UL2$(16),UL3$(16),UL4$(16),UL5$(16),UL6$(16),UL7$(16)
LABEL_NUMBER=1
MUS=1
ESC$=Chr$(27)
BOLD$=ESC$+"[1m"
ITALIC$=ESC$+"[3m"
UNDERLINE$=ESC$+"[4m"
Global MUS
Resource Bank 5
P$="BA 0,0;"
P$=P$+"BO 0,0,1,456,192;IN 2,0,2;SP 2,0;GB 4,11,451,189;IN 1,0,2;SP 0,0;"
P$=P$+"BU 1,0,0,22,11,0,0,1;[UN 0,0,BP41+;][BR 0;]KY 128 69+,0;"
P$=P$+"BO 456,0,1,640,192;"
P$=P$+"LI 78,40,34,368;ED 2,95,43,34,40,'',0,1;"
P$=P$+"LI 78,56,34,368;ED 3,95,59,34,40,'',0,1;"
P$=P$+"LI 78,72,34,368;ED 4,95,75,34,40,'',0,1;"
P$=P$+"LI 78,88,34,368;ED 5,95,91,34,40,'',0,1;"
P$=P$+"LI 78,104,34,368;ED 6,95,107,34,40,'',0,1;"
P$=P$+"LI 78,120,34,368;ED 7,95,123,34,40,'',0,1;"
P$=P$+"LI 78,136,34,368;ED 8,95,139,34,40,'',0,1;"
P$=P$+"BO 464,50,10,632,173;"
P$=P$+"BU 9,472,164,152,15,0,0,1;[LI 0,0,3BP*28+,152;PR 32,4,'PRINT LABEL',1BP+;][BR 0;]"
P$=P$+"BU 10,472,128,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 20,4,'«««<',1BP+;][BR 0;]"
P$=P$+"BU 11,560,128,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 16,4,'>»»»',1BP+;][BR 0;]"
P$=P$+"PR 512,119,'Label Move',1;"
P$=P$+"PO 136,21,'TeXt To AppeAR oN lABEl',2,3;"
P$=P$+"PO 56,44,'1',2,1;"
P$=P$+"PO 56,60,'2',2,1;"
P$=P$+"PO 56,76,'3',2,1;"
P$=P$+"PO 56,92,'4',2,1;"
P$=P$+"PO 56,107,'5',2,1;"
P$=P$+"PO 56,123,'6',2,1;"
P$=P$+"PO 56,141,'7',2,1;"
P$=P$+"PR 104,155,'Maximum 40 Characters Per Line!',1;"
P$=P$+"PR 32,2,'JIFFY DISK V1.5',1;"
P$=P$+"BU 12,560,45,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 16,4,'WiPe',1BP+;][BR 0;] KY 128 69+,0;"
P$=P$+"BU 13,472,45,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 12,4,'ABouT',1BP+;][BR 0;] KY 128 95+,0;"
P$=P$+"BU 14,472,72,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 12,4,'ReSeT',1BP+;][BR 0;]"
P$=P$+"BU 15,560,72,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 8,4,'L.Feed',1BP+;][BR 0;]"
P$=P$+"BU 16,376,42,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 17,400,42,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 18,424,42,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 19,376,58,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 20,400,58,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 21,424,58,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 22,376,74,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 23,400,74,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 24,424,74,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 25,376,90,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 26,400,90,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 27,424,90,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 28,376,106,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 29,400,106,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 30,424,106,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 31,376,122,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 32,400,122,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 33,424,122,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 34,376,138,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 35,400,138,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 36,424,138,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"PR 488,63,'Printer Controls',1;"
P$=P$+"BU 37,8,177,24,11,1,0,1;[UN 0,0,40BP-;][]"
P$=P$+"PR 40,179,'Letter Quality',1;"
P$=P$+"PR 464,2,'CONTROL BIT',1;"
P$=P$+"BU 38,472,144,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 12,4,'First',1BP+;][BR 0;]"
P$=P$+"BU 39,560,144,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 16,4,'Last',1BP+;][BR 0;]"
P$=P$+"BU 40,8,41,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 41,8,57,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 42,8,74,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 43,8,89,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 44,8,105,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 45,8,121,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 46,8,138,24,11,0,0,1;[UN 0,0,40BP-;][]"
P$=P$+"BU 47,472,98,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 16,4,'Save',1BP+;][BR 0;]"
P$=P$+"BU 48,560,98,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 16,4,'Load',1BP+;][BR 0;]"
P$=P$+"PR 512,89,'Disk Stuff',1;"
P$=P$+"PR 383,32,'B',1;"
P$=P$+"PR 407,32,'I',1;"
P$=P$+"PR 431,32,'U',1;"
P$=P$+"PR 16,31,'C',1;"
P$=P$+"BO 0,192,1,640,245;"
P$=P$+"BO 8,204,19,632,241;"
P$=P$+"PR 0,194,'INTRESTING WINDOW FOR ANY MESSAGES',1;"
P$=P$+"EX;"
Resource Screen Open 0,640,256,0
Colour 17,$FFF : Colour 18,$900 : Colour 19,$0
Curs Off
Cls 0
Limit Mouse 128,42 To 434,251
On Error Goto ER
Track Loop On
St Play 3
Dialog Open 1,P$,17,5000
XXX=Dialog Run(1)
Paste Icon 490,11,1
Gosub UP
MAIN:
Do
BT=Dialog(1)
If BT=1 Then Goto QUIT
If BT=9 Then Gosub PR
If BT=10 Then Gosub BACK
If BT=11 Then Gosub FRONT
If BT=12 Then Gosub WIPE
If BT=13 Then Proc ABOUT
If BT=14 Then Gosub RES
If BT=15 Then Gosub FEE
If BT=38 Then Gosub FI
If BT=39 Then Gosub LA
If BT=47 Then Gosub SAV
If BT=48 Then Gosub LOA
Loop
QUIT:
Dialog Close 1
St Stop
End
SAV:
Gosub _GET_STRING
Dialog Freeze 1
_FILE["Select File To Save Labels To.",$800]
NAME$=Param$
Dialog Unfreeze 1
If NAME$="" Then Return
Open Out 1,NAME$
For L=1 To 16
Proc CONVERT[A$(L),1]
Print #1,Param$ : Print #1,BL1$(L) : Print #1,IT1$(L) : Print #1,UL1$(L)
Proc CONVERT[B$(L),1]
Print #1,Param$ : Print #1,BL2$(L) : Print #1,IT2$(L) : Print #1,UL2$(L)
Proc CONVERT[C$(L),1]
Print #1,Param$ : Print #1,BL3$(L) : Print #1,IT3$(L) : Print #1,UL3$(L)
Proc CONVERT[D$(L),1]
Print #1,Param$ : Print #1,BL4$(L) : Print #1,IT4$(L) : Print #1,UL4$(L)
Proc CONVERT[E$(L),1]
Print #1,Param$ : Print #1,BL5$(L) : Print #1,IT5$(L) : Print #1,UL5$(L)
Proc CONVERT[F$(L),1]
Print #1,Param$ : Print #1,BL6$(L) : Print #1,IT6$(L) : Print #1,UL6$(L)
Proc CONVERT[G$(L),1]
Print #1,Param$ : Print #1,BL7$(L) : Print #1,IT7$(L) : Print #1,UL7$(L)
Next L
Close 1
Return
LOA:
_FILE["Select File To Load Labels From.",$1000]
NAME$=Param$
If NAME$="" Then Return
Open In 1,NAME$
For L=1 To 16
Input #1,A$(L) : Input #1,BL1$(L) : Input #1,IT1$(L) : Input #1,UL1$(L)
Proc CONVERT[A$(L),2] : A$(L)=Param$
Input #1,B$(L) : Input #1,BL2$(L) : Input #1,IT2$(L) : Input #1,UL2$(L)
Proc CONVERT[B$(L),2] : B$(L)=Param$
Input #1,C$(L) : Input #1,BL3$(L) : Input #1,IT3$(L) : Input #1,UL3$(L)
Proc CONVERT[C$(L),2] : C$(L)=Param$
Input #1,D$(L) : Input #1,BL4$(L) : Input #1,IT4$(L) : Input #1,UL4$(L)
Proc CONVERT[D$(L),2] : D$(L)=Param$
Input #1,E$(L) : Input #1,BL5$(L) : Input #1,IT5$(L) : Input #1,UL5$(L)
Proc CONVERT[E$(L),2] : E$(L)=Param$
Input #1,F$(L) : Input #1,BL6$(L) : Input #1,IT6$(L) : Input #1,UL6$(L)
Proc CONVERT[F$(L),2] : F$(L)=Param$
Input #1,G$(L) : Input #1,BL7$(L) : Input #1,IT7$(L) : Input #1,UL7$(L)
Proc CONVERT[G$(L),2] : G$(L)=Param$
Next L
Close 1
Gosub UP
Return
FI:
Gosub _GET_STRING
LABEL_NUMBER=1
Gosub UP
Return
LA:
Gosub _GET_STRING
LABEL_NUMBER=16
Gosub UP
Return
BACK:
Gosub _GET_STRING
Dec LABEL_NUMBER
If LABEL_NUMBER<1 Then LABEL_NUMBER=1
Gosub UP
Return
FRONT:
Gosub _GET_STRING
Inc LABEL_NUMBER
If LABEL_NUMBER>16 Then LABEL_NUMBER=16
Gosub UP
Return
UP:
Window 0
Gr Writing 1
Text 540,138,(Right$("00"+Mid$(Str$(LABEL_NUMBER),2),2))
For TICK=16 To 36
Dialog Update 1,TICK,0
Next TICK
Dialog Update 1,2,A$(LABEL_NUMBER)
If BL1$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,16,1
If IT1$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,17,1
If UL1$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,18,1
Dialog Update 1,3,B$(LABEL_NUMBER)
If BL2$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,19,1
If IT2$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,20,1
If UL2$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,21,1
Dialog Update 1,4,C$(LABEL_NUMBER)
If BL3$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,22,1
If IT3$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,23,1
If UL3$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,24,1
Dialog Update 1,5,D$(LABEL_NUMBER)
If BL4$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,25,1
If IT4$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,26,1
If UL4$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,27,1
Dialog Update 1,6,E$(LABEL_NUMBER)
If BL5$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,28,1
If IT5$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,29,1
If UL5$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,30,1
Dialog Update 1,7,F$(LABEL_NUMBER)
If BL6$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,31,1
If IT6$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,32,1
If UL6$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,33,1
Dialog Update 1,8,G$(LABEL_NUMBER)
If BL7$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,34,1
If IT7$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,35,1
If UL7$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,36,1
Gr Writing 0
Return
RES:
Open Port 3,"PRT:"
If Port(3)=False
MESS1$="The printer isn't responding. Check that it's ON-LINE. And try again."
MESS2$="The problem could be that you don't own a printer. Silly you."
MESS3$="But then again it could probably just be cableing/connector problems."
Gosub MESS
Close 3
Return
End If
X=Free
Print #3,ESC$+"c"
Print #3,ESC$+"#1"
Close 3
Return
FEE:
Open Port 3,"PRT:"
If Port(3)=False
MESS1$="The printer isn't responding. Check that it's ON-LINE. And try again."
MESS2$="The problem could be that you don't own a printer. Silly you."
MESS3$="But then again it could probably just be cableing/connector problems."
Gosub MESS
Close 3
Return
End If
X=Free
Print #3,ESC$+"D"+Chr$(10)
Multi Wait
Close 3
Return
_GET_STRING:
A$(LABEL_NUMBER)=Rdialog$(1,2)
If Rdialog(1,40)=1 Then S1(LABEL_NUMBER)=(40-Len(A$(LABEL_NUMBER)))/2
If Rdialog(1,16)=1 Then BL1$(LABEL_NUMBER)=BOLD$
If Rdialog(1,17)=1 Then IT1$(LABEL_NUMBER)=ITALIC$
If Rdialog(1,18)=1 Then UL1$(LABEL_NUMBER)=UNDERLINE$
B$(LABEL_NUMBER)=Rdialog$(1,3)
If Rdialog(1,41)=1 Then S2(LABEL_NUMBER)=(40-Len(B$(LABEL_NUMBER)))/2
If Rdialog(1,19)=1 Then BL2$(LABEL_NUMBER)=BOLD$
If Rdialog(1,20)=1 Then IT2$(LABEL_NUMBER)=ITALIC$
If Rdialog(1,21)=1 Then UL2$(LABEL_NUMBER)=UNDERLINE$
C$(LABEL_NUMBER)=Rdialog$(1,4)
If Rdialog(1,42)=1 Then S3(LABEL_NUMBER)=(40-Len(C$(LABEL_NUMBER)))/2
If Rdialog(1,22)=1 Then BL3$(LABEL_NUMBER)=BOLD$
If Rdialog(1,23)=1 Then IT3$(LABEL_NUMBER)=ITALIC$
If Rdialog(1,24)=1 Then UL3$(LABEL_NUMBER)=UNDERLINE$
D$(LABEL_NUMBER)=Rdialog$(1,5)
If Rdialog(1,43)=1 Then S4(LABEL_NUMBER)=(40-Len(D$(LABEL_NUMBER)))/2
If Rdialog(1,25)=1 Then BL4$(LABEL_NUMBER)=BOLD$
If Rdialog(1,26)=1 Then IT4$(LABEL_NUMBER)=ITALIC$
If Rdialog(1,27)=1 Then UL4$(LABEL_NUMBER)=UNDERLINE$
E$(LABEL_NUMBER)=Rdialog$(1,6)
If Rdialog(1,44)=1 Then S5(LABEL_NUMBER)=(40-Len(E$(LABEL_NUMBER)))/2
If Rdialog(1,28)=1 Then BL5$(LABEL_NUMBER)=BOLD$
If Rdialog(1,29)=1 Then IT5$(LABEL_NUMBER)=ITALIC$
If Rdialog(1,30)=1 Then UL5$(LABEL_NUMBER)=UNDERLINE$
F$(LABEL_NUMBER)=Rdialog$(1,7)
If Rdialog(1,45)=1 Then S6(LABEL_NUMBER)=(40-Len(F$(LABEL_NUMBER)))/2
If Rdialog(1,31)=1 Then BL6$(LABEL_NUMBER)=BOLD$
If Rdialog(1,32)=1 Then IT6$(LABEL_NUMBER)=ITALIC$
If Rdialog(1,33)=1 Then UL6$(LABEL_NUMBER)=UNDERLINE$
G$(LABEL_NUMBER)=Rdialog$(1,8)
If Rdialog(1,46)=1 Then S7(LABEL_NUMBER)=(40-Len(G$(LABEL_NUMBER)))/2
If Rdialog(1,34)=1 Then BL7$(LABEL_NUMBER)=BOLD$
If Rdialog(1,35)=1 Then IT7$(LABEL_NUMBER)=ITALIC$
If Rdialog(1,36)=1 Then UL7$(LABEL_NUMBER)=UNDERLINE$
Return
PR:
Gosub _GET_STRING
NORM$=(ESC$+"[22m")+(ESC$+"[23m")+(ESC$+"[24m")+(ESC$+"[0m")
Open Port 3,"PRT:"
If Port(3)=False
MESS1$="The printer isn't responding. Check that it's ON-LINE. And try again."
MESS2$="The problem could be that you don't own a printer. Silly you."
MESS3$="But then again it could probably just be cableing/connector problems."
Gosub MESS
Close 3
Return
End If
X=Free
If Rdialog(1,37)=1 Then Print #3,ESC$+"D"
Dialog Freeze 1
Print #3,ESC$+'[2"z'
Print #3,Space$(S1(LABEL_NUMBER))+BL1$(LABEL_NUMBER)+IT1$(LABEL_NUMBER)+UL1$(LABEL_NUMBER)+A$(LABEL_NUMBER)+NORM$
Print #3,Space$(S2(LABEL_NUMBER))+BL2$(LABEL_NUMBER)+IT2$(LABEL_NUMBER)+UL2$(LABEL_NUMBER)+B$(LABEL_NUMBER)+NORM$
Print #3,Space$(S3(LABEL_NUMBER))+BL3$(LABEL_NUMBER)+IT3$(LABEL_NUMBER)+UL3$(LABEL_NUMBER)+C$(LABEL_NUMBER)+NORM$
Print #3,Space$(S4(LABEL_NUMBER))+BL4$(LABEL_NUMBER)+IT4$(LABEL_NUMBER)+UL4$(LABEL_NUMBER)+D$(LABEL_NUMBER)+NORM$
Print #3,Space$(S5(LABEL_NUMBER))+BL5$(LABEL_NUMBER)+IT5$(LABEL_NUMBER)+UL5$(LABEL_NUMBER)+E$(LABEL_NUMBER)+NORM$
Print #3,Space$(S6(LABEL_NUMBER))+BL6$(LABEL_NUMBER)+IT6$(LABEL_NUMBER)+UL6$(LABEL_NUMBER)+F$(LABEL_NUMBER)+NORM$
Print #3,Space$(S7(LABEL_NUMBER))+BL7$(LABEL_NUMBER)+IT7$(LABEL_NUMBER)+UL7$(LABEL_NUMBER)+G$(LABEL_NUMBER)+NORM$
Close 3
Dialog Unfreeze 1
Return
MESS:
Dialog Freeze 1
Window 0
Gr Writing 1
Text 20,214,MESS1$
Text 20,224,MESS2$
Text 20,234,MESS3$
While Mouse Key=0 : Wend
Ink 0 : Bar 20,205 To 620,235
Gr Writing 0
Dialog Unfreeze 1
Return
ER:
MESS1$="Some sort of error which calls itself: "+Str$(Errn)+" "+Err$(Errn)
If Errn=171 or Errn=177 Then MESS1$="The printer port is currently in use by something." : MESS2$="If your dick is in it please remove and click"
If Errn=174 Then MESS1$="Please check cables as nothing can get through to the printer!"
If Errn=172 Then MESS1$="This Amiga and printer have eaten all the memory up. Feed me!"
Gosub MESS
Resume MAIN
WIPE:
For LLLL=1 To 16
A$(LLLL)=""
B$(LLLL)=""
C$(LLLL)=""
D$(LLLL)=""
E$(LLLL)=""
F$(LLLL)=""
G$(LLLL)=""
BL1$(LLLL)=""
IT1$(LLLL)=""
UL1$(LLLL)=""
BL2$(LLLL)=""
IT2$(LLLL)=""
UL2$(LLLL)=""
BL3$(LLLL)=""
IT3$(LLLL)=""
UL3$(LLLL)=""
BL4$(LLLL)=""
IT4$(LLLL)=""
UL4$(LLLL)=""
BL5$(LLLL)=""
IT5$(LLLL)=""
UL5$(LLLL)=""
BL6$(LLLL)=""
IT6$(LLLL)=""
UL6$(LLLL)=""
BL7$(LLLL)=""
IT7$(LLLL)=""
UL7$(LLLL)=""
Next LLLL
Gosub UP
Return
Procedure ABOUT
ABOUT$="BA 140,50;SI 376,136;SA 1;"
ABOUT$=ABOUT$+"BO 0,0,1,376,136;IN 2,0,2;SP 2,0;GB 4,11,371,133;IN 1,0,2;SP 0,0;"
ABOUT$=ABOUT$+"BO 8,16,19,368,128;"
ABOUT$=ABOUT$+"BU 1,280,108,80,15,0,0,1;[LI 0,0,3BP*28+,80;PR 12,4,'WICKED!',1BP+;][BR 0;]"
ABOUT$=ABOUT$+"PR 160,23,'cODED bY',2;"
ABOUT$=ABOUT$+"PR 176,36,'GUI bY',2;"
ABOUT$=ABOUT$+"PO 240,23,'ßudda/NFA',3,2;"
ABOUT$=ABOUT$+"PO 240,36,'ßudda/NFA',3,2;"
ABOUT$=ABOUT$+"PR 32,56,'Easy to use label designer. Created to',1;"
ABOUT$=ABOUT$+"PR 24,64,'allow me to print text onto address labels',1;"
ABOUT$=ABOUT$+"PR 24,72,'to use as disk labels and jiffy stickers!',1;"
ABOUT$=ABOUT$+"PR 112,80,'Use it how you wish.',1;"
ABOUT$=ABOUT$+"PR 32,88,'Before printing to any labels do a test',1;"
ABOUT$=ABOUT$+"PR 16,96,'and see if everything is in-line. Good Luck',1;"
ABOUT$=ABOUT$+"PR 8,2,'ABOUT THIS SILLY LITTLE PROGRAM',1;"
ABOUT$=ABOUT$+"BU 2,16,111,24,11,"+(Str$(MUS)-" ")+",0,1;[UN 0,0,40BP-;][]"
ABOUT$=ABOUT$+"PR 48,113,'Music?',1;"
ABOUT$=ABOUT$+"EX;"
Dialog Freeze 1
Dialog Open 2,ABOUT$
XXX=Dialog Run(2)
Paste Icon 150,68,1
Do
BT=Dialog(2)
If BT=2
If Rdialog(2,2)=0
St Pause On
MUS=0
End If
If Rdialog(2,2)=1
St Pause Off
MUS=1
End If
End If
Exit If BT=1
Loop
Dialog Close 2
Dialog Unfreeze 1
End Proc
Procedure _FILE[MSG$,MO]
If Exist("libs:req.library")=True
Amos To Back
Lpos Freq 75,2
Lcust Freq 16,40,20
Lset Freq Dir Dir$
FILE$=Lfreq(MSG$,MO+$20+$4+$40+$80)
Amos To Front
End If
End Proc[FILE$]
Procedure CONVERT[L$,WAY]
For I=1 To Len(L$)
A$=Mid$(L$,I,1)
If WAY=1
If A$=","
Mid$(L$,I,1)="|"
End If
End If
If WAY=2
If A$="|"
Mid$(L$,I,1)=","
End If
End If
Next I
End Proc[L$]