start tok64 d64-zrOg8V 10 REM ******************** 20 REM * * 30 REM * diskport-checker * 40 REM * * 50 REM ******************** 60 REM 70 REM ob. computer 4/1988 80 REM 100 FORa=49152TO49349:READx:POKEa,x:NEXT 110 DATA169,11,162,192,141,17,3,142,18,3,96,32,247,183,192,1,240,27,192,0,240,23 120 DATA169,128,141,195,192,32,51,192,32,69,192,32,81,192,32,121,192,169,1,32,195 130 DATA255,96,140,195,192,76,27,192,169,0,32,189,255,169,1,162,8,160,15,32,186 140 DATA255,32,192,255,96,162,1,32,201,255,96,162,1,32,198,255,96,160,0,185,171 150 DATA192,201,254,240,11,201,255,240,23,32,210,255,200,76,83,192,140,169,192 160 DATA32,204,255,32,69,192,172,169,192,200,76,83,192,32,204,255,96,32,75,192 170 DATA32,207,255,72,32,204,255,104,48,149,201,3,240,7,160,1,140,170,192,208,5 180 DATA160,0,140,170,192,32,162,179,173,195,192,48,10,205,170,192,240,5,104,104 190 DATA76,27,192,96,0,0,77,45,87,0,0,1,128,254,77,45,87,6,0,2,18,0,254,77,45,82 200 DATA0,0,1,255,0,70,0 300 PRINT"{clear}{down}{right}disk port checker 310 PRINT"{down*3}{right}sys pd 1991 320 PRINT"{down*3}{right}start: sys 49152 330 PRINT"{down}{right}ta ur disketten: =usr(0)":c=USR(0) 340 PRINT"{down}{right}s[tt i diskett:{space*2}=usr(1)":c=USR(1) stop tok64 (bastext 1.0)