start tok64 d64-8iZ1Bj 0 REM sv oberoende computer #4/1987 10 REM ******************************** 20 REM * * 30 REM * prof-cursor * 40 REM * * 50 REM ******************************** 60 REM 100 FORa=49152TO49336:READx:POKEa,x:NEXT 105 PRINT"{clear}start :{reverse on}sys 49152 110 DATA120,169,17,162,192,141,20,3,142,21,3,169,5,133,2,88,96,198,2,240,3,76,49 120 DATA234,169,5,133,2,162,233,181,33,157,160,193,202,208,248,169,0,133,255,165 130 DATA214,133,254,6,254,38,255,6,254,38,255,165,254,24,101,214,133,254,144,3 140 DATA230,255,24,6,254,38,255,6,254,38,255,6,254,38,255,165,255,24,105,4,133 150 DATA255,165,211,24,101,254,133,254,144,3,230,255,24,165,214,133,251,165,211 160 DATA133,252,162,0,160,27,24,32,240,255,169,40,32,210,255,165,255,141,181,192 170 DATA166,254,142,182,192,32,205,189,169,45,32,210,255,173,181,192,56,237,82 180 DATA192,24,105,216,141,181,192,174,182,192,32,205,189,169,41,32,210,255,166 190 DATA251,164,252,24,32,240,255,162,233,189,160,193,149,33,202,208,248,76,49 200 DATA234,217,24,0,0 stop tok64 (bastext 1.0)