Code:
'main loop:IF a = 2 THENINPUT "Input your text: ", text$OPEN "talk.txt" FOR APPEND AS #1WRITE #1, text$CLOSE #1CLSDO UNTIL text$ = "q":mcy:IF v = 1 THENOPEN "C:\Docume~1\Matt\zero\mine\talk1.txt" FOR INPUT AS #1INPUT #1, othertext$CLOSE #1IF othertext$ = "" THENv = 2END IFLOCATE g, 1PRINT username$; ": "; text$PLAY m$g = g + 1IF v = 1 THENLOCATE g, 1PRINT friend$; ": "; othertext$PLAY m$g = g + 1END IFEND IFLOCATE 1, 1INPUT "", text$OPEN "talk.txt" FOR APPEND AS #1WRITE #1, text$CLOSE #1LOCATE 1, 1PRINT " "IF text$ = "king" THEN GOTO kingv = 1LOOPEND IFEND
Statistics: Posted by plad6111 — Tue Jul 18, 2006 7:30 pm
Statistics: Posted by RyanKelly — Mon Jul 17, 2006 11:05 pm
Statistics: Posted by plad6111 — Mon Jul 17, 2006 3:34 pm
Code:
open "thefile" for input as #1do while not eof(1) line input #1, recdata$ 'recdata$ will contain the data from each record. gosub processdataloopsystemprocessdata: ' Your logic for processing each and every record on the file.return
Statistics: Posted by moneo — Fri Jul 14, 2006 7:31 pm
Statistics: Posted by Z!re — Fri Jul 14, 2006 4:38 pm
Statistics: Posted by moneo — Thu Jul 13, 2006 6:27 pm
Statistics: Posted by Anima — Wed Jul 12, 2006 9:34 pm
Statistics: Posted by Anima — Wed Jul 12, 2006 8:08 pm
Statistics: Posted by plad6111 — Wed Jul 12, 2006 7:03 pm
Statistics: Posted by plad6111 — Wed Jul 12, 2006 7:01 pm
Statistics: Posted by Anima — Wed Jul 12, 2006 7:01 pm