NOTE:  Since the creation of this file, we have decided
to go completely with assembly.

Copyright is still in effect.

------------------------------------------------------
This file is provided so that you can see what
we are doing.  THIS PROGRAM IS COPYRIGHTED.  Please
do not use any part of this program without permission.
(You will probably get permission if you ask...)

Prgm

Local lcv1,lcv2,temp1,temp2,temp3

ClrIO
(c)resetio()
Disp 
Disp "Marvin Control Program, Version 0.0"
Disp 
Disp "Copyright (c) 1997"
(c) Display picture here?
Lbl main
ClrIO
Toolbar
 Title "I/O"
  Item "Reset I/O",reset
  Item "Get PNP status",pnp
 Title "Con"
  Item "Update",update
  Item "Manual command",manual
  Item "Edit command set",edcom
  Item "Run command set",run
 Title "System"
  Item "Quit to OS",dos
EndTBar

Lbl reset
(c)resetio()
Goto main

Lbl pnp
0progmode
(c)scanio()
ClrIO
Disp "Numper of active ports:"
Disp numports
Pause 
ClrIO
0lcv1
0lcv2
For lcv1,0,15
 If lcv1<10 Then
  "0"temp1
 Else
  ""temp1
 EndIf
 If #("portno"&temp1&string(lcv1))>0 Then
  lcv2+1lcv2
  If lcv2>4 Then
   Pause 
   ClrIO
   0lcv2
  EndIf
  Disp "Port number "&string(lcv1)
  Disp "Unit type: [def here]"
 EndIf
EndFor
Pause 
Goto main

Lbl update
ClrIO
"send"temp1
Lbl update2
Lbl sendmap
Try
 Disp temp1&"ing MAPARRAY"
 Disp "press enter when ready"
 Pause 
 expr(temp1&"calc maparray")
Else
 ClrErr
 ClrIO
 Disp "error,"
 Goto sendmap
EndTry
Lbl sendcom
Try
 Disp temp1&"ing COMARRAY"
 Disp "press enter when ready"
 Pause 
 expr(temp1&"calc comarray")
Else
 ClrErr
 ClrIO
 Disp "error,"
 Goto sendcom
EndTry
Lbl sendenv
Try
 Disp temp1&"ing ENVARRAY"
 Disp "press enter when ready"
 Pause 
 expr(temp1&"calc envarray")
Else
 ClrErr
 ClrIO
 Disp "error,"
 Goto sendenv
EndTry
If temp1="send" Then
 "get"temp1
 Goto update2
EndIf
Goto main


Lbl manual
Lbl run
Lbl dos

EndPrgm

Copyright (c) 1997
Chris Lambert, Joshua Kellogg, Jonathan Wagner

    Source: geocities.com/siliconvalley/peaks/6869

               ( geocities.com/siliconvalley/peaks)                   ( geocities.com/siliconvalley)