home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib13.dsk
/
DEMO.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
2KB
|
40 lines
10 HOME : PRINT "AS LOADED, THE PROGRAM POINTERS ARE -": GOSUB 110
20 REM *** SPLIT PROGRAM
30 POKE 6,0: POKE 7,13: REM LOROP IS $D00 (3328)
40 POKE 8,0: POKE 9,14: REM HIBEG IS $E00 (3584)
50 CALL 772: REM $304-SPLITTER
60 GOTO 300
70 REM *** OVERLAY
80 CALL 2305: REM $901-OVERLAY
90 GOSUB 1000
100 RETURN
110 REM *** POINTER STATUS
120 PRINT : PRINT "(PRGBEG) = " PEEK(103) + PEEK(104) *256
130 PRINT : PRINT "(PRGEND) = " PEEK(175) + PEEK(176) *256
140 RETURN
150 REM *** PROGRAM STATUS
160 PRINT : PRINT "PGM$ (SEGMENT NAME) = "PGM$
170 GOSUB 110
180 PRINT : PRINT "SEGMENT LISTING READS -": LIST 1000,0: PRINT
190 RETURN
210 LOMEM: 4608: REM $1200
300 REM *** MAIN PROGRAM
320 ONERR GOTO 700
330 KG$ = CHR$(7): REM BELL
340 DRV = PEEK(47096):SLT = PEEK(47095)/16: REM CURRENT VALUES
350 TRLN = 1000
360 PRINT : PRINT "AFTER SPLITTING, THEY LOOK LIKE THIS -": GOSUB 150
370 PRINT : INPUT "CHOOSE SEGMENT # (1 OR 2): ";SN$
380 PGM$ = "SEGMENT" +SN$: GOSUB 70: GOTO 370
700 REM *** ONERR ROUTINE
710 IF PEEK(2304) = 0 THEN CALL 2533: REM $9E5-RESTORE PGM PTRS
720 PK = PEEK(222)
730 IF PK = 6 THEN MSG$ = "FILE NOT FOUND": GOTO 780
740 IDFPK = 8 THEN MSG$ = "I/O ERROR": GOTO 780
750 IF PK = 77 THEN PRINT KG$: PRINT "OUT OF MEMORY ERROR IN " PEEK(218) + PEEK(219) *256: END
760 IF PK = 255 THEN STOP : REM CTRL-C
770 POKE 216,0: RESUME : REM NORMAL HANDLING FOR ANYTHING ELSE
780 REM *** ERROR
790 PRINT KG$: PRINT MSG$: CALL 54915: REM STKINI-INITIALIZE STACK
800 GOTO 370
1000 REM MAIN PROGRAM - ANYTHING FROM THIS LINE ON WILL BE DELETED