1 CLS
10 LOCATE 5,11,0:PRINT "L U C I F E R S P E L"
20 LOCATE 18,2:PRINT "Written by Rick Companje Prodructions"
30 PRINT
40 PRINT TAB(3);   "      (C) Copyright 1994,95";
70 IF OV=0 THEN GOTO 1140
80 B=317:FOR A=1 TO 2000:NEXT
90 COLOR 2,0
100 LOCATE 1,1,0
110 CLS
120 KEY OFF
130 DEFUSR1=342
140 LU$="  LUCIFERSPEL"
150 L$="L U C I F E R S P E L "
160 J$="                 HOEVEEL NEEM JIJ ER ?       "+SPACE$(100)
170 I$="                IK NEEM ER DAN "
180 V$="                HELA, NIET VALS SPELEN !"
190 S$="GEFELICITEERD, IK BEN VERSLAGEN"
200 C$="    IK BEN DE WINNAAR"
210 N$="      NOG EENS ? "
220 T$="               AANWEZIG        LUCIFERS
230 SYMBOL (106,10),LU$,2,1
240 IF SPZIEN=1 THEN LOCATE CSRLIN,POS,1:GOTO 310
250 LOCATE 18,15,1:PRINT "SPELREGELS ZIEN ? (J/N)"
260 LOCATE 18,40:A$=INPUT$(1)
270 LOCATE CSRLIN,POS,0
280 IF A$="j" OR A$="J" THEN PRINT "  JA" ELSE PRINT "  NEE"
290 FOR W=0 TO 500:NEXT
300 IF A$="j" OR A$="J" THEN GOSUB 640
310 '
320 AL=0:X1=0:X2=215
330 GOSUB 520
340 GOSUB 890
350 LOCATE 18,1:PRINT J$
360 LOCATE 18,40,1:W$=INPUT$(1):IF W$=CHR$(27) THEN GOTO 1070 ELSE PRINT " ";W$
370 LOCATE CSRLIN,POS,0
380 IF VAL(W$)>AL THEN 400
390 IF W$>"0" AND W$<"4" THEN AW=VAL(W$):GOTO 410
400 GOSUB 750:GOTO 360
410 GOSUB 830
420 IF AL=1 THEN 950
430 IF AL=0 THEN 1040
440 FOR W=0 TO 500:NEXT
450 Q=AL-4*INT(AL/4)
460 IF Q<>1 THEN AW=(Q+3)-4*INT ((Q+3)/4) ELSE AW=INT(RND(1)*3+1)
470 LOCATE 17,2:PRINT I$;AW
480 GOSUB 830
490 FOR W=0 TO 100 :NEXT
500 GOTO 350
510 '  ****** L U C I F E R S   T E K E N E N  ****************************
520 Y=25
530 LOCATE CSRLIN,POS,0
540 FOR X=135 TO 311 STEP 8
550 CIRCLE(X,Y+2),4,,,,1:PAINT (X,Y+2),1,1:'  Koppen  van lucifers
560 LINE (X-1,29)-(X+2,55),,BF:AL=AL+1:'   Stokjes van lucifers
570 'PSET (107,75),1:LOCATE 10,30:PRINT USING"##";AL
580 NEXT
590 'FOR X=135 TO 311 STEP 8:PAINT (X+3,Y+2),1,2:NEXT
600 RETURN
610 -----------------------------
620    S P E L R E G E L S
630 -----------------------------
640 CLS:LOCATE 9,10:PRINT "Voor je liggen 23 lucifers. Je neemt er 1,2 of 3                                weg, en dan neem ik er 1,2 of 3 weg. Dan jij weer,                              ik weer enz."
650 PRINT TAB(10);         "Wie de laatste moet weg nemen heeft het spelletje                               verloren !"
660 COLOR 2,0
670 LOCATE 16,10:PRINT     "SUCCES !!"
680 PRINT :PRINT "                                [SPATIEBALK]
690 A$=INKEY$:IF A$<>CHR$(32) THEN 690
700 CLS:FOR W=0 TO 100:NEXT
710 RETURN
720 '--------------------------
730 '  foutief wegnemen
740 '--------------------------
750 LOCATE 19,2:BEEP :PRINT V$:BEEP
760 FOR SG=15 TO 0 STEP-.1
770 NEXT
780 FOR W=0 TO 100:NEXT
790 RETURN
800 '--------------------------
810 '  lucifers weghalen
820 '--------------------------
830 X1=X2-(AW*8)
840 LINE (X1+100,23)-(X2+100,55),0,BF
850 'LINE (316,24)-(B-5,55),1,BF:'SYMBOL (B,24),"ллллл",1,1,0
860 'NEXT
870 X2=X1:AL=AL-AW
880 '
890 LOCATE 12,2:PRINT T$:LINE (215,85)-(245,97),,B
900 LOCATE 12,29:PRINT USING"##";AL
910 LINE (215,85)-(245,97),,B:'   Het blokje om het cijfer
920 RETURN
930 '-------------------------
940 '    speler wint
950 '------------------------
960 AW=1:GOSUB 830
970 COLOR 0,2
980 LOCATE 20,10:PRINT S$
990 A$=INPUT$(1)
1000 COLOR 2,0:GOTO 1070
1010 '-------------------
1020 '   computer wint
1030 '-------------------
1040 '
1050 CLS:LOCATE 20,2,0:PRINT C$
1060 PRINT :PRINT "NOG EEN KEER ?";:COLOR 6,0:PRINT "м";:COLOR 2,0:A$=INPUT$(1)
1070 IF A$="J" OR A$="j" THEN CLS:SPZIEN=1:CLS:PUT(70,70),O:OV=1:GOTO 10
1080 IF A$="N" OR A$="n" THEN RUN"MENU"
1120 GOTO 1050
1130 '
1140 ' Het Luciferdoosje
1190 '
1210 RESTORE
1220 READ A,B,C,D:IF A=0 THEN GOTO 1320
1230 LINE (A,B)-(C,D)
1240 GOTO 1220
1250 DATA 100,100,200,100,200,100,220,80,220,80,220,70,220,70,120,70
1260 DATA 100,100,100,90,100,90,200,90,200,90,220,70,200,100,200,90
1270 DATA 120,70,100,90,80,88,100,72,100,72,118,72,80,88,100,88
1280 DATA 80,88,80,98,80,98,98,98,0,0,0,0
1290 DATA 165,77,145,83,175,77,145,83,144,77,173,83
1300 DATA 111,88,195,88,126,72,213,72
1310 DATA 0,0,0,0
1320 '
1330 FOR F=101 TO 200 STEP 3
1340 CIRCLE (F,91),1:NEXT:'NEXT
1341 DIM I(100):GET(101,91)-(200,92),I
1342 FOR E=91 TO 98 STEP 2
1343 PUT (101,E+1),I
1344 NEXT
1350 PAINT (205,90),4,2
1360 PAINT (155,88),1,2
1370 G=106
1380 FOR H=74 TO 86 STEP 3
1390 G=G-3
1400 LINE (G,H)-(G+12,H-1),,BF
1410 CIRCLE (G,H),2,,,,1,F
1420 NEXT  
1430 LINE (80,88)-(99,97),,BF
1440 CIRCLE (160,80),30,,,.17,2
1450 PAINT (165,82)
1460 RESTORE 1290
1470 READ A,B,C,D:IF A=0 THEN GOTO 1500
1480 LINE (A,B)-(C,D),0
1490 GOTO 1470
1500 CIRCLE (144,83),2,,,,0:PAINT (144,83),0,0
1510 DIM O(2000)
1520 GET (70,69)-(222,100),O
1530 'A$=INPUT$(1)
1540 'CLS
1550 'A$=INPUT$(1)
1560 'PUT (70,69),O
1570 GOTO 80
M O(2000)
1520 GET (70,69)-(222,100),O
1530 'A$=INPUT$(1)