home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib29b.dsk
/
COUNTER.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
649b
|
17 lines
10 REM **********************
20 REM * COUNTER *
30 REM * COPYRIGHT (C) 1986 *
40 REM * BY MICROSPARC, INC *
50 REM * CONCORD, MA 01742 *
60 REM **********************
70 REM BE SURE TO BRUN SETUP FIRST
80 HOME : VTAB 24: PRINT "Press Space to switch or Escape to quit.";
90 POKE 35,21
100 HOME
110 X = 0
120 PRINT : PRINT "(Bank " PEEK(974)") Text screen number: "X;
130 A = PEEK( -16384): IF A = 160 THEN POKE -16368,0: POKE -16304,0: POKE -16297,0: CALL 768
140 IF A = 155 THEN POKE -16368,0: GOTO 170
150 X = X +1: IF X >1000 GOTO 110
160 GOTO 120
170 PRINT : PRINT "Program stopped in Bank " PEEK(974)