home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib33a.dsk
/
DECEMBER.1987
/
GET.TEAMS.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
147b
|
7 lines
10 D$ = CHR$(4)
20 PRINT D$"OPEN TEAM.FILE"
30 PRINT D$"READ TEAM.FILE"
40 FOR I = 1 TO 4
50 INPUT A$
60 NEXT I
70 PRINT D$"CLOSE TEAM.FILE"