Home | Reviews | GUIpedia | Forum | Fun500


trollyScreen 12 capturing usign bsave
hi, there is a code to save and load the screen usign bsave, without usign array   SUB Screen12Save(filename as string)
total! = 38400
DEF SEG=&h4000 FOR i = 0 TO 3
OUT &h3ce , 4
OUT &h3cf , i f$ = filename + chr$(i + 48) + ".sc"
BSAVE f$ , 0 , total! NEXT i DEF SEG END SUB   SUB Screen12Load(filename as string)     DEF SEG=&h4000     FOR i = 0 TO 3 OUT &h3c4,2
OUT&h3c5,2^i         f$=filename+chr$(i+48)+".sc"          bload f$,0 NEXT I DEF SEG END SUB
2010-10-193:10 PM

DickRe:Screen 12 capturing usign bsave
I think you have to change def seg=&h4000 to =&ha000
2010-10-203:48 PM

trollyRe:Screen 12 capturing usign bsave
ho yeah  thanks, i'ts a typo
2010-10-204:02 PM

BASIC Programming Help


2021 Brandon Cornell