Seq File read write Problems - GameCreators Forum

Author

Message

PeterLewis

20

Years of Service

User Offline

Joined: 27th Sep 2003

Location: South Africa

Posted: 27th Sep 2003 12:42

Link

In the attached code I cannot read/write to position 0

Please help

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 27th Sep 2003 16:46

Link

Hi.

like what its does, I made it work by doing a gosub writefile before your readfile. works when I ask it to do line 0.

In Space No One can Hear You Scream! (When your comm Line is cut?)

Back to top

Profile PM

PeterLewis

20

Years of Service

User Offline

Joined: 27th Sep 2003

Location: South Africa

Posted: 27th Sep 2003 18:52

Link

I tried the above message but all it does is create an empty file.

Please could you give the code with it

Thanks

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 27th Sep 2003 23:07

Link

here's your code with the one line added. not sure if you are meaning that when you rerun it again it has fogotten what was put in, if that is so when you do a if file exist rename the file if its there instead of deleteing it, then read in the new file name.
hope that makes it clear.

Rem ***** Main Source File *****
rem File Functionality
rem Standard Setup Code for all examples
rem set text size 0

reela AS integer
reelb as integer
reelc as integer
reeld as integer
reele as integer

dim reela(30000)
 dim reelb(30000)
 dim reelc(30000)
 dim reeld(30000)
 dim reele(30000)

rem added this bit ??????????????????????????????
gosub writefile
rem ????????????????

gosub readfile

do
cls

set cursor 200,25
Print " Virtual Tables for Bugzz"

remstart
box 80,70,550,95,RGB(0,128,255),RGB(0,128,255),RGB(0,128,255),RGB(0,128,255)
box 80,95,550,120,RGB(0,128,25),RGB(0,128,25),RGB(0,128,25),RGB(0,128,25)
box 80,120,550,145,RGB(50,0,50),RGB(50,0,50),RGB(50,0,50),RGB(50,0,50)
box 80,145,550,170,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
box 80,170,550,195,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0)

box 80,195,550,220,RGB(0,128,25),RGB(0,128,25),RGB(0,128,25),RGB(0,128,25)
box 80,220,550,245,RGB(50,0,50),RGB(50,0,50),RGB(50,0,50),RGB(50,0,50)
box 80,245,550,270,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
box 80,270,550,295,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0)

box 80,295,550,320,RGB(0,128,25),RGB(0,128,25),RGB(0,128,25),RGB(0,128,25)
box 80,320,550,345,RGB(50,0,50),RGB(50,0,50),RGB(50,0,50),RGB(50,0,50)
box 80,345,550,370,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
box 80,370,550,395,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0)

remend

