DefInt A-Z
Dim btn#

Sub Command1_Click ()
  MousePointer = 11
  On Error GoTo NoFile
  Close #2: Open CSH_Path$ + "CSH_ORD.FRM" For Input As #2
  On Error GoTo NoPrinter
  Printer.Print ""
  On Error GoTo 0
  Do While Not EOF(2)
    Line Input #2, x$
    Printer.Print x$
  Loop
  Printer.EndDoc
  MsgBox "The order form has been sent to Window's to print."
  MousePointer = 0
  Unload Form3
  Exit Sub

NoFile:
  x$ = "The file CSH_ORD.FRM was not found. It has a complete order form in it. "
  x$ = x$ + "Instead of the complete form, only ordering information will be printed."
  MousePointer = 0
  MsgBox x$
  Printer.Print "To pay for CardShark Hearts, send $25 plus $4 shipping to"
  Printer.Print "Nelson Ford, P.O.Box 35705, Houston, TX 77235  or call 800-242-4775."
  Printer.Print "All major credit cards accepted. Tech support: 713-524-6394."
  Printer.Print "Specify disk size wanted."
  Unload Form3
  Exit Sub

NoPrinter:
  MousePointer = 0
  MsgBox "Printer not ready."
  Exit Sub
End Sub

Sub Command2_Click ()
  f$ = CSH_Path$ + "Money2.wav"
  If Dir$(f$) <> "" Then
    Form1.MMControl1.Wait = -1
        Form1.MMControl1.Command = "Close"
        Form1.MMControl1.FileName = f$
        Form1.MMControl1.Command = "Open"
        Form1.MMControl1.Command = "Sound"
    'Do
    '  x = sndPlaySound(f$, 2)
    '  If x = 0 Then z = DoEvents()
    'Loop While x = 0
  End If
  Unload Form3
End Sub

Sub Form_Load ()

Form3.Left = (Screen.Width - Form3.Width) / 2
Form3.Top = (Screen.Height - Form3.Height) / 2
cr$ = Chr$(13) + Chr$(10)
a$ = "CardShark Hearts is being marketed as shareware." + cr$ + cr$
a$ = a$ + "Any fee that you paid for a disk with this game on it "
a$ = a$ + "or that you paid to download it was for this evaluation "
a$ = a$ + "copy only. No part of that payment went to the author of the program. " + cr$ + cr$
a$ = a$ + "Use of the program beyond a reasonable evaluation "
a$ = a$ + "period requires payment to the author." + cr$ + cr$
b$ = "The purchase price of CardShark Hearts is $25." + cr$
b$ = b$ + "In addition to receiving the latest version, "
b$ = b$ + "you will get the bonus items described in the "
b$ = b$ + "documentation." + cr$ + cr$
b$ = b$ + "To order, call 800-242-4775." + cr$ + "For technical support, call 713-524-6394."
Label1.Caption = a$ + b$
If Rnd > .5 Then
  btn# = Command1.Left
  Command1.Left = Command2.Left
  Command2.Left = btn#
End If
Form3Up = -1
End Sub

Sub Form_Paint ()

Frame Form3, Label1
Frame Form3, Command1
Frame Form3, Command2
'If btn# > 0 Then
'  PositionCursor Form3.Command2
'Else
  PositionCursor Form3.Command1
'End If

End Sub

