1 REM Ins{nd av: David Andersson <5201> 1985-10-13 23.35.29 10 REM . SAVE TESTSIO 20 REM -------------------------------- 30 REM 1985-09-30 40 REM DAVID ANDERSSON 50 REM MEDL. 5201 60 REM 70 REM MYCKET ENKEL TERMINALRUTIN 80 REM ANV[NDER SOFTSIO.32K 90 REM -------------------------------- 100 REM 110 REM STARTADRESS F\R SOFTSIO 120 A%=32768% 130 REM TESTA ATT SOFTSIO [R LADDAD 140 IF PEEK(A%)<>195% STOP 150 ; 'INIT INTERUPT' 160 Z=CALL(A%+3) 170 ; 'SET SPEEDS' 180 Z=CALL(A%+6,75) 190 Z=CALL(A%+9,1200) 200 ; 'MAIN LOOP' 210 REM MAIN LOOP 220 IF CALL(A%+15%)>=256% ; CHR$(CALL(A%+18%)); : REM TA EMOT TECKEN 230 Z%=CALL(A%+27%) : IF Z% Z%=CALL(A%+24%,Z%) : REM S[ND TECKEN 240 REM EXIT LOOP ON CTRL-C 250 IF INP(56%)<>131% GOTO 210 260 ; 270 ; 'EXIT INTERUPT' 280 Z=CALL(A%) 290 END