1 REM Ins{nt av 559
10 REM  ABC80 SPECIFIKATION
20 REM  BENGT HOLGERSSON 821216
30 ; CHR$(12%); : IF PEEK(6417%)=130% RESTORE 180 : GOTO 50
40 IF PEEK(6415%)=130% RESTORE 200 ELSE ; CHR$(7%)'FEL BASICTOLK !!' : END 
50 ; 'ABC80 KOMMANDON:' : ; : READ A% : GOSUB 100 : GOSUB 150
60 ; 'ABC80 INSTRUKTIONER:' : ; : READ A% : GOSUB 100 : READ A% : GOSUB 100
70 FOR X%=0% TO 5% : A%=A%+1% : GOSUB 100 : NEXT X% : GOSUB 150
80 ; 'ABC80 FUNKTIONER:' : ; : READ A% : GOSUB 100
90 FOR X%=0% TO 8% : A%=A%+1% : GOSUB 100 : NEXT X% : GOSUB 150 : GOTO 30
100 REM  SKRIVER 
110 A%=A%+1%
120 IF PEEK(A%)=255% ; ,; : RETURN 
130 IF PEEK(A%) AND 128% ; ,; : GOTO 110
140 ; CHR$(PEEK(A%)); : GOTO 110
150 REM  V[NTA 
160 ; CHR$(0%,8%); : GET A$ : ; CHR$(12%); : RETURN 
170 REM  ADRESSER CS : 11273 
180 DATA 2592,6417,6522,9205
190 REM  ADRESSER CS : 10042,9913 
200 DATA 2592,6415,6520,9203