set cursor 0,50
print " Line 0": set cursor 150,50:print reela(0):set cursor 200,50:print reelb(0):set cursor 250,50:print reelc(0):set cursor 300,50:print reeld(0):set cursor 350,50:print reele(0)
set cursor 0,65
print " Line 1": set cursor 150,65:print reela(1):set cursor 200,65:print reelb(1):set cursor 250,65:print reelc(1):set cursor 300,65:print reeld(1):set cursor 350,65:print reele(1)
set cursor 0,80
print " Line 2": set cursor 150,80:print reela(2):set cursor 200,80:print reelb(2):set cursor 250,80:print reelc(2):set cursor 300,80:print reeld(2):set cursor 350,80:print reele(2)
set cursor 0,95
print " Line 3": set cursor 150,95:print reela(3):set cursor 200,95:print reelb(3):set cursor 250,95:print reelc(3):set cursor 300,95:print reeld(3):set cursor 350,95:print reele(3)
set cursor 0,110
print " Line 4": set cursor 150,110:print reela(4):set cursor 200,110:print reelb(4):set cursor 250,110:print reelc(4):set cursor 300,110:print reeld(4):set cursor 350,110:print reele(4)
set cursor 0,125
print " Line 5": set cursor 150,125:print reela(5):set cursor 200,125:print reelb(5):set cursor 250,125:print reelc(5):set cursor 300,125:print reeld(5):set cursor 350,125:print reele(5)
set cursor 0,140
print " Line 6": set cursor 150,140:print reela(6):set cursor 200,140:print reelb(6):set cursor 250,140:print reelc(6):set cursor 300,140:print reeld(6):set cursor 350,140:print reele(6)
set cursor 0,155
print " Line 7": set cursor 150,155:print reela(7):set cursor 200,155:print reelb(7):set cursor 250,155:print reelc(7):set cursor 300,155:print reeld(7):set cursor 350,155:print reele(7)
set cursor 0,170
print " Line 8": set cursor 150,170:print reela(8):set cursor 200,170:print reelb(8):set cursor 250,170:print reelc(8):set cursor 300,170:print reeld(8):set cursor 350,170:print reele(8)
set cursor 0,185
print " Line 9": set cursor 150,185:print reela(9):set cursor 200,185:print reelb(9):set cursor 250,185:print reelc(9):set cursor 300,185:print reeld(9):set cursor 350,185:print reele(9)
set cursor 0,200
print " Line 10": set cursor 150,200:print reela(10):set cursor 200,200:print reelb(10):set cursor 250,200:print reelc(10):set cursor 300,200:print reeld(10):set cursor 350,200:print reele(10)
set cursor 0,215
print " Line 11": set cursor 150,215:print reela(11):set cursor 200,215:print reelb(11):set cursor 250,215:print reelc(11):set cursor 300,215:print reeld(11):set cursor 350,215:print reele(11)
set cursor 0,230
print " Line 12": set cursor 150,230:print reela(12):set cursor 200,230:print reelb(12):set cursor 250,230:print reelc(12):set cursor 300,230:print reeld(12):set cursor 350,230:print reele(12)
set cursor 0,245
print " Line 13": set cursor 150,245:print reela(13):set cursor 200,245:print reelb(13):set cursor 250,245:print reelc(13):set cursor 300,245:print reeld(13):set cursor 350,245:print reele(13)
set cursor 0,260
print " Line 14": set cursor 150,260:print reela(14):set cursor 200,260:print reelb(14):set cursor 250,260:print reelc(14):set cursor 300,260:print reeld(14):set cursor 350,260:print reele(14)
set cursor 0,275
print " Line 15": set cursor 150,275:print reela(15):set cursor 200,275:print reelb(15):set cursor 250,275:print reelc(15):set cursor 300,275:print reeld(15):set cursor 350,275:print reele(15)
set cursor 0,290
print " Line 16": set cursor 150,290:print reela(16):set cursor 200,290:print reelb(16):set cursor 250,290:print reelc(16):set cursor 300,290:print reeld(16):set cursor 350,290:print reele(16)
set cursor 0,305
print " Line 17": set cursor 150,305:print reela(17):set cursor 200,305:print reelb(17):set cursor 250,305:print reelc(17):set cursor 300,305:print reeld(17):set cursor 350,305:print reele(17)
set cursor 0,320
print " Line 18": set cursor 150,320:print reela(18):set cursor 200,320:print reelb(18):set cursor 250,320:print reelc(18):set cursor 300,320:print reeld(18):set cursor 350,320:print reele(18)
set cursor 0,335
print " Line 19": set cursor 150,335:print reela(19):set cursor 200,335:print reelb(19):set cursor 250,335:print reelc(19):set cursor 300,335:print reeld(19):set cursor 350,335:print reele(19)
set cursor 0,350
print " Line 20": set cursor 150,350:print reela(20):set cursor 200,350:print reelb(20):set cursor 250,350:print reelc(20):set cursor 300,350:print reeld(20):set cursor 350,350:print reele(20)
set cursor 0,365
print " Line 21": set cursor 150,365:print reela(21):set cursor 200,365:print reelb(21):set cursor 250,365:print reelc(21):set cursor 300,365:print reeld(21):set cursor 350,365:print reele(21)
set cursor 0,380
print " Line 22": set cursor 150,380:print reela(22):set cursor 200,380:print reelb(22):set cursor 250,380:print reelc(22):set cursor 300,380:print reeld(22):set cursor 350,380:print reele(22)
set cursor 0,395
print " Line 23": set cursor 150,395:print reela(23):set cursor 200,395:print reelb(23):set cursor 250,395:print reelc(23):set cursor 300,395:print reeld(23):set cursor 350,395:print reele(23)
set cursor 0,410
print " Line 24": set cursor 150,410:print reela(24):set cursor 200,410:print reelb(24):set cursor 250,410:print reelc(24):set cursor 300,410:print reeld(24):set cursor 350,410:print reele(24)
set cursor 0,425
print " Line 25": set cursor 150,425:print reela(25):set cursor 200,425:print reelb(25):set cursor 250,425:print reelc(25):set cursor 300,425:print reeld(25):set cursor 350,425:print reele(25)
set cursor 0,440
print " Line 26": set cursor 150,440:print reela(26):set cursor 200,440:print reelb(26):set cursor 250,440:print reelc(26):set cursor 300,440:print reeld(26):set cursor 350,440:print reele(26)
set cursor 0,455
print " Line 27": set cursor 150,455:print reela(27):set cursor 200,455:print reelb(27):set cursor 250,455:print reelc(27):set cursor 300,455:print reeld(27):set cursor 350,455:print reele(27)
set cursor 0,470
print " Line 28": set cursor 150,470:print reela(28):set cursor 200,470:print reelb(28):set cursor 250,470:print reelc(28):set cursor 300,470:print reeld(28):set cursor 350,470:print reele(28)
set cursor 0,485
print " Line 29": set cursor 150,485:print reela(29):set cursor 200,485:print reelb(29):set cursor 250,485:print reelc(29):set cursor 300,485:print reeld(29):set cursor 350,485:print reele(29)
set cursor 0,500
print " Line 30": set cursor 150,500:print reela(30):set cursor 200,500:print reelb(30):set cursor 250,500:print reelc(30):set cursor 300,500:print reeld(30):set cursor 350,500:print reele(30)
set cursor 0,515
print " Line 31": set cursor 150,515:print reela(31):set cursor 200,515:print reelb(31):set cursor 250,515:print reelc(31):set cursor 300,515:print reeld(31):set cursor 350,515:print reele(31)
set cursor 0,530
print " Line 32": set cursor 150,530:print reela(32):set cursor 200,530:print reelb(32):set cursor 250,530:print reelc(32):set cursor 300,530:print reeld(32):set cursor 350,530:print reele(32)
set cursor 0,545
print " Line 33": set cursor 150,545:print reela(33):set cursor 200,545:print reelb(33):set cursor 250,545:print reelc(33):set cursor 300,545:print reeld(33):set cursor 350,545:print reele(33)
set cursor 0,560
print " Line 34": set cursor 150,560:print reela(34):set cursor 200,560:print reelb(34):set cursor 250,560:print reelc(34):set cursor 300,560:print reeld(34):set cursor 350,560:print reele(34)
set cursor 0,575
print " Line 35": set cursor 150,575:print reela(35):set cursor 200,575:print reelb(35):set cursor 250,575:print reelc(35):set cursor 300,575:print reeld(35):set cursor 350,575:print reele(35)
set cursor 0,590
print " Line 36": set cursor 150,590:print reela(36):set cursor 200,590:print reelb(36):set cursor 250,590:print reelc(36):set cursor 300,590:print reeld(36):set cursor 350,590:print reele(36)
set cursor 0,605
print " Line 37": set cursor 150,605:print reela(37):set cursor 200,605:print reelb(37):set cursor 250,605:print reelc(37):set cursor 300,605:print reeld(37):set cursor 350,605:print reele(37)
set cursor 0,620
print " Line 38": set cursor 150,620:print reela(38):set cursor 200,620:print reelb(38):set cursor 250,620:print reelc(38):set cursor 300,620:print reeld(38):set cursor 350,620:print reele(38)
set cursor 0,635
print " Line 39": set cursor 150,635:print reela(39):set cursor 200,635:print reelb(39):set cursor 250,635:print reelc(39):set cursor 300,635:print reeld(39):set cursor 350,635:print reele(39)

