Prisoncampx$x$#z$ ***************** ***************** ** Prison-camp ** ** ** ** copyright ** ** ** ** 1985 by ** ** ** ** H.Enters & ** ** ** ** M.v/d Heide ** ***************** *****************  502  8000@ 06:6:0: 1 9000(# 2 DEEL 1  4 7[0,3;1;"";0,12 ;"";0,22;"" 9u1,3;1;"";1,12 ;"";1,22;"" 7,0;1;"" A?11 ,0;1;"" C^19,3;1;"";19,12 ;"";19,22;"" D^18,3;1;"";18,12 ;"";18,22;"" EX17,4;1;"";17,13 ;"";17,23;"" Hx=19:y=10 Jcontr=1:fence=0 P#contr=1z=030 Q,contr=0z=300-1 Z9 ,z;4;" " [fence>0i _ x,y;" " d(x=x-(=b$x>0)+(=c$x<19) i(y=y-(=d$y>0)+(=e$y<31) j(x,y)=491160 l=(x<17x>3)(yz-3)400 mx=0250 n=f$200 s=g$8300l xx,y;5;"" .01z# =,-20 z .01z# =,-20 (contr=1contr=0:80P (contr=0contr=1:80P 80P zx=7x=11 x,y;1;2;"";0:1,-18:1.5@,-33!:20::300, x,y;1;5;"";0:t=010 :.02{# =,25:.02{# =,20:.02{# =,15:.02{# =,30:t 20::350^ !x=8x=12 220 z:80P fence=1 8i=010 :.02{# =,-40(:i10 z x-1,y;" " fence=0  =5,5;1;"JE HEBT HET GEHAALD!!!";0 t=010 :.03{u\,10 :.03{u\,10 :.03{u\,13 :.03{u\,18:.03{u\,18:.02{# =,12 :.02{# =,15:t  20: 4,0;"Je bent nu in de duitse zone. Je moet door de barakkenclusterslopen zonder tegen een barak te lopen of een wacht tegen te komen.VEEL SUCCES!!" L16,0;"Druk op een toets om te beginnen":0::500 ,:4,0;"Je bent tegen het onder hoog- spanning-staande prikkeldraad aangelopen en ge-electrocuteerd.Schokkend he ?" 6 450 ^-4,0;"Door de bons waarmee je tegen dehouten barak aan bent gelopen, zijn de duitsers gealarmeerd. Je bent gesnapt en hebt enkele dagen eenzame opsluiting gehad. Nu ben je weer bij de rest en moet,daar het je plicht is als officier,weer proberen te ontsnappen.VEEL SUCCES!!" c618,0;"Druk op een toets om te beginnen" h0::502 x,y;1;"";0 ,i=040(:.02{# =,-33!:i  30: u4,0;"Je bent gezien door de wacht en neergeschoten. Voor jou is de oorlog afgelopen." %16,3;"Nog eens ?(j/n)" ="j"502 "n"460 60<:10 :10 :"Weet je dat zeker (j/n) ?" ="n"502 "j"485 q';"Tot ziens,dit programma vernietigd zichzelf in 5 sec.":23613=\,0:500:0  DEEL 2   X0,0;1;"";0,4;1;""  X1,0;1;"";1,4;1;""  2,0;1;"";2,4;1;"";2,31;1;"";3,0;1;"";3,31;1;"" i=47 i,0;1;"";i,4;1;"";i,13 ;1;"";i,22;1;"";i,31;1;"" i >8,0;1;"";8,31;1;"" >9 ,0;1;"";9 ,31;1;"" i=10 13 i,0;1;"";i,4;1;"";i,13 ;1;"";i,22;1;"";i,31;1;"" i 14,0;1;"";14,31;1;"";15,0;1;"";15,31;1;"" i=1619 i,0;1;"";i,4;1;"";i,13 ;1;"";i,22;1;"";i,31;1;"" i ~20,0;1;"";20,31;1;"";21,0;1;"" &x=20:y=30 (contr=0 *a=14:b=5 + mof=0 , pot=0 X#contr=0n=528 Z,contr=1n=285-1 bx,y;5;"" c xx=x:yx=y d ax=a:bx=b g3pot=0a=a+1:a>30pot=1 h2pot=1a=a-1:a<2pot=0 i3mof=0b=b+1:b>30mof=1 j2mof=1b=b-1:b<2mof=0 l9 ,a;4;"" m9 ,ax;" " o15,b;4;"" p15,bx;" " r2,n;4;" " v*x=x-(="q"x>0)+(="z"x<21) *y=y-(="i"y>0)+(="p"y<31) =g$8300l  xx,yx;" " (x,y)=491700 n )contr=0contr=1:600X )contr=1contr=0:600X Xx=21y=0y=31(x=1y>3)(x=2y=4)720  170 dx,y;1;2;"";0:1,-18:1.5@,-33!:20::300, ? @0:0: B7;1;20,35#:7;1;200,0:7;1;0,-16:7;1;-200,0:7;1;0,16 Da$=" *** Copyright 1985 by H.Enters & M.v/d Heide ** All rights reserved *** PRESS ANY KEY " F len=a$ Hn=1len JR18,3;7;1;a$(nn+23):n+23=len8015O L 10 Nn P%10 :""8016P:0 R 0 T&5:5:0:0: ^@1,2;"U kunt nu uw eigen toetsen definieren." c&4,2;"Welke toets voor:" h6,10 ;"Omhoog " jb$:b$18042j l'b$>47/Ưb$<58:8048p m(b$>96`Ưb$<123{8048p o 8042j p6,17;"= ";b$ r8,10 ;"Omlaag " tc$:c$18052t v'c$>47/Ưc$<58:8058z w(c$>96`Ưc$<123{8058z y 8052t zc$=b$8052t {8,17;"= ";c$ |10 ,10 ;"Links" ~d$:d$18062~ 'd$>47/Ưd$<58:8068 (d$>96`Ưd$<123{8068  8062~ d$=b$d$=c$8062~ 10 ,17;"= ";d$ 12 ,10 ;"Rechts" e$:e$18072 'e$>47/Ưe$<58:8078 (e$>96`Ưe$<123{8078  8072 e$=b$e$=c$e$=d$8072 12 ,17;"= ";e$ 14,10 ;"Vuren" f$:f$18082 'f$>47/Ưf$<58:8088 (f$>96`Ưf$<123{8088  8082 %f$=b$f$=c$f$=d$f$=e$8082 14,17;"= ";f$ 16,10 ;"Pauze" g$:g$18092 'g$>47/Ưg$<58:8098 (g$>96`Ưg$<123{8098  8092 +g$=b$g$=c$g$=d$g$=e$g$=f$8092 16,17;"= ";g$ h19,0;"Druk op ~c~ om te veranderen.";21,0;"Op een andere toets om te spelen" ,10 :0:="C"Ŧ="c"8020T  l""8300l v0:0  #' 0: #(n U.D.G.-Copyright 1985   Hans Enters & M.v/d Heide   #) #-$n=0557:a:"a"+n,a:n #2#0,17,255,68D,0,136,255,34",34",255,136,0,68D,255,17,0,0,24,24,2,60<,88X,36$,102f,24,61=,25,37%,93],90Z,40(,102f #<4,8,16,60<,8,80P,96`,112p,1,3,7,15,31,63?,127,255,128,192,224,240,248,252,254,255 #