0 REM
10 ' COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 'SPLIT SOURCE PART TWO
30 (null)RND PEEK($FB)+256*PEEK($FC):'BAS BEFORE WRITE. BAS POINT TO THE LAST BYTE
40 (null) "SPLIT,P,A":'APPEND TO ORIGINAL OBJECT CODE
50 (null) 1:(null)FRE (null)TEXT,(null)COLORS
60 (null)COLORS (null)LIST (null)PRMSG:(null)*:(null)LOOP FORI=0TO16:(null)CLR #I:(null)/ $D020:NEXT
70 'REPETITIVE INSTRUCTIONS MADE EASY WITH FOR-NEXT LOOPING
80 FORI=1TO33:(null)CLOSE:NEXT:(null)CONT (null)LEAP:(null)LEAP (null)CLR $DC01:(null)STOP #239:(null)READ (null)LOOP:(null)RETURN:(null)NOT
90 (null)PRMSG (null)CMD #0:(null)LP1 (null)CLR (null)MSG,X:(null)INPUT# (null)RET:(null)LIST $FFD2:(null)PRINT#:(null)READ (null)LP1:(null)RET (null)NOT
100 (null)MSG (null)ABS 13,"[158]PRESS SPACE",13,0
110 (null)TEXT (null)ABS 13,13,"[154]THIS IS AN EXAMPLE OF A PROGRAM MADE OF TWO PARTS. "
120 (null)ABS "YOU CAN DO THIS WITH PROGRAMS THAT WON'T FIT IN MEMORY IN ONE PART."
130 (null)ABS 13," .....OK? ",0
140 (null) 2