1 REM ++++++++++++++++++++++++++++++++ 2 REM ! Program .... NOTANGNT 3 REM ! Utg}va 1.0 1982-03-11 4 REM ! av (c) B.BRUZELIUS 7 REM ! Minne 16 Kbytes 8 REM ! Ins{nt av 1717 9 REM ++++++++++++++++++++++++++++++++ 10 REM Program f|r att visa hur 11 REM tangentbordet kan st{ngas 12 REM av. 150 ; CHR$(12%) 160 ; "Nu {r tangentbordet avst{ngt !" 170 ; 180 ; "program kan ej ex; brytas med" 190 ; "CNTRL-C" 200 ; 210 REM -TAN av- 220 OUT 57,255 230 OUT 57,O 240 REM ------- 241 REM * 250 PRINT "FOR I=1 TO 3000:NEXTI" 260 FOR I=1 TO 6000 : NEXT I 270 REM ------ 280 FOR I=1 TO 3000 : ; I : NEXT I 281 REM * 290 REM - TAN p}- 300 REM ------ 310 OUT 57,255 320 OUT 57,255 330 REM ------ 340 ; 350 ; "Nu fungerar tangentbordet" 360 ; "igen" 370 END