Input " Enter the line Number to edit    ",n

Input " Reel 1    ";f
Input " Reel 2    ";g
Input " Reel 3    ";h
Input " Reel 4    ";i
Input " Reel 5    ";j

reela(n)=f
reelb(n)=g
reelc(n)=h
reeld(n)=i
reele(n)=j

gosub writefile

loop

readfile:

open to read 1,"virtable.txt"

for m = 1 to 40

read file 1,reela
read file 1,reelb
read file 1,reelc
read file 1,reeld
read file 1,reele

if m=1 then reela(0) = reela else reela(m-1)=reela
if m=1 then reelb(0) = reelb else reelb(m-1)=reelb
if m=1 then reelc(0) = reelc else reelc(m-1)=reelc
if m=1 then reeld(0) = reeld else reeld(m-1)=reeld
if m=1 then reele(0) = reele else reele(m-1)=reele

next m

close file 1
return

writefile:

if file exist("virtable.txt") then delete file "virtable.txt"
open to write 1,"virtable.txt"
for l = 1 to 40

if l=1 then reela= reela(0) else reela = reela(l-1)
if l=1 then reelb= reelb(0) else reelb = reelb(l-1)
if l=1 then reelc= reelc(0) else reelc = reelc(l-1)
if l=1 then reeld= reeld(0) else reeld = reeld(l-1)
if l=1 then reele= reele(0) else reele = reele(l-1)

