start tok64 d64-9ze3Wy 0 REM "automatisk dir" 1 REM ob. computer 6/1987 2 REM av: p]l haug, grubhei, norge 10 FORi=679TO767:READa:ck=ck+a:POKEi,a:NEXT 20 FORi=828TO973:READa:ck=ck+a:POKEi,a:NEXT 30 IFck<>29667THENPRINT"error in data!":END 40 SYS679:PRINT"{down}{right}ctrl+d ger directory 50 DATA120,169,180,141,20,3,169,2,141,21,3,88,96,165,197,201,18 60 DATA208,20,173,141,2,201,4,208,13,169,128,141,14,220,32,209 70 DATA2,169,129,141,14,220,76,49,234,32,60,3,169,3,162,8,160,15 80 DATA32,186,255,169,0,32,189,255,32,192,255,162,3,32,198,255 90 DATA32,176,3,32,207,255,240,5,32,210,255,80,246,169,3,32,195 100 DATA255,32,204,255,96,169,1,162,8,160,0,32,186,255,169,2,162,204 110 DATA160,3,32,189,255,32,192,255,162,1,32,198,255,32,170,3,32,156 120 DATA3,240,53,165,198,240,19,169,0,133,198,173,119,2,201,3,240,38 130 DATA165,198,240,252,169,0,133,198,169,13,32,210,255,32,207 140 DATA255,170,32,207,255,32,205,189,169,32,32,210,255,32,207,255 150 DATA240,203,32,210,255,208,246,169,1,32,195,255,32,204,255 160 DATA96,32,207,255,133,251,32,207,255,5,251,96,32,170,3,32 170 DATA207,255,76,207,255,160,0,185,190,3,32,210,255,200,192,14 180 DATA208,245,96,13,13,32,18,32,83,84,65,84,85,83,32,146,32,36,48 stop tok64 (bastext 1.0)