1 REM +++++++++++++++++++++++++++++++++ 2 REM ! Program .... MATRIX 3 REM ! Kommenterad i ABC- BLADET 1984:2 4 REM ! av Sven Wickberg <1384> 6 REM ! Minne 16 Kbytes 7 REM ! Ins{nt av Sven Wickberg 8 REM +++++++++++++++++++++++++++++++++ 10 REM SAVE MATRIX 84 02 06 SW 20 REM bokstavspussel efter en id` fr}n 30 REM More Basic Computer Games 40 GOTO 120 50 REM h{nvisingar----------------------- 60 GOTO 150 : REM h{mta ord 70 GOTO 290 : REM blanda bokst{verna 80 GOTO 420 : REM skriv bokstavsmatris 90 GOTO 580 : REM skriv ruta f|r l|saren 100 GOTO 710 : REM printerrutin 110 REM --------------------------------- 120 ; CHR$(12%)'MATRIX ORDPUSSEL' 130 GOSUB 800 : REM information 140 GOSUB 710 : REM printer? 150 REM H[MTA ORD ---------------------- 160 ; 'HUR M]NGA ORD'; : INPUT A 170 ; 'HUR L]NGA'; : INPUT L 180 IF INP(56%)>127% THEN 180 190 H1=A*L 200 DIM A$=H1,A$(H1)=1,A(H1),B$=H1,B$(H1)=1,B(H1),C(H1) 210 ; 'Ord 1: '; 220 FOR I=1 TO H1 230 GET W$ : ; W$; 240 A$=A$+W$ 250 A$(I)=W$ : A(I)=I 260 IF I