write file 1,reela
write file 1,reelb
write file 1,reelc
write file 1,reeld
write file 1,reele

next l

close file 1
return

+ Code Snippet

Rem ***** Main Source File *****
rem File Functionality
rem Standard Setup Code for all examples
rem set text size 0

reela AS integer
reelb as integer
reelc as integer
reeld as integer
reele as integer


 dim reela(30000)
 dim reelb(30000)
 dim reelc(30000)
 dim reeld(30000)
 dim reele(30000)

rem added this bit ??????????????????????????????
gosub writefile
rem ????????????????

gosub readfile

do
cls

set cursor 200,25
Print " Virtual Tables for Bugzz"

remstart
box 80,70,550,95,RGB(0,128,255),RGB(0,128,255),RGB(0,128,255),RGB(0,128,255)
box 80,95,550,120,RGB(0,128,25),RGB(0,128,25),RGB(0,128,25),RGB(0,128,25)
box 80,120,550,145,RGB(50,0,50),RGB(50,0,50),RGB(50,0,50),RGB(50,0,50)
box 80,145,550,170,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
box 80,170,550,195,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0)

box 80,195,550,220,RGB(0,128,25),RGB(0,128,25),RGB(0,128,25),RGB(0,128,25)
box 80,220,550,245,RGB(50,0,50),RGB(50,0,50),RGB(50,0,50),RGB(50,0,50)
box 80,245,550,270,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
box 80,270,550,295,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0)

box 80,295,550,320,RGB(0,128,25),RGB(0,128,25),RGB(0,128,25),RGB(0,128,25)
box 80,320,550,345,RGB(50,0,50),RGB(50,0,50),RGB(50,0,50),RGB(50,0,50)
box 80,345,550,370,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
box 80,370,550,395,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0)

remend

