SWITCH BASIC
! RWKITA.CMD	Run by ATPK
!
! Build an RK05 kit, part 1  (accounts [5, (1, 3, 4, 5, 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:[5,1]=[5,1]*.*
DK0:[5,3]=[5,3]*.*
DK0:[5,4]=[5,4]*.*
DK0:[5,5]=[5,5]*.*
DK0:[5,6]=[5,6]*.*
^Z