SWITCH BASIC
! RWKITB.CMD	Run by ATPK
!
! Build an RK05 kit, part 2  (accounts [6,*])
!
! Place an RK05 in drive zero.  It will be completely initialized.
!
!
$ Allow No Errors
ASSIGN DK0:
DEASSIGN DK0:
!
RUN $DSKINT
RK0
RSTS
1
0
*
1
PRI
NO
NO
NO
YES
EXIT
!
MOUNT DK0:RSTS
!
RUN $REACT
E
5,1
DK0:*
0
16
C command
5,2
DK0:*
0
16
C command
5,3
DK0:*
0
16
C command
5,4
DK0:*
0
16
C command
5,5
DK0:*
0
16
C command
5,6
DK0:*
0
16
C command
5,7
DK0:*
0
16
C command
6,1
DK0:*
0
16
C command
6,2
DK0:*
0
16
C command
6,3
DK0:*
0
16
C command
6,4
DK0:*
0
16
C command
6,5
DK0:*
0
16
C command
6,6
DK0:*
0
16
C command
6,7
DK0:*
0
16
C command
^Z
!
PIP
DK0:[6,1]=[6,1]*.*
DK0:[6,2]=[6,2]*.*
DK0:[6,3]=[6,3]*.*
DK0:[6,4]=[6,4]*.*
DK0:[6,5]=[6,5]*.*
DK0:[6,6]=[6,6]*.*
DK0:[6,7]=[6,7]*.*
^Z
