home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib37a.dsk
/
JULY.1989
/
OVERLAY.ELM2.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
292b
|
5 lines
330 & RECALL : GOTO 280
340 T$(2) = "SUBTRACTION": GOSUB 210
350 VTAB 6: PRINT "A","B","A-B": FOR I = 1 TO 39: PRINT "-";: NEXT : PRINT "-"
360 CALL -958: VTAB 8: HTAB 1: FOR I = 1 TO 10: PRINT A(I),B(I),A(I) -B(I): NEXT : VTAB 22: PRINT "PRESS RETURN TO CONTINUE";: GET R$
370 GOTO 290