SWITCH BASIC
! RWKITC.CMD	Run by ATPK
!
! Build an RK05 kit, part 3  (accounts [5,2] and [5,7])
!
! 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 DK1: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:[5,2]=[5,2]*.*
DK0:[5,7]=[5,7]*.*
^Z