1 DOOR PKIENHUIS
2 MSX-liOZAIK
3 CLEAR600.40049 i:DEFINTA-J,N-Z:COLOR 15, 1,1: SCREEN2,0; KEY'QFF
5 T$="C6R20D5L7D15L6U15L7U5":E$="C15R 2ÖD4L16D4R10D4L10D4R16D4L20U2011 7 Kf-=11C12R6D8E8R7G1 OF 10L7H8DBL6U2011: N $="C4R5F1OU10R5D20L5H1OD10L5U20"
1o DRAW"BM80,SOS16"+T$:C=6:GOSUB9650 12 DRAW"BM80,SOS16"+E$:C=15:GOSUB9650 14 DRAW" BMSO, SOS 16 " +K$: C= 12: 6QSUB9650 1A DRAW"BMSO,SOS16"+E$:C=15:GOSUB9650 18 DRAW"BMBO,SOS16"+N$:C=4:GOSUB9650 20 DRAW"BM80.SOS16"+Ë$:C=15:GOSUB9650 22 DRAW " BMSO, SOS 16" +N*: 04: GQSUB9650 30 DRAW"S4BM20,50"+T$+"BM+30,O"+£$+"B M+30,O"+K$+"BM+30,O"+E$:DRAW"BM+30,O" +Nf+"BM+30,O"+E$+"BM+30,O"+N$
35 PAINI(21,51),6:PAINT(51,51),15:PA1 NT(81,51),12:PAINT(111,51),15
36 PA1 NT(341,51),4:PAINT(171,51),15ïP MIN 1(201,51),4
40 L. 1 NE (20,80 5 - (220,82) , 13, BF
50 OPEN"GRP:"F0R0UTPUTAS1
60 PSET(100.160),1:PRINT#1,"door P.KI
ENHUIS":CLOSE
80 FORTO 1TO1000: NEXT
90 M=30:N=2Ö:W=1:C=15:G=1
300 S$="":REST0RE9000: SPRIT E
110 FORT-1 TOS:READAf:S$=S$+CHR$(VAL("
&b"+AS)):NEXT:SPRITE$(1)=S$
200 CLS:SCREEN1:L0CATE2,12:INPUT"WILT U UI TLEG<J/N) ";U$:IFU$="N"ORU$="n"G OT0895
220 REM UITLEG
250 CLS:SCREENO:WIDTH 40:LOCATE12,1;P
RINT"TEKENEN":LOCATE O,5
255 PRINT" DIT IS EEN PROGRAMMA,WAA
RMEE IN"-.PRINT:PRINT" SCREEN 3 GETEKE
ND KAN WORDEN.PRINT
260 PRINT" DE VOLGENDE &ES-TURINGSMOGE
LIJKHEDEN":PRINT:PRINT" ZIJN AANWEZ16
„ il
262 GOStJB 9700 :CLb
265 PRINT:PRINT" M.B.V.DE CURSURTOETS
EN KAN EEN AAN-":PRINT:PRINT" WIJSPIJ L VERPLAATST WORDEN, DIE":PRI NT:PRINT " WISSELEND WIT OF GEKLEURD IS IN DE OP":PRINT:PRINT" DAT MOMENT ACTIEVE V OORGRONDKLEUR " : PRI NT; PR J. NT 300 PRINT;PRINT" DOOR HET INDRUKKEN V AN DE SPATIEBALK":PRINT 305 PRINT" KAM BEPAALD WORDEN OF ER S TEEDS EEN":PRINT
310 PRINT" PUNT GEPLAATST WORDT BIJ H ET VER-":PRINT:PRINT" SCHUIVEN VAN DE AANWIJSPIJL"
315 GOSUB 9700:CLS
320 PRINT:PRINT" DOOR EEN C GEVOLGD DOOR 2 GETALLEN":PR INT 325 PRINT" WORDT DE VOÖRGRONDKLEUR V£ RANDERD":PRINT:PRINT
330 PRINT" B.V. C 1 5 MSX":PRINT = WIT 
 PRINT" C 0 1 KLEUR":PRINT = ZWART 
340 PRINT" C 1 0 = DONKER 
il CODE":PRINT"  GEEL
350 PRINT:PRINT:PRINT" DOOR DE P J.N T
E DRUKKEN,WORDT HET VLAK":PRINT:PRINT " ROND DE AANWIJSPIJL EN OMSLOTEN DOO R":PRI NT:PRINT" DE VOORGRQNDKLEUR,GEV IJLD MET DIE KLEUR"
352 GOSUB 9700:CLS
355 PRINT:PRI NT" N(AAR) GEHEUGENP
LAATS":PRINT:PRINT" DOOR EEN N GEVOLG D DOOR EEN CIJFER(1-9)"
360 PRINT" IN TE DRUKKEN WORDT EEN GE MAAKTE TEKE-":PRINT:PRINT" NING NAAR DIE GEHEUGENPLAATS GESCHREVEN":PRINT 365 PR1NT:PRINT:PRINT" V(AN> GEHE
UGENPLAATS"
370 PRINT:PRINT" ZIE N(AAR) GEHEUGEN PLAATS"
395 60SUB 9700: CL.S
400 PRINT:PRINT" S(AVEN) NAAR CAS SETTE"
405 PRINT:PRINT" ALLEEN DE TEKENING I N GEHEUGENF'LAATS" : PRINT: PRINT" 1 KAN NAAR CASSETTE BESCHREVEN WORDEN":PRIN T:PRINT
410 PRINT:PRINT" LIADEN) VAN CASS ETTE":PRINT:PRINT" DE TEKENING VAN DE CASSETTE WORDT":PRINT:PRINT" NAAR GE HEUGENPLAATS .1 GESCHREVEN EN"
415 PRINT:PRINT" DlREKT DAARNA UITGET EKEND"
445 GOSUB 9700:CLS
450 PRINT;PR INT" M(OTOR)";PRINT: PRINT " DOOR EEN M IN TE DRUKKEN WORDT DE M 0-":PRINT:PRINT" TOR VAN DE CA5SETTER ECORDER AL OF":PRINT:PRINT" NIET BEKR ACHTIGD(BIJ AANWEZIGHEID VAN"
455 PRINT:PRINT" EEN REMQTE INGANG)": PRINT:PRINT:PRINT" CLS OF SHIFT CLS": PRINT:PRINT" HET SCHERM WORDT GEWIST" 495 B0SUB9700:CLS
500 PRINT:PR INT" Q <UIT)":PRINT:PR
INT" BIJ EEN Q GAAT U UIT HET PROGRAM MA"; PR I NT: PR I NT; PR I NT" H (ELF') ": PR
INT:PRINT" BIJ EEN H SPRINGT U TERUG NAAR DE":PRI NT:PRINT" UITLEG. N.B.SCH RIJF EERST DE TEKENING"
510 PRINT:PRINT" WAAR U MEE BEZIG BEN T NAAR EEN LEGE":PRINT:PRINT" GEHEUGE NPLAATS"
520 PRINT;PRINT:PRINT" F <I LM)":PR
INT;PRINT" INHOUD GEHEUGEN WORDT GEÏÜ
OND"
545 GOSUB9700:CLS 895 SCREFN3
900 DEFUSRO=4OO75!;RESTÖRE915 905 FORM1=400751T040099!
910 READM2:P0KEM1,M2;NEXT 9i5 DATA 33,0,0,17,40,160,1,0,6,195,8
9.0. 33.0.8.17.44.166.1.0.3.195.89.0.2 01
920 DEFUSR1=40050!:REST0RE935
925 FORM1=400501T0400741
930 READM2:POKEM1,M2:NEXT
935 DATA 33,40,160,17,0,0,1,0,6,195,9
2.0. 33.44.166.17.0.8.1.0.3.195.92.0.2 01
950 X=M*4:Y=N*4;SCREEN3 960 PUTSF'R I TE1, (M*4, N*4) , C, 1 1000 REM SCHEIDEN INVOER 1010 GOTO 1040 1020 IN$=INKEY$
1030 IFIN$=""THEN1020ELSERETURN 1040 GOSUB1020 1050 Z=ASCUN$>
1060 IF Z> 27AND Z <32GOTO2000 1065 IFIN$=CHR$(32)GOTO9600 1070 IFI Nf.= " C "OF: I N$= " c "GOï07000 1080 IFI N$= " F'" ORI m=" p" GOTO7500 1090 IFI N$="L."OR I N$= " ï "B0T06500 1100 IFI N$= " S "OR I m=" s " 60T06000 1110 IF Z =120RZ =11THENCLS 1120 ï FIN$="O"ORIN$="q"GOTO10000 1130 IFI m=" m " OR I N$=" M" THENMOTOR 1140 IFIN$="V"ORIN$="v"THENGOSUB8500 1150 IFIN$="N"ORIN$="n"GÜTQ800Ü 1160 IFIN$="H"ORIN$="h"GOTO200 1170 IFI N$="F" OR I m= " -f" GOTO9800 1200 GOTO1040
2000 REM PLAATS VOOR DE PUNT 2010 B=Z~27
2020 0NBGOSUB2100,2110,2130,2120; GOTO
3000
2100 M=M+1:RETURN 2110 M=M-t:RETURN 2120 N=N+1:RETURN 2130 N=N-1:RETURN 3000 REM:PLAATSEN VAN DE PUNT
3010 1FM=ÖTHENM=1
3011 IFM=63THENM=62
3012 ÏFN=0THENN=1
3013 IFN=4STHENN=47 3015 IFG=2GOTO5000 3020 F'SET (M*4, M*4) ,C
5000 REM;VERPLAATSEN AANWIJSPIJL 50.1 0 W-W+1; IFW=3THENW= 1 5020 0MWB0SUB5100,5200 5030 GOTO1040
5i 00 PUTSPRI TE1, «M*4+3,N*4+3),C,1:RET
URN
5200 PUTSPRI TE1, (M*4+3,N*4+3),15,1:RE TURN
6000 'TEKENING NAAR CASSETTE VANUIT H FT GEHEUGEN
6020 SCREENO;COLOR15,1,1:L0CATE3, 5 6030 PRINT"WILT U DE TEKENING VAN GEH EUGEN-"
6040 L0GATE3,10
6050 PRINT"PLAATS 1 NAAR CASSETTE SCH RIJVEN?"
6060 L.OCATE 10, 15: INPUT" J/N"; C$
6070 IFCf="J"QRC$="j"GOTO 6085
6080 GOTO?5O
6085 CLS:L0CATE3,5
6090 INPUT"ONDER WELKE NAAM";C$
6095 L0CATE3,iO:PRINT"ZET DE CASSETTE RECORDER KLAAR":L0CATE3,12:PRINT"VOO R OPNAME":GOSUB9700 6100 BSAVE"CAS:"+C$,401001,424991 6110 ROT0950
6500 'TEKENING VAN CASSETTE MAAR GENE UGEN
651O SCREENO:COLOR15,1,1:LGCATE3,5 6520 PRINT"WILT U LADEN?"
6530 L0CATE3,10
6540 INPUT"J/N";C$:IFC$="J"ORC$="j"GO T06550EL5E60T0950
6550 CLS:L0CATE3,5:1NPUT"WELKE NAAM"; C$:L0CATE3,10:PRINT"ZET DE CASSETTERE CORDER KLAAR":L0CATE3,12:PRINT"VOOR W EFRGAVE":GOSUB9700
661O CLS:LOCATE 5,15:PRINT"EVEN GEDUL
D AUB"
6620 BLOAD"CAS:"+C$
6630 SCREEN 3:2=1: B0SUB9520:60SUB8520 :GOTO1040
7000 REM: AANPASSEN KLEUR VIA INKEY 701O D=0:GOSUB 1020:D=VAL(IN$)*1O 7020 GOSUB1020;D=D+VAL< I N$)
7030 IFD<OORD>15GOTO1040 7040 C=D
7050 PUT SPRITE1, (M*4+3,N*4+3),C,1 7450 GOTO 1040
7500 REM: INKLEUREN VLAK ROND SPRITE 7510 R=C+1:IFR>ITHENR=C-1:PSET(M*4,N*
4) , F:
7520 PAINT(M*4,N*4),C 7950 GOTO1040
8000 REM TEKENING NAAR RAM VANAF VIDE
□GEHEUGEN
8010 GOSUB951O
8030 P0KE40Ö79!,K2:P0KE40080!,K1 8050 PQKE40091!,K4:P0KE40092!,K3;PK=U SRO(O)
8450 CL.S: GOTO 960
8500 REM TEKENING VAN RAM NAAR VIDEOG EHEUGEN
8510 GGSUB951O
8520 P0KE40051 1 , K2: P0KE400521 , K 3.
8540 P0KE40063!,K4:P0KE400641,K3:PK=U
SRI(03:RETURN
9000 DATA 11111110
9010 DATA 11111100
9020 DATA 11111000
9030 DATA11111000
9040 DATA11111100
9050 DAT A11001110
9060 DATA10000111
9070 DATAÖ0000011
9500 REM SUBROUTINES
9510 GOSUB1020:Z=VAL<IN$3:IFZ <1ORZ>96
OTG1040
9520 K"40100!+2400*(Z-l):Kf=HEX$(K) 9530 K1 = VAL < " ?<H " +LEFT$ (K$ ,233 9540 K2=VAL("KH"+RIGHT$«K$,2)3 9550 K5=K+1540:K$=HEX$(K53 9560 K3=VAL("Ï<H"+LEFT$(K$,233 9570 K4=VAL < "&H"+RIGHT$ <K$, 2) 3: RETURN 9600 6=S+1:IFG=3THENG=1 9610 GOTO3Ö15
9650 PAI NT(81,513,0:CLS:RETURN 9700 LOCATE18,25:PRINT"DRUK EEN TOE18
U
9710 IN$=INKEY*:IFIN$=""GOTO971OELSER ETURN
9800 FORZ=1T09:B0SUB9520:B0SUB8520:NE XTZ:GOTO1040 10000 KEYDN;SCREENO:END