100 REM --- SHADE-SHAPE ---------------
110 REM --- MSX-HERSCHREVEN DOOR : ----
120 REM --- DE BONT C / 29.9.85 -------
130 REM -------------------------------
140 CLEAR 200:COLOR 15,4,4:SCREEN 2,2
150 DIM P(11):RESTORE
160 LINE (38,0)-(143,12),1,BF
170 OPEN "GRP:" FOR OUTPUT AS #1
180 L$="-SHADE-SHAPE-"
190 FOR K=1 TO 60:READ A$:FOR J=0 TO 11
200 P$=MID$(A$,(J*2)+1,2)
210 P(J)=VAL("&H"+P$):NEXT J
220 FOR I=0 TO 11 STEP 4:A=P(I)
230 B=P(I+1):C=P(I+2):D=P(I+3)
240 LINE (A,B)-(C,D),1:NEXT I:NEXT K
250 PAINT (103,98),1,1
260 PAINT (75,105),1,1
270 PAINT (160,170),1,1:C=2
280 FOR I=1 TO 13:PSET ((I*8)+32,3),1
290 COLOR C:PRINT#1,MID$(L$,I,1)
300 C=C+1:IF C=16 THEN C=2
310 IF INKEY$<>"" THEN 330
320 NEXT I:GOTO 280
330 SCREEN 0:COLOR 15,4,4:END
340 REM TEKENING ----------
350 DATA 5C5E927D9D3B5C5E9D229D3B
360 DATA 9D2246525158465251589234
370 DATA 9D3B9234922992343B4C4652
380 DATA 3B4CA7109D09A710254C9D09
390 DATA 465E254C2571465E25583B64
400 DATA 254D2558257D25719DBF257D
410 DATA A7B99DBFA7A3A7B99D9B9DBF
420 DATA 9D9BBDAEC8A7BDAEC823C8A7
430 DATA C823BD1DA729BD1DA734A710
440 DATA C823A7349D4767649D8F9D47
450 DATA B29B9D8FB23BB29BBD35BDAE
460 DATA BD35A741A789A741B28FA789
470 DATA A7899D8F9289924D51659289
480 DATA 517151659295517192AE9295
490 DATA 257192AE467751713B715165
500 DATA 92A23B718DAB92AB8AA992A9
510 DATA 86A792A782A592A592A37FA3
520 DATA 7BA192A18C9F789F749D899D
530 DATA 859B709B6D9982997F976997
540 DATA 66957B95779362935F917491
550 DATA 708F5B8F578D6D8D698B548B
560 DATA 5089668962874D8749855F85
570 DATA 46835B83578142813E7F547F
580 DATA 507D3B7D377B4C7B49793479
590 DATA 3077467742752D7529733E73
600 DATA 3B712571296F3E6F426D2C6D
610 DATA 306B466B4969336937674D67
620 DATA 68653A653D63656362614161
630 DATA 455F5E5F5D5D455D415B615B
640 DATA 66593D59535769576C555755
650 DATA 5A53715374515E51614F774F
660 DATA 7B4D654D684B804B83496C49
670 DATA 704786478B45744577438E43
680 DATA 92417B417F3F963F993D823D
690 DATA 863B9D3B9A3989398D379737
700 DATA 943591356B6755675A696F69
710 DATA 726B5C6B606D766D7A6F636F
720 DATA 67717D7180736B736F758475
730 DATA 8877727776798B798E7B797B
740 DATA 7D7D927D927F807F83819281
750 DATA 928388838B85928592878F87
760 DATA 39574F574B55365531534753
770 DATA 45512E512A4F414F3D4D274D
780 DATA 274B3C4B40492B492E474447
790 DATA 4845324536434B434F413941
800 DATA 3C3F523F563D403D443B593B
810 DATA 5E3947394B37613765354F35
820 DATA 523368336B315631592F6F2F
830 DATA 732D5D2D602B762B7A296429
840 DATA 67277E2781256B256F238423
850 DATA 88217221761F8C1F8F1D7A1D
860 DATA 7D1B931B9719811984179A17
870 DATA 9E1587158B13A113A5118E11
880 DATA 930FA50FA20D960D9A0BA00B
890 DATA AC31A731A72FB02FB42DA72D
900 DATA A72BB82BBC29A729AB27C027
910 DATA C425AF25B223C823C421B621
920 DATA B91FC11FAB8BA48BA18DAE8D
930 DATA B28F9D8FA191B291B293A493
940 DATA A895B295B297AB97AF99B299
950 REM  ----------STOP----------