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