start tok64 d64-oH0IPu 10 REM disk-directory 20 REM av j{pound}rgen gustavsson, floda 50 FORa=49152TO49227:READb:POKEa,b:NEXT:PRINT"{clear}disk-directory : sys49152" 60 DATA 160,0,162,8,32,186,255,169,1,160,192,162,75,32,189,255,32,221,243,32,25 70 DATA 242,160,5,32,207,255,136,208,250,170,32,207,255,164,144,240,9,32,204 80 DATA 255,32,70,246,76,134,227,32,205,189,169,32,32,210,255,32,207,255,208 90 DATA 248,169,13,32,210,255,165,197,201,63,240,223,160,3,208,205,36 stop tok64 (bastext 1.0)