0 REM
10 ' COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 'SPLIT SOURCE PART ONE
30 POKE45,0:POKE46,135:CLR:'RESERVE SPACE
40 (null) $A000,$BFFF:(null)USR 1,0:(null) "SPLIT,P,W":(null)RND $C000:(null) 1:(null)SET (null)CMD #0
50 (null)^ $D021:(null)SAVE:(null)^ $D020:(null)CMD #3:(null)NEXTNUM (null)CLR (null)END,X:(null)/ $22,X:(null)SAVE
60 (null)LET (null)NEXTNUM:(null)SYS #0:(null)WAIT (null)CMD #1:(null)WAIT1 (null)ON 653:(null)READ (null)WAIT1
70 (null)PRINT (null)CLR ($22),Y:(null)INPUT# (null)JUMP:(null)LIST $FFD2:(null)PRINT:(null)READ (null)PR1:(null)POKE $23
80 (null)PR1 (null)STOP#" ":(null)READ (null)PRINT:(null)WAIT2 (null)CMD 653:(null)READ (null)WAIT2:(null)INPUT# (null)WAIT
90 (null)JUMP (null)CONT ($24):(null)END (null) 2
100 LOAD"SPLITSRC.P2",8:'LOAD AND RUN NEXT PART