1 REM Ins{nt av 3947 1 REM Ins{nt av 3947 100 REM +----------------------------+ 101 REM ! MOVE STOP ! 102 REM ! ========== ! 103 REM ! ! 104 REM ! En liten rutin som till- ! 105 REM ! l}ter att valfritt v{lja ! 106 REM ! tangent som ger STOP. ! 107 REM ! H{r satt till C-S-O <159> ! 108 REM ! F|r att helt st{nga av ! 109 REM ! STOP-funktionen ge ett ! 110 REM ! v{rde mindre {n 128. ! 111 REM ! ! 112 REM ! * O B S E R V E R A * ! 113 REM ! ! 114 REM ! Det M]STE ligga REM-rader ! 115 REM ! f|rst p} detta s{ttet - ! 116 REM ! inte mindre {n 271 bytes. ! 117 REM ! Annars {r det risk att ! 118 REM ! BASIC-programmet dyker - ! 119 REM ! av |verpokening... ! 120 REM ! ! 121 REM ! ! 122 REM +----------------------------+ 123 REM ! 124 A%=PEEK(65053%)-(PEEK(65052%)>52%) 125 D%=52%+SWAP%(A%) 126 FOR I%=0% TO 16% 127 READ P% : POKE D%+I%,P% 128 NEXT I% 129 POKE D%+1%,A% 130 POKE D%+13%,A% 131 POKE 65052%,D%+12%,SWAP%(D%+12%) 132 Z%=CALL(D%+12%) 133 CHAIN "" 134 DATA 56,0,148,5,245,219,56,254 135 DATA 159 136 DATA 195,35,3,62,0,237,71,201