home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib37a.dsk
/
JULY.1989
/
OVERLAY.ELM4.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
294b
|
5 lines
330 & RECALL : GOTO 280
340 T$(2) = "DIVISION": 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), INT(A(I)/B(I)): NEXT : VTAB 22: PRINT "PRESS RETURN TO CONTINUE";: GET R$
370 GOTO 290