MODE 20 : COLOUR 0,255,255,255 : CLS COLOUR 7,0,0,0 : COLOUR 7 DIM dat(1000) f$ = "1test.txt" A=OPENIN f$ REPEAT COLOUR 7 : c% = c% + 1 : k% = BGET#A : dat(c%) = k% IF k% > 31 AND k% <> 127 THEN PRINT CHR$(k%); UNTIL EOF#A CLOSE #A END
|
10 MODE 20 : COLOUR 0,255,255,255 : CLS 20 COLOUR 7,0,0,0 : COLOUR 7 30 DIM dat(10000) : f$ = "test.txt" 40 50 T=OPENOUT f$ 60 PRINT#T, "Now is the time for all good men to come to the aid of the party." 70 CLOSE #T 80 90 dat = 5 : byte = 34 : length = 5 100 A=OPENIN f$ 110 base=PTR#A 120 REPEAT 130 COLOUR 7 : c% = c% + 1 140 k% = BGET#A : dat(c%) = k% 150 IF k% > 31 AND k% <> 127 THEN PRINT " ";CHR$(k%); 160 UNTIL EOF#A OR c% > 30 170 @% = 3 : PRINT 180 FOR r = 1 TO 31 : PRINT r; : NEXT r : PRINT' 190 PTR# A=FN_ptr(dat) 200 BPUT#A,byte 210 CLOSE#A : RUN : REM To test 220 END 230 240 DEF FN_ptr(record)=base+record*length
MODE 20 : COLOUR 0,255,255,255 : CLS COLOUR 7,0,0,0 : COLOUR 7 f$ = "test.txt" T=OPENOUT f$ PRINT#T, "Now is the time for all good men to come to the aid of the party." CLOSE#T PROCshow REM insert B=OPENUP f$ PTR#B=4 : BPUT#B,35 CLOSE#B PROCshow END DEF PROCshow A=OPENIN f$ INPUT#A,dat$ : PRINT dat$ CLOSE #A : ENDPROC