1 REM Ins{nd av Fredrik S|rensson <4930>    1985-03-08 17.31.34
10 REM (c) Fredrik S|rensson
20 REM ABC80 minne 16k 
30 REM L\JLIGT.BAS
35 REM Ver. 1.0
40 ; CHR$(12)
50 FOR X=1 TO 22
60 ; CHR$(151)
70 NEXT X
80 GOSUB 270
90 GOSUB 280
100 ; CUR(4,2)CHR$(135)"ABC80 [R V[RLDENS MODERNASTE DATOR"CHR$(151)
110 ; CUR(5,15)CHR$(135)"INTE SANT?"CHR$(151)
120 ; CUR(10,16)"L\JLIGT"
130 GOSUB 290
140 GOSUB 300
150 ; CUR(10,11)"||"
160 ; CUR(11,11)"o?"
170 ; CUR(12,10)"7#"
180 ; CUR(13,10)"5"
190 ; CUR(14,11)"j5"
200 ; CUR(15,10)'"##!'
210 FOR X=2 TO 77 : SETDOT 46,X : NEXT X
220 GOSUB 230 : GOSUB 260 : GOSUB 250 : GOSUB 240 : GOSUB 250 : GOTO 220
230 SETDOT 35,27 : SETDOT 34,27 : SETDOT 33,27 : CLRDOT 33,28 : CLRDOT 32,28 : SETDOT 32,27 : SETDOT 32,26 : RETURN 
240 CLRDOT 32,26 : SETDOT 32,28 : CLRDOT 33,27 : SETDOT 33,28 : RETURN 
250 FOR X=1 TO 200 : NEXT X : RETURN 
260 OUT 6,137 : FOR X=1 TO 50 : NEXT X : OUT 6,0 : RETURN 
270 FOR X=2 TO 77 : SETDOT 8,X : SETDOT 20,X : NEXT X : RETURN 
280 FOR X=8 TO 20 : SETDOT X,2 : SETDOT X,77 : NEXT X : RETURN 
290 FOR X=21 TO 45 : SETDOT X,16 : SETDOT X,55 : NEXT X : RETURN 
300 READ A,B : IF A=0 THEN RETURN 
310 SETDOT A,B : GOTO 300
320 DATA 32,30,29,31,35,31,28,34,36,34,36,38,28,38,28,42,36,42,36,46,28,46,29,49,35,49,32,50,29,28,28,25,29,23
330 DATA 0,0