CrossRiver0CROSS THE RIVER from ZX Computing Aug/Sep 1984 BY CHRIS HOWARD STONE )8 BOULTON GROVE,HULL,HUMBERSIDE,HU9 3ED  MARCH 1983 UDG FOR HEN "A",01100000` "A"+1,11110000 .n=24:"A"+n,11111000:n "A"+5,01111111 "A"+6,00111111? "A"+7,00001111 "B",00001111 "B"+1,00000111 "B"+2,00000001 !"B"+3,00000010 ""B"+4,00000100 #"B"+5,00001000 $"B"+6,00000100 %"B"+7,00000010 ("C",00001110 )"C"+1,00001111 *"C"+2,00001110 +"C"+3,00001100 ,"C"+4,00011000 -"C"+5,11110000 ."C"+6,11100000 /"C"+7,11110000 2"D",11100000 3"D"+1,11000000 4"D"+2,10000000 5"D"+3,01000000@ 6"D"+4,00100000 7.n=57:"D"+n,00010000:n dUDG FOR WOLF e'n=01:"E"+n,0:n f"E"+2,00001000 g"E"+3,00010001 h"E"+4,00100001! i.n=56:"E"+n,00100000 :n j"E"+7,01110000p n"F",01110001q o"F"+1,11111001 p"F"+2,01110001q q"F"+3,01110000p r"F"+4,001100113 s"F"+5,00111111? t"F"+6,00011100 u"F"+7,0 x.n=01:"G"+n,10010000:n y"G"+2,11110000 z"G"+3,10011000 {"G"+4,11111000 |"G"+5,11110000 }"G"+6,01100000` ~"G"+7,11110000 .n=02:"H"+n,11111000:n .n=34:"H"+n,11110000:n .n=57:"H"+n,10010000:n UDG FOR CORN BAG "I",0 "I"+1,00010000 "I"+2,00001100 "I"+3,00001111 .n=47:"I"+n,00000111:n .n=03:"J"+n,00000111:n "J"+4,00001111 "J"+5,00001100 "J"+6,00010000 "J"+7,0 "K",0 "K"+1,00001000 "K"+2,001100000 "K"+3,11110000 .n=47:"K"+n,11100000:n .n=03:"L"+n,11100000:n "L"+4,11110000 "L"+5,001100000 "L"+6,00001000 "L"+7,0 ,UDG FOR FARMER -.n=02:"M"+n,00000011:n ."M"+3,00000001 /.n=45:"M"+n,00011111:n 0.n=67:"M"+n,00010111:n 6.n=01:"N"+n,00010111:n 7"N"+2,00000111 8.n=37:"N"+n,00000010:n @.n=02:"O"+n,11000000:n A"O"+3,10000000 B.n=45:"O"+n,11111000:n C.n=67:"O"+n,11101000:n J.n=01:"P"+n,11101000:n K"P"+2,11000000 L.n=37:"P"+n,01000000@:n DRAW RIVER AND BANK 0:0:4: _7:a=04:a,14;" ":a:a=1821:a,14;" ":a la=57:a,8;" ":a:a=1517:a,8;" ":a Vb=17:5;b+7,0;" ":b ,f=1:h=1:c=1:w=1  MAIN LOOP 9* Characters in lines * * 480 to 510 are UDGs *  0 |6*(f=1)+15*(f=-1),9 ;"";:"":7*(f=1)+16*(f=-1),9 ;"";:"" ~6*(h=1)+15*(h=-1),13 ;"";:"":7*(h=1)+16*(h=-1),13 ;"";:"" ~6*(c=1)+15*(c=-1),17;"";:"":7*(c=1)+16*(c=-1),17;"";:"" 6*(w=1)+15*(w=-1),21;"";:"":7*(w=1)+16*(w=-1),21;"";:"":1000 =""520 Jm$=:m$="h"m$="H"m$="c"m$="C"m$="w"m$="W"m$="f"m$="F"545! 1,-12 :520 !((m$="c"m$="C")f*c1540 "((m$="h"m$="H")h*f1540 #((m$="w"m$="W")w*f1540 &0.4L,24:m$="h"m$="H"h=-1*h 0m$="c"m$="C"c=-1*c :m$="w"m$="W"w=-1*w Dr6*(f=-1)+15*(f=1),9 ;" ":7*(f=-1)+16*(f=1),9 ;" " Nt6*(h=-1)+15*(h=1),13 ;" ":7*(h=-1)+16*(h=1),13 ;" " Xt6*(c=-1)+15*(c=1),17;" ":7*(c=-1)+16*(c=1),17;" " bt6*(w=-1)+15*(w=1),21;" ":7*(w=-1)+16*(w=1),21;" " lr6*(f=1)+15*(f=-1),9 ;" ":7*(f=1)+16*(f=-1),9 ;" " vf=-1*f  460 9f=-1h=-1c=-1w=-110808 ERROR DETECTION hɼc1050 f=c1050 I2:6:1:2,9 ;"HEN EATS CORN":1300  wɼh $ w=f .I2:6:1:2,9 ;"WOLF EATS HEN":1200 8n3:6:1:1,8;"CONGRATULATIONS":2,3;"YOU HAVE CROSSED THE RIVER" B.25~,5:.25~,5:.25~,5:.25~,0:.25~,2:.25~,2:.5,0:.25~,9 :.25~,9 :.25~,7:.25~,7:1,5 L 1,0:.75@,0:.25~,0:1,0:.75@,4:.25~,2:.75@,2:.25~,0:.75@,0:.25~,-1:1.25 ,0:400 .25~,0:.25~,4:.25~,0:.25~,4:.25~,0:.75@,4:m=14:.125},4:m:.25~,2:.375?,2:1,0:400 s