set cursor 0,50
print " Line 0": set cursor 150,50:print reela(0):set cursor 200,50:print reelb(0):set cursor 250,50:print reelc(0):set cursor 300,50:print reeld(0):set cursor 350,50:print reele(0)
set cursor 0,65
print " Line 1": set cursor 150,65:print reela(1):set cursor 200,65:print reelb(1):set cursor 250,65:print reelc(1):set cursor 300,65:print reeld(1):set cursor 350,65:print reele(1)
set cursor 0,80
print " Line 2": set cursor 150,80:print reela(2):set cursor 200,80:print reelb(2):set cursor 250,80:print reelc(2):set cursor 300,80:print reeld(2):set cursor 350,80:print reele(2)
set cursor 0,95
print " Line 3": set cursor 150,95:print reela(3):set cursor 200,95:print reelb(3):set cursor 250,95:print reelc(3):set cursor 300,95:print reeld(3):set cursor 350,95:print reele(3)
set cursor 0,110
print " Line 4": set cursor 150,110:print reela(4):set cursor 200,110:print reelb(4):set cursor 250,110:print reelc(4):set cursor 300,110:print reeld(4):set cursor 350,110:print reele(4)
set cursor 0,125
print " Line 5": set cursor 150,125:print reela(5):set cursor 200,125:print reelb(5):set cursor 250,125:print reelc(5):set cursor 300,125:print reeld(5):set cursor 350,125:print reele(5)
set cursor 0,140
print " Line 6": set cursor 150,140:print reela(6):set cursor 200,140:print reelb(6):set cursor 250,140:print reelc(6):set cursor 300,140:print reeld(6):set cursor 350,140:print reele(6)
set cursor 0,155
print " Line 7": set cursor 150,155:print reela(7):set cursor 200,155:print reelb(7):set cursor 250,155:print reelc(7):set cursor 300,155:print reeld(7):set cursor 350,155:print reele(7)
set cursor 0,170
print " Line 8": set cursor 150,170:print reela(8):set cursor 200,170:print reelb(8):set cursor 250,170:print reelc(8):set cursor 300,170:print reeld(8):set cursor 350,170:print reele(8)
set cursor 0,185
print " Line 9": set cursor 150,185:print reela(9):set cursor 200,185:print reelb(9):set cursor 250,185:print reelc(9):set cursor 300,185:print reeld(9):set cursor 350,185:print reele(9)
set cursor 0,200
print " Line 10": set cursor 150,200:print reela(10):set cursor 200,200:print reelb(10):set cursor 250,200:print reelc(10):set cursor 300,200:print reeld(10):set cursor 350,200:print reele(10)
set cursor 0,215
print " Line 11": set cursor 150,215:print reela(11):set cursor 200,215:print reelb(11):set cursor 250,215:print reelc(11):set cursor 300,215:print reeld(11):set cursor 350,215:print reele(11)
set cursor 0,230
print " Line 12": set cursor 150,230:print reela(12):set cursor 200,230:print reelb(12):set cursor 250,230:print reelc(12):set cursor 300,230:print reeld(12):set cursor 350,230:print reele(12)
set cursor 0,245
print " Line 13": set cursor 150,245:print reela(13):set cursor 200,245:print reelb(13):set cursor 250,245:print reelc(13):set cursor 300,245:print reeld(13):set cursor 350,245:print reele(13)
set cursor 0,260
print " Line 14": set cursor 150,260:print reela(14):set cursor 200,260:print reelb(14):set cursor 250,260:print reelc(14):set cursor 300,260:print reeld(14):set cursor 350,260:print reele(14)
set cursor 0,275
print " Line 15": set cursor 150,275:print reela(15):set cursor 200,275:print reelb(15):set cursor 250,275:print reelc(15):set cursor 300,275:print reeld(15):set cursor 350,275:print reele(15)
set cursor 0,290
print " Line 16": set cursor 150,290:print reela(16):set cursor 200,290:print reelb(16):set cursor 250,290:print reelc(16):set cursor 300,290:print reeld(16):set cursor 350,290:print reele(16)
set cursor 0,305
print " Line 17": set cursor 150,305:print reela(17):set cursor 200,305:print reelb(17):set cursor 250,305:print reelc(17):set cursor 300,305:print reeld(17):set cursor 350,305:print reele(17)
set cursor 0,320
print " Line 18": set cursor 150,320:print reela(18):set cursor 200,320:print reelb(18):set cursor 250,320:print reelc(18):set cursor 300,320:print reeld(18):set cursor 350,320:print reele(18)
set cursor 0,335
print " Line 19": set cursor 150,335:print reela(19):set cursor 200,335:print reelb(19):set cursor 250,335:print reelc(19):set cursor 300,335:print reeld(19):set cursor 350,335:print reele(19)
set cursor 0,350
print " Line 20": set cursor 150,350:print reela(20):set cursor 200,350:print reelb(20):set cursor 250,350:print reelc(20):set cursor 300,350:print reeld(20):set cursor 350,350:print reele(20)
set cursor 0,365
print " Line 21": set cursor 150,365:print reela(21):set cursor 200,365:print reelb(21):set cursor 250,365:print reelc(21):set cursor 300,365:print reeld(21):set cursor 350,365:print reele(21)
set cursor 0,380
print " Line 22": set cursor 150,380:print reela(22):set cursor 200,380:print reelb(22):set cursor 250,380:print reelc(22):set cursor 300,380:print reeld(22):set cursor 350,380:print reele(22)
set cursor 0,395
print " Line 23": set cursor 150,395:print reela(23):set cursor 200,395:print reelb(23):set cursor 250,395:print reelc(23):set cursor 300,395:print reeld(23):set cursor 350,395:print reele(23)
set cursor 0,410
print " Line 24": set cursor 150,410:print reela(24):set cursor 200,410:print reelb(24):set cursor 250,410:print reelc(24):set cursor 300,410:print reeld(24):set cursor 350,410:print reele(24)
set cursor 0,425
print " Line 25": set cursor 150,425:print reela(25):set cursor 200,425:print reelb(25):set cursor 250,425:print reelc(25):set cursor 300,425:print reeld(25):set cursor 350,425:print reele(25)
set cursor 0,440
print " Line 26": set cursor 150,440:print reela(26):set cursor 200,440:print reelb(26):set cursor 250,440:print reelc(26):set cursor 300,440:print reeld(26):set cursor 350,440:print reele(26)
set cursor 0,455
print " Line 27": set cursor 150,455:print reela(27):set cursor 200,455:print reelb(27):set cursor 250,455:print reelc(27):set cursor 300,455:print reeld(27):set cursor 350,455:print reele(27)
set cursor 0,470
print " Line 28": set cursor 150,470:print reela(28):set cursor 200,470:print reelb(28):set cursor 250,470:print reelc(28):set cursor 300,470:print reeld(28):set cursor 350,470:print reele(28)
set cursor 0,485
print " Line 29": set cursor 150,485:print reela(29):set cursor 200,485:print reelb(29):set cursor 250,485:print reelc(29):set cursor 300,485:print reeld(29):set cursor 350,485:print reele(29)
set cursor 0,500
print " Line 30": set cursor 150,500:print reela(30):set cursor 200,500:print reelb(30):set cursor 250,500:print reelc(30):set cursor 300,500:print reeld(30):set cursor 350,500:print reele(30)
set cursor 0,515
print " Line 31": set cursor 150,515:print reela(31):set cursor 200,515:print reelb(31):set cursor 250,515:print reelc(31):set cursor 300,515:print reeld(31):set cursor 350,515:print reele(31)
set cursor 0,530
print " Line 32": set cursor 150,530:print reela(32):set cursor 200,530:print reelb(32):set cursor 250,530:print reelc(32):set cursor 300,530:print reeld(32):set cursor 350,530:print reele(32)
set cursor 0,545
print " Line 33": set cursor 150,545:print reela(33):set cursor 200,545:print reelb(33):set cursor 250,545:print reelc(33):set cursor 300,545:print reeld(33):set cursor 350,545:print reele(33)
set cursor 0,560
print " Line 34": set cursor 150,560:print reela(34):set cursor 200,560:print reelb(34):set cursor 250,560:print reelc(34):set cursor 300,560:print reeld(34):set cursor 350,560:print reele(34)
set cursor 0,575
print " Line 35": set cursor 150,575:print reela(35):set cursor 200,575:print reelb(35):set cursor 250,575:print reelc(35):set cursor 300,575:print reeld(35):set cursor 350,575:print reele(35)
set cursor 0,590
print " Line 36": set cursor 150,590:print reela(36):set cursor 200,590:print reelb(36):set cursor 250,590:print reelc(36):set cursor 300,590:print reeld(36):set cursor 350,590:print reele(36)
set cursor 0,605
print " Line 37": set cursor 150,605:print reela(37):set cursor 200,605:print reelb(37):set cursor 250,605:print reelc(37):set cursor 300,605:print reeld(37):set cursor 350,605:print reele(37)
set cursor 0,620
print " Line 38": set cursor 150,620:print reela(38):set cursor 200,620:print reelb(38):set cursor 250,620:print reelc(38):set cursor 300,620:print reeld(38):set cursor 350,620:print reele(38)
set cursor 0,635
print " Line 39": set cursor 150,635:print reela(39):set cursor 200,635:print reelb(39):set cursor 250,635:print reelc(39):set cursor 300,635:print reeld(39):set cursor 350,635:print reele(39)




