home *** CD-ROM | disk | FTP | other *** search
- 5 CLS
- 10 OPEN "groupbug" FOR INPUT AS #1
- 20 WHILE NOT EOF(1)
- 30 LINE INPUT#1,A$
- 40 IF LEFT$(A$,3)="!@#" THEN FIL$=MID$(A$,4,12):CLOSE#2:OPEN FIL$ FOR OUTPUT AS #2:LOCATE 14,12:PRINT "Creating file ";FIL$;" ";:GOTO 60
- 50 PRINT#2,A$
- 60 WEND
- 70 CLOSE
- 80 SYSTEM