home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1990 May
/
1990-05.d64
/
splitsrc.p2
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-09-20
|
723b
|
16 lines
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