Input " Enter the line Number to edit    ",n

Input " Reel 1    ";f
Input " Reel 2    ";g
Input " Reel 3    ";h
Input " Reel 4    ";i
Input " Reel 5    ";j

reela(n)=f
reelb(n)=g
reelc(n)=h
reeld(n)=i
reele(n)=j

gosub writefile

loop


readfile:

open to read 1,"virtable.txt"

for m = 1 to 40

read file 1,reela
read file 1,reelb
read file 1,reelc
read file 1,reeld
read file 1,reele



if m=1 then reela(0) = reela else reela(m-1)=reela
if m=1 then reelb(0) = reelb else reelb(m-1)=reelb
if m=1 then reelc(0) = reelc else reelc(m-1)=reelc
if m=1 then reeld(0) = reeld else reeld(m-1)=reeld
if m=1 then reele(0) = reele else reele(m-1)=reele




next m

close file 1
return

writefile:

if file exist("virtable.txt") then delete file "virtable.txt"
open to write 1,"virtable.txt"
for l = 1 to 40

if l=1 then reela= reela(0) else reela = reela(l-1)
if l=1 then reelb= reelb(0) else reelb = reelb(l-1)
if l=1 then reelc= reelc(0) else reelc = reelc(l-1)
if l=1 then reeld= reeld(0) else reeld = reeld(l-1)
if l=1 then reele= reele(0) else reele = reele(l-1)


write file 1,reela
write file 1,reelb
write file 1,reelc
write file 1,reeld
write file 1,reele



next l

close file 1
return

In Space No One can Hear You Scream! (When your comm Line is cut?)

Back to top

Profile PM

PeterLewis

20

Years of Service

User Offline

Joined: 27th Sep 2003

Location: South Africa

Posted: 27th Sep 2003 23:22

Link

Guys Thanks the problem was solved

When testing this short section I was pressing the Esc to exit the loop.

This wrote 0's to the first record in the file.

Thank you to Richard Davey for showing me this problem

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Seq File read write Problems