p†Î
 PROGRAM MOVIEsREM---------------A. DE BRUIN, NAALDWIJK----------------- DIM AA2,HH2,SS1,VV3,ZZ8 AA1=#7E00;AA2=#7E06; HH2=#7E5F; SS1=#7F59; VV1=#7E2C VV3=#7E0C; ZZ8=#7ED1 DIM QQ2;DIMA(20);QQ1=A;DIMA(5);QQ2=A;$QQ2="N" *SET  ( @=02 CLEAR0< P.$12 " *** MOVIE-MAKER ***"''F P."   1: AANMAKEN FILM"'P P."   2: VERTONEN FILM"''Z P."   3: INLADEN FILM"'d P."   4: SAVE FILM"''n INPUT "KEUZE "$#100x IF $#100="1" GOSUB h‚ IF $#100="2" GOSUB gŒ IF $#100="3" GOSUB l– IF $#100="4" GOSUB m  GOTO 50ª END´ ¾m ;REM SAVEÈ  V=#2800;?#80=V%256;?#81=V/256Ü LINK SS1; REM ZOEK 'EOF'æ IF ?#83<>0;P." geen file";LINK#FFE3;RETURNð V=?#80+?#81*256;V=V+5;P.$12 PAUSE 1;REM FORCE ERROR-VECTOR TO P-CHARME REM ON ERROR;P."disk error";LINK#FFE3;GOTO 300 P."FILM LOOPT TOT.. #",&V P.''"   (DRUK OP EEN TOETS)"''; LINK#FFE3, *CAT6 INPUT "FILE-NAAM VAN FILM",$#100@ ?#80=0;?#81=1; REM NAMEJ ?#82=0;?#83=#28;?#84=0;?#85=#28 T ?#86=0;?#87=#28;?#88=V%256;?#89=V/256h LINK AA2i ENDr RETURN|l ;REM LOAD FILM† PAUSE 1 REM ON ERROR;P."disk error";LINK#FFE3;GOTO 410š P.$12› $QQ2="N"¤ *CAT® INPUT "FILE-NAAM VAN FILM",$#100¯ IF ?#100=CH"2";P." illegale filenaam !";END¸ ?#80=0;?#81=1;?#82=0;?#83=#28;?#84=128Â LINK AA1; REM LEES FILEÃ IF ?#100=CH"d";?#100=CH"2";$QQ1=$#100;$QQ2="Y"Ì RETURNÖ  àg ;REM VERTONENáP.$12'''â P."  +-----+  +-----+"'ã P."  !  /  !  ! \   !"'ä P."  ! /   !  !  \  !"'å P."  ! \   !  !  /  !"'æ P."  !  \  !  ! /   !"'ç P."  +-----+  +-----+"'è P."LANGZAMER  SNELLER"'ê Z=10ó LINK#FFE3ô CLEAR4õ IF$QQ2="Y";$#100=$QQ1;?#80=0;?#81=1ö IF $QQ2="Y";?#82=0;?#83=#80;?#84=128;LINK AA1÷ *DIRþk V=#2800  ?#80=V%256;?#81=V/256 ?#82=2 R=1 ;REM RICHTING DO&  LINK ZZ80  ?#80=V%256;?#81=V/256:  KEY A;IF A=CH"."OR A=CH">";Z=Z-1;IF Z<0;Z=0D  KEY A;IF A=CH","OR A=CH"<";Z=Z+1N  F.I=1TOZ;WAIT;NEXTX  LINK ZZ8b  V=?#80+?#81*256l UNTIL !V=#FFFFFFFFv GOTO k€ RETURNŠ  ”h ;REM AANMAKEN FILMž INPUT "EERSTE PLAATJE (J/N)"$#100¨ IF $#100="J";V=#2800;!V=#FFFFFFFF ² ¼ REM ZOEK EINDE DATA½ V=#2800Æ ?#80=V%256;?#81=V/256Ð LINK SS1; REM ZOEK EINDE VAN FILEÚ IF ?#83<>0;P." geen file";LINK#FFE3;RETURNÛ V=?#80+?#81*256ä PRINT ''" DATA TOEVOEGEN VANAF : #"&Vå PRINT ''"  (DRUK OP EEN TOETS)"'î LINK#FFE3øb    REM INLADEN* P.$124 *CAT> INPUT "FILE-NAAM VAN TEKENING ",$#100H CLEAR4R ?#80=0;?#81=1;?#82=0;?#83=#80;?#84=128\ LINK AA1; REM LEES FILE IN, MET NAAM (#100), ADRESS:#8000f  g  REM DATA WORDT VANAF ADRES V GELADENh V?3=#FE; V=V+4p REM  ZORG DAT DE BUITENSTE PUNTJES RECHTS EN BOVENz REM  NIET GEBRUIKT WORDEN!„ MOVE255,0;PLOT7,255,191;PLOT7,0,191Ž LINK VV3; REM INIT. EN ZOEEN EERSTE PUNT˜ DO¢  X=?#B1;Y=?#B2;Q=X;R=Y¬  DO¶   Z=0Ài?#5A=X+1;?#5C=Y   ;LI.HH2;IF ?#93=1;X=X+1;Z=1; GOTO i Ê IF Z=1 GOTO cÔj?#5A=X  ;?#5C=Y+1 ;LI.HH2;IF ?#93=1;Y=Y+1;Z=1; GOTO jÞ IF Z=1 GOTO cèc UNTIL ?#93=0ò ü MOVE X,Y;PLOT6,Q,R REM BEPAAL LENGTE  L=ABS(X-Q)+ABS(Y-R) +1 ?V=L;V=V+1$ XIF (X-Q)=0 THEN ?V=1. ELSE ?V=28 V=V+1B   ?V=Q ;V=V+1;REM X-POSITIE EERSTE PUNTL   ?V=R ;V=V+1V   LINK VV1` UNTIL ?#B6=0 OR V>=#5FF0j !V=#FFFFFFFFt CLEAR0;PRINT $12''~ IF V>=#5FF0;P." error: FILM TE LANG"$7ˆ P."EINDE...#",&V'''’ INPUT" NOG EEN TEKENING (J/N)"$#100œ IF $#100="J";GOTO b¦ RETURNÿ ~~~U~UZ‰}_~UBEmYU¥¥¥,~UY~UUZZ24t}	«¬}Ñ~UZUÑ~U}¾}Ó}2CUBEmvUU
ÝY.&PUÞYINK#UFE3
æ RETURNÿ
6
Ý P.&P
Þ LINK#FFE3¢€l`¢€l`©€…·©à…³©—…´©…¶©…±…²…µ¤µ±³%·Ð2æ±f·ñ©€…·æµ¥±ÉÐå©…±…µ8¥³é …³¥´é…´æ²©ÀÅ²ÐÊ©…¶`©€…‡©€…„©…ƒ…“8©¿å\…\©…‰¢&\&‰ÊÐø¥ƒe\…ƒ¥„e‰…„¥Zjjj……***…ˆ8¥Zåˆ…†¥†i…†¦†ðf‡ÊL¯~¥ƒe……ƒ¥„i…„ ±ƒ%‡ð©…“` ±€HÈ±€HÈ±€ªÈ±€¨hÉðh Lò~h 5¥€i…€¥i… ±€ÉÿÐÊ`†Z„\…^ _~¦^ ±ƒE‡‘ƒf‡¥ƒi…ƒ¥„i…„©€…‡ÊÐá`†Z„\…^ _~¦^ ±ƒE‡‘ƒ8¥ƒé …ƒ¥„é…„ÊÐê` ±€ÉÿÐÈ±€ÉÿÐÈ±€ÉÿÐÈ±€ÉÿÐ©…ƒ`¥€i…€¥i…É€ðLY©…ƒ`ZZZZZZZZZZZZZZZZZZZZZZZZ¥¥¥¥¥¥¥¥ÿÿÿÿÿÿÿÿ¥¥¥¥¥¥¥¥ÿÿÿÿÿÿÿÿ¥¥¥¥¥¥¥¥ÿÿÿÿÿÿÿÿ¥¥¥¥¥¥¥¥ÿÿÿÿÿÿÿÿ€@  `