home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib38a.dsk
/
FEBRUARY.1990
/
POP4.bas
< prev
Wrap
BASIC Source File
|
2023-02-26
|
756b
|
18 lines
10 REM ******************************
20 REM * POP4 *
30 REM * BY MARK CRAVEN *
40 REM * COPYRIGHT(C) 1990 *
50 REM * MINDCRAFT PUBL. CORP. *
60 REM * CONCORD, MA 01742 *
70 REM ******************************
80 REM
90 HOME : GOSUB 120
100 PRINT : PRINT : PRINT "THIS IS THE NORMAL RETURN FROM THE GOSUB"
110 END
120 PRINT "PRESS <ESC> TO EXECUTE A 'POP' OR PRESS": PRINT "<RETURN> FOR A NORMAL RETURN FROM GOSUB"
130 VTAB 12: HTAB 1: PRINT "PRESS <ESC> OR <RETURN>..";: POKE -16368,0: GET X$
140 IF X$ = CHR$(27) THEN POP : GOTO 170
150 IF X$ = CHR$(13) THEN RETURN
160 GOTO 130
170 PRINT : PRINT : PRINT "THIS IS A 'GOTO' AFTER EXECUTING A 'POP'"
180 END