home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib10.dsk
/
BOOTER.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
734b
|
23 lines
10 REM **********************
20 REM * BOOTER *
30 REM * BY PAUL IRWIN *
40 REM * COPYRIGHT (C) 1982 *
50 REM * BY MICRO-SPARC INC *
60 REM * LINCOLN, MA. 01773 *
70 REM **********************
80 TEXT : HOME
90 PRINT " *** AMP-L-SOFT ***"
100 PRINT " BY PAUL IRWIN "
110 PRINT : PRINT " COPYRIGHT (C) 1982"
120 PRINT " BY MICRO-SPARC INC"
130 PRINT " LINCOLN, MA. 01773"
140 PRINT " ALL RIGHTS RESERVED"
150 PRINT
160 PRINT
170 PRINT : PRINT
180 : PRINT " LOADING AMP-L-SOFT...."
190 DEF FN AD(X) = PEEK(X) +256 * PEEK(X +1)
200 PRINT CHR$(4);"BLOADAMP-L-SOFT"
210 CALL FN AD( FN AD(999) -79)
220 PRINT " ... AMP-L-SOFT INSTALLED."
230 PRINT : PRINT