start tok64 d64-niyiHz 90 REM save "kassettreg.bfin",8 100 REM inneh]llslista 110 pa=829 120 OPEN2,3 130 INPUT"printer j/n ";d$:IFd$="j"THENCLOSE2:OPEN2,4 140 OPEN1,1 160 a$=RIGHT$("{space*2}:"+STR$(PEEK(pa)+256*PEEK(pa+1)),6) 170 b$=RIGHT$("{space*4}-"+STR$(PEEK(pa+2)+256*PEEK(pa+3)),7) 180 c$=":{space*2}":FOR i=4 TO 19:c$=c$+CHR$(PEEK(pa+i)):NEXT 200 PRINT#2, a$ b$ c$ 210 CLOSE 1 220 GOTO140 stop tok64 (bastext